egghelp/eggheads community

Need some help with mirc-script to tcl

2005-05-04T16:31:05-04:00

Thanks both of you!

Statistics: Posted by zeuz — Wed May 04, 2005 4:31 pm

Need some help with mirc-script to tcl

2005-05-04T14:42:38-04:00

Code:

bind pub - !lexp lexp proc rslvlexp p {   set points 0  set level 1  while {$level<$p} {    set points [expr floor($points + $level + 300 * pow(2,$level / 7.0))]     incr level   }  set outputnum [expr round(floor($points / 4))]} proc lexp {n u h c a} {   if ![llength [split $a]] return  foreach n [split $a] {    if {$n<=0||$n>99} {      puthelp "PRIVMSG $c :something funny happened"      return    }  }  set n [scan $a "%i %i %i" f s x]  if {$n<2} {     puthelp "PRIVMSG $c :[rslvlexp $f]"  } elseif {$n<3} {    puthelp "PRIVMSG $c :[expr [rslvlexp $s] - [rslvlexp $f]]"  } {    puthelp "PRIVMSG $c :[expr ([rslvlexp $s] - [rslvlexp $f])/$x]"     }  return}

edit: bleh! fz beat me. didnt refresh thread before starting

Statistics: Posted by spock — Wed May 04, 2005 2:42 pm

Need some help with mirc-script to tcl

2005-05-04T14:19:32-04:00

Code:

bind pub - !lexp lexp proc rslvlexp p {   set points 0   set level 1   while {$level<$p} {     set points [expr floor($points + $level + 300 * pow(2,$level / 7.0))]     incr level   }   set outputnum [expr round(floor($points / 4))] } proc lexp {n u h c a} {   if ![llength [split $a]] return   if {[scan $a "%s %s %s" f s x] == 1} {     if {$f<=0||$f>99} return     puthelp "PRIVMSG $c :[rslvlexp $f]"   } elseif {[scan $a "%s %s %s" f s x] == 2} {     if {$f<=0||$f>99||$s<=0||$s>99} return     puthelp "PRIVMSG $c :[expr [rslvlexp $s] - [rslvlexp $f]]"   } elseif {[scan $a "%s %s %s" f s x] == 3} {    if {$f<=0||$f>99||$s<=0||$s>99||$x<=0||$x>99} return     puthelp "PRIVMSG $c :[expr {([rslvlexp $s] - [rslvlexp $f]) / $x}]"  }  return }

Statistics: Posted by Sir_Fz — Wed May 04, 2005 2:19 pm

Need some help with mirc-script to tcl

2005-05-04T13:08:28-04:00

Thats great, thanks! Just one more thing, how can i add a third argument? As the mirc-script is now you can type !lexp 5 10 20 and get the amount of items needed for that amount of experience. Like !lexp

[expr [rslvlexp $s] - [rslvlexp $f] / $x] where $x is the third one...

How can i check that $s, $f and... $x? is numeric? Just noticed that some people tend to try chars...

Statistics: Posted by zeuz — Wed May 04, 2005 1:08 pm

Need some help with mirc-script to tcl

2005-05-04T12:40:08-04:00

Code:

bind pub - !lexp lexp proc rslvlexp p {   set points 0  set level 1  while {$level<$p} {    set points [expr floor($points + $level + 300 * pow(2,$level / 7.0))]     incr level   }  set outputnum [expr round(floor($points / 4))]} proc lexp {n u h c a} {   if ![llength [split $a]] return  if {[scan $a "%s %s" f s] < 2} {     if {$f<=0||$f>99} return    puthelp "PRIVMSG $c :[rslvlexp $f]"  } {    if {$f<=0||$f>99||$s<=0||$s>99} return    puthelp "PRIVMSG $c :[expr [rslvlexp $s] - [rslvlexp $f]]"  }  return}

Statistics: Posted by spock — Wed May 04, 2005 12:40 pm

Need some help with mirc-script to tcl

2005-05-04T12:30:12-04:00

Yup, thats how i want it to work. If the user enters two levels it should return the experience between thoose. Something like this: rslvlexp(21) - rslvlexp(14).

Statistics: Posted by zeuz — Wed May 04, 2005 12:30 pm

Need some help with mirc-script to tcl

2005-05-04T12:12:33-04:00

lets take

!lexp 14

for an example.

you want to pass 14 to rslvlexp and then output the result ?

Also, if 2 numbers were entered with !lexp (for example !lexp 14 21) what should be done with the other ?

Statistics: Posted by Sir_Fz — Wed May 04, 2005 12:12 pm

Need some help with mirc-script to tcl

2005-05-04T10:11:51-04:00

Works now, thanks spock!

Now for the other part, not sure on how to solve that.

What i want it to do is when !lexp is used in a channel it will call lexp. lexp will then check to see if the user tries something funny, like going over level 99 or trying with negative numbers etc. When that is checked and ok it should msg the channel with the help of rslvlexp wich returns the experience needed for a stated level, or the experience between two levels.

Example:
!lexp 14
Level 1-14: xxx exp
!lexp 14 21
Level 14-21: xxx exp

This is how the script currently looks like:

Code:

bind pub - !lexp lexp## returns amount of experience needed for the stated level#proc rslvlexp { nick uhost handle channel firstlevel } {    set outputnum 0    set points 0    set level 1    while {$level < $firstlevel} {        set points [expr floor($points + $level + 300 * pow(2,$level / 7.0))]        set outputnum [expr round(floor($points / 4))]        incr level    }    #puthelp "PRIVMSG $channel :$firstlevel - $outputnum experience"    return $outputnum}## proc to call when !lexp is used#proc lexp { nick uhost handle channel firstlevel secondlevel } {    return 0}

Statistics: Posted by zeuz — Wed May 04, 2005 10:11 am

Need some help with mirc-script to tcl

2005-05-04T09:13:27-04:00

"incr $level" should be "incr level" (gets rid of the error, dont know if it'll do what you expect)

Statistics: Posted by spock — Wed May 04, 2005 9:13 am

Need some help with mirc-script to tcl

2005-05-04T08:55:23-04:00

Anyone knows what i've done wrong?

Statistics: Posted by zeuz — Wed May 04, 2005 8:55 am

Need some help with mirc-script to tcl

2005-05-02T13:51:50-04:00

Code:

alias levelexp {  var %outputnum = 0  var %points = 0  var %lvl = 1  while (%lvl < $$1) {    %points = $int($calc(%points + %lvl + 300 * 2 ^ (%lvl / 7.0)))    %outputnum = $int($calc(%points / 4))    inc %lvl 1  }  return $int(%outputnum)}

Is a function that calculates the experience for the stated level. $$1 is the level stated when calling the function. I didn't make the formula for it though. Need to know anything more about it?

This is the error im getting:
Tcl error [msg:levelexp]: can't read "1": no such variable

Same function in php if that helps:

Code:

function GetLevelExperience($level){$outputnum = 0;$points = 0;$lvl = 1;while($lvl < $level) {$points += floor($lvl + 300 * pow(2, $lvl / 7.0));$outputnum = floor($points / 4);$lvl++;}return $outputnum;}

Statistics: Posted by zeuz — Mon May 02, 2005 1:51 pm

Need some help with mirc-script to tcl

2005-05-02T13:11:05-04:00

If you trace the code, so we can understand it more (since, atleast me, we don't know mirc language very well), then we can provide more help on this script.

Statistics: Posted by Sir_Fz — Mon May 02, 2005 1:11 pm

Need some help with mirc-script to tcl

2005-05-02T13:52:08-04:00

Tried to write it myself, this is how it look likes this far:

Code:

bind pub - !lexp  msg:levelexpproc msg:levelexp { nick uhost handle channel firstlevel } {    set outputnum 0    set points 0    set level 1    while {$level < $firstlevel} {        set points [expr $points + $level + 300 * pow(2,$level / 7.0)]        set outputnum [expr $points / 4]        incr $level    }    puthelp "PRIVMSG $channel :$firstlevel - $outputnum experience"    return 0}

Any help is very much appreciated, this is my first tcl script ever (if it counts since it don't work as planned ), started to read some a couple of hours ago.

Statistics: Posted by zeuz — Mon May 02, 2005 12:43 pm

Need some help with mirc-script to tcl

2005-05-01T04:52:26-04:00

It feels like i'm asking for too much, but it's worth a try. Currently i'm running the script on my own client (mirc). I would like to use my eggdrop to run the script instead.

What the script does is answer on !lexp

with experience between from-level and to-level, and, if stated, calculates amount of items needed for that amount of experience. (It's for a game called runescape.)

I know that this may be too much to ask for, but it would be greatly appreciated. Some lines is in swedish, so ask if you don't understand. I have never worked with tcl, but have some basic knowledge in c++ and some other languages, so any hints and things like that is welcome.

Here's the code:

Code:

alias levelexp {  var %outputnum = 0  var %points = 0  var %lvl = 1  while (%lvl < $$1) {    %points = $int($calc(%points + %lvl + 300 * 2 ^ (%lvl / 7.0)))    %outputnum = $int($calc(%points / 4))    inc %lvl 1   }  return $int(%outputnum)}alias tusen {  var %word = $null  var %length = $len($$1)  var %i = 0  var %left = 0    while (%i < %length) {    var %pos = $calc(%length - %i - 2)    if (%pos <= 0) { %left = $left($$1, $calc(%length - %i)) }        else { %left = $mid($$1, %pos, 3) }    %word = %left %word    inc %i 3    }  return %word}alias lexp {  if ($nick != $null) var %nick = $nick  else %nick = $me    if ($$1 !isnum 1-1000) {    .notice %nick Syntax error! Använd !lexp   utan streck    halt  }  if ($1 > 150 || $2 > 150) {    .notice %nick För hög högsta level! Max är 150!     halt  }   else if ($2) {    var %expsak = $3    var %lvls = $calc($$2 - $$1)    var %expkvar = $calc($levelexp($$2) - $levelexp($$1))    if ($3) {      msg # Level $$1 $+ - $+ $$2 $+ : $tusen(%expkvar) exp - Antal "Saker": $tusen($int($calc(%expkvar / %expsak)))           }    else {        msg # Level $$1 $+ - $+ $$2 $+ : $tusen(%expkvar) exp    }  }  else {    msg # Level 1 $+ - $+ $$1 $+ : $tusen($levelexp($$1)) exp   } }on *:TEXT:!lexp*:#runescape.se:{ $lexp($$2, $3, $4) }

Statistics: Posted by zeuz — Sun May 01, 2005 4:52 am