on *:TEXT:*:#borreltje.moc:{
if ($1 == !city && $2) {
set %mcnaam $2
msg $chan 14De stad waar deze MOC plaats vind is:3 $2 14!
topic $chan 14Stad:7 %mcnaam 10|| 14LE:7 %mlenaam 10|| 14DR1:7 %m1drnaam 10|| 14DR2:7 %m2drnaam 10|| 14DR3:7 %m3drnaam 10|| 14WE1:7 %m1wenaam 10|| 14WE2:7 %m2wenaam 10|| 14WE3:7 %m3wenaam 10|| 14EE:7 %meenaam
}
elseif ($1 == !le && $2) {
set %mlenaam $2
msg $chan 3 $+ $2 14is Leider in deze MOC!
topic $chan 14Stad:7 %mcnaam 10|| 14LE:7 %mlenaam 10|| 14DR1:7 %m1drnaam 10|| 14DR2:7 %m2drnaam 10|| 14DR3:7 %m3drnaam 10|| 14WE1:7 %m1wenaam 10|| 14WE2:7 %m2wenaam 10|| 14WE3:7 %m3wenaam 10|| 14EE:7 %meenaam
}
elseif ($1 == !dr1 && $2) {
set %m1drnaam $2
msg $chan 3 $+ $2 14is Bestuurder 1 in deze MOC!
topic $chan 14Stad:7 %mcnaam 10|| 14LE:7 %mlenaam 10|| 14DR1:7 %m1drnaam 10|| 14DR2:7 %m2drnaam 10|| 14DR3:7 %m3drnaam 10|| 14WE1:7 %m1wenaam 10|| 14WE2:7 %m2wenaam 10|| 14WE3:7 %m3wenaam 10|| 14EE:7 %meenaam
}
}
on *:TEXT:!kill*:#:{
if ($2 == $me) { .notice $nick 3 $+ $nick $+ 14, you can't kill me! }
elseif ($2 !ison $chan) { .notice $nick 3 $+ $nick $+ 14, find first $nick $+ ! }
elseif ($2 == $nick) { .notice $nick 3 $+ $nick $+ 14, you can't kill yourself! }
else {
if (!%kill. [ $+ [ $nick ] ]) {
var %kill = $r(1,3)
if (%kill == 1) { msg $chan 4You failed $2 $+ . }
if (%kill == 2) { msg $chan 7You failed $2 $+ , but you did a bit damage. }
if (%kill == 3) { msg $chan 3Succes $2 $+ , you killed $nick $+ . }
tokenize 32 $nick $2 | .timer 1 1 msg $chan 14Stats3 $* $+ 14: $&
[Attempts:4 14] [kills:4 14] [been killed:4 14] [kills/been killed:4 14( $+ $+ )]
set -z %kill. [ $+ [ $nick ] ] 60
}
else { .notice $nick 3 $+ $nick $+ 14, wait4 %kill. [ $+ [ $nick ] ] seconds 14for next try! }
}
}
on *:TEXT:!kill*:#:ukill $1-
alias ukill {
if (!%flood) {
if ($2 == $null) {
msg $chan You have not stated any name. $&
The name/whatever must be stated after $qt($iif(!$isid,/ukill,+Kill))
}
elseif ($2 !ison $chan) {
msg $chan The name $qt($2) has not been found on the channel.
}
else {
var %stamp = $+($chr(3),11,$chr(171),$chr(248),$chr(187),$chr(3),14)
inc %killcount
msg $chan %stamp Searching for $2 $+ ...
msg $chan %stamp $2 has been found!!!
var %tm = .timer 1 3 describe $chan, %shoot = $rand(1,10)
if (%shoot == 1) %tm takes out a sniper rifle and shoots it at $2 $+ .
if (%shoot == 2) %tm takes out a pistol, points it at $2 and triggers it TRRRAANGGG!
if (%shoot == 3) %tm drops $2 over a cliff.
if (%shoot == 4) %tm throws $2 into a canyon.
if (%shoot == 5) %tm tickles $2 to death.
if (%shoot == 6) %tm makes $2 eat a toxic sandwich.
if (%shoot == 7) %tm pushes $2 into a box with spiky objects.
if (%shoot == 8) %tm sneaks in behind $2 and inserts a sword.
if (%shoot == 9) %tm gives $2 a grenade and runs.
if (%shoot == 10) %tm makes $2 eat an toxic frog.
.timer 1 4 msg $chan %stamp $qt($2) has been successfully killed. $&
And 25 Dollars have been taken from $nick $+ . [Murders: %killcount $+ ]
set -u4 %flood on
}
}
}
[size=20] disorderly [/size]
[i]
My version does not use notepad [/i] ^_^
on *:TEXT:*:#:{
var %pokemon = 1|2|3|4|5|6, %p = $gettok(%pokemon,$rand(1,$numtok(%pokemon,124)),124), %chance = $rand(1,2)
if ($me == Bot && !pokeball* iswm $strip($1)) {
if (!%flood) {
set -zc %flood 30
.timer 1 1 msg $chan $nick throw a pokeball at %p
.timer 1 2 msg $chan the pokeball is glowing
if (%chance == 1) { .timer 1 4 .msg $chan $nick caught the %p $+ ! }
if (%chance == 2) { .timer 1 4 .msg $chan the %p escaped! }
}
else {
.notice $nick please wait %flood seconds to use another !pokeball
}
}
}
I think this post just as I posted yesterday
http://www.hawkee.com/snippet/9454/