Guild Allianse

[Alien]

program Tinkering_UP;
//////////////////////////////////////////////////////////////////
// v.3.2.4 © proZak
// qip 584 901 583
// ?????? ? ??? ???? ? ?????? ????.
// ???? ?? ?????????? ???? ????? ????????
//////////////////////////////////////////////////////////////////
Procedure PcCraft;
begin
UOSay(Chr(39)+'pc craft 100');
wait(100*3200);
end;

//////////////////////////////////////////////////////////////////
//???????? ???????
//////////////////////////////////////////////////////////////////
procedure WaitConnection;
begin
if Connected then exit;
while not Connected do wait(100);
wait(3000);
end;

//////////////////////////////////////////////////////////////////
// ??????
//////////////////////////////////////////////////////////////////
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;

//////////////////////////////////////////////////////////////////
// ????????? ??????
//////////////////////////////////////////////////////////////////
Procedure Craft;
begin
if FindType($1EBC, backpack) <> 0 then
begin
if FindType($1BE0, backpack) <> 0 then
begin
if TargetPresent then
begin
AddToSystemJournal('???????? ??????...');
CancelTarget;
end;
Usetype($1EBC,0);
Wait(1000);
If TargetPresent Then TargetToObject(FindType($1BE0,BackPack));
Wait(2000);
end;
end;
AutoMenu ('Tinkering', 'Wooden bowl');
end;

//////////////////////////////////////////////////////////////////
// ????? ? ??????? ?????????
//////////////////////////////////////////////////////////////////
Procedure Scan;
begin
AddToSystemJournal('????');
if InJournal('?? ?????????????? ? ????? ?? ??????????? ???????.') <> -1 then
begin
ClearJournal;
wait(1000);
PcCraft;
end;
if InJournal('? ??? ?? ?????????? ?????????? ???????') <> -1 then
begin
AddToSystemJournal('?? ??????????');
Craft;
end;
end;
//////////////////////////////////////////////////////////////////
// ???????? ????
//////////////////////////////////////////////////////////////////
BEGIN
WaitConnection;
Resend;
UseObject(Backpack);
Wait(2000);
UOSay(Chr(39)+'craftcreate 0');
while true do
begin
If GetSkillValue('Tinkering') < 100.0 then
begin
WaitConnection;
Craft;
Scan;
wait(50);
end
else exit;
end;
END.