Stuff

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),$chr(9))
      %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)
      %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)
      if ($read(kill.txt)) { /write $+(-l,$readn) $nick %nk }      
      if ($read(loss.txt)) { /write $+(-l,$readn) $nick %nl }      
      if ($read(gold.txt)) { /write $+(-l,$readn) $nick %ng }      
      if ($read(lkill.txt)) { /write $+(-l,$readn) %name %enew}      
        if ($read(lloss.txt)) { /write $+(-l,$readn) %name %enew1 }      
        if ($read(lgold.txt)) { /write $+(-l,$readn) %name %enew2 }      

        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),$chr(9))
        %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)
        %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 
        msg $chan $nick Stole $bytes(%gold,b) gold from %name killed: $bytes(%enemyloss,b) and lost: $bytes(%yourloss,b)
        if ($read(kill.txt)) { /write $+(-l,$readn) $nick %nk }      
        if ($read(loss.txt)) { /write $+(-l,$readn) $nick %nl }      
        if ($read(gold.txt)) { /write $+(-l,$readn) $nick %ng }      
        if ($read(lkill.txt)) { /write $+(-l,$readn) %name %enew}      
          if ($read(lloss.txt)) { /write $+(-l,$readn) %name %enew1 }      
          if ($read(lgold.txt)) { /write $+(-l,$readn) %name %enew2 }      


        }

      }
    }