Simpel CLANBOT

By BalTazar on Feb 22, 2005

This isnt diffuclt to make, but this is my first script/snippet and im really proud [-- There are an @ function, and you can do some speciel things as @ But You will se, use !cmd and !cmdop for the Commands, If you have any Questions or some ideas please mail me (Rasmuspdk@hotmail.com --] ill Suguest that you copy this into a CLANBOT.mrc file and load it, Then it will work 100%. Maybe there are some English errors but im Dane so dont Flame me ;) And a Speciel thanks to xDaeMoN for helping me with getting started :D

Like Page Follow Author

Comments

Jethro - Oct 08, 2009

All those on text events can be consolidated into one:

on $*:TEXT:/^(\x21\w+)/i:%clanchan: {
  tokenize 32 $strip($regml(1)) 
  if ($regml(1) == !cmdop) && ($nick isop #) { 
    notice $nick 14,114The 15commands 0for 15@ 14are: 4!14sethp, 4!15setmembers, 4!0setnextwar, 4!15setlinks, 
  }
  if ($regml(1) == !cmd) { 
    msg # 14,114You 15can 0use 15these 14commands. 4!14hp, 4!15members, 4!0nextwar, 4!0links, 4!15shoot, 4!14camp 
  }
  if ($regml(1) == !hp) && (%hp) { msg # $v1 }
  if ($regml(1) == !sethp) && ($nick isop #) { set %hp $2- }
  if ($regml(1) == !members) && (%members) { msg # $v1 }
  if ($regml(1) == !setmembers) && ($nick isop #) { set %members $2- }
  if ($regml(1) == !nextwar) && ($nick isop #) && (%nextwar) { msg # $v1 }
  if ($regml(1) == !setnextwar) && ($nick isop #) { set %nextwar $2- }
  if ($regml(1) == !setlinks) && ($nick isop #) { set %links $2- }
  if ($regml(1) == !links) && (%links) { msg # $v1 }
  if ($regml(1) == !shoot) { $iif($rand(1,2) == 1,describe # $nick was lucky whis time!,describe # To bad now I need to shoot $nick in the Ass!) }
  if ($regml(1) == !camp) {
    var %camp.tal = $rand(10,100)
    msg # $nick is %camp.tal ...
  }
}

Please take a note of this line:> $+ % Camper . - Camp-O-Meter - $chr($asc) $+ $str(4, $ceil($calc(%camp.tal / 5))) $+ $str(5, $floor($calc($calc(100 - %camp.tal) / 5)))) $+ $chr($asc)
<- this line of code is equivocal and will generate an error.

Respond

hackmaster - Oct 08, 2009

Good one.

Respond