Ramdom Pick Hey Mesage?

[KingpinX]

If Message = "Hey" Then
If Message "Server2.SendData " & RMName & " :hey" & UName & vbCrLf"
End If

how would i make that ramdom hey message?
like this

If Message = "Hey" ,"Hello" ,"Hi" ,"hey" ,"hi" ,"hello" Then
If Message "Server2.SendData " & RMName & " :hey" & UName & vbCrLf"
End If

[hacker]

Make an array and use a random number for the array number?

[Webagent007]

well here's a way to do itbr]

Function Say(StrData)
  strdata = trim(strdata)
  if len(strdata) < 1 then
Say = "Says absolutely Jack because thats what he was told to do!"
  elseif lcase(strdata) = "something" or lcase(strdata) = "anything" then
              Say="Um...Like what? Something? Like that?"
  else
Say = strdata
  End if
End Function


code is bigger offcource, to make it actually reply in the room, and offcource mine will only reply if you name the bot's name first.. if you want I can help you more but this is a way to make it respond same reply on "something" or "anything"

[Webagent007]

lol if you want a random reply instead of reply on a few trigger words then do it like thisbr]

Function Tip (strData)
 
 Dim i
  If len(strData)  < 1 or not isnumeric(i) then
    i = int ( rnd * 15) + 1
 else
   i = cint (strdata)
 end if
  Select case i
    case 1
        Tip = "Don't eat things you find lying on the ground!"
     case 2
        Tip = " Don't do drugs.....drugs are bad...mmmmkay"
     case 3
        Tip "Don't pull cables out of hubs or routers"
     case 4
        Tip = "Never trust %bot%"
     case 5
        Tip = "Get back to work %from%!"
     case 6
        Tip = "It goes Save - Run - Crash, not Run - Crash - Kick computer"
     case 7
        Tip = "Remember to eat while coding. It helps us live"
     case 8
        Tip = "Don't throw stuff at hobbo's"
     case 9
        Tip = "Have a shower at least 3 times a week! Especially you %from%!"
     case 10
        Tip = "Save your programs regularly."
     case 11
        Tip = "Don't eat cheese before bed time!"
     case 12
        Tip = "Be nice to %bot%!"
     case 13
        Tip = "Go get me something to eat %from%!"
     case 14
        Tip = "Don't look behind you!"
     case 15
        Tip = "Don't sit on top of lamp posts during lightning storms!"
    case else
       Tip = "Tip " & i & " dousn't exist yet %from%!"
 End Select
   
End Function


%from% and %bot% will be replaced in other part of code.

[KingpinX]

ty webbie but now i am just fowkring on the options gettin them finished mainly...because this morning i was in xttr and finished connection code then tested it make the chat.html file
but it never loads up onto the web nav then it acts like its loading some wut of loading then webnav goes to a blank white page , which when u press connect u least see the html page starting to connect... then once its connected it switches over to irc client to read the info.. but i seen if i leave the bot on it keeps trying to connect or somethign because around 10 mins if i let it sit there it will start to give me alittle irc raw data.... but still no work like it should if i need i will upload source to let anyone that wants to help, they can thankz

[Webagent007]

erm.. close the stupid browser after youre connected lol, or are you making an irc browser?

[KingpinX]

irc client browser bot input the exploit so how can i even connect? lol
colorful a** irc client maybe if i threaten it will work?
it acts like its like but i can't tell because it don;t here is my link to download beta source code... will let u see for urself what it doing to me.. its driving me up the wall

www.geocities.com/kingpinxprototype/

[Webagent007]

I connect fine as guest, but first thing I did before I even runned it was change the class id to msnchatx.ocx, I take it you mean thisone: RatedXBeta.zip ?

But its totally Syams source (nicklist don't work lol), just slightly edited, I see no Option Explicit in the form, and you should never user #1 or any fixed numberbr]
Dim iFree as Intenger
iFree = FreeFile

then use #FreeFile, If I may make a suggestion, Syams source is good to see how the connecting should be done, but if you really want to learn proper VB then take examples from planet source code.. not mented insulting but the way the raw data is parsed is so.... hrm well, learn to work with select case.

[KingpinX]

ok i learned from syam's irc client that nicklist didn't work had to fix that this one i am sure it had all working coding i did study syam's irc client that nicklist never worked on, so i did a lil reasearch got that nicklist prob fixed then i stupied the winsocks if it was syam irc client it would work

[KingpinX]

but thankz for your help i will try the msnchatx

[Vertigo]

umm web, can i please have the url for planet source?
tried planet source .com and .net..

[z00ey]

www.planet-source-code.com/

[Vertigo]

thanks ;D