egghelp/eggheads community

can any one change this great irc game script to TCL script

2010-11-13T10:35:59-04:00

thx caesar for the reply

but sorry i guess its hard to me to make it coz i can understand tcl codes

if u or any one can make full tcl script that would good

thanks alot

Statistics: Posted by 4mirc — Sat Nov 13, 2010 10:35 am

can any one change this great irc game script to TCL script

2010-11-13T07:33:06-04:00

Have you found your topic moved to Junk Yard? The role of the The 'Script Requests' section of this forum doesn't create any obligations to anyone.

From the output it seems to be some sort of nick scrambling game. Here some hints on how this can be done.

Code:

# scramble proc by stdragonproc scramble {word} {  set letters [split $word ""]  set newword ""  while {[llength $letters]} {    set i [rand [llength $letters]]    append newword [lindex $letters $i]    set letters [lreplace $letters $i $i]  }  return $newword}

With this code you scramble a word, in your case the nickname you randomly pick from the channel. To pick one use something like:

Code:

set users [chanlist $channel]set user [lindex $users [rand [llength $users]]]

and to scramble that randomly picked nickname do:

Code:

set scrambled_nick [scramble $user]

Statistics: Posted by caesar — Sat Nov 13, 2010 7:33 am

can any one change this great irc game script to TCL script

2010-11-13T02:57:27-04:00

hello again

if my request in wrong section tell me to ask in other place

is it allowed to put irc script to make it tcl or not ?

Statistics: Posted by 4mirc — Sat Nov 13, 2010 2:57 am

can any one change this great irc game script to TCL script

2010-11-11T14:57:51-04:00

hello all

i have irc game script and i need to make it work in Eggdrop bot

i know all will love this game coz its good and funny

this is the mirc script code

Code:

on *:text:!wnick:#: {  if (%qnick.game-status != on) {    set %qnick.game-status on    set %qnick.game-nick $qnickrand($chan)    set %qnick.game-last-nick %qnick.game-nick    if (!%qnick.game-games) { set %qnick.game-games 1 }    if (%qnick.game-games) { inc %qnick.game-games }    /msg $chan 7W14nick-Gam7E 7N14ew Nic7K 12( $+ Game N°: $+ %qnick.game-games $+ 12) 7T14o Stop this nic7K9:4 !wstop    /nscrammble %qnick.game-nick $chan    set %qnick.game-start $ctime  }  else {    if (!%floo-time) {      set -u15 %floo-time ok      /nscrammble %qnick.game-nick $chan    }  }}    alias qnickrand {  var %qnick.game-nick1 = $nick($1,$r(1,$nick($1,0)))  while ( %qnick.game-nick1 = %qnick.game-last-nick ) {    set %qnick.game-nick1 $nick($1,$r(1,$nick($1,0)))  }  return %qnick.game-nick1}alias nscrammble {  /msg $2 7W14nick-Gam7e  12( $+ Game N°: $+ %qnick.game-games $+ 12) 7U14nscramble this NickNam7E9: $misturecs(%qnick.game-nick)} on *:text:%qnick.game-nick:#: {  if (%qnick.game-status == on) {    /msg $chan 7[4 $nick 7] 7W14inns the gam7E 12( $+ Game N°: $+ %qnick.game-games $+ 12) 7T14imeGam7E9: $duration($calc($ctime - %qnick.game-start)) 7T14he nickname wa7S:4 %qnick.game-nick      /msg $chan 7W14nick-Gam7e 7T14o new gam7E4 !wnick     set %qnick.game-status off    unset %qnick.game-nick  }}on *:text:!wstop:#: {  if (%qnick.game-status == on) {    /msg $chan 7W14nick-Gam7e 12( $+ Game N°: $+ %qnick.game-games $+ 12) 7T14imeGam7E9: 9 $duration($calc($ctime - %qnick.game-start)) 7S14toped!!7!    /msg $chan 7W14nick-Gam7e  7N14oOne get it right!!! The Scrambled nickname wa7S9:4 %qnick.game-nick     set %qnick.game-status off    unset %qnick.game-nick    /msg $chan 7W14nick-Gam7e  7T14o a new scrambled nick Typ7E9:4 !wnick  }};# yeahss you never seen this!!!     #;# Becouse this on IS MINE ONE :pPpP #alias misturecs {  var %trrr = $lower($1)  var %trr = $len($1)  var %trr1 = 1  while (%trr1 <= %trr) {    var %trr2 = %trr2 $+ $mid(%trrr,%trr1,1) $+ .    inc %trr1  }   var %tra = %trr2  var %tr = $numtok(%trr2,46)  var %tr1 = 1  var %tr2 = %tr  while (%tr1 <= %tr) {    set %tr3  $rand(1,%tr2)    var %trr12 = $remove(%tra,.)    var %tr4 = %tr4 $+ $mid(%trr12,%tr3,1)     var %tra = $deltok(%tra,%tr3,46)    dec %tr2    inc %tr1  }  return %tr4};############ The End :)~ ##################

when any user type this on the channel !wnick

the bot will choose nick from the channel and u need to know which nick is that

example :

Code:

[08:45:58‹pm›] ‹!AnR› !wnick[08:45:59‹pm›] (@Game-Bot) Wnick-GamE New NicK (Game N°:3) To Stop this nicK: !wstop[08:46:00‹pm›] (@Game-Bot) Wnick-Game (Game N°:3) Unscramble this NickNamE: snro1pac[08:46:04‹pm›] (@Dex) Scorp1an[08:46:05‹pm›] (@Game-Bot) [ Dex ] Winns the gamE (Game N°:3) TimeGamE: 6secs The nickname waS: Scorp1an [08:46:05‹pm›] (@Game-Bot) Wnick-Game To new gamE !wnick

can any one help me in this game

Thanks for all

Statistics: Posted by 4mirc — Thu Nov 11, 2010 2:57 pm