egghelp/eggheads community

What is wrong with this script?

2002-08-31T02:34:18-04:00

Might want to use the round() function instead.

Statistics: Posted by Guest — Sat Aug 31, 2002 2:34 am

if you want to round up correctly..

2002-08-29T15:17:36-04:00

Use this proc:

Code:

proc integer {integer} {  if {[expr $integer - int($integer)] < 0.5} {    return [expr int($integer)]  } else {    return [expr int($integer) + 1]  }}

Put it in your code like so:

Code:

putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be [integer $gold_make] gold."

The rounding should be correct now.

Statistics: Posted by Guest — Thu Aug 29, 2002 3:17 pm

What is wrong with this script?

2002-08-29T14:20:58-04:00

ok.

The script is doing exactly what it should do now.

Thanks to Papillon and Iridium for their help.

Theo

Statistics: Posted by Guest — Thu Aug 29, 2002 2:20 pm

What is wrong with this script?

2002-08-29T13:31:37-04:00

ok.

this removes the comma.

now one more thing.

if i do the command theo calc 100 24 it says that it will be 125 gold.

this isn't right.

it should be 124.

anybody knows how to fix that?

Statistics: Posted by Guest — Thu Aug 29, 2002 1:31 pm

Sorry about the while to reply..

2002-08-29T13:18:36-04:00

Code:

putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be [expr int($gold_make)] gold."

hth..

warning.. this will unfortunately not round up correctly..

e.g.
1.4 -> 1
1.5 -> 1
1.6 -> 1
2.5 -> 1

You get the idea.

Statistics: Posted by Guest — Thu Aug 29, 2002 1:18 pm

What is wrong with this script?

2002-08-28T12:47:31-04:00

that would be at putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be $gold_make gold."

the $gold_make would be the place where it says that

Statistics: Posted by Guest — Wed Aug 28, 2002 12:47 pm

What is wrong with this script?

2002-08-28T12:37:08-04:00

where does it say 16446.3182184?

Statistics: Posted by Guest — Wed Aug 28, 2002 12:37 pm

What is wrong with this script?

2002-08-28T12:36:15-04:00

i am just beginning with tcl, so i don't know where to put it exactly.

i tried a couple of places, but only thing that happens is the script stops working at all.

anybody that can put me in the right direction?

Theo

Statistics: Posted by Guest — Wed Aug 28, 2002 12:36 pm

What is wrong with this script?

2002-08-28T08:09:20-04:00

this is really dirty, but try [lindex [split "it" .] 0] where "it" is whatever is returning 1234.1234

Statistics: Posted by Guest — Wed Aug 28, 2002 8:09 am

What is wrong with this script?

2002-08-25T16:12:15-04:00

Code:

# command syntax is ok, process request          } else {             set gold_start [lindex $arg 1]            set gold_hours [lindex $arg 2]     set check 1    set gold_make "$gold_start"    while {$check != [expr $gold_hours + 1]} {       set gold_new [expr $gold_make * 0.01]      set gold_make [expr $gold_make + $gold_new]      set check [incr check]    }            putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be $gold_make gold."             }           }

that works.. but it is now with comma's, 10000 dollars for 50 hours will return "16446.3182184"
how to make it without comma's I'll leave to u... don't have the knowledge of how .... or the time to figure it out

Statistics: Posted by Papillon — Sun Aug 25, 2002 4:12 pm

What is wrong with this script?

2002-08-25T14:17:46-04:00

thanks papilon.

You responded before i could edit my message again.

The game doesn't work with comma's.

The script you made puts :

After 50 hour(s) in the bank, 10000 gold will be 15000.0 gold

while it should be 16420.

The hours that past also give interest

could you please help me again?

Theo

Statistics: Posted by Guest — Sun Aug 25, 2002 2:17 pm

What is wrong with this script?

2002-08-25T14:01:04-04:00

Code:

# command syntax is ok, process request          } else {             set gold_start [lindex $arg 1]             set gold_hours [lindex $arg 2]             set gold_new [expr [expr $gold_start * 0.01] * $gold_hours]             set gold_make [expr $gold_start + $gold_new]               putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be $gold_make gold."             }           }

that should do it

Statistics: Posted by Papillon — Sun Aug 25, 2002 2:01 pm

What is wrong with this script?

2002-08-25T13:25:04-04:00

Code:

# listen to all theo commands in channels bind pub - theo pub:theo # limit the chans to listen in by filling them in here ( more chans goes this way {#chan1 #chan2} set enabledchans {#attack} # procedure to check if chan where command is used is listed chan proc isenabledchan { channel } {    global enabledchans    # compare each chan in $enabledchans with current chan and return 1 (true) if chan is listed    foreach enablechan $enabledchans {       if { $channel == $enablechan } {          return 1       }    }    return 0 } # main procedure to handle the theo commands proc pub:theo { nick uhost handle channel arg } {    # check if command should work in this chan    set chan [string tolower $channel]       if { ![isenabledchan $chan] } {       return 1    }    # check if valid command (calc)    if { [llength $arg] == 0 } {       putserv "PRIVMSG $channel :Unable to perform request, give command."    } else {       # get command and compare it to "calc"       set command [lindex $arg 0]       set command [string tolower $command]       if { [string compare $command calc] == 0 } {          # check if valid number of arguments          if { [llength $arg] < 2 } {             putserv "PRIVMSG $channel :Please check the help function if you don't know how to use this command."          # command syntax is ok, process request          } else {             set gold_start [lindex $arg 1]            set gold_hours [lindex $arg 2]            set gold_temp [expr $gold_start / 1.01]            set gold_new [expr $gold_temp * $gold_hours]            set gold_make [expr $gold_start + $gold_new]              putserv "PRIVMSG $channel :After $gold_hours hour(s) in the bank, $gold_start gold will be $gold_make gold."            }          }   }}

Statistics: Posted by Guest — Sun Aug 25, 2002 1:25 pm

What is wrong with this script?

2002-08-25T14:07:18-04:00

Hi,

i made myself a script to use for players from a online game.

The script should tell people how much gold they will have after a couple of hours by interest.

The interest is 0.01 an hour.

the script only doesn't calculate it right.

i tried to calculate 100 gold. the hours to bild interest was 5. so it should say that after 5 hours my gold would be 105 gold.

that is doing it right, but the hours that are past give interest also.

If i do a 10000 with 50 hours it says 10500 gold, while it should be 10510 gold.

I put the script in a new message.

Theo.

Statistics: Posted by Guest — Sun Aug 25, 2002 1:23 pm