Нпц с рандом координатами

[Fizik]

Суть такова, Хочу что бы Time Mashine скрипт генерировал разные координаты каждый раз как его прошли,

GtRoArna,58,58,4    script    Bio Laborotory    121,{
if(#labaCD > gettimetick(2)) {
set @cd, #labaCD - gettimetick(2);
mes "Приходи через "+@cd / 60 +" Минут.";
close;
}
set .npc$,"[^ffa000Lab Master^000000]";
mes .npc$ 
mes "Привет, " + strcharinfo(0) + "! "; 
mes "Помоги мне, но сначало выслушай что я расскажу";
next;
mes .npc$ 
mes "Я создал лабороторию, желая оживить мёртвую ткань!";
mes "Но так получилось что я создал монстров невероятной силы";
next;
mes .npc$
mes "Пытаясь оставить этих чудовищ я создал машину времени...";
mes "Но к сожалению самое сильное творение с помощью слуг овладели машиной";
next;
mes .npc$
mes "Они ещё не овладели ей полностью, но сделали так что";
mes "Войдя туда у тебя есть всего лишь 1 час что бы остановить их и механизм";
next;
mes .npc$
mes "Если не успеть то время повернётся в спять и тебя перенесёт на 1 час назад";
mes "Если ты поможешь мне Я очень щедро вознагражу тебя";
next;
mes .npc$
switch(select("Помочь Старику","Получить Информацию о Мутантах","Уйти")){
next;
Case 1:
mes .npc$
mes "Помни, у тебя всего 1 час, Найди машину и Уничтожь её!";
mes "Удачи!";
next;
set .@charID1,getcharid(0);
set #labaCD, gettimetick(2) + 7200;
enablenpc "Time Mashine";
callfunc "FunctionWarp",.@charID1;
Case 2:
mes .npc$ 
mes "Монстры очень сильные, Расса Монстров Demi-Human, Размер Средний";
next;
mes .npc$ 
mes "Можно выбить: Yggdrasil Berry (100%),Bloody Branch (50%), Gold (100%)";
mes "Gold Coin (20%), Magical Star Dust (5%),Craft Resource ( For all Set ) (1%)";
next;
mes .npc$ 
mes "Embedded Stone Box LvL 1 (1%)";
mes "Советую Заходить туда с Группой"; 
close;

Case 3:
mes .npc$
mes "Удачи";
close;
}
}

function    script    FunctionWarp    {
warp "GtRoLab",21,144;
sleep2 3600000;
disablenpc "Time Mashine";
    if(getmapusers("GtRoLab")) { warpchar "GtRoArna",56,54,getarg(0); }

    end;
}

//Time Mashine
GtRoLab,0,0,0    script    Time Mashine    723,{
if(#mashine > gettimetick(2)) {
set @cd, #mashine - gettimetick(2);
mes "Приходи через "+@cd / 60 +" Минут.";
close;
}
mes "[Time Mashine]";
switch(select("Уничтожить Машину","Уйти")){
next;
Case 1:
progressbar "green",2;
specialeffect2 32;
getitem 31701,20;
getitem 31611,2;
getitem 12103,5;
getitem 671,10;
getexp 50000000,5000000;
set #mashine, gettimetick(2) + 86400;
warp "SavePoint",0,0;
end;

Case 2:
mes "[Time Mashine]";
close;
}
}


У меня при Варпе персонажа срабатывает enablenpc
А я хочу что бы каждые 10 минут нпц time Mashine менял свои координаты, Помогите пожалуйста собрать в кучу скрипт

[Fizik]

Нашёл кое-что, Хотя бы помогите соединить так что бы Нпц Менял координаты просто Каждые 30 минут

GtRoLab,54,206,0    script    Time Mashine    723,{
if(#mashine > gettimetick(2)) {
set @cd, #mashine - gettimetick(2);
mes "Приходи через "+@cd / 60 +" Минут.";
close;
}

mes "[Time Mashine]";
switch(select("Уничтожить Машину","Уйти")){
next;
Case 1:
progressbar "green",2;
specialeffect2 32;
getitem 31701,20;
getitem 31611,2;
getitem 12103,5;
getitem 671,10;
getexp 50000000,5000000;
set #mashine, gettimetick(2) + 86400;
warp "SavePoint",0,0;
end;

Case 2:
mes "[Time Mashine]";
close;
}

while(1) { //Запуск бесконечного цыкла
    set $@jx,rand(0,300); //Рандомный Х кординаты
    set $@jy,rand(0,300); //Рандомный Y кординаты
    if(checkcell("GtRoLab",$@jx,$@jy,cell_chkpass)) break; //Завершает цыкл если возможно ходить по кординатам
    }
movenpc "Time Mashine",$@jx,$@jy; //Перемещает нпц
end;
}