Basic bot..
Posted by scoutZor
Friday, June 25, 2004
Description: you might wanna adduser yourslef, then change the if ($ulevel < 0 ) to 500


on *:TEXT:-adduser*:#:{
  if ($ulevel < 0 ) { .notice $nick You Lack Access To Use This Command. | halt }
  { guser $2- | notice $nick added $3 to userlist with access level $2 ( $+ $4 $+ ) }
}
on *:text:join*:?:{
  if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
  if ($me ison $chan) { .notice $nick I am already in that channel. | halt }
  { .join $2 | .notice $nick Joined $2 } | halt
}
on *:text:-join*:#:{
  if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
  if ($me ison $2) { .notice $nick I am already in that channel. | halt }
  { .join $2 | .notice $nick Joined $2 } | halt
}
on *:text:leave*:#:{
  if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
  { .part $chan $3- | .notice $nick Parted $chan } | halt
}
on *:text:part*:?:{
  if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
  { part $chan $2- }
}
on *:text:part*:#:{
  if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
  { part $chan $2- }
}
on *:TEXT:-quit:*:{
  if ($ulevel < 500 ) { .notice $nick You Lack Access To Use This Command. | halt }
  { .quit $2- ( $+ $nick- $+ ) }
}

on *:text:-access*:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  { .notice $nick You have access $iif($ulevel == 0,none,$ulevel) to $me }
}
on 500:text:-restart*:*: {
  quit $2-
  server irc.us.gamesurge.net
}
on 400:join:#:{
  if ($me isop $chan) {
    mode $chan +o $nick
  }
}
on 300:join:#:{
  if ($me isop $chan) {
    mode $chan +v $nick
  }
}
on *:text:-say*:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if (!$2) { .notice $nick What do you want me to say? | halt }
  .msg $chan $2-
}
on *:text:-commands:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  .notice $nick Use -commands0 for access 0
  .notice $nick Use -commands100 for access 100
  .notice $nick Use -commands200 for access 200
  .notice $nick Use -commands300 for access 300
  .notice $nick Use -commands400 for access 400
  .notice $nick Use -commands500 for access 500
}
on *:text:-commands0:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  .notice $nick -Version
  .notice $nick -Credits
}
on *:text:-commands100:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 100 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }    
  .notice $nick -Voice
  .notice $nick -Devoice
}
on *:text:-commands200:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 200 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }    
  .notice $nick -Kick
  .notice $nick -Ban
  .notice $nick -Unban
  .notice $nick -Mode
}
on *:text:-commands300:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 300 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }  
  .notice $nick -Op
  .notice $nick -Deop
  .notice $nick -Say
}
on *:text:-commands400:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 400 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
  .notice $nick -Join
  .notice $nick -Part
  .notice $nick -Kb
  .notice $nick -Tb
  .notice $nick [^B]Notes:[^B] -Tb Nick <(How many seconds you want them banned for)>
}
on *:text:-commands500:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 500 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }  
  .notice $nick -Adduser
  .notice $nick [^B]Syntax:[^B] -Adduser <level> <nick> <1>
}
on *:text:-op*:#:{
  if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to op? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 isop $chan) { .notice $nick $2 is already opped in $chan | halt }
  .mode $chan +o $2
  .notice $nick I have Opped $2
}
on 200:text:-deop*:#:{
  if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to de-op? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 !isop $chan) { .notice $nick $2 is Not Opped in $chan | halt }
  .mode $chan -o $2
  .notice $nick I have De-Opped $2
}
on *:text:-voice*:#:{
  if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to voice? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 isvoice $chan) { .notice $nick $2 is already voiced in $chan | halt }
  .mode $chan +v $2
  .notice $nick I have voiced $2
}
on *:text:-devoice*:#:{
  if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }  
  if (!$2) { .notice $nick Who do u want to de-voice? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 !isvoice $chan) { .notice $nick $2 is not voiced in $chan | halt }
  .mode $chan -v $2
  .notice $nick I have de-voiced $2
}
on *:text:-v:#:{
  if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to voice? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 isvoice $chan) { .notice $nick $2 is already voiced in $chan | halt }
  .mode $chan +v $2
  .notice $nick I have voiced $2
}
on *:text:-dv*:#:{
  if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to de-voice? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  if ($2 !isvoice $chan) { .notice $nick $2 is not voiced in $chan | halt }
  .mode $chan -v $2
  .notice $nick I have de-voiced $2
}
on *:text:-ban*:#:{
  if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to ban? | halt }
  if ($2 isban $chan) { .notice $nick $2 is Banned in $chan already | halt }
  .ban $chan $2
  .notice $nick I have Banned $2
}
on *:text:-unban*:#:{
  if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to unban? | halt }
  if ($address($2,6) !isban #) { .notice $nick $2 is not banned | halt }
  ban -r # $2 6  .notice $nick I have unbanned $2
}
on *:text:-ub*:#:{
  if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to unban? | halt }
  if ($2 !isban $chan) { .notice $nick $2 is not banned from $chan | halt }
  else { .mode $chan -b $2 }
  .notice $nick I have unbanned $2
}
on *:text:-kb*:#:{
  if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to kick ban? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  else {
    .mode $chan +b $address($2,2)
    .kick $chan $2 $3- $+ ( $+ $nick $+ )
    .notice $nick $2 has been kick banned from $chan
  }
}
on *:text:-kick*:#:{
  if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick Who do u want to kick? | halt }
  if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
  .kick $chan $2
  .notice $nick I have kicked $2
}
on *:text:-mode*:#:{
  if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }  
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if (!$2) { .notice $nick What mode would you like? | halt }
  .mode $chan $2
  .notice $nick I have changed the modes to $2
}
on *:text:-tb*:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  if ($ulevel < 300 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }  
  .ban -u $+ $3 $chan $address($2,2)
  .kick $nick $chan
.notice $nick I have timebanned $2 for $3 Seconds }

on *:text:-version:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  .notice $nick BotSupport Version 1.0 (Scout'n S0n1c #bots) June 25 4:04 am 2004.
}
on *:text:-credits:#:{
  if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
  .notice $nick $me was made by evo|teh-scoutZor[BN] and assisted by S0n1c $+ . We both work for #bots and desided we were bored one day.
}
Thoughts
Posted by scoutZor
Friday, June 25, 2004 06:17pm PDT
Keep in mind this is just a start. The bot is still under construction. If you find a bug, please pm me or find me in #bots on gamesurge.

evo|teh-scoutZor[BN]
Thanks
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world