egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-05-06T12:31:32-04:00 https://forum.eggheads.org/app.php/feed/topic/9582 2005-05-06T12:31:32-04:00 2005-05-06T12:31:32-04:00 https://forum.eggheads.org/viewtopic.php?p=49117#p49117 <![CDATA[Help ME Please (TCL)]]>

Code: 

proc fine:voto {} { global sillaba scarabeo chan     set chan "#quix"     putserv "PRIVMSG $chan :Fine Votazioni!"     set max $uno     if {$sillaba > $max } {set max $sillaba}     if {$scarabeo > $max} {set max $scarabeo}     if {$scarabeoplus > $max} {set max $scarabeoplus}     if {$max == $sillaba} {     putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SILLABA\002 Voti: $sillaba"     } elseif {$max == $uno} {     putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002UNO\002 Voti: $uno"     } elseif {$max == $scarabeoplus} {     putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SCARABEO PLUS\002 Voti: $scarabeoplus"     } elseif {$max == $scarabeo} {     putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SCARABEO\002 Voti: $scarabeo"     return 0     }}

Statistics: Posted by Sir_Fz — Fri May 06, 2005 12:31 pm

]]> 2005-05-06T12:15:56-04:00 2005-05-06T12:15:56-04:00 https://forum.eggheads.org/viewtopic.php?p=49116#p49116 <![CDATA[Help ME Please (TCL)]]>

Code: 

proc fine:voto {} {global sillaba scarabeo chan    set chan "#quix"    putserv "PRIVMSG $chan :Fine Votazioni!"    set max $uno    if {$sillaba > $max } {set max $sillaba}    if {$scarabeo > $max} {set max $scarabeo}    if {$scarabeoplus > $max} {set max $scarabeoplus}    if {$max == $sillaba} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SILLABA\002 Voti: $sillaba"    } elseif {$max == $uno} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002UNO\002 Voti: $uno"    } elseif {$max == $scarabeoplus} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SCARABEO PLUS\002 Voti: $scarabeoplus"    } elseif {$max == $scarabeo} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SCARABEO\002 Voti: $scarabeo"    return 0    }
I write this but the tcl not start ... read this error:

[16:12] missing close-brace
while executing
"proc fine:voto {}"
(file "scripts/voto.tcl" line 51)
invoked from within
"source scripts/voto.tcl"
(file "eggdrop.conf" line 175)
[16:12] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by djcoxe — Fri May 06, 2005 12:15 pm

]]> 2005-05-06T11:52:22-04:00 2005-05-06T11:52:22-04:00 https://forum.eggheads.org/viewtopic.php?p=49115#p49115 <![CDATA[Help ME Please (TCL)]]>

Code: 

set max $sillabaif {$uno > $max} { set max $uno}if {$scarabeo > $max} { set max $scarabeo }if {$scarabeoplus > $max} { set max $scarabeoplus }
Now you have $max as the biggest value. So to output you can use:

Code: 

if {$max == $sillaba} { # output something} elseif {$max == $uno} { # output something else} elseif {$max == $scarabeo} { # output something else and the list continues...}

Statistics: Posted by Sir_Fz — Fri May 06, 2005 11:52 am

]]> 2005-05-06T11:41:01-04:00 2005-05-06T11:41:01-04:00 https://forum.eggheads.org/viewtopic.php?p=49112#p49112 <![CDATA[Help ME Please (TCL)]]> 2. $scarabeo compare with $uno and $sillaba and $scarabeoplus
3. $scarabeoplus compare with $uno and $sillaba and $scarabeo
3. $uno compare with $sillaba and $scarabeo and $scarabeoplus

for check the biggest

Statistics: Posted by djcoxe — Fri May 06, 2005 11:41 am

]]> 2005-05-06T11:31:34-04:00 2005-05-06T11:31:34-04:00 https://forum.eggheads.org/viewtopic.php?p=49107#p49107 <![CDATA[Help ME Please (TCL)]]> Statistics: Posted by Sir_Fz — Fri May 06, 2005 11:31 am

]]> 2005-05-06T11:24:44-04:00 2005-05-06T11:24:44-04:00 https://forum.eggheads.org/viewtopic.php?p=49105#p49105 <![CDATA[Help ME Please (TCL)]]>

Code: 

set chan "#quix"set sillaba 0set scarabeo 0set uno 0set scarabeoplus 0bind pub - !quix start_votazionebind pub - !votasillaba votosillababind pub - !votascarabeoplus votoscarabeoplusbind pub - !votauno votounobind pub - !votascarabeo votoscarabeoproc start_votazione {nick host hand chan text} {global sillaba scarabeo scarabeoplus uno    set sillaba 0    set scarabeo 0    set uno 0    set scarabeoplus 0    putserv "PRIVMSG $chan :8,2Sono Partite Le Votazioni per il prossimo gioco!!"    putserv "PRIVMSG $chan :8,2Giochi Disponibili :\002SILLABA , UNO , SCARABEO , SCARABEOPLUS"    putserv "PRIVMSG $chan :8,2Potete Votare il Gioco con \0028,4!vota\002 8,2(Es.\002\8,4!votasillaba\0028,2 Tutto attaccato)"    putserv "PRIVMSG $chan :8,2Avete 1 Min !! \002NO CLONI , NO FLOOD\002 Pena BAN!!"    timer 1 fine:voto    return 0    }proc votosillaba {nick host hand chan text} {global sillaba      incr sillaba      putserv "NOTICE $nick :Voto Registrato"    }proc votouno {nick host hand chan text} {global uno      incr uno      putserv "NOTICE $nick :Voto Registrato"    }proc votoscarabeoplus {nick host hand chan text} {global scarabeoplus      incr scarabeoplus      putserv "NOTICE $nick :Voto Registrato"    }proc votascarabeo {nick host hand chan text} {global scarabeo      incr scarabeo      putserv "NOTICE $nick :Voto Registrato"    }proc fine:voto {} {global sillaba scarabeo uno scarabeoplus chan    set chan "#quix"    putserv "PRIVMSG $chan :Fine Votazioni!"    if {????????} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SILLABA\002 Voti: $sillaba "    putserv "NOTICE Quix :sillabaon 200 0000"        } elseif {?????????} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002SCARABEO\002 Voti : $scarabeo"    putserv "NOTICE Quix :sccon 200 0000"    } elseif {?????????} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002UNO\002 Voti : $uno"    } elseif {?????????} {    putserv "PRIVMSG $chan :Il Prossimo Gioco Sarà \002 SCARABEO PLUS\002 Voti : $scarabeoplus"    putserv "NOTICE $chan :scarabeon 200 0000"    return 0   }
I try to write a script for vote a various games in one chan ...
When the people vote the game ... the biggest variable win and start the game ... but i don't understand ...
the problem is in the "fine:voto" ... {?????} for define the biggest variable...
Please Help Me!! :D

Statistics: Posted by djcoxe — Fri May 06, 2005 11:24 am

]]>