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
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?!
·awyeah·
==================================
Facebook: jawad@idsia.ch (Jay Dee) PS: Guys, I don't accept script helps or requests personally anymore.
==================================
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
bind pub - "!calcip" procname
set $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"
