russian roulette

Dedan · Post by **Dedan** » Wed Aug 13, 2003 2:06 pm

this might work:
I shortened the putservs to stop a flood


bind pub - !spin my:spin 

proc my:spin {nick host handle channel text} { 
  putserv "MSG $chan :$nick  spins the wheel ... Round and round it goes ... Where it will point nobody knows ..." 
  putserv "MSG $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" 
      } 
    }
  } 
}

i hope this helps

Kaarel · Post by **Kaarel** » Wed Aug 13, 2003 3:11 pm

dedan: from yours bot says <Botman> [22:09] Tcl error [my:spin]: can't read "chan": no such variable

caesar: from yours bot says <Botman> [22:01] Tcl error [my:spin]: extra characters after close-quote

Post by **caesar** » Wed Aug 13, 2003 4:30 pm

Then replace from Dedan's code:

Code: Select all

proc my:spin {nick host handle channel text} {

with:

Code: Select all

proc my:spin {nick host handle chan text} {

and should do fine.. Also, instead of:

Code: Select all

putserv "MSG .. bla bla bla"

replace it with:

Code: Select all

putserv "PRIVMSG .. bla bla bla"

replace the bla bla bla with the actual stuff you got there.

Kaarel · Post by **Kaarel** » Thu Aug 14, 2003 4:35 am

Code: Select all

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" 
      } 
    } 
  } 
}

And when I restarted my bot, it sayd

<Botman> [11:31] Tcl error in file 'eggdrop.conf':
<Botman> [11:31] wrong # args: should be "proc name args body"
<Botman> while executing
<Botman> "proc my:spin {nick host handle chan text} "
<Botman> (file "scripts/russia.tcl" line 3)
<Botman> invoked from within
<Botman> "source scripts/russia.tcl"
<Botman> (file "eggdrop.conf" line 306)
<Botman> [11:31] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
-
DCC session closed

Papillon · Post by **Papillon** » Thu Aug 14, 2003 5:07 am

Code: Select all

proc my:spin {nick host handle chan text}

should be

Code: Select all

proc my:spin {nick host handle chan text} {

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 5:11 am

newchanban $chan $mask $::botnick "Here is your prise.. 10 mintes ban!" 10

there is a 10 outside the " maybe remove it don't se the use for it .. so

and add an } on the end

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 5:14 am

change msg

Post by **caesar** » Thu Aug 14, 2003 5:22 am

Uhhh.. damn { thing

My appologies.. I've forgot to add it.. ;(

I also don't think/see the use of the else's is a good ideea, but hey.. is your code.. do whatever you want with it and don't complain when it you've screwed it up

kidding

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 5:36 am

sorry saw it to late wanted to edit it hehe but ..

noticed you allready replyed hehe

the msgges eh

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 5:38 am

no its cause when the bot was opped it sad it needed ops .. so i figured it should be changed i mean the

msg

else

action

if you know what i mean but i gues my bot is stupid cause now its working fine .. :/

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 5:40 am

and indeeed its a greate idea why in the hell would you wana run the bot when its not opped suggestion maybe also do the tick tick tick thing i mean the putserv in front to show if the bot is opped cause if the bot joins an other chan with same script .. well lol that could give some strange effects if you know what i mean ..

Kaarel · Post by **Kaarel** » Thu Aug 14, 2003 5:47 am

Did not crash this time but still error on restart
<Botman> [12:45] Tcl error [my:spin]: invalid command name "? "

Post by **Sir_Fz** » Thu Aug 14, 2003 5:59 am

u must have changed smething the code, i guess u have something like "[?" or u executed a command "?"

if u did any changes, include them in your post.

Ofloo · Post by **Ofloo** » Thu Aug 14, 2003 6:13 am

euhm where in the script is a ? been used ?? can't seem to find one ..

can you show whats been changed ?

Kaarel · Post by **Kaarel** » Thu Aug 14, 2003 6:28 am

Code: Select all

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