Beta-Bot
Platform: mIRC
Published Aug 20, 2005
Updated Sep 04, 2008
This is my very first script( i started about 2 weeks ago), if you have any suggestions/bugs PLEASE post them up so i can get better at scripting. First set yourself with at least 500 access ( different connection/client). Then type trigger <trigger> to set the up the trigger. Then just mess around with the commands.
Its kinda messy, sorry!
;::::::::::::::::::::::::::::::::::::::Beta-Bot::::::::::::::::::::::::::::::::::::::
;""""""""""""""""""""""""""""""""""""""by MnMs( Help from Duladian)
;`'`'`'`''`'`'`'`''`'`'`'`'`#Club-Cs on GameSURGE `'`'`'`'`'`'`'`'
on *:connect: { ignore -u60 *!*@* }
on *:text:trigger:#: { msg $chan The current trigger is: %trigger }
on 500:text:trigger *:#: { set %trigger $2 | notice $Nick Trigger has been set to: $2- }
on 500:join:$(%trigger $+ join *):#: { join $2 | notice $Nick $Me has joined $2 $+ . }
on 300:text:$(%trigger $+ nick *):#: { nick $2 }
on 500:TEXT:$(%trigger $+ quit *):#: { quit Die requested by $Nick Reason: $2- }
}
on *:text:!a *:#:{
if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
notice $nick $$2 $+ 's ( $+ $address($2,2) $+ ) access is $level($address($$2,2))
}
on *:text:!ping*:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
msg $chan $+ $nick $+ : Pong! | ignore -u60 $nick }
on *:text:!banana:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
msg $chan $+ $nick $+ : I don't wanna be part of your sick fantasies! | ignore -30 $nick }
on *:text:!huggle:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
describe $chan huggles $nick | ignore -u30 }
on *:text:!huggle *:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
describe $chan huggles $2 | ignore -u30 $nick }
}
}
on 500:text:$(%trigger $+ unload *):#: { /unload -rs $2 | notice $Nick $2 has been unloaded }
on 500:text:$(%trigger $+ load *):#: { load -rs $2 } { notice $nick File: $2 has been loaded. }
on 400:text:$(%trigger $+ deluser $2):#: { ruser $2 | notice $2 You have been deleted from my userlist }
on 500:text:$(%trigger $+ deluser $2):#: {
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
ruser $2 | notice $2 You have been deleted from my userlist
}
on 500:text:$(%trigger $+ adduser *):#: {
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
guser $3 $2 2 | notice $2 You now have $3 access to $me
}
}
;hix floods users with ctcps who are using hixscript, i was bored.
on 500:text:$(%trigger $+ hix *):#: { ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version }
}
;Replace YOURHOSTNAME with your actual hostname
on *:OPEN:*:*: { notice $ial(*!*@YOURHOSTNAME,1).nick Opening query msg from $nick to $me $+ : $1- | msg $nick My owner will contact you as soon as possible. }
on *:notice:*:*: { notice $ial(*!*@OURHOSTNAME,1).nick Notice from $Nick to $me $+ : $1- }
}
on 400:text:$(%trigger $+ addoper *):#: { guser 200 $2 2 | notice $2 $Nick Has given you 200 access to me }
on 400:text:$(%trigger $+ addmaster *):#: { guser 300 $2 2 | notice $2 $Nick Has given you 300 access to me }
}
on 400:text:$(%trigger $+ timer7halt):#: { timer7 off | notice $nick Timer7 off }
on 400:text:$(%trigger $+ timer7 *):#: { timer7 0 $2 /msg $3 $4- | notice $nick Timer7 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer6halt):#: { timer6 off | notice $nick Timer6 off }
on 400:text:$(%trigger $+ timer6 *):#: { timer6 0 $2 /msg $3 $4- | notice $nick Timer6 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer5halt):#: { timer5 off | notice $nick Timer5 off }
on 400:text:$(%trigger $+ timer5 *):#: { timer5 0 $2 /msg $3 $4- | notice $nick Timer5 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer4halt):#: { timer4 off | notice $nick Timer4 off }
on 400:text:$(%trigger $+ timer4 *):#: { timer4 0 $2 /msg $3 $4- | notice $nick Timer4 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer3halt):#: { timer3 off | notice $nick Timer3 off }
on 400:text:$(%trigger $+ timer3 *):#: { timer3 0 $2 /msg $3 $4- | notice $nick Timer3 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer2halt):#: { timer2 off | notice $nick Timer2 off }
}
on 300:text:$(%trigger $+ say *):#: /msg $chan 5 $nick $+ :4 $2 12 $+ $3 13 $+ $4 14 $+ $5 9 $+ $6 7 $+ $7 2 $+ $8 3 $+ $9 4 $10 6 $11 12 $12 14 $13 9 $14 7 $15 2 $16 3 $17
on 300:text:$(%trigger $+ rsay *):#: msg $chan $eval($2-,2)
}
on 400:text:$(%trigger $+ timer2 *):#: { timer2 0 $2 /msg $3 $4- | notice $nick Timer2 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer1halt):#: { timer1 off | notice $nick Timer1 off }
on 400:text:$(%trigger $+ timer1 *):#: { timer1 0 $2 /msg $3 $4- | notice $nick Timer1 set to $2 seconds in $3, message: $4- }
}
on 300:text:$(%trigger $+ kick *):#: {
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
kick $chan $2-
}
on 300:text:$(%trigger $+ ban *):#: {
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
ban $chan $2-
}
on 300:text:$(%trigger $+ kickban *):#: {
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
ban $chan $2-
kick $chan $2-
}
on 200:text:$(%trigger $+ voice *):#: { mode $chan +v $2 }
on 300:text:${%trigger $+ op *):#: { mode $chan +o $2 }
}
on *:text:$%trigger $+ version):#: { notice $nick %versionbetabot }
on *:load: { set %versionbetabot Beta-Bot by MnMs }
on 400:text:$(%trig $+ clvl *):#:{
if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
ruser $address ($2,2) | auser $3 $address($2,2) | notice $nick changed $2 $+ 's access to $3
}
on *:text:!8ball on:#: {
if (%8 != $null) { msg $chan 4 $+ Sorry 8ball is already on | halt }
set %8 on
msg $chan 4 $+ EightBall is now on
}
on *:text:!8ball off:#: {
if (%8ball == $null) { msg $chan 4 $+ 8all is already disabled | halt }
.unset %8
msg $chan 4 $+ 8Ball is now off
}
on *:text:!8*:#: {
if (%8ball != on) { msg $chan 4 $+ | halt }
set %answer8 $rand(1,13)
if (%answer8 == 1) { msg $chan $+ $nick $+ : Yes. }
if (%answer8 == 2) { msg $chan $+ $nick $+ : No. }
if (%answer8 == 3) { msg $chan $+ $nick $+ : Can this question wait? I'm eating my lunch }
if (%answer8 == 4) { msg $chan $+ $nick $+ : Who do you think i am DiLL?!! }
if (%answer8 == 5) { msg $chan $+ $nick $+ : I think so. What was the question again? }
if (%answer8 == 6) { msg $chan $+ $nick $+ : It is decidedly so. }
if (%answer8 == 7) { msg $chan $+ $nick $+ : Absolutely not. }
if (%answer8 == 8) { msg $chan $+ $nick $+ : Not on your life. }
if (%answer8 == 9) { msg $chan $+ $nick $+ : You never know. Neither do I. }
if (%answer8 == 10) { msg $chan $+ $nick $+ : Reading foggy -- try again later. }
if (%answer8 == 11) { msg $chan $+ $nick $+ : Are you mad?! )
if (%answer8 == 12) {msg $chan $+ $nick $+ : If the prophets will it. }
if (%answer8 == 13) {msg $chan $+ $nick $+ : Yeah. Sure. Exactly.
}
#Club-Cs on
on 500:text:$(%trigger $+ mimic *):#: { set %mimicnick $2 | notice $nick Now mimicing $2 }
on 1:text:*:#: {
if ($nick == %mimicnick) { msg $chan $1- } }
on 1:action:{
if ($nick == %mimicnick) { describe $chan $1- } }
on 500:text:$(%trigger $+ mimicoff *):#: { unset %mimicnick | notice $nick Stopped mimicing $2 }
#Club-Cs end
