initevents

keyloop:
onHotKey 1  :dlugi lub yumi
gosub 1
onHotKey 2 ;krotki
gosub 2
goto keyloop

sub 1
finditem SPO_GBP_WER_LMH_LMH C;
set #lobjectid #findid
event macro 17 1
return

sub 2
finditem WOH_RPO_VER C;
set #lobjectid #findid
event macro 17 1
return