rendered paste bodyON *:TEXT:!*:#:{ proc_bot $1- }
ON *:TEXT:*successfully*:#:{ proc_bot2 $1- }
alias proc_bot {
set %stext = $1-
elseif ($1 == !status) { msg $chan Hi $nick I am doing fine, how about you? }
if ($1 == !help) {
msg $nick Hi $nick
msg $nick Bot Commands
msg $nick !stats -> Shows total stats
msg $nick !stats <kocname> -> Shows total damage done to <kocname>
msg $nick !totalsab <IRC nick> -> Shows total damage done by <IRC nick>
msg $nick !top10 -> Shows Top10 Sabbers
msg $nick !probeme
msg $nick !sexme
msg $nick !hug
msg $nick !kiss
msg $nick !shower
msg $nick !dance
msg $nick !farms
msg $nick !farm <koc name>
msg $nick !addfarm <name> <armysize> <defends> <link>
msg $nick !statlink <Koc name>
msg $nick !sab<weapon> <kocname>
msg $nick !probe <kocname>
}
elseif ($1 == !stats) {
if ($2 == $null) {
;her skal total stats være
set %statMK $readini(kocstats.ini,n,Total,MK)
set %statML $readini(kocstats.ini,n,Total,ML)
set %statTG $readini(kocstats.ini,n,Total,TG)
set %statLANCE $readini(kocstats.ini,n,Total,LANCE)
set %sabMK $calc(%statMK * 1)
set %sabMLM $calc(%statBPM * 1)
set %sabTG $calc(%statDS * 1)
set %sabSPEAR $calc(%statSPEAR * 5100)
set %sabLANCE $calc(%statLANCE * 5100)
.action $nick ************************
.action $nick Total Stats:
if (%statMK != $null) { _action $nick %statMK Men Killed á 1 men => $_nform(%sabMK) }
if (%statML != $null) { _action $nick %statML Men Lossed á 1 men => $_nform(%sabML) }
if (%statTG != $null) { _action $nick %statTG Total Gold Stolen => $_nform(%sabTG) }
if (%statSPEAR != $null) { _action $nick %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR) }
if (%statLANCE != $null) { _action $nick %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE) }
.action $nick ************************
.action $nick Total: $_nform($calc(%sabMK + %sabML + %sabTG + %sabSPEAR +%sabLANCE)) Gold **************************** Not to be used????
.action $nick ************************
}
else {
set %statMK $readini(kocstats.ini,n,$2,MK)
set %statML $readini(kocstats.ini,n,$2,ML)
set %statTG $readini(kocstats.ini,n,$2,TG)
set %statSPEAR $readini(kocstats.ini,n,$2,SPEAR)
set %statLANCE $readini(kocstats.ini,n,$2,LANCE)
set %sabMK $calc(%statMK * 1)
set %sabML $calc(%statML * 1)
set %sabTG $calc(%statTG * 1)
set %sabSPEAR $calc(%statSPEAR * 5100)
set %sabLANCE $calc(%statLANCE * 5100)
.action $nick ************************
.action $nick Results of the gold stolen on $2 :
if (%statMK != $null) { _action $nick %statMK Men Killed á 1 men => $_nform(%sabMK) }
if (%statML != $null) { _action $nick %statML Men Lost á 1 men => $_nform(%sabML) }
if (%statTG != $null) { _action $nick %statTG Total Gold Stolen á 1 gold => $_nform(%sabTG) }
if (%statSPEAR != $null) { _action $nick %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR) }
if (%statLANCE != $null) { _action $nick %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE) }
.action $nick ************************
.action $nick Total: $_nform($calc(%sabIS + %sabBPM + %sabCHARIOT + abPIKE + )) Gold *****************************Not to be used???
.action $nick ************************
}
}
elseif (($1 == !totalattack) && ($1 != $null)) {
var %fjoms = $2
set %gnick $2 $+ _TOTAL
set %statMK $readini(kocstats.ini,n,%gnick,MK)
set %statML $readini(kocstats.ini,n,%gnick,ML)
set %statTG $readini(kocstats.ini,n,%gnick,TG)
set %statSPEAR $readini(kocstats.ini,n,%gnick,SPEAR)
set %statLANCE $readini(kocstats.ini,n,%gnick,LANCE)
set %sabMK $calc(%statMK * 1)
set %sabML $calc(%statML * 1)
set %sabTG $calc(%statTG * 1)
set %sabSPEAR $calc(%statSPEAR * 5100)
set %sabLANCE $calc(%statLANCE * 5100)
action $nick ************************
action $nick Total Stats of $2 :
if (%statMK != $null) { _action $nick %statMK Men Killed => $_nform(%sabMK) }
if (%statML != $null) { _action $nick %statML Men Lost => $_nform(%sabML) }
if (%statTG != $null) { _action $nick %statTG Total Gold Stolen => $_nform(%sabTG) }
if (%statSPEAR != $null) { _action $nick %statSPEAR Spear á 5,100 gold => $_nform(%sabSPEAR) }
if (%statLANCE != $null) { _action $nick %statLANCE Lance Bow á 5,100 gold => $_nform(%sabLANCE) }
action $nick ************************
action $nick Total: $_nform($calc(%sabIS + %sabBPM + )) Gold ***********************************************Not to be used????
action $nick ************************
top10sab %fjoms
}
elseif ($1 == !top10) {
;## Read INI to sortwindow********************************************************************************************************
.action $nick ***************************
.action $nick The Families Top Ten Gold Stealers:
.action $nick ***************************
var %t = 1
while (%t <= 10) {
var %lsab = $readini(kocstats.ini,n,TopSABBERS,TopSABS [ $+ [ %t ] ] )
var %lnam = $readini(kocstats.ini,n,TopSABBERS,TopNAME [ $+ [ %t ] ] )
var %lIS = $readini(kocstats.ini,n,TopSABBERS,TopIS [ $+ [ %t ] ] )
var %lBPM = $readini(kocstats.ini,n,TopSABBERS,TopBPM [ $+ [ %t ] ] )
var %lEXCAL = $readini(kocstats.ini,n,TopSABBERS,TopEXCAL [ $+ [ %t ] ] )
var %lFLAM = $readini(kocstats.ini,n,TopSABBERS,TopFLAM [ $+ [ %t ] ] )*********************************************************
if (%lsab != $null) {
.action $nick # $+ %t %lnam -> $_nform(%lsab) Gold
}
inc %t
}
.action $nick ************************
}
elseif ($1 == !DailySabbs) {
;## Read INI to sortwindow
.action $nick *********************************
.action $nick The Firm TOP DAILY SABBERS :
.action $nick *********************************
var %t = 1
while (%t <= Daily) {
var %lsab = $readini(kocstats.ini,n,DAILYSABBERS,DailySABS [ $+ [ %t ] ] )
var %lnam = $readini(kocstats.ini,n,DAILYSABBERS,DailyNAME [ $+ [ %t ] ] )
var %lIS = $readini(kocstats.ini,n,DAILYSABBERS,DailyIS [ $+ [ %t ] ] )
var %lBPM = $readini(kocstats.ini,n,DAILYSABBERS,DailyBPM [ $+ [ %t ] ] )
var %lEXCAL = $readini(kocstats.ini,n,DAILYSABBERS,DailyEXCAL [ $+ [ %t ] ] )
var %lFLAM = $readini(kocstats.ini,n,DAILYSABBERS,DailyFLAM [ $+ [ %t ] ] )
if (%lsab != $null) {
.action $nick # $+ %t %lnam -> $_nform(%lsab) Gold
}
inc %t
}
.action $nick ************************
}
}
******************************************************************************************************************************~~~~
;;;Thunder_CM 21,877,000 Gold stolen 15 8 16 1,188,415 4,558,353
alias proc_bot2 {
;; echo proc 2 triggered
set %stext $1-
if (!A * iswm %stext) {
if ($1 == spies) { tokenize 32 $1- }
elseif ($2 == spies) { tokenize 32 $2- }
set %tnick $2
set %tnpos1 $calc($len(%tnick) - 2)
set %tnick $left(%tnick,%tnpos1)
set %MenK $7
set %MenL $8
set %GoldS $3
if (%tant !isnum) { goto SLUTT }
if (!A isin $1) {
set %MenK $7
set %MenK2 $readini(kocstats.ini,n,%tnick,MK)
writeini -n kocstats.ini %tnick MK $calc(%MenK + %MenK2)
set %MenL3 $readini(kocstats.ini,n,Total,ML)
writeini -n kocstats.ini Total ML $calc(%MenL + %MenL3)
set %GoldS3 $readini(kocstats.ini,n,Total,TG)
writeini -n kocstats.ini Total TG $calc(%GoldS + %GoldS4)
set %gnick $nick $+ _TOTAL
set %GoldS $3
set %GoldS4 $readini(kocstats.ini,n,%gnick,TG)
set %GoldS $calc(%GoldS + %GoldS4)
writeini -n kocstats.ini %gnick TG %GoldS
msg $chan $nick Killed %MenK men, lost %MenL men, and stole %GoldS from %tnick
}
elseif (LANCE isin $1-) {
set %tweap LANCE
set %tant2 $readini(kocstats.ini,n,%tnick,LANCE)
writeini -n kocstats.ini %tnick LANCE $calc(%tant + %tant2)
set %tant3 $readini(kocstats.ini,n,Total,LANCE)
writeini -n kocstats.ini Total LANCE $calc(%tant + %tant3)
set %gnick $nick $+ _TOTAL
set %tant4 $readini(kocstats.ini,n,%gnick,LANCE)
set %ttant $calc(%tant + %tant4)
writeini -n kocstats.ini %gnick LANCE %ttant
msg $chan $nick destroyed %tant %tweap of %tnick
;;if (%target. [ $+ [ %tnick ] $+ ] .BPM != $null) { set %tant2 %target. [ $+ [ %tnick ] $+ ] .BPM }
;;set %target. [ $+ [ $tnick ] $+ ] .BPM $calc(%tant + %tant2)
}
top10sab $nick
;;set %target. [ $+ [ %tnick ] ] %MenK $nick %MenL
;;set %target. [ $+ [ $tnick ] $+ ] .amount %tant
}
:SLUTT
}
alias top10sab {
set %gnick $1 $+ _TOTAL
set %GoldS $readini(kocstats.ini,n,%gnick,TG)
set %statSPEAR $readini(kocstats.ini,n,%gnick,SPEAR)
set %statLANCE $readini(kocstats.ini,n,%gnick,LANCE)
set %GoldS $calc(%GoldS * 1)
set %sabSPEAR $calc(%statSPEAR * 5100)
set %sabLANCE $calc(%statLANCE * 5100)
set %sabTOT $calc(%GoldS)
if (%sabTOT > 0) {
topsabbers $1 %sabTOT %statIS %statBPM %statDARG %statEXCAL %statBATT %statFLAM %statSTEED %statTHOR %statWARG %statGAUNTLET %statDS %statMITHRIL %statCHARIOT %statCLOAK
}
;;if (%GoldS != $null) { _action $nick %GoldS Gold Stolen á 750,000 gold => $_nform(%sabIS) }
;;if (%statBPM != $null) { _action $nick %statBPM Blackpowder Missile á 850,000 gold => $_nform(%sabBPM) }
}
alias topsabbers {
window -c @topsabbers
;;echo 7 -a $1-
var %curname = $1
var %cursab = $2
var %curGoldS = $3
if (%curGoldS == $null) { var %curGoldS = 0 }
var %sabs = $readini(kocstats.ini,n,TopGoldStealers,TopGold10)
if (%sabs == $null) { var %sabs = 0 }
if ((%cursab < %sabs) || (%cursab < 1)) { goto SABEND }
window -ls @topgoldstealers
;## Vindu for å sortere ja
aline @topgoldstealers $_numfix(%cursab) %curname %curGoldS
;## Manipulate numbers for correct sorting
;## Read INI to sortwindow
var %t = 1
while (%t <= 10) {
var %lsab = $readini(kocstats.ini,n,TopSABBERS,TopSABS [ $+ [ %t ] ] )
var %lnam = $readini(kocstats.ini,n,TopSABBERS,TopNAME [ $+ [ %t ] ] )
var %lGoldS = $readini(kocstats.ini,n,TopGoldStealers,TopGoldS [ $+ [ %t ] ] )
if (%lGoldS == $null) { var %lGoldS = 0 }
if ((%lsab != $null) && (%lnam != %curname)) {
aline @topgoldstealers $_numfix(%lGoldS) %lnam %lGold
}
inc %t
}
;## Write sortwindow to INI
var %tr = 11
var %t = 1
while (%tr >= 1) {
var %linje = $line(@topsabbers,%tr)
tokenize 32 %linje
var %lsab = $int($1) | var %lnam = $2 | var %lIS = $3 | var %lBPM = $4
if (%linje != $null) {
writeini -n kocstats.ini TopSABBERS TopNAME [ $+ [ %t ] ] %lnam
writeini -n kocstats.ini TopSABBERS TopSABS [ $+ [ %t ] ] %lsab
writeini -n kocstats.ini TopSABBERS TopGoldS [ $+ [ %t ] ] %lGoldS
inc %t
}
dec %tr
}
:SABEND
window -c @topsabbers
}
;/tokenize <c> <text> Fills the $1 $2 ... $N identifiers with tokens in <text> separated by character <c>, eg.
}