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
    }
  }
} 

add anti flood

on *:TEXT:!plop:#dotcomboy17:{
  if !%flood. && !%flood.. [ $+ [ $nick ] ] {
    if $nick isop $chan {
      set -u10 %flood. on
      set -u15 %flood.. [ $+ [ $nick ] ] on
      msg $chan Plop!
    }
    else {
      .notice $nick error
    }
  }
} 

[size=20] disorderly [/size]

on *:TEXT:!banjohn:#:.timer 1 5 msg $chan .timeout john 1 

occurs 1 time in 5 seconds

[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 no need to use set %pokemon $read(pokeball.text)
and directly to

.timer 1 1 msg $chan $nick throw at $read(pokeball.txt)
.timer 1 4 msg $chan $nick caught the $read(pokeball.txt)
.timer 1 4 msg $chan $nick the $read(pokeball.txt) escaped ! 

if ($nick isop $chan && $2 == help) {
msg $chan blablabla 
} 

 on *:TEXT:Hello:#:{
  goto $rand(1,3)
  :1
  msg $chan Hey
  halt
  :2
  msg $chan hey
  halt
  :3
  msg $chan hey
  halt
} 

the best of me :P

 on *:TEXT:Hello:#:{
  var %randnumber = $rand(1,3)
  if (%randnumber == 1) msg $chan Hey
  if (%randnumber == 2) msg $chan hey
  if (%randnumber == 3) msg $chan hey
} 

 on *:TEXT:Hello:#:msg $chan $replace($rand(1,3),1,Hey,2,hey,3,hey) 

 on *:TEXT:!reconnect:<#BotChannel>:{
  if ($nick == <BotOwnerNick>) {
    .msg $chan The Bot is reconnecting to the network on 4 seconds
    .quit Re-connecting request by $nick
    .server <IRCNetwork>
  }
} 

ouh :P

not creative

I think this post just as I posted yesterday
http://www.hawkee.com/snippet/9454/