set $responder 'Chibs' | set $castPass 'kuklina'

set $gm1 'Kirass' | set $gm2 'jacolos' | set $gm3 'Come Back' | set $gm4 'Saskeczo'

set $kuk 0 | set $itemid 0 | set $tempid 0 | set $scanMax 0 | set $dropCount 0 set $dropCheck 0 | set $startCast 0
auto 1 dontlist | foreach 'newmessages' $mah if [ ($mah.sender ? 'GM' || $mah.sender ? 'BN' || $mah.sender == $gm1 || $mah.sender == $gm2 || $mah.sender == $gm3 || $mah.sender == $gm4 ) && $kuk != 1 && $caveboton ] { set $respGM $mah.sender | pm '$responder' 'sprawdzaja mnie. Komendy: pisanie -> senddef tekst, sendpriv tekst, cave, caveoff, pos, itemscan  poczatkoweID koncoweID, dropitem X Y ID ILOSC | set $kuk 1  }
auto 1 dontlist | foreach 'newmessages' $mah if [ ($mah.sender ? 'BN' || $mah.sender ? 'GM' || $mah.sender == $gm1 || $mah.sender == $gm2 || $mah.sender == $gm3 || $mah.sender == $gm4 ) && $kuk == 1] { pm '$responder' ' !!! $mah.channel !!! $mah.sender : $mah.content' } | if [$kuk == 1 && $mah.sender == $name && ($mah.isprivate || $mah.isdefault) ] { pm '$responder' ' !!! $mah.channel !!! $mah.sender : $mah.content' }
auto 1 dontlist | foreach 'newmessages' $respo if [$respo.sender == '$responder'] { set $resp $respo.content | if [$token.'$resp'.1 == 'sendDef'] { say $cutstr.'$resp'.9 } | if [$resp == 'cave'] { setcavebot on } | if [$resp == 'caveoff'] { setcavebot off } | if [$token.'$resp'.1 == dropitem] { set $dropCheck 1 | set $dropCount $itemcount.$token.'$resp'.4 | dropitemsxyzamount $token.'$resp'.2 $token.'$resp'.3 $posz $token.'$resp'.4 $token.'$resp'.5 } }
auto 1 dontlist | foreach 'newmessages' $respo if [$respo.sender == '$responder'] { if [$resp == 'pos'] { pm '$responder' 'X: $posx Y: $posy } | if [$token.'$resp'.1 == 'itemscan'] { set $itemid $token.'$resp'.2 | set $scanMax $token.'$resp'.3 } | if [$token.'$resp'.1== 'sendpriv'] { pm '$respGM' $cutstr.'$resp'.10 }
auto 1 dontlist | if [$kuk == 1] { wait 60000 | set $kuk 0 }
auto 1 dontlist | if [$itemid != 0 && $itemid < $scanMax] { set $tempid $itemid | inc $itemid } | if [$itemcount.$tempid > 0 && $tempid != 0 && $itemid != $scanMax] { pm '$responder' '$tempid $itemcount.$tempid' | wait 3000 }
auto 1 dontlist | if [$dropCheck == 1] { wait 500 | if [$itemcount.$token.'$resp'.4 == $dropCount] { pm '$responder' 'nie udalo sie rzucic itema' | set $dropcheck 0 } | if [$dropCount > $itemcount.$token.'$resp'.4] { pm '$responder' 'udalo sie rzucic item' | set $dropcheck 0 } }