Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:TEXT:!reg:#:{
- if (!%drink.reg [ $+ [ $nick ] ]) {
- set %drink.reg [ $+ [ $nick ] ] 1
- msg $chan Thank you $nick $+ , you're now registered in my database.
- }
- else {
- msg $chan Sorry $nick $+ , you're already registered
- }
- }
- on *:TEXT:!unreg:#:{
- if (%drink.reg [ $+ [ $nick ] ] = 1) {
- set %drink.reg [ $+ [ $nick ] ] 0
- msg $chan Thank you $nick $+ , you're now unregistered.
- }
- else {
- msg $chan Sorry $nick $+ , you're not registered.
- }
- }
- on *:TEXT:!drink:#:{
- if (%drink.reg [ $+ [ $nick ] ] = 1) {
- inc %d. [ $+ [ $nick ] ]
- describe $chan slides $nick a pint
- msg $chan Happy $nick $+ ? You got your pint, I'll add that to your tab.
- }
- else {
- msg $chan Please register by typing !reg....
- }
- }
- on *:TEXT:!stats*:#:{
- if (!$2) {
- if (%drink.reg [ $+ [ $nick ] ] = 1) {
- msg $chan $nick $+ : $iif(!%d. [ $+ [ $nick ] ],0,%d. [ $+ [ $nick ] ]) drink(s).
- }
- else {
- msg $chan Please Register $nick $+ .
- }
- }
- else {
- if (%drink.reg [ $+ [ $2 ] ] = 1) {
- msg $chan $2 $+ : $iif(!%d. [ $+ [ $2 ] ],0,%d. [ $+ [ $2 ] ]) drink(s).
- }
- else {
- msg $chan Please Register $nick $+ .
- }
- }
- }
- on *:TEXT:*!partner*:#:{
- .timer 1 3 msg $chan 14,1Calculates people in the room
- .timer 1 5 msg $chan 14,1 $+ % percentage of being right
- .timer 1 7 msg $chan 1,1-------14,1|=4,1 $nick(#,$rand(1,$nick(#,0))) 14,1=|
- .timer 1 9 msg $chan 14,1 = is Your Perfect Partner4,1 $nick 14,1= }
- on $*:text:/^!(hit|touch|clap|poke|b(ow|oom))/iS:#:{
- if (!%f) { inc -u3 %f | if ($regml(1) == hit) { .msg # ACTION: sees $nick hit $$2- }
- elseif ($regml(1) == touch) { .describe # sees: $nick $v1 $$2- in the private area }
- else { .describe # $replace($regml(1),bow,see $nick bows down to,boom,sees: $nick Blows up,clap,claps for,poke,pokes) $$2- }
- }
- }
- on !*:rawmode:#:{
- if ($regex($1,/([+-])(q|a|o|h|v)/)) && ($2 == $me) {
- var %m = $replace($regml(2),q,~,a,&,o,@,h,%,v,+)
- msg # $iif($pos($regml(1),+,1),Thanks for the %m,Don't take my %m) $nick
- }
- }
- on *:TEXT:!spin:#:{
- if $nick(#,0) > 2 {
- var %t $v1,%msg,%nick $me,%r $r(1,4)
- while %nick = $me || %nick = $nick {
- %nick = $nick(#,$r(1,%t))
- }
- describe # is spinning the bottle..
- .timer 1 2 msg # The bottle landed on %nick $+ !
- if %r = 1 { %msg = has to kiss }
- elseif %r = 2 { %msg = has to make out with }
- elseif %r = 3 { %msg = has to have sex with }
- elseif %r = 4 { %msg = has to fuck }
- .timer 1 3 msg # $nick %msg %nick $+ !
- }
- }
- on $*:text:/^r8ball,?\s.+\?$/iS:#: {
- if (!$($+(%,f,$wildsite),2)) { inc -u4 $+(%,f,$wildsite)
- describe # Shakes up the Rude Magic 8ball for $nick ...
- if ($sock($sockname)) sockclose $sockname
- sockopen $+(r8,#) delmontebrown.com 80
- sockmark $+(r8,#) $r(1,11) msg # 09:[04The Rude Magic 8ball says09]:
- }
- }
- on *:load:{
- echo 04 -a You Have Just Loaded Napa182's Rude Magic 8ball
- echo -a 08!!04WARNING08 This snippet will say curse04/08foul words 04WARNING08!!
- echo 07 -a An irc.EzzyChat.com Production.
- }
- on *:sockopen:r8*: {
- sockwrite -nt $sockname GET /8ball.html HTTP/1.1
- sockwrite -nt $sockname Host: $+($sock($sockname).addr,$str($crlf,2))
- }
- on *:sockread:r8*: {
- var %r8 | sockread %r8
- if ($regex(%r8,/<b>(.+)\42\73/)) {
- hinc -mu1 r c 1
- if ($hget(r,c) = $gettok($sock($sockname).mark,1,32)) {
- $+(.,timer,$sockname) 1 3 $gettok($sock($sockname).mark,2-,32) $regml(1)
- sockclose $sockname
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement