Untitled

on *:INPUT:#: {

  if ($regex($1,[!@.]idm) && $2) {

    $iif($left($1,1) == @,msg $active,echo -at) 7[3DM7] 3 $+ $me $+  slaps 3 $+ $2 $+  with a $3- for 99 HP - 3 $+ $2 $+  HP 4,4.........00KO4.........

    var %item1 $read(pk.txt), %item2 $read(pk.txt), %item3 $read(pk.txt)

    var %price $calc($gettok(%item1,2,32) + $gettok(%item2,2,32) + $gettok(%item3,2,32))

    timer 1 1 /msg # 7[03KO07] 3 $+ $me $+  has received 3[07 $+ $gwcash(%price) $+ 3] loot. 3[ $+ $bank($replace($gettok(%item1,1,32),_,$chr(32))) $+ , $bank($replace($gettok(%item2,1,32),_,$chr(32))) $+ , $bank($replace($gettok(%item3,1,32),_,$chr(32))) $+ 3] 3[Time: 070secs3]

    halt

  }

}

alias gwcash {

  if ($numtok($bytes($1,db),44) isnum 2) { .return $+($replace($left($bytes($1,b),-1),$chr(44),.),K) }

  elseif ($numtok($bytes($1,db),44) isnum 3) { .return $+($replace($left($bytes($1,b),-5),$chr(44),.),M) }

  elseif ($numtok($bytes($1,db),44) isnum 4) { .return $+($replace($left($bytes($1,b),-9),$chr(44),.),B) }

  elseif ($numtok($bytes($1,db),44) >= 5) { .return $+($replace($left($bytes($1,b),-13),$chr(44),.),T) }

  else { return $1 GP }

}

alias bank {

  if ($istok(Elysian spirit shield.Dragon Claws.Saradomin godsword.Bandos Godsword.Armadyl Godsword.Cookies(10).Zamorak Godsword,$1,46)) { return 07 $+ $1 $+  }

  else { return $1 }

}