set %posopt 1


loop:
gosub pozycja
gosub ruszsie
gosub zmiana_poz
event sysmessage Miejsce: %posopt
goto loop

sub ruszsie
while #charposx <> %posx || #charposy <> %posy
{
event pathfind %posx %posy
event sysmessage ruszam sie
wait 3s
}
return

sub zmiana_poz
set %posopt %posopt + 1

if %posopt >= 5
{
set %posopt 1
}
event sysmessage Miejsce: %posopt %posx %posy
return


sub pozycja

if %posopt = 1
{
set %posx 2611
set %posy 439
;set %posx 2607
;set %posy 444
}
if %posopt = 2
{
set %posx 2615
set %posy 446
}
if %posopt = 3
{
set %posx 2615
set %posy 440
}
if posopt = 4
{
set %posx 2607
set %posy 444
}
return