egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-08-16T09:16:17-04:00 https://forum.eggheads.org/app.php/feed/topic/5249 2004-08-16T09:16:17-04:00 2004-08-16T09:16:17-04:00 https://forum.eggheads.org/viewtopic.php?p=39838#p39838 <![CDATA[russian roulette]]>

Statistics: Posted by feroz — Mon Aug 16, 2004 9:16 am

]]> 2004-08-16T08:28:24-04:00 2004-08-16T08:28:24-04:00 https://forum.eggheads.org/viewtopic.php?p=39837#p39837 <![CDATA[spin script]]>

Code: 

set spin_chan "#" set s_protect_seconds 7 set spin_chan [string tolower $spin_chan] set s_master_mode 1 set smode 1 set sgmode 1 bind pub - !spin pub:spin proc pub:spin {nick uhost handle channel text} {   global botnick spin_chan s_master_mode smode sgmode s_protect_seconds    if {$s_master_mode == 0} {return 0}   set chan [string tolower $channel]   if {$chan != $spin_chan} {return 0}   if {[botisop $chan]== 0} {     putserv "PRIVMSG $chan :I'm not OPed here so I can not Spin"     return 0   }   if {$smode == "0"} {return 0}   set smode "0"   utimer $s_protect_seconds spin:floodpro   putserv "PRIVMSG $chan :$nick  takes a chance...good luck"   switch -- [expr [rand 6] + 1] {     "1" {       putserv "PRIVMSG $chan :you are a winner"      }     "2" {       putserv "PRIVMSG $chan :now thats has to hurt"       putserv "KICK $chan $nick :now did that hurt?"     }     "3" {       putserv "PRIVMSG $chan :you are a winner"     }     "4" {       putserv "PRIVMSG $chan :did you hear something?, because i dident :-)"       putserv "KICK $chan $nick :will you ever learn?"     }     "5" {       putserv "PRIVMSG $chan :you are the weakest link good bye"       putserv "KICK $chan $nick :lol you fell for that old trick"     }     "6" {       putserv "PRIVMSG $chan :Wow a winner have another go :-)"     }   } } proc spin:floodpro {} {   global smode   set smode "1" } # Master shut-off switch, available to ANY OP in Channel bind pub -|- !spin_on enable:spin bind pub -|- !spin_off disable:spin proc enable:spin {nick uhost handle channel text} {  global spin_chan s_master_mode   if {([string tolower $channel] == $spin_chan) && ([isop $nick $spin_chan] == 1)} {     set s_master_mode 1    puthelp "PRIVMSG $spin_chan :The Spin game has been unlocked, Type: !spin to play"   }   return 0 } proc disable:spin {nick uhost handle channel text} {   global spin_chan s_master_mode   if {[string tolower $channel] != $spin_chan} {return 0}   if {[isop $nick $spin_chan]} {     set s_master_mode "0"     puthelp "PRIVMSG $spin_chan :The Spin game has been locked in OFF mode"   }   return 0 }

Statistics: Posted by Guest — Mon Aug 16, 2004 8:28 am

]]> 2003-08-14T16:33:23-04:00 2003-08-14T16:33:23-04:00 https://forum.eggheads.org/viewtopic.php?p=24955#p24955 <![CDATA[russian roulette]]>

Code: 

#######################################################################                             SPIN                                   ## spin.v1.3.tcl                                                      ########################################################################                                                                    ##  - OP commands -      !s on      will enable spin                  ##                       !s off     will disable spin                 ##                                                                    ##  - commands -         !spin      spins wheel                       ##                                                                    ## Channel you want to run the !Spin game on.  1 room ONLY# ex. set spin_chan "#egg_game_players"set spin_chan ""# Set the minimum number of seconds between spins# ex. set s_protect_seconds 7set s_protect_seconds 7#######################################################################            There Are No User Settings Below this Point             ##                                                                    ##    Don't edit anything below unless you know what you are doing    #######################################################################set spin_chan [string tolower $spin_chan]set s_master_mode 1set smode 1set sgmode 1set $sbbreason "Because you just recieved a 10 minute ban!"#######################################################################                          Main Script                               #######################################################################bind pub - !spin my:spin proc my:spin {nick uhost handle channel text} {  global botnick spin_chan s_master_mode smode sgmode s_protect_seconds sbbreason  if {[$s_master_mode == "0"]} {return 0}  set chan [string tolower $channel]  if {![$chan == $spin_chan]} {return 0}  if {![botisop $chan]} {    putserv "PRIVMSG $chan :I'm not OPed here so I can not Spin"    return 0  }  if {[$smode == "0"]} {return 0}  set smode "0"  utimer $s_protect_seconds spin:floodpro  putserv "PRIVMSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..."   putserv "PRIVMSG $chan :Tick Tick ... Tick Tick ... What will the wheel pick?"   switch -- [expr [rand 6] + 1] {     "1" {      putserv "PRIVMSG $chan :The wheel spins until the last Tick, and with that"        putserv "KICK $chan $nick :You get a free kick!"     }     "2" {      putserv "PRIVMSG $chan :The wheel will land on the one that gets a ban"      putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"     }     "3" {      putserv "PRIVMSG $chan :You have a little time on your hands"      set mask "*!*@[lindex [split $uhost @] 1]"       newchanban $chan $mask $::botnick $sbbreason 10    }     "4" {      putserv "PRIVMSG $chan :You are on your way to the top, because you were just made a OP"      putserv "MODE $chan +o $nick"     }     "5" {      putserv "PRIVMSG $chan :I hope you were not on top, because you just lost your OPs"       putserv "MODE $chan -o $nick"    }     "6" {      putserv "PRIVMSG $chan :If it's hard for us to know what you typed, it is what you fear - you just lost your voice in here"       putserv "MODE $chan -v $nick"    }   } } proc spin:floodpro {} {  global smode  set smode "1"}#######################################################################                     Master shut-off Switch                         ######################################################################## Master shut-off switch, available to ANY OP in Channelbind pub -|- "!s on" enable:spinbind pub -|- "!s off" disable:spinproc enable:spin {nick uhost handle channel} {  global spin_chan s_master_mode  if {![string tolower $channel == $spin_chan]} {return 0}  if {[isop $nick $spin_chan]} {    set s_master_mode "1"    puthelp "PRIVMSG $spin_chan :The Spin game has been unlocked, Type: !spin to play"  }  return 0}proc disable:spin {nick uhost handle channel} {  global spin_chan s_master_mode  if {![string tolower $channel == $spin_chan]} {return 0}  if {[isop $nick $spin_chan]} {    set s_master_mode "0"    puthelp "PRIVMSG $spin_chan :The Spin game has been locked in OFF mode"  }  return 0}##################################################################################################### EOF ##################################

Statistics: Posted by Dedan — Thu Aug 14, 2003 4:33 pm

]]> 2003-08-14T14:43:41-04:00 2003-08-14T14:43:41-04:00 https://forum.eggheads.org/viewtopic.php?p=24941#p24941 <![CDATA[russian roulette]]> Also, as I've sugested previously, please do change from:

Code: 

putserv "MSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..."   putserv "MSG $chan :Tick Tick ... Tick Tick ... Who will the wheel pick?"
to:

Code: 

putserv "PRIVMSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..." putserv "PRIVMSG $chan :Tick Tick ... Tick Tick ... Who will the wheel pick?"
in order to work corectly. :P

Btw, what's with the my(chan)? I don't see it in the code.. is an unfinished fdeature or something? :) Also, there is no need to call globaly botnick, cos is called globaly from $::botnick.. and the my* thing can dissapear to + set chan [string tolower $channel] :P and replacing from:

Code: 

proc my:spin {nick uhost handle channel text} {
to:

Code: 

proc my:spin {nick uhost handle chan text} {
if you are to lazy to replace in the entire code from $chan to $channel :P

Statistics: Posted by caesar — Thu Aug 14, 2003 2:43 pm

]]> 2003-08-14T14:39:04-04:00 2003-08-14T14:39:04-04:00 https://forum.eggheads.org/viewtopic.php?p=24939#p24939 <![CDATA[russian roulette]]> Statistics: Posted by Kaarel — Thu Aug 14, 2003 2:39 pm

]]> 2003-08-14T13:57:54-04:00 2003-08-14T13:57:54-04:00 https://forum.eggheads.org/viewtopic.php?p=24934#p24934 <![CDATA[russian roulette]]>
I copy+paste that into notepad, save it, restarted the bot, but till

<Botman> [19:37] Tcl error [my:spin]: invalid command name "? "
Even though notepad is the worst text editor ever it has several encodings to choose from iirc. Did you by any chance save it as something else than ANSI/pure text/whatever they call it?

Statistics: Posted by user — Thu Aug 14, 2003 1:57 pm

]]> 2003-08-14T12:38:52-04:00 2003-08-14T12:38:52-04:00 https://forum.eggheads.org/viewtopic.php?p=24917#p24917 <![CDATA[russian roulette]]>

<Botman> [19:37] Tcl error [my:spin]: invalid command name "? "

Statistics: Posted by Kaarel — Thu Aug 14, 2003 12:38 pm

]]> 2003-08-14T12:07:16-04:00 2003-08-14T12:07:16-04:00 https://forum.eggheads.org/viewtopic.php?p=24916#p24916 <![CDATA[russian roulette]]>

Code: 

set my(chan) ""bind pub - !spin my:spin proc my:spin {nick uhost handle channel text} {  global botnick my  set chan [string tolower $channel]  putserv "MSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..."   putserv "MSG $chan :Tick Tick ... Tick Tick ... Who will the wheel pick?"   switch -- [expr [rand 7] + 1] {     "1" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :The wheel spins until the last Tick, and with that"          putserv "KICK $chan $nick :You get a free kick!"       }     }     "2" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :The wheel will land on the one that gets a ban"        putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"       }     }     "3" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {        putserv "PRIVMSG $chan :You have a little time on your hands"        set mask "*!*@[lindex [split $uhost @] 1]"         newchanban $chan $mask $::botnick "Because you just recieved a 10 minute ban!" 10       }     }     "4" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :You are on your way to the top, because you were just made a OP"        putserv "MODE $chan +o $nick"       }     }     "5" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :I hope you were not on top, because you just lost your OPs"         putserv "MODE $chan -o $nick"       }     }     "6" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :It is what you fear - you just lost your voice in here"         putserv "MODE $chan -v $nick"       }     }     "7" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :If it's hard to know what you type, you are in luck, a -v bites"         putserv "MODE $chan +v $nick"       }     }   } }
paste it this time into a file so you
don't lose a "{" like last time

btw, does that newchanban look right?

Statistics: Posted by Dedan — Thu Aug 14, 2003 12:07 pm

]]> 2003-08-14T11:13:36-04:00 2003-08-14T11:13:36-04:00 https://forum.eggheads.org/viewtopic.php?p=24915#p24915 <![CDATA[Re: Quote of the day]]>
I dont use text editor
Then how did you manage to run the script? Did you source it directly from the forum?

I copy the text into wordbad and saved as russia.tcl, then edit my eggdrop.conf and restarted the bot.

Statistics: Posted by Kaarel — Thu Aug 14, 2003 11:13 am

]]> 2003-08-14T10:50:50-04:00 2003-08-14T10:50:50-04:00 https://forum.eggheads.org/viewtopic.php?p=24914#p24914 <![CDATA[Quote of the day]]>
I dont use text editor
Then how did you manage to run the script? Did you source it directly from the forum?

Statistics: Posted by user — Thu Aug 14, 2003 10:50 am

]]> 2003-08-14T08:58:41-04:00 2003-08-14T08:58:41-04:00 https://forum.eggheads.org/viewtopic.php?p=24907#p24907 <![CDATA[russian roulette]]> spock: I dont use text editor

Statistics: Posted by Kaarel — Thu Aug 14, 2003 8:58 am

]]> 2003-08-14T08:40:29-04:00 2003-08-14T08:40:29-04:00 https://forum.eggheads.org/viewtopic.php?p=24905#p24905 <![CDATA[russian roulette]]>
maybe your text editor is [censored] it up, in any case, the code provided here isn't at fault.

Statistics: Posted by spock — Thu Aug 14, 2003 8:40 am

]]> 2003-08-14T08:14:58-04:00 2003-08-14T08:14:58-04:00 https://forum.eggheads.org/viewtopic.php?p=24904#p24904 <![CDATA[russian roulette]]>
And when I write !spin



<Botman> [15:13] Tcl error [my:spin]: invalid command name "? "

Statistics: Posted by Kaarel — Thu Aug 14, 2003 8:14 am

]]> 2003-08-14T06:55:28-04:00 2003-08-14T06:55:28-04:00 https://forum.eggheads.org/viewtopic.php?p=24901#p24901 <![CDATA[russian roulette]]> Statistics: Posted by Ofloo — Thu Aug 14, 2003 6:55 am

]]> 2003-08-14T06:28:51-04:00 2003-08-14T06:28:51-04:00 https://forum.eggheads.org/viewtopic.php?p=24900#p24900 <![CDATA[russian roulette]]>

Code: 

bind pub - !spin my:spin proc my:spin {nick host handle chan text} {  putserv "PRIVMSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..."   putserv "PRIVMSG $chan :Where it will point nobody knows .... Tick Tick Tick ... Tick Tick ... Tick"   switch -- [expr [rand 7] + 1] {     "1" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :And $nick gets a free kick out of here ... *snicker*"          putserv "KICK $chan $nick :Your free kick!"       }     }     "2" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "MODE $chan +b *!*@[lindex [split $host @] 1]"       }     }     "3" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         set mask "*!*@[lindex [split $host @] 1]"         newchanban $chan $mask $::botnick "Here is your prise.. 10 mintes ban!" 10       }     }     "4" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :And $nick gets op in here.."         putserv "MODE $chan +o $nick"       }     }     "5" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :One deop comming up! hehe"         putserv "MODE $chan -o $nick"       }     }     "6" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :One -voice comming up!"         putserv "MODE $chan -v $nick"       }     }     "7" {       if {![botisop $chan]} {         putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."       } else {         putserv "PRIVMSG $chan :One +voice comming up!"         putserv "MODE $chan +v $nick"       }     }   } }


Thats the code

Statistics: Posted by Kaarel — Thu Aug 14, 2003 6:28 am

]]>