All pastes #943655 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-15 13:33 UTC
rendered paste body
on 1:TEXT:*ago*Gold stolen*details*:#: {
  if ($read(logs.txt,w,* $+ $1-*)) {
    notice $nick Error Log Already Exists!
  }
  else { 
    if ($5 == (not && $6 == active)) {

      %name = $remove($4,$chr(9))
      %wdms = $remove($2,$chr(9))
      %gold = $remove($7,$chr(44))
      %enemyloss = $remove($remove($10,$chr(9)),$chr(44))
      %yourloss = $remove($remove($11,$chr(9)),$chr(44))
      %da = $remove($remove($12,$chr(9)),$chr(44))
      %sa = $remove($remove($13,$chr(9)),$chr(44))
      %eg1 = $gettok($read(lgold.txt,s,%name),2,32)
      %eg2 = $gettok($read(lkill.txt,s,%name),2,32)
      %eg3 = $gettok($read(lloss.txt,s,%name),2,32)
      %enew = $calc(%gold + %eg1)
      %enew1 = $calc(%yourloss + %eg2)
      %enew2 = $calc(%enemyloss + %eg3)
      /write -s %name lgold.txt %name %enew
      write -s %name lkill.txt %name %enew1
      write -s %name lloss.txt %name %enew2
      %cg = $gettok($read(gold.txt,s,$nick),2,32)
      %cl = $gettok($read(lost.txt,s,$nick),2,32)
      %ck = $gettok($read(kill.txt,s,$nick),2,32)
      %ng = $calc($gettok($read(gold.txt,s,$nick),2,32) + %gold)
      %nl = $calc(%cl + %yourloss)
      %nk = $calc(%ck + %enemyloss)
      echo -a %ng
      echo -a %nl
      echo -a %nk 
      write -s $nick gold.txt $nick %ng
      write -s $nick loss.txt $nick %nl
      write -s $nick kill.txt $nick %nk
      msg $chan $nick Stole $bytes(%gold,b) gold from %name killed: $bytes(%enemyloss,b) and lost: $bytes(%yourloss,b)


    }





    else {
      %name = $remove($4,$chr(9))
      %wdms = $remove($2,$chr(9))
      %gold = $remove($5,$chr(44))
      %enemyloss = $remove($remove($8,$chr(9)),$chr(44))
      %yourloss = $remove($remove($9,$chr(9)),$chr(44))
      %da = $remove($remove($10,$chr(9)),$chr(44))
      %sa = $remove($remove($11,$chr(9)),$chr(44))
      %eg1 = $gettok($read(lgold.txt,s,%name),2,32)
      %eg2 = $gettok($read(lkill.txt,s,%name),2,32)
      %eg3 = $gettok($read(lloss.txt,s,%name),2,32)
      %enew = $calc(%gold + %eg1)
      %enew1 = $calc(%yourloss + %eg2)
      %enew2 = $calc(%enemyloss + %eg3)
      /write -s %name lgold.txt %name %enew
      write -s %name lkill.txt %name %enew1
      write -s %name lloss.txt %name %enew2
      %cg = $gettok($read(gold.txt,s,$nick),2,32)
      %cl = $gettok($read(lost.txt,s,$nick),2,32)
      %ck = $gettok($read(kill.txt,s,$nick),2,32)
      %ng = $calc(%cg + %gold)
      %nl = $calc(%cl + %yourloss)
      %nk = $calc(%ck + %enemyloss)
      echo -a %ng
      echo -a %nl
      echo -a %nk 
      write -s $nick gold.txt $nick %ng
      write -s $nick loss.txt $nick %nl
      write -s $nick kill.txt $nick %nk
      msg $chan $nick Stole $bytes(%gold,b) gold from %name killed: $bytes(%enemyloss,b) and lost: $bytes(%yourloss,b)


    }

  }
}