IRC Bot v2.0 ( Clean )

By AdrianF on Jun 04, 2008

Hope You Like This Bot!! Just Set Yourself As Owner In Bot In Users!
I Fixed Barckets. ( Eugenio Did At Least )

on *:load: { //echo Thanks For Using IRC Bot v1.5!!!!!! }
on owner:TEXT:*:#:{
  If ($strip($1) == +kill) kill $2 $3
  If ($strip($1) == +qo) mode $chan +q $2
  If ($strip($1) == +qom) mode $chan +q $nick
  If ($strip($1) == -qom) mode $chan -q $nick
  If ($strip($1) == +mop) mode $chan +o $nick
  If ($strip($1) == -mop) mode $chan -o $nick
  If ($strip($1) == +Mea) mode $chan +a $nick
  If ($strip($1) == -Mea) mode $chan -a $nick
  If ($strip($1) == +Meh) mode $chan +h $me
  If ($strip($1) == -Meh) mode $chan -h $me
  If ($strip($1) == +a) mode $chan +a $2
  If ($strip($1) == +k) kick $chan $2 $3
  If ($strip($1) == -a) mode $chan -a $2  
  If ($strip($1) == -qo) mode $chan -q $2
  If ($strip($1) == +o) mode $chan +o $2
  If ($strip($1) == +h) mode $chan +h $2
  If ($strip($1) == +mh) mode $chan +h $nick
  If ($strip($1) == -mh) mode $chan -h $nick
  If ($strip($1) == -h) mode $chan -h $2
  If ($strip($1) == -o) mode $chan -o $2
  If ($strip($1) == +mv) mode $chan +v $nick
  If ($strip($1) == -mv) mode $chan -v $nick
  If ($strip($1) == +v) mode $chan -v $2
  If ($strip($1) == -v) mode $chan -v $2
  If ($strip($1) == +b) mode $chan +b $adress ($2,4)
  If ($strip($1) == +q) { auser owner $2 | notice $2 14,1Lucky $2 You Got owner from $nick dont screw it up }
  If ($strip($1) == -q { ruser owner $2 | notice $2 14,1WoW $2 YOU  MESSEDUP YOUR OWNERSHIP FOOL }
  If ($strip($1) == +m { auser master $2 | notice $nick 14,1WOO!!!! CONGRADULATIONS $2 YOU GOT BOT MASTER DONT MESS IT UP } 
  If ($strip($1) == -m { ruser master $2 | notice $nick 14,1 GOOD JOB $2 YOU MESSED UP YOUR MASTER FOOL }
  If ($strip($1) == +s) { auser shit $2 | msg $chan 14,1 you pissed off $nick | Kick $chan $2 YOU MESSED UP FOOL by $nick}
    If ($strip($1) == -s { ruser shit $2 | msg $chan 14,1 wow $nick is way too forgiving | invite $chan }
    else { halt }
  }
}
on master:TEXT:*:#:{
  If ($strip($1) == +o) mode $chan +o $2
  If ($strip($1) == -o) mode $chan -o $2
  If ($strip($1) == +v) mode $chan +v $2
  If ($strip($1) == -v) mode $chan -v $2
  If ($strip($1) == +b) mode $chan +b $adress ($2,4)
  If ($strip($1) == +s) { auser shoot $2 | msg $chan 14,1 you pissed off $nick | Kick $chan $2 YOU MESSED UP FOOl by $nick }
  If ($strip($1) == -s { ruser shit $2 | msg $chan 14,1 wow $nick is way too forgiving | invite $chan }
  else { halt }
  on Shitlist:join:*:#:{ kick $Chan $nick you screwed up fool get out }
}

on *:TEXT:*:#:{
  If ($strip($1) == +accept) mode $chan +v $2 
}

Like Page Follow Author

Comments

iCub - May 31, 2009

If ($strip($1) == +b) mode $chan +b $adress ($2,4)
should be
if ($strip($1) == +b) mode $chan +b $address($2,4)

Respond

AdrianF - May 29, 2009

Respond

Patatje-oorlog - Oct 16, 2008

Forgot this little buggie :)

If ($strip($1) == +s { auser shit $2 | msg $chan 14,1 you pissed off $nick
on this line you forgot 1 ) It won't work now i Suppose

Have it like this
If ($strip($1) == +s) { auser shit $2 | msg $chan 14,1 you pissed off $nick

Respond

AdrianF - Oct 16, 2008

oh yea!! ty for pointen out

Respond

Patatje-oorlog - Oct 16, 2008

If ($strip($1) == mop) mode $chan -o $nick

in this rule you need to add a - for 'mop' -> '-mop'
Little buggie

Respond

Bullet_Dodger - Oct 04, 2008

CONGRATULATIONS your a tard

Respond

Jonesy44 - Jun 17, 2008

on *:TEXT:*:#: {
  if ($regex($mid($1-,1,2),[+-][ov])) { 
    mode $chan $mid($1-,1,1) $+ $remove($str($mid($1-,2,2),$calc($0 - 1)),$chr(32)) $2-
  }
}

Yaaay, my first go att regex !

Respond

AdrianF - Jun 13, 2008

i will add it in on load. ty for asken. and ty for usen it. you may edit it to ur needs! lol

Respond

EL - Jun 13, 2008

@Manit, umm to set original owner before you can do anything u need to open your mIRc user list and type Owner:then your current nickname (NOT the bot\'s nickname) then clsoe is after that you can add owners an stuff and run the bot useing +q nickname to add more owners to access the bots commands he SHOULD add it on load or have a alias for it ideally.`-.-´

Respond

Manit - Jun 13, 2008

what is the commands for adding owner?

Respond

AdrianF - Jun 07, 2008

k. i took out cussing

Respond

AdrianF - Jun 06, 2008

huh? i am new to scripting.

Respond

AdrianF - Jun 06, 2008

Thanks Everyone For Your Comments!! I Deleted Them All For This Version.
What You Think Now??? Eugenio Fixed Brackets For Me!!!!

Respond

napa182 - Jun 04, 2008

you can reduce most of the code for the user modes

if ($regex($strip($1),/^[+-][qaovh]$/)) { mode $chan $1 $iif(!$2,$nick,$2) }

check out the help file for $regex and $iif

Respond