egghelp/eggheads community

calcip mirc thing

2004-06-15T12:39:43-04:00

awyeah helped me to do the calc things, we need to check how to split the topic into variables now

Statistics: Posted by LexXx — Tue Jun 15, 2004 12:39 pm

calcip mirc thing

2004-06-15T11:07:39-04:00

nice mircscript

Statistics: Posted by greenbear — Tue Jun 15, 2004 11:07 am

calcip mirc thing

2004-06-15T11:03:12-04:00

Code:

bind pub - "!calcip" procnameset $cip.s4 . $+ $1 set $cip.temp $cip.s4 $+ / set $act.topic $chan( #dclone.eu ).topic if ($cip.temp isin $act.topic) { set $cip.lwe.pos $calc($pos($act.topic,$cip.s4,1)+$len($cip.s4)+1) set $cip.temp $mid(sact.topic,$cip.lwe.pos,20) set $cip.act.pos $calc($pos($cip.temp,/,1)+1) set $cip.temp $mid($cip.temp,$cip.act.pos,20) set $cip.act $gettok($cip.temp,1,32) set $cip.lwe $mid($act.topic,$cip.lwe.pos,$calc($cip.act.pos - 2)) { if ($calc(75 - $cip.act + $cip.lwe) > 0) { echo 5[Server  $+ $cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc($cip.lwe + 75) $+  while maximum is  $+ $calc($cip.lwe + 125) $+ .  $+ $calc($cip.act - $cip.lwe) $+  sojs have been sold and  $+ $calc(75 - $cip.act + $cip.lwe) $+  more sojs need to be sold to reach min. } } { if ($calc(75 - $cip.act + $cip.lwe) == 0) { echo 5[Server  $+ $cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc($cip.lwe + 75) $+  while maximum is  $+ $calc($cip.lwe + 125) $+ .  $+ $calc($cip.act - $cip.lwe) $+  sojs have been sold - minimum is reached. } } { if ($calc(75 - $cip.act + $cip.lwe) < 0) { echo 5[Server  $+ $cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc($cip.lwe + 75) $+  while maximum is  $+ $calc($cip.lwe + 125) $+ .  $+ $calc($cip.act - $cip.lwe) $+  sojs have been sold, min is reached and  $+ $calc(($cip.lwe + 125) - $cip.act) $+  more sojs need to be sold to max. } } } unset $cip.*}putlog "caclip test 14:35"

I tried to rewrite it a bit, thats the result:

Code:

2(121702:120002:125202) 02([dclone-eu-bot]02) [16:59] Tcl error in file 'eggdrop.conf':02(121702:120002:125202) 02([dclone-eu-bot]02) [16:59] can't read "cip": no such variable02(121702:120002:125202) 02([dclone-eu-bot]02) while executing02(121702:120002:125202) 02([dclone-eu-bot]02) "set $cip.s4 . $+ $1"02(121702:120002:125202) 02([dclone-eu-bot]02) (file "scripts/4.tcl" line 2)02(121702:120002:125202) 02([dclone-eu-bot]02) invoked from within02(121702:120002:125202) 02([dclone-eu-bot]02) "source scripts/4.tcl"02(121702:120002:125202) 02([dclone-eu-bot]02) (file "eggdrop.conf" line 108)02(121702:120002:125202) 02([dclone-eu-bot]02) [16:59] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)DCC session closed[c

Statistics: Posted by LexXx — Tue Jun 15, 2004 11:03 am

calcip mirc thing

2004-06-15T07:58:39-04:00

if you could join #dclone.eu on quakenet [qry gc|day[eCH] ]i can show you what the script is for! its difficult to explain if you dont understand what is the use of the script

Statistics: Posted by LexXx — Tue Jun 15, 2004 7:58 am

calcip mirc thing

2004-06-15T07:49:41-04:00

Maybe you can give us a demonstration...
or an example of the script working.

What numbers do you mean..
Numbers from a channel topic??

Suppose if a this is a topic:
"Please welcome to #channel and enjoy your stay in here."

There are no numbers in this one.

Probobaly a topic like:
"W3lc0m3 2 our chann3l, pl34s3 w3lc0m3 ur st4y in h3r3."

If a topic is like this, with numbers then. what will
happen hmm.

So your saying is that.. it collects all numbers in a channels
topics, adds 75 to the toal.. sums them up and gives total sum
as the result?

Statistics: Posted by awyeah — Tue Jun 15, 2004 7:49 am

calcip mirc thing

2004-06-14T22:32:53-04:00

what do you use this script for?

Statistics: Posted by Ofloo — Mon Jun 14, 2004 10:32 pm

calcip mirc thing

2004-06-14T17:02:32-04:00

well you do !calcip and it gets some numbers from the topic and adds 75 to them and calcs a whole thing and gives an output! :/

Statistics: Posted by LexXx — Mon Jun 14, 2004 5:02 pm

calcip mirc thing

2004-06-14T14:24:20-04:00

So what does this script do?
I used to do irc scripting like 4 years ago with v5.61, but now I see there
are hell lot of new functions in mIRC... with newer and newer releases such as now they have 6.14.

I don't understand these new functions however, the help files might describe the usages of these.

This is basically a trigger for !calcip? what output does !calcip give?
what would be the input for it and the output for it?!

Statistics: Posted by awyeah — Mon Jun 14, 2004 2:24 pm

calcip mirc thing

2004-06-14T11:35:06-04:00

I have no idea of tcl but i need to run a script i have in my remote on my eggdrop:

Code:

 on 1:TEXT:!Calcip &:#dclone.eu:{  set %cip.s4 . $+ $1  set %cip.temp %cip.s4 $+ /  set %act.topic $chan( #dc.eu ).topic  if (%cip.temp isin %act.topic) {    set %cip.lwe.pos $calc($pos(%act.topic,%cip.s4,1)+$len(%cip.s4)+1)    set %cip.temp $mid(%act.topic,%cip.lwe.pos,20)    set %cip.act.pos $calc($pos(%cip.temp,/,1)+1)    set %cip.temp $mid(%cip.temp,%cip.act.pos,20)    set %cip.act $gettok(%cip.temp,1,32)    set %cip.lwe $mid(%act.topic,%cip.lwe.pos,$calc(%cip.act.pos - 2))    { if ($calc(75 - %cip.act + %cip.lwe) > 0) { echo 5[Server  $+ %cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc(%cip.lwe + 75) $+  while maximum is  $+ $calc(%cip.lwe + 125) $+ .  $+ $calc(%cip.act - %cip.lwe) $+  sojs have been sold and   $+ $calc(75 - %cip.act + %cip.lwe) $+  more sojs need to be sold to reach min. } }    { if ($calc(75 - %cip.act + %cip.lwe) == 0) { echo 5[Server  $+ %cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc(%cip.lwe + 75) $+  while maximum is  $+ $calc(%cip.lwe + 125) $+ .  $+ $calc(%cip.act - %cip.lwe) $+  sojs have been sold - minimum is reached. } }    { if ($calc(75 - %cip.act + %cip.lwe) < 0) { echo 5[Server  $+ %cip.s4 $+ ] Minimum sojcount for WE is  $+ $calc(%cip.lwe + 75) $+  while maximum is  $+ $calc(%cip.lwe + 125) $+ .  $+ $calc(%cip.act - %cip.lwe) $+  sojs have been sold, min is reached and   $+ $calc((%cip.lwe + 125) - %cip.act) $+  more sojs need to be sold to max. } }  }  unset %cip.*}

would be nice if you could help me or tell which commands are different for tcl cos i have no idea

mfg

Statistics: Posted by LexXx — Mon Jun 14, 2004 11:35 am