russian roulette

Kaarel · Post by **Kaarel** » Tue Aug 12, 2003 5:46 pm

i would like to have a script like spin the bottle but in that script what I want there would be:
1) kick
2) ban
3) 10 min ban
4) 12 hour op
5) - @
6) -v

Post by **caesar** » Wed Aug 13, 2003 1:22 am

Code: Select all

bind pub - !spin my:spin

proc my:spin {nick host handle channel text} {
  switch -- [rand 6] {
    "1" {
      # your stuff here
    }
    "2" {
      # your stuff here
    }
    "3" {
      # your stuff here
    }
    "4" {
      # your stuff here
    }
    "5" {
      # your stuff here
    }
    "6" {
      # your stuff here
    }
  }
}

stdragon · Post by **stdragon** » Wed Aug 13, 2003 1:30 am

[rand 6] returns a number from 0 to 5, so you might want to adjust your numbers.

Post by **caesar** » Wed Aug 13, 2003 1:31 am

Oups, yes, you are right. Umm..

Instead of [rand 6] should be:

Code: Select all

set numbers "1 2 3 4 5 6"
switch -- [lindex $numbers [rand [llength $numbers]]] {

This should do fine.. My appologies for my previous mistake.

strikelight · Post by **strikelight** » Wed Aug 13, 2003 1:55 am

caesar wrote:Oups, yes, you are right. Umm..

Instead of [rand 6] should be:
Code: Select all
set numbers "1 2 3 4 5 6"
switch -- [lindex $numbers [rand [llength $numbers]]] {
This should do fine.. My appologies for my previous mistake.

Heh.. I think he meant more along the lines of changing your "1" { .. "2" ..
and subtracting 1 from them, not making a list and taking an element from the list to use.. if you don't want to change the branches, then the next best thing would probably be

Code: Select all

switch -- [expr [rand 6] + 1] {

Papillon · Post by **Papillon** » Wed Aug 13, 2003 4:07 am

.....

Kaarel · Post by **Kaarel** » Wed Aug 13, 2003 5:15 am

Ok, but I need more help, I like to when somebody spins the bot says something like this

$nick spins the wheel
Where it will point nobody knows ....
Round and round it goes .....
Tick Tick Tick .....
Tick Tick .....
Tick .....
$nick gets free kick

Post by **user** » Wed Aug 13, 2003 5:27 am

Kaarel wrote:Ok, but I need more help, I like to when somebody spins the bot says something like this

$nick spins the wheel
Where it will point nobody knows ....
Round and round it goes .....
Tick Tick Tick .....
Tick Tick .....
Tick .....
$nick gets free kick

Code: Select all

putserv "PRIVMSG <target> :<message>"

If you use the same queue for the messages/modes/kicks they will come in the right order.

Post by **caesar** » Wed Aug 13, 2003 6:08 am

yes, the [rand 6] will *extract* a random number from 0 to 5 and by adding 1 to the result will do the trick to make it be from 1 to 6. Heh, nice, haven't thinked of this before. Silly me.

Kaarel · Post by **Kaarel** » Wed Aug 13, 2003 8:42 am

is that right for start

Code: Select all

bind pub - !spin my:spin 

proc my:spin {nick host handle channel text} { 
     set numbers "1 2 3 4 5 6" 
     switch -- [lindex $numbers [rand [llength $numbers]]] { 
    "1" { 
       putserv "MSG $chan :$nick  spins the wheel " 
       putserv "MSG $chan :Where it will point nobody knows ....  "
       putserv "MSG $chan :Round and round it goes ..... " 
       putserv "MSG $chan :Tick Tick Tick .....  " 
       putserv "MSG $chan :Tick Tick  .....  "  
       putserv "MSG $chan :Tick "  
      putserv "MSG $chan : And $nick gets a free kick out of here "  

    } 
    "2" { 
      # your stuff here 
    } 
    "3" { 
      # your stuff here 
    } 
    "4" { 
      # your stuff here 
    } 
    "5" { 
      # your stuff here 
    } 
    "6" { 
      # your stuff here 
    } 
  } 
}

And how and where I put the code that kick the person

Post by **user** » Wed Aug 13, 2003 9:02 am

Kaarel wrote:is that right for start
...
And how and where I put the code that kick the person

I suggest moving the standard messages out of the switch statement since those messages will be sent no matter (I guess).

Put the kick below the message in the execution body of the switch (where your messages are right now)

Kaarel · Post by **Kaarel** » Wed Aug 13, 2003 11:19 am

user wrote:
Kaarel wrote:is that right for start
...
And how and where I put the code that kick the person
I suggest moving the standard messages out of the switch statement since those messages will be sent no matter (I guess).

Put the kick below the message in the execution body of the switch (where your messages are right now)

Can you edit my code, I can`t underestand you right

Post by **user** » Wed Aug 13, 2003 11:46 am

Kaarel wrote:Can you edit my code, I can`t underestand you right

Code: Select all

proc my:spin {nick host handle channel text} {
  putserv "MSG $chan :$nick  spins the wheel"
  putserv "MSG $chan :Where it will point nobody knows ...."
  putserv "MSG $chan :Round and round it goes ....."
  putserv "MSG $chan :Tick Tick Tick ....."
  putserv "MSG $chan :Tick Tick  ....."
  putserv "MSG $chan :Tick "
  switch [rand 2] {
    "0" {
      putserv "MSG $chan :And $nick gets a free kick out of here"
      putserv "KICK $chan $nick :Congratulations!"
    }
    "1" {
      putserv "MSG $chan :And $nick gets a free message (this one)"
    }
    # etc
  }
}

Kaarel · Post by **Kaarel** » Wed Aug 13, 2003 12:20 pm

Help I am so confused now. I would be thankful if you do the whole script to me

Post by **caesar** » Wed Aug 13, 2003 1:03 pm

Sort of something like this:

Code: Select all

bind pub - !spin my:spin 

proc my:spin {nick host handle channel text} { 
  putserv "PRIVMSG $chan :$nick  spins the wheel " 
  putserv "PRIVMSG $chan :Where it will point nobody knows ....  " 
  putserv "PRIVMSG $chan :Round and round it goes ..... " 
  putserv "PRIVMSG $chan :Tick Tick Tick .....  " 
  putserv "PRIVMSG $chan :Tick Tick  .....  "  
  putserv "PRIVMSG $chan :Tick "  
  switch -- [expr [rand 6] + 1] {
    "1" { 
      if {![botisop $chan]} {
        putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."
      }
      putserv "PRIVMSG $chan :And $nick gets a free kick out of here "  
      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.."
      }
      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.."
      }
      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.."
      }
      if {![isop $nick $chan]} {
        putserv "PRIVMSG $chan :And $nick gets op in here.."
      }
    }
    "5" { 
      if {![botisop $chan]} {
        putserv "PRIVMSG $chan :I'm not oped here so I can't give you your prise.."
      }
      if {[isop $nick $chan]} {
        putserv "PRIVMSG $chan :One deop comming up!"
        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.."
      }
      if {[isvoice $nick $chan]} {
        putserv "PRIVMSG $chan :One deop comming up!"
        putserv "MODE $chan -v $nick"
      }
    } 
  } 
}

I haven't tested it so.. Change the stuff in it to suit your needs.