Public Sub YuruXY(x As Single, y As Single)
While KarakterX <> x And KarakterY <> y
LongYaz KO_ADR_CHR + KO_OFF_Go1, 2
FloatYaz KO_ADR_CHR + KO_OFF_GoX, x
FloatYaz KO_ADR_CHR + KO_OFF_GoY, y
LongYaz KO_ADR_CHR + KO_OFF_Go2, 2
WriteLong (ReadLong(KO_PTR_CHR) + KO_OFF_WH), 0
Pause 0.01
Wend
End Sub