set %czas #scnt
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
}
set %jednaczydwie #random % 2
set %minusczyplus #random % 2
set %ktora        #random % 2
set %a #random % 4 + 3
set %b #random % 4 + 3
if %jednaczydwie = 0 && %minusczyplus = 1 && %ktora = 1
{
set %x #charposx + %a
set %y #charposy
move %x %y 1 2
}
if %jednaczydwie = 0 && %minusczyplus = 1 && %ktora = 0
{
set %x #charposx
set %y #charposy + %b
move %x %y 1 2
}
if %jednaczydwie = 0 && %minusczyplus = 0 && %ktora = 1
{
set %x #charposx - %a
set %y #charposy
move %x %y 1 2
}
if %jednaczydwie = 0 && %minusczyplus = 0 && %ktora = 0
{
set %x #charposx
set %y #charposy - %b
move %x %y 1 2
}
if %minusczyplus = 1 && %jednaczydwie = 1
{
set %x #charposx + %a
set %y #charposy + %b
move %x %y 1 2
}
if %minusczyplus = 0 && %jednaczydwie = 1
{
set %x #charposx - %a
set %y #charposy - %b
move %x %y 1 2
}
until #SCNT > %czas + 9