Need Random Messages Script

[Ninja_Boy]

Hello Everyone

can anyone please make a small random message script for me? cuz i am not better mIRC Bot Scripter. i am learning mIRC Bot script.

i want bot script like Bot will talk automatically after 2-3 minutes

like this

Code: Select all

<mIRC Bot> Hello

After 3 minutes

<mIRC Bot> i am crazy

this is possible?

thx in Advance

[SpiKe^^]

Look around here first....

http://www.egghelp.org/tclhtml/3478-4-0 ... ertise.htm

or maybe this forum string...

http://forum.egghelp.org/viewtopic.php?t=19179

[Ninja_Boy]

thx but can u help me in this code pls?

i want like if my bot join any channel text come as "Pyscho is Back!!" And if any other player join Channel then text come as "Welcome $nick to $chan Channe.l"

but when bot my join channel both text come like this

<Psycho>Welcome Psycho to #psycho Channel.
<Psycho>Psycho is Back!!!

Code: Select all

on *:join:#: {  
 if($nick == Pyscho) 
msg $chan 4Pyscho is Back
}

on *:join:#: {  msg $chan Welcome $nick to $chan Channel.
}

and how to use .tcl files for mIRC bot?

[Madalin]

NOTE: This is an eggdrop/help forum not a mirc bot one. The script i wrote is for eggdrop only and will not work on mIRC (its not a .mrc its a .tcl)

We can convert .mrc to .tcl but tcl scripts cannot be loaded to mirc clients

Code: Select all

bind join - * pub:join

proc pub:join {nick uhost hand chan} {

	if {$nick == "Pyscho"} {
		putserv "PRIVMSG $chan :\00304$nick\003 is Back"
	} else {
		putserv "PRIVMSG $chan :Welcome $nick to $chan Channel"
	}
}

[Get_A_Fix]

You can also use setchaninfo and +greet, which are both internal/core eggdrop commands. It would be much easier than adding a script just to greet a single user.

There is a script for infoline here with commands explained.

For the script to be like you asked, where it triggers ONLY when your BOT joins, then use something similar to what was posted above.

Code: Select all

bind join - * pub:join

proc pub:join {nick uhost hand chan} {
   global botnick
   if {($chan == "#psycho") && ([isbotnick $nick])} {
      puthelp "PRIVMSG $chan :Welcome $botnick to $chan Channel."
      puthelp "PRIVMSG $chan :\0034$botnick is Back\003!!"
   } else { puthelp "PRIVMSG $chan :Welcome $nick to $chan Channel."
    } 
}

You can even make it so you can turn this on|off, using .chanset #channel +botgreet

Code: Select all

bind join - * pub:join

setudef flag botgreet

proc pub:join {nick uhost hand chan} {
   global botnick
   if {![channel get $chan botgreet]} {return}
   if {($chan == "#psycho") && ([isbotnick $nick])} {
      puthelp "PRIVMSG $chan :Welcome $botnick to $chan Channel."
      puthelp "PRIVMSG $chan :\0034$botnick is Back\003!!"
   } else { puthelp "PRIVMSG $chan :Welcome $nick to $chan Channel."
    } 
}