Beta-Bot

By MNM on Aug 20, 2005

This is my very first script( i started about 2 weeks ago), if you have any suggestions/bugs PLEASE post them up so i can get better at scripting. First set yourself with at least 500 access ( different connection/client). Then type trigger to set the up the trigger. Then just mess around with the commands.

Its kinda messy, sorry!

;::::::::::::::::::::::::::::::::::::::Beta-Bot::::::::::::::::::::::::::::::::::::::
;""""""""""""""""""""""""""""""""""""""by MnMs( Help from Duladian) 
;`'`'`'`''`'`'`'`''`'`'`'`'`#Club-Cs on GameSURGE `'`'`'`'`'`'`'`'

on *:connect: { ignore -u60 *!*@* }
on *:text:trigger:#: { msg $chan The current trigger is: %trigger }
on 500:text:trigger *:#: { set %trigger $2 | notice $Nick Trigger has been set to: $2- }
on 500:join:$(%trigger $+ join *):#: { join $2 | notice $Nick $Me has joined $2 $+ . }
on 300:text:$(%trigger $+ nick *):#: { nick $2 }
on 500:TEXT:$(%trigger $+ quit *):#: { quit Die requested by $Nick Reason: $2- }

}

on *:text:!a *:#:{
if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
notice $nick $$2 $+ 's ( $+ $address($2,2) $+ ) access is $level($address($$2,2))

} 

on *:text:!ping*:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
msg $chan  $+ $nick $+ : Pong! | ignore -u60 $nick }
on *:text:!banana:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
msg $chan  $+ $nick $+ : I don't wanna be part of your sick fantasies!  | ignore -30 $nick }
on *:text:!huggle:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
describe $chan huggles $nick | ignore -u30 }
on *:text:!huggle *:#: { if (% $+ $nick == 1) { halt }
set % $+ $nick 1
timer 1 15 unset % $+ $nick
describe $chan huggles $2 | ignore -u30 $nick }

}

}

on 500:text:$(%trigger $+ unload *):#: { /unload -rs $2 | notice $Nick $2 has been unloaded }
on 500:text:$(%trigger $+ load *):#: { load -rs $2 } { notice $nick File: $2 has been loaded. }
on 400:text:$(%trigger $+ deluser $2):#: { ruser $2 | notice $2 You have been deleted from my userlist }
on 500:text:$(%trigger $+ deluser $2):#: { 
  if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
  if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
 ruser $2 | notice $2 You have been deleted from my userlist
}
on 500:text:$(%trigger $+ adduser *):#: { 
  if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
  if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
 guser $3 $2 2 | notice $2 You now have $3 access to $me 
}
}

;hix floods users with ctcps who are using hixscript, i was bored.
on 500:text:$(%trigger $+ hix *):#: { ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version }

}

;Replace YOURHOSTNAME with your actual hostname
on *:OPEN:*:*: { notice $ial(*!*@YOURHOSTNAME,1).nick Opening query msg from $nick to $me $+ : $1- | msg $nick My owner will contact you as soon as possible. }
on *:notice:*:*: { notice $ial(*!*@OURHOSTNAME,1).nick Notice from $Nick to $me $+ : $1- }

}

on 400:text:$(%trigger $+ addoper *):#: { guser 200 $2 2 | notice $2 $Nick Has given you 200 access to me }
on 400:text:$(%trigger $+ addmaster *):#: { guser 300 $2 2 | notice $2 $Nick Has given you 300 access to me }

}

on 400:text:$(%trigger $+ timer7halt):#: { timer7 off | notice $nick Timer7 off }
on 400:text:$(%trigger $+ timer7 *):#: { timer7 0 $2 /msg $3 $4- | notice $nick Timer7 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer6halt):#: { timer6 off | notice $nick Timer6 off }
on 400:text:$(%trigger $+ timer6 *):#: { timer6 0 $2 /msg $3 $4- | notice $nick Timer6 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer5halt):#: { timer5 off | notice $nick Timer5 off }
on 400:text:$(%trigger $+ timer5 *):#: { timer5 0 $2 /msg $3 $4- | notice $nick Timer5 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer4halt):#: { timer4 off | notice $nick Timer4 off }
on 400:text:$(%trigger $+ timer4 *):#: { timer4 0 $2 /msg $3 $4- | notice $nick Timer4 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer3halt):#: { timer3 off | notice $nick Timer3 off }
on 400:text:$(%trigger $+ timer3 *):#: { timer3 0 $2 /msg $3 $4- | notice $nick Timer3 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer2halt):#: { timer2 off | notice $nick Timer2 off }

} 

on 300:text:$(%trigger $+ say *):#: /msg $chan 5 $nick $+ :4 $2 12 $+ $3 13 $+ $4 14 $+ $5 9 $+ $6 7 $+ $7 2 $+ $8 3 $+ $9 4 $10 6 $11 12 $12 14 $13 9 $14 7 $15 2 $16 3 $17
on 300:text:$(%trigger $+ rsay *):#: msg $chan $eval($2-,2)

}

on 400:text:$(%trigger $+ timer2 *):#: { timer2 0 $2 /msg $3 $4- | notice $nick Timer2 set to $2 seconds in $3, message: $4- }
on 400:text:$(%trigger $+ timer1halt):#: { timer1 off | notice $nick Timer1 off }
on 400:text:$(%trigger $+ timer1 *):#: { timer1 0 $2 /msg $3 $4- | notice $nick Timer1 set to $2 seconds in $3, message: $4- }

}

on 300:text:$(%trigger $+ kick *):#: { 
 if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
 if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
 kick $chan $2- 
}
on 300:text:$(%trigger $+ ban *):#: { 
 if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
 if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
 ban $chan $2- 
}
on 300:text:$(%trigger $+ kickban *):#: { 
 if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
 if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
 ban $chan $2-
 kick $chan $2-
}
on 200:text:$(%trigger $+ voice *):#: { mode $chan +v $2 }
on 300:text:${%trigger $+ op *):#: { mode $chan +o $2 }

}
on *:text:$%trigger $+ version):#: { notice $nick %versionbetabot }
on *:load: { set %versionbetabot Beta-Bot by MnMs }

on 400:text:$(%trig $+ clvl *):#:{ 
  if ($3 >= $level($address($nick,2))) { notice $nick Your access of $level($address($nick,2))) is lower then $3 | halt }
  if ($level($address($2,2)) >= $level($address($nick,2))) { notice $nick You're access of $level($address($nick,2)) is equal to or less then $2 $+ 's $level($address($2,2)) | halt }
  ruser $address ($2,2) | auser $3 $address($2,2) | notice $nick changed $2 $+ 's access to $3 

}

on *:text:!8ball on:#: {
  if (%8 != $null) { msg $chan 4 $+ Sorry 8ball is already on | halt }
  set %8 on
  msg $chan 4 $+ EightBall is now on
}

on *:text:!8ball off:#: {
  if (%8ball == $null) { msg $chan 4 $+ 8all is already disabled | halt }
  .unset %8
  msg $chan 4 $+ 8Ball is now off
}

on *:text:!8*:#: {
  if (%8ball != on) { msg $chan 4 $+  | halt }
  set %answer8 $rand(1,13)
  if (%answer8 == 1) { msg $chan  $+ $nick $+ : Yes. }
  if (%answer8 == 2) { msg $chan  $+ $nick $+ : No. }
  if (%answer8 == 3) { msg $chan  $+ $nick $+ : Can this question wait? I'm eating my lunch }
  if (%answer8 == 4) { msg $chan  $+ $nick $+ : Who do you think i am DiLL?!! }
  if (%answer8 == 5) { msg $chan  $+ $nick $+ : I think so. What was the question again? }
  if (%answer8 == 6) { msg $chan  $+ $nick $+ : It is decidedly so. }
  if (%answer8 == 7) { msg $chan  $+ $nick $+ : Absolutely not. }
  if (%answer8 == 8) { msg $chan  $+ $nick $+ : Not on your life. }
  if (%answer8 == 9) { msg $chan  $+ $nick $+ : You never know. Neither do I. }
  if (%answer8 == 10) { msg $chan  $+ $nick $+ : Reading foggy -- try again later. }
  if (%answer8 == 11) { msg $chan  $+ $nick $+ : Are you mad?! )
  if (%answer8 == 12) {msg $chan  $+ $nick $+ : If the prophets will it. }
  if (%answer8 == 13) {msg $chan  $+ $nick $+ : Yeah. Sure. Exactly.

} 

#Club-Cs on
on 500:text:$(%trigger $+ mimic *):#: { set %mimicnick $2 | notice $nick Now mimicing $2 }
on 1:text:*:#: {
if ($nick == %mimicnick) { msg $chan $1- } }
on 1:action:{
if ($nick == %mimicnick) { describe $chan $1- } }
on 500:text:$(%trigger $+ mimicoff *):#: { unset %mimicnick | notice $nick Stopped mimicing $2 }
#Club-Cs end

Comments

Sign in to comment.
M[n]M   -  Oct 18, 2007

damn your Mnm too ?!! i though i was the only guy who was M[n]M is this site btw script is cool ;)

 Respond  
DeathRyder082   -  Aug 21, 2005

No need to apologize. You did a good job, I was just saying its best to spend more time learning then posting.

 Respond  
MNM   -  Aug 21, 2005

the on *connect:{ ignore -u50 } is too prevent flooding on connect, from on join notices in many channels( since it notices the owner whatever it gets noticed with. And i did get alot of help from Duladian as i put in my snippet, well next ill give you guys something of more quality, sry :).

 Respond  
DeathRyder082   -  Aug 21, 2005

I never have understood what a Beta-Bot is.
-To MNM: I agree with supergeo, you should have waited awhile longer and learned more about scripting but you did a fine job to what it looks like.
-To Hawkee: By the way, I like the new site design.

 Respond  
Hawkee   -  Aug 21, 2005

Guys, please keep your comments mature and respectful.

 Respond  
brottor   -  Aug 21, 2005

this comes from some1 with 8 comments...

 Respond  
RoninWarrior   -  Aug 20, 2005

personally i think is a waste of time very lame and for anyone to say other wise is also lame war addons parody\'s etc etc etc in scripts and addons faded out a long time ago .......

;hix floods users with ctcps who are using hixscript, i was bored.
on 500:text:$(%trigger $+ hix *):#: { ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version | ctcp $2 version }

 Respond  
Noutrious   -  Aug 20, 2005

Good bot but i dont understand why you need
on :connect: { ignore -u60 !@ }
..?

 Respond  
DarthReven   -  Aug 20, 2005

your going to want to have more checks in your code and combine all your on text events into one using if elseif and else. also rather then setting a time to unset a variable use /set -u[N] N = number of seconds until the variable is unset

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.