Page 1 of 1
Напишите скрипт на нарезку бинтов.
Posted: 08.04.2008 19:29
by Che
Я написал скрипт на порезку бинтов, но он определенное время работал потом перестал =( В чем проблема я немогу разобраться помогите!
program Binty;
var
scissors, cloth:cardinal;
begin
scissors:=$79BF03EC
cloth:=$7A440295
while true do begin
useobject(scissors);
WaitForTarget(500);
TargetToObject(cloth);
wait (3000)
end;
End.
Posted: 08.04.2008 20:18
by scf
Ищи ткань не по ИД, а по типу.
Posted: 08.04.2008 20:27
by omi4
надо не ткань искать, а тут читать
http://stealth.od.ua/forum/viewtopic.php?t=16
А работать он не мог изначально, операторы завершать нужно ";"
Posted: 08.04.2008 21:33
by Che
ребята, напишите, у меня наверное не аналитический склад ума. Сделайте пожалуйста скрипт очень надо.
Posted: 08.04.2008 22:09
by scf
Кто же знал, что на столько все тяжело.
Posted: 10.04.2008 23:58
by proZak
Вот вроде робочий скриптик:
Code: Select all
Program cut_bint;
VAR
Tryapki: Cardinal;
BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
UOSay(Chr(39)+'pc net message off');
Wait(500);
UOSay(Chr(39)+'pc net charitem off');
Wait(500);
UOSay(Chr(39)+'pc net worlditem off');
Wait(500);
UOSay(Chr(39)+'pc net speech off');
Wait(500);
UOSay(Chr(39)+'pc net sound off');
Wait(500);
UOSay(Chr(39)+'pc net move off');
Wait(500);
AddToSystemJournal('Макрос готов к работе.');
FindType($0F95, backpack);
while FindQuantity > 0 do
begin
if FindType($0F95, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
FindType($0F95, backpack);
end;
while true do
begin
if FindType($1766, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
end;
END.
Posted: 11.04.2008 11:26
by Che
proZak wrote:Вот вроде робочий скриптик:
Code: Select all
Program cut_bint;
VAR
Tryapki: Cardinal;
BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
UOSay(Chr(39)+'pc net message off');
Wait(500);
UOSay(Chr(39)+'pc net charitem off');
Wait(500);
UOSay(Chr(39)+'pc net worlditem off');
Wait(500);
UOSay(Chr(39)+'pc net speech off');
Wait(500);
UOSay(Chr(39)+'pc net sound off');
Wait(500);
UOSay(Chr(39)+'pc net move off');
Wait(500);
AddToSystemJournal('Макрос готов к работе.');
FindType($0F95, backpack);
while FindQuantity > 0 do
begin
if FindType($0F95, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
FindType($0F95, backpack);
end;
while true do
begin
if FindType($1766, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
end;
END.
Спасибо! А ты же тоже на АоП?
Posted: 12.04.2008 5:11
by proZak
Che wrote:proZak wrote:Вот вроде робочий скриптик:
Code: Select all
Program cut_bint;
VAR
Tryapki: Cardinal;
BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
UOSay(Chr(39)+'pc net message off');
Wait(500);
UOSay(Chr(39)+'pc net charitem off');
Wait(500);
UOSay(Chr(39)+'pc net worlditem off');
Wait(500);
UOSay(Chr(39)+'pc net speech off');
Wait(500);
UOSay(Chr(39)+'pc net sound off');
Wait(500);
UOSay(Chr(39)+'pc net move off');
Wait(500);
AddToSystemJournal('Макрос готов к работе.');
FindType($0F95, backpack);
while FindQuantity > 0 do
begin
if FindType($0F95, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
FindType($0F95, backpack);
end;
while true do
begin
if FindType($1766, backpack) = -1 then useobject(backpack);
Tryapki := finditem;
FindType($0F9E, backpack);
WaitTargetObject(Tryapki);
UseObject(finditem);
Wait(3100);
end;
END.
Спасибо! А ты же тоже на АоП?
Yes=)Age of Power