Авторизация  
gilmour

Кукинг скрипт

В теме 10 сообщений

Дайте скрипт на кукинг.
Ивообще заполните уже скриптами форум.Пустой форум.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
program cookingv058;

var i : integer;

procedure Hungry(NeededLevel : Integer);
var HArray : array [0..10] of String;
CurrentLevel : Integer;
HasError : Boolean;
TimeSayHungry : TDateTime;
FoodID : Cardinal;
i,c,difference : Integer;
begin
findtype($097B,0);
FoodID := FindItem;
if (NeededLevel < 0) or (NeededLevel > 10) then Exit;
HArray[0] := 'You are absolutely stuffed!';
HArray[1] := 'You are stuffed';
HArray[2] := 'hungry at all';
HArray[3] := 'You are a little hungry';
HArray[4] := 'You are somewhat hungry';
HArray[5] := 'You are REALLY hungry';
HArray[6] := 'Your stomash hurts';
HArray[7] := 'Your stomash hurts and you feel dizzy';
HArray[8] := 'You are starving';
HArray[9] := 'You are almost dying of hunger';
HArray[10] := 'You are DYING of hunger...';
HasError := true;
TimeSayHungry := Now;
UOSay('.hungry');
wait(100);
i:=0;
while i < 100 do
begin
for c := 0 to 10 do
if InJournalBetweenTimes(HArray[c],TimeSayHungry,Now) >= 0 then
begin
CurrentLevel := c;
HasError := false;
i := 100;
end;
wait(100);
i := i + 1;
end;
if HasError then
begin
AddToSystemJournal('Error with Hungry: Lag? No connect? Something else?');
Exit;
end;
difference := CurrentLevel - NeededLevel;
if difference > 0 then for i := 1 to difference do
begin
UseObject(FoodID);
wait(2000);
end;
end;


procedure IsCurMessages;
var D : TDateTime;
begin
{5 minutes in DateTime = 5 / 1440 = 0.00347}
D := Now - (0.00347);
InJournalBetweenTimes(CharName + ': I am already performing another action.|I am already doing something else.',D,Now);

if LineCount > 5 then
begin
AddToSystemJournal('Error with target. Disconnected');
Disconnect;
end;

end;




procedure stack(SType : word);
var pID : cardinal;
pC : word;
pQ : integer;

begin
while (findtype(SType,backpack)<>0) do
begin
pID:=finditem;
pQ :=findquantity;
pC :=GetColor(finditem);
if (FindTypeEx(SType, pC, ground, false)<>0) then
begin
if (FindQuantity<60000) then
begin
addtosystemjournal(inttostr(60000-findquantity)+' '+inttostr(pQ)+' '+inttostr(findquantity)+' '+inttostr(finditem)+' '+inttostr(pID))
if (pQ<(60000-FindQuantity)) then MoveItem(pID,0,finditem,0,0,0)
else MoveItem(pID, 60000-FindQuantity, finditem, 0,0,0)
end
else Ignore(finditem);
end
else
begin
MoveItem(pID,0,ground,0,0,0);
end;

wait(1200);
end;

end;





procedure grab_in_backpack(Stype : word);

var pID : Cardinal;

begin
findtype(Stype,backpack);
pID:=finditem;
if findquantity<200 then
begin
if findcount>0 then moveitem(findtype(Stype,ground), 300, pID,0,0,0)
else moveitem (findtype (Stype,ground), 300, backpack,0,0,0);
end;
wait(1200);
end;







begin
IgnoreReset;
SetARStatus(true);
AutoMenu('What do you want to make?','1'); {Сколько фишстейков за раз жариться}

while true do
begin

grab_in_backpack($097A);
Stack($097B);
hungry(1);


for i:=1 to 5 do
begin
findtype($097A,backpack);
Useobject(finditem);
WaitJournalLine(Now,'Darn|You put|You must', 20000);
end;

end;
end. 

Под стелс клиент, жарит на печьке.

 

Поменять какое кол-во рыбы надо жарить и один раз зайти перед стартом скрипта пожарить в ручную, а потом запускать.

А и ещё если память мне не изменяет, чего то с 33-50 жарить не хочет скрипт, на УО пилоте можно за минут 15 это сделать.

Изменено пользователем Bartender

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
20 часов назад, Bartender сказал:

program cookingv058;

var i : integer;

procedure Hungry(NeededLevel : Integer);
var HArray : array [0..10] of String;
CurrentLevel : Integer;
HasError : Boolean;
TimeSayHungry : TDateTime;
FoodID : Cardinal;
i,c,difference : Integer;
begin
findtype($097B,0);
FoodID := FindItem;
if (NeededLevel < 0) or (NeededLevel > 10) then Exit;
HArray[0] := 'You are absolutely stuffed!';
HArray[1] := 'You are stuffed';
HArray[2] := 'hungry at all';
HArray[3] := 'You are a little hungry';
HArray[4] := 'You are somewhat hungry';
HArray[5] := 'You are REALLY hungry';
HArray[6] := 'Your stomash hurts';
HArray[7] := 'Your stomash hurts and you feel dizzy';
HArray[8] := 'You are starving';
HArray[9] := 'You are almost dying of hunger';
HArray[10] := 'You are DYING of hunger...';
HasError := true;
TimeSayHungry := Now;
UOSay('.hungry');
wait(100);
i:=0;
while i < 100 do
begin
for c := 0 to 10 do
if InJournalBetweenTimes(HArray[c],TimeSayHungry,Now) >= 0 then
begin
CurrentLevel := c;
HasError := false;
i := 100;
end;
wait(100);
i := i + 1;
end;
if HasError then
begin
AddToSystemJournal('Error with Hungry: Lag? No connect? Something else?');
Exit;
end;
difference := CurrentLevel - NeededLevel;
if difference > 0 then for i := 1 to difference do
begin
UseObject(FoodID);
wait(2000);
end;
end;


procedure IsCurMessages;
var D : TDateTime;
begin
{5 minutes in DateTime = 5 / 1440 = 0.00347}
D := Now - (0.00347);
InJournalBetweenTimes(CharName + ': I am already performing another action.|I am already doing something else.',D,Now);

if LineCount > 5 then
begin
AddToSystemJournal('Error with target. Disconnected');
Disconnect;
end;

end;




procedure stack(SType : word);
var pID : cardinal;
pC : word;
pQ : integer;

begin
while (findtype(SType,backpack)<>0) do
begin
pID:=finditem;
pQ :=findquantity;
pC :=GetColor(finditem);
if (FindTypeEx(SType, pC, ground, false)<>0) then
begin
if (FindQuantity<60000) then
begin
addtosystemjournal(inttostr(60000-findquantity)+' '+inttostr(pQ)+' '+inttostr(findquantity)+' '+inttostr(finditem)+' '+inttostr(pID))
if (pQ<(60000-FindQuantity)) then MoveItem(pID,0,finditem,0,0,0)
else MoveItem(pID, 60000-FindQuantity, finditem, 0,0,0)
end
else Ignore(finditem);
end
else
begin
MoveItem(pID,0,ground,0,0,0);
end;

wait(1200);
end;

end;





procedure grab_in_backpack(Stype : word);

var pID : Cardinal;

begin
findtype(Stype,backpack);
pID:=finditem;
if findquantity<200 then
begin
if findcount>0 then moveitem(findtype(Stype,ground), 300, pID,0,0,0)
else moveitem (findtype (Stype,ground), 300, backpack,0,0,0);
end;
wait(1200);
end;







begin
IgnoreReset;
SetARStatus(true);
AutoMenu('What do you want to make?','1'); {Сколько фишстейков за раз жариться}

while true do
begin

grab_in_backpack($097A);
Stack($097B);
hungry(1);


for i:=1 to 5 do
begin
findtype($097A,backpack);
Useobject(finditem);
WaitJournalLine(Now,'Darn|You put|You must', 20000);
end;

end;
end. 

Под стелс клиент, жарит на печьке.

 

Поменять какое кол-во рыбы надо жарить и один раз зайти перед стартом скрипта пожарить в ручную, а потом запускать.

А и ещё если память мне не изменяет, чего то с 33-50 жарить не хочет скрипт, на УО пилоте можно за минут 15 это сделать.

Скрипт то рабочий? Проверял?

Честно смущает это "AutoMenu('What do you want to make?','1'); {Сколько фишстейков за раз жариться} "

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Скрипт рабочий 100%, значит тут походу далеко не чисто 95й пол, а с парашей с Зулу.

Поэтому может и не работать.

Вот и отпало желание играть ...

Изменено пользователем Bartender

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
58 минут назад, Bartender сказал:

Скрипт рабочий 100%, значит тут походу далеко не чисто 95й пол, а с парашей с Зулу.

Поэтому может и не работать.

Вот и отпало желание играть ...

а мне кажется удобно переделаны менюшки, не те стандартные где надо перематывать в маленьком окошке.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
6 часов назад, ProKidAshKa сказал:

а мне кажется удобно переделаны менюшки, не те стандартные где надо перематывать в маленьком окошке.

+1

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Мне тоже гораздо больше нравятся эти меню. Все одинаковые на все скиллы. Номера гампов в большинстве случаев остались такими же. В некоторых случаях конечно различия есть.

Но можно и гораздо проще, Я могу ошибаться, но по моему во всех меню гамп "1025" - это кнопка последний сделанный.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
9 минут назад, Arioh сказал:

Мне тоже гораздо больше нравятся эти меню. Все одинаковые на все скиллы. Номера гампов в большинстве случаев остались такими же. В некоторых случаях конечно различия есть.

Но можно и гораздо проще, Я могу ошибаться, но по моему во всех меню гамп "1025" - это кнопка последний сделанный.

Спасибо Алексей, но не моё это )))

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

 

48 минут назад, Arioh сказал:

Мне тоже гораздо больше нравятся эти меню. Все одинаковые на все скиллы. Номера гампов в большинстве случаев остались такими же. В некоторых случаях конечно различия есть.

Но можно и гораздо проще, Я могу ошибаться, но по моему во всех меню гамп "1025" - это кнопка последний сделанный.

1026 отмена

Перебирал с -10 до 10000 ;)

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация