A collecion of scripts funny scripts put together as a bot...
May not be so useful, but great for entertaining people when they are bored!

(P.S. I made the script simple so scripters who are new to mIRC scripting can easely feel like editing it.)

on *:TEXT:`commands:#:{
  { msg # 5,1- 4,1- 7,1- 8,1- 15,1- 0,1- Commands 0,1 15,1- 14,1- 8,1- 7,1- 4,1- 5,1- | msg # 0,1`colour -- Chooses a random colour. | msg # 0,1`8ball <question> -- Get a answer on a question | msg # 0,1`pickpocket <name> -- Pickpocket a specified person | msg # 0,1`steal <name> <item> -- Steal a specified item from a specified person | msg # 0,1`dice  -- Throw a dice | msg # 0,1`emoticon  -- Randomly generates an emoticon | msg # 0,1`misfortune  -- This command bring bad luck upon using it | msg # 5,1- 4,1- 7,1- 8,1- 15,1- 0,1- DefianceBot script made by Dull <> Hawkee.com 0,1 15,1- 14,1- 8,1- 7,1- 4,1- 5,1- }
}

on *:TEXT:`8ball*:#:{
  { describe # shakes up the 8ball... }
  /set %8ball $rand(1,8)
  if (%8ball == 1) { msg # Yes. }
  if (%8ball == 2) { msg # No. }
  if (%8ball == 3) { msg # Always! }
  if (%8ball == 4) { msg # Never! }
  if (%8ball == 5) { msg # Absolutely! }
  if (%8ball == 6) { msg # Ofcourse not. }
  if (%8ball == 7) { msg # HELL YEAH!! }
  if (%8ball == 8) { msg # HELL NO!! }
}

on *:TEXT:`colour:#:{
  /set %colour $rand(1,16)
  if (%colour == 1) { describe # 0,0               }
  if (%colour == 2) { describe # 1,1               }
  if (%colour == 3) { describe # 2,2               }
  if (%colour == 4) { describe # 3,3               }
  if (%colour == 5) { describe # 4,4               }
  if (%colour == 6) { describe # 5,5               }
  if (%colour == 7) { describe # 6,6               }
  if (%colour == 8) { describe # 7,7               }
  if (%colour == 9) { describe # 8,8               }
  if (%colour == 10) { describe # 9,9               }
  if (%colour == 11) { describe # 10,10               }
  if (%colour == 12) { describe # 11,11               }
  if (%colour == 13) { describe # 12,12               }
  if (%colour == 14) { describe # 13,13               }
  if (%colour == 15) { describe # 14,14               }
  if (%colour == 16) { describe # 15,15               }
}

on *:TEXT:`pickpocket*:#:{
  { describe # silently reaches into one of the pocket of $2 and finds... }
  /set %s $rand(1,8)
  if (%s == 1) { describe # -- A condom?! }
  if (%s == 2) { describe # -- Nothing. The pocket was empty. }
  if (%s == 3) { describe # -- A bag of crack... Damn crackheads. }
  if (%s == 4) { describe # -- A CD of Radiohead. I wonder what album it is. }
  if (%s == 5) { describe # -- A GBA Advance! It has the game Kirby's Wonderland and the Amazing Mirror inside it... What the hell. }
  if (%s == 6) { describe # -- A pokeball! }
  if (%s == 7) { describe # -- A note. It says: "Heck off or I'll kill you." }
  if (%s == 8) { describe # -- 100 bucks!! I can use this for good use! }
  if (%s == 9) { describe # -- A broken beer bottle. }
  if (%s == 10) { describe # -- An apple. It seems to be half rotten. }
}

on *:TEXT:`steal*:#:{
  { describe # silently sneaks to $2 and steals the $3 of $2 }
}

on *:TEXT:`dice:#:{
  { describe # rolls a dice }
  /set %dice $rand(1,6)
  { msg # You have rolled a %dice }
}

on *:TEXT:`emoticon:#:{
  /set %e $rand(1,8)
  if (%e == 1) { describe # =] }
  if (%e == 2) { describe # =[ }
  if (%e == 3) { describe # =| }
  if (%e == 4) { describe # =D }
  if (%e == 5) { describe # =O }
  if (%e == 6) { describe # =x }
  if (%e == 7) { describe # =F }
  if (%e == 8) { describe # =@ }
  if (%e == 9) { describe # = }
  if (%e == 10) { describe # =K }
}

on *:TEXT:*lol*:#:{
  /set %ba $rand(1,20)
  if (%ba == 1) { inc %ballshhhh..t | describe # sees $nick get hit by a football. People hit by a football: %ballshhhh..t }
  if (%ba == 2) { inc %tripped | describe # sees $nick trip over a rock and fall in a pool of mud. People that tripped over a rock: %tripped }
  if (%ba == 3) { inc %lol | describe # sees $nick get burned by a enormous dragon's fire. People burned by that same dragon: %lol }
}

on *:TEXT:*`misfortune:#:{
  /set %unfortune $rand(1,10)
  if (%unfortune == 1) { describe # sees the house of $nick implode }
  if (%unfortune == 2) { describe # sees the head of $nick explode }
  if (%unfortune == 3) { describe # sees $nick drop dead on the floor }
  if (%unfortune == 4) { describe # sees a tomahawk fly towards $nick and strike the head of $nick }
  if (%unfortune == 5) { describe # sees the foot of $nick catch fire }
  if (%unfortune == 6) { describe # sees $nick implode }
  if (%unfortune == 7) { describe # sees that the hair of $nick poof away *laughs* }
  if (%unfortune == 8) { describe # sees $nick chew on his hand }
  if (%unfortune == 9) { describe # sees a anvil that falls from out of the sky drops on the left foot of $nick }
  if (%unfortune == 10) { describe # sees $nick pee against a high voltage fence, and then sees $nick get zapped, and then sees $nick fall on the ground (DEAD) }
}