Aqui vai mais algumas rotinas para mIRCBot

on *:TEXT:*:#:{
  if ($strip($1) == !addperola) {
    write perolas.mrc $2- 3[4Dia:9 $date 10-11=10- 4Hora:9 $time 10-11=10- 4Por:9 $nick $+ 3]
    msg $chan 3[4 $+ $nick $+ 3]12 Perola adicionada
  }
  if ($strip($1) == !lerperola) {
    msg $chan $read perolas.mrc
  }
  if ($strip($1) == !delperola) {
    write $+(-dl,$calc($read($2))) triggers.mrc
    load -rs perolas.mrc
    msg $chan 3[4 $+ $nick $+ 3]12 Perola Removida
  }
}

on *:Text:*:#: {
  if ($1 == !abraco) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Abraça a si mesmo (Ele(a) se ama :P)
  }
  if ($1 == !abraco) && ($2 != $null) {
    msg $chan 4 $+ $nick 12Abraça fortemente4 $2 12demostrando o respeito e amizade que tem por4 $2
  }
  if ($1 == !beijar) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Beija-se a a si mesmo :x
  }
  if ($1 == !beijar) && ($2 != $null) {
    msg $chan 12Owwww!!!! fechem os olhos so um minutinho...4 $nick 12agarra4 $2
    msg $chan 12Inclina o corpo de4 $2 12para tras.4 $nick 12encosta os labios na boca de4 $2
    msg $chan 12E beija docemente4 $2 12como se fosse o primeiro beijo dos dois
    msg $chan ÔÔ
  }
  if ($1 == !xau) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Despede-se de todos :(
  }
  if ($1 == !xau) && ($2 != $null) {
    msg $chan 4 $+ $nick 12despede-se de4 $2  12.Volte sempre :(
  }
  if ($1 == !bv) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Da as boas vindas :D
  }
  if ($1 == !bv) && ($2 != $null) {
    msg $chan 4 $+ $nick 12da as boas vindas a4 $2 :D
  }
  if ($1 == !bd) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Deseja um bom dia a todos :)
  }
  if ($1 == !bd) && ($2 != $null) {
    msg $chan 4 $+ $nick 12deseja um bom dia para4 $2 :)
  }
  if ($1 == !bt) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Deseja uma otima tarde a todos :)
  }
  if ($1 == !bt) && ($2 != $null) {
    msg $chan 4 $+ $nick 12deseja uma otima tarde para4 $2 :)
  }
  if ($1 == !bn) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 Deseja uma boa noite a todos :)
  }
  if ($1 == !bn) && ($2 != $null) {
    msg $chan 4 $+ $nick 12deseja uma boa noite para4 $2
  }
  if ($1 == !flor) && ($2 == $null) {
    msg $chan 3[4 $+ $nick $+ 3]12 se presenteia com uma flor 4@)3->--
  }
  if ($1 == !flor) && ($2 != $null) {
    msg $chan 4 $+ $nick 12da uma linda flor 4@)3->--12 para4 $2
  }
  if ($1 == !saudacoes) {
    notice $nick 12Você pode direcionar ou não a um nick por exemplo:7 !4beijar Nick
    notice $nick 12Os comandos são os seguintes:
    notice $nick  7!4abraco 12Para abraçar alguem ou a você ^^
    notice $nick  7!4xau 12Se despidir de alguem ou de todos
    notice $nick  7!4beijar12 Beijar alguem ou a você :x
    notice $nick  7!4bv 12Dar boas vindas a alguem ou a todos
    notice $nick  7!4bd 12Desejar um boa tarde a todos ou alguem
    notice $nick  7!4bt 12Desejar uma otima tarde a alguem ou a todos
    notice $nick  7!4bn 12Desejar uma boa noite a todos ou alguem
    notice $nick  7!4flor 12Da uma flor a alguem, ou a você ;)
  }
}