SHARE
TWEET

Really basic mIRC Bot.

Seb Apr 17th, 2011 (edited) 489 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:text:*:#:{
  2.   if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) {
  3.     if ($strip($1) == !voice) { mode # +vvvvvv $iif(!$2,$nick,$2-) }
  4.     if ($strip($1) == !devoice) { mode # -vvvvvv $iif(!$2,$nick,$2-) }
  5.     if ($sctip($1) == !invite) { invite $2 # | msg # 14[4Inviting14] $2 }
  6.   }
  7.   elseif ($readini(op.ini,$nick,$chan) == $address($nick,2) ) {
  8.     if ($strip($1) == !kick) { kick # $2 $3- }
  9.     if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
  10.     if ($strip($1) == !unban) { ban -r # }
  11.     if ($strip($1) == !mode) { mode # $2 }
  12.     if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
  13.     if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
  14.     if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
  15.     if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
  16.   }
  17.   elseif ($readini(master.ini,$nick,$chan) == $address($nick,2) ) {
  18.     if ($strip($1) == !kick) { kick # $2 $3- }
  19.     if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
  20.     if ($strip($1) == !unban) { ban -r # }
  21.     if ($strip($1) == !mode) { mode # $2 }
  22.     if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
  23.     if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
  24.     if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
  25.     if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
  26.     if ($strip($1) == !access) { checkaccess }
  27.   }
  28.   elseif ($readini(owner.ini,$nick,$chan) == $address($nick,2) ) {
  29.     if ($strip($1) == !kick) { kick # $2 $3- }
  30.     if ($strip($1) == !ban) { ban -k # $2 2 $iif(!$3,No reason,$3-) (From: $nick $+ ) }
  31.     if ($strip($1) == !unban) { ban -r # }
  32.     if ($strip($1) == !mode) { mode # $2 }
  33.     if ($strip($1) == !invite) { invite $2 # | msg # Inviting $2 in # }
  34.     if ($strip($1) == !topic) { topic # $2- (From: $nick $+ ) }
  35.     if ($strip($1) == !op) { mode # +oooooo $iif(!$2,$nick,$2-) }
  36.     if ($strip($1) == !deop) { mode # -oooooo $iif(!$2,$nick,$2-) }
  37.     if ($strip($1) == !restart) { describe #Advice Restart Requested by $nick | .timer 1 2 exit -nr }
  38.     if ($strip($1) == !global) { amsg 14[4Global Message14]: $2- }
  39.     if ($strip($1) == !topicnews) { .topic # %topicl $2- %topicr | set %news $2- }
  40.     if ($strip($1) == !cleartopicnews) { .topic # %topicl 4No news item atm %topicr | set %news No news item atm }
  41.     if ($strip($1) == !botnews) { set %botnews $2- | msg # %cl $+ News Added $+ %cr }
  42.     if ($strip($1) == !addstaff) { auser staff $address($nick,2) | msg # 14[4Staff14] ADD $2 Succesfull | mode # +v $2 }
  43.     if ($strip($1) == !access) { checkaccess }
  44.     else { return }
  45.   }
  46. }
  47.  
  48. on *:JOIN:#:{
  49.   if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) { mode # +v $nick }
  50.   elseif ($readini(op.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  51.   elseif ($readini(sop.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  52.   elseif ($readini(master.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  53.   elseif ($readini(owner.ini,$nick,$chan) == $address($nick,2)) { mode # +o $nick }
  54.   else { .notice $nick Welcome on # $nick $+ . | .notice $nick 14[4Bot News14]: %botnews }
  55. }
  56.  
  57. alias checkaccess {
  58.   if ($readini(voice.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Voice }
  59.   if ($readini(op.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Op }
  60.   if ($readini(sop.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Sop }
  61.   if ($readini(master.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Master }
  62.   if ($readini(owner.ini,$nick,$chan) == $address($nick,2)) { msg # 14[4Access14] $2 is level: Owner }
  63.   else { msg # 14[4Access14] $2 is Not on the access list }
  64. }
  65.  
  66. menu nicklist {
  67.   $iif($me isop $chan,User List)
  68.   .Add
  69.   ..Voice: writeini voice.ini $1 # $address($1,2) | echo -a 4 $1 added to Voice list for #  | mode # +v $$1 | notice $$1 you just got added to my auto voice list in #
  70.   ..Op: writeini op.ini $1 # $address($1,2) | echo -a 4 $1 added to Op list for # | mode # +o $$1 | notice $$1 you just got added to my auto op list in #
  71.   ..Sop: writeini sop.ini $1 # $address($1,2) | echo -a 4 $1 added to Sop (Super OP) list for #  | mode # +v $$1 | notice $$1 you just got added to my auto voice list in #
  72.   ..Master: writeini master.ini $1 # $address($1,2) | echo -a 4 $1 added to Master list for # | mode # +o $$1 | notice $$1 you just got added to my auto op list in #
  73.   ..Owner: writeini owner.ini $1 # $address($1,2) | echo -a 4 $1 added to Owner list! | mode # +o $$1 | notice $$1 You just got added to my Owner list!
  74.   .Del
  75.   ..Voice: remini voice.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Voice list for # | mode $chan -v $$1 | notice $$1 you just got deleted from my auto voice list in #  
  76.   ..Op: remini op.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Op list for # | mode $chan -o $$1 | notice $$1 you just got deleted from my auto op list in #
  77.   ..Sop: writeini sop.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Sop list for #  | mode # -v $$1 | notice $$1 you just got added to my auto voice list in #
  78.   ..Master: writeini master.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Master list for # | mode # -o $$1 | notice $$1 you just got added to my auto op list in #
  79.   ..Owner: writeini owner.ini $1 # $address($1,2) | echo -a 4 $1 removed from my Owner list | mode # -o $$1 | notice $$1 you just got added to my Owner list!
  80. }
RAW Paste Data
Top