Game Bot, Great for channels, Lots of Games
Games:
!Aim
!Blowup/!Defuse
!Pcall
!Number/Guess
!Slots
!8ball
To use copy and paste in your remotes (Alt + r under remotes paste)
Nothing Ripped! All made from scratch NO IDEAS looked at.
Special Thanks to PunkTured for help.
More version to come later on, please post ideas to thank you.
on *:TEXT:*:#: {
if (!aim == $strip($1)) {
if ($2 ison $chan) {
if ($me == $2) { msg $chan Not Me! | halt }
msg $chan $nick aims at $2
set %aim $rand(1,6)
if (%aim == 1) msg $chan $nick goes to take the shot but the scope falls off
elseif (%aim == 2) msg $chan $nick aims at $2 and slips, hits his head on a tree!
elseif (%aim == 3) msg $chan $nick is just getting $2 in there scope and Leg shot!
elseif (%aim == 4) msg $chan $nick jumps to shot and HS!
elseif (%aim == 5) msg $chan $2 can see $nick and takes the shot before $nick
elseif (%aim == 6) msg $chan $nick hits bush YES!
unset %aim
}
elseif (!$2) { msg $chan No Nick in my scope }
elseif ($2 !ison $chan) { msg $chan There not in range of this channel }
}
if (!Blowup == $strip($1)) {
if ($2 ison $chan) {
if ($me == $2) { msg $chan Not Me! | halt }
set %bomb $2
msg $chan $nick plants a time bomb on $2
msg $chan You better Run!
msg $chan Type !defuse to stop it
.timer 1 200 unset %bomb
}
elseif (!$2) { msg $chan There not here }
elseif ($2 !ison $chan) { msg $chan Can't hit them with c4 }
}
if (!defuse == $strip($1)) {
if ($nick == %bomb) {
msg $chan Here it goes!
set %defuse $rand(1,5)
if (%defuse == 1) msg $chan You did it *relief*
elseif (%defuse == 2) msg $chan Wrong Wire Wrong Wire! NO!
elseif (%defuse == 3) msg $chan I don't know what you did but that worked
elseif (%defuse == 4) msg $chan You Stupid *BOOM*
elseif (%defuse == 5) msg $chan $me whips it up in the air You Dumy
unset %defuse
unset %bomb
}
else { msg $chan You don't have a bomb on you | haltdef }
}
if (!pcall == $strip($1)) {
if ($2 ison $chan) {
if ($me == $2) { msg $chan Not Me! | halt }
msg $chan Calling $2...
set %pcall $rand(1,5)
if (%pcall == 1) .timer 1 5 msg $chan $2 is your refrigerator running? Then you better catch it!
elseif (%pcall == 2) .timer 1 5 msg $chan $2 is there an I.P. Freely there?
elseif (%pcall == 3) .timer 1 5 msg $chan $2 is there a john there? Then how do you goto the washroom?
elseif (%pcall == 4) .timer 1 5 msg $chan 3
elseif (%pcall == 5) .timer 1 5 msg $chan 4
unset %pcall
}
elseif (!$2) { msg $chan Who do i call? }
elseif ($2 !ison $chan) { msg $chan I don't pay long distance }
}
if (!number == $strip($1)) {
if (!%num) {
set -u60 %num $rand(1,100)
msg $chan I have set a number, it is between 1 and 100.
msg $chan To make a guess, type: !guess Number_Here
msg $chan Start guessing now, you have one minute to guess the number.
}
else { msg $chan A game is currently in progress. }
}
if (!guess == $strip($1)) {
if (!%num) { msg $chan There is no game in progress. }
else {
if ($2 < $($+(%,num),2)) { msg $chan Higher. }
if ($2 > $($+(%,num),2)) { msg $chan Lower. }
if ($2 == $($+(%,num),2)) { msg $chan Bingo. $nick guessed the right number %num $+ . }
}
}
if (!slots == $strip($1)) {
set -u20 %s1 $rand(1,3)
if (%s1 == 1) msg $chan Fisrt one is OP
elseif (%s1 == 2) msg $chan Fisrt is HOP
elseif (%s1 == 3) msg $chan First is VOP
set -u20 %s2 $rand(1,3)
if (%s2 == 1) msg $chan Second one is OP
elseif (%s2 == 2) msg $chan Second is HOP
elseif (%s2 == 3) msg $chan Second is VOP
set -u20 %s3 $rand(1,3)
if (%s3 == 1) msg $chan Third one is OP
elseif (%s3 == 2) msg $chan Third is HOP
elseif (%s3 == 3) msg $chan Third is VOP
if (%s1 == 1) && (%s2 == 1) && (%s3 == 1) {
msg $chan You won!
}
elseif (%s1 == 2) && (%s2 == 2) && (%s3 == 2) {
msg $chan You won!
}
elseif (%s1 == 3) && (%s2 == 3) && (%s3 == 3) {
msg $chan You won!
}
else { msg $chan You lost }
}
if (!8ball == $strip($1)) {
if ($me isin $2-) { msg $chan Not Me! | halt }
set %8ball $rand(1,4)
if (%8ball == 1) msg $chan Maybe..
elseif (%8ball == 2) msg $chan YES
elseif (%8ball == 3) msg $chan NO
elseif (%8ball == 4) msg $chan Depends
unset %8ball
}
else { haltdef }
}
I would like to try this script as it looks good ... Im a newbie ... where do I copy and paste it in mIRC ? im not having a go personally at you Aucun50 because you are just one of many ... but lots of people post scripts and often dont tell other users where to put the script i.e aliases / popups / remote
you can shorten alot of things take the !slots for one
you can do it this way as well i added some flood control to it as well
if ($strip($1) == !slots && !$($+(%,slots,.,$nick),2)) {
set -u3 $+(%,slots,.,$nick) on
var %s1 = $gettok(OP|HOP|VOP,$r(1,3),124), %s2 = $gettok(OP|HOP|VOP,$r(1,3),124), %s3 = $gettok(OP|HOP|VOP,$r(1,3),124)
msg # %s1 %s2 %s3 $iif(%s1 == %s2 && %s2 == %s3,You Won!,You Lose!)
}
also you may want to go through and use local vars instead of all them global ones