Stealth Client Forum

Program Carpentry;

///by Igor Boldysh.
var

tong, tinkertool,ingot : Integer;
boxMaterial, item: Cardinal;
first,second:string;


procedure Init;


Begin

SetPauseScriptOnDisconnectStatus(true);
Finddistance := 3;



boxMaterial :=$40C5BA1A;
tong:=$0FBB;
tinkertool:=$1eb8;
ingot:=$1bf2 ;
item:=$0;


end;

procedure checkSkill;
//30.0 - 45.0 Mace
//45.0 - 50.0 Maul
//50.0 - 55.0 Cutlass
//55.0 - 59.5 Katana
//59.5 - 70.5 Spear
//70.5 - 106.4 Platemail Gorget
//106.4 - 108.9 Platemail Gloves
//108.9 - 116.3 Platemail Arms
//116.3 - 118.8 Platemail Legs
//118.8 - 120.0 Platemail Tunics

begin
if ((GetSkillValue('Blacksmithing')>=30) and(GetSkillValue('Blacksmithing')<45))then
begin
first := '9007';
second := '77';
item := $0F5C; //30.0-45.0: Mace 9007/77
exit;
end;
if ((GetSkillValue('Blacksmithing')>=45) and(GetSkillValue('Blacksmithing')<50))then
begin
first := '9007';
second := '78';
item := $143B; //45.0-50.0: Maul 9007/78
exit;
end;
if ((GetSkillValue('Blacksmithing')>=50) and(GetSkillValue('Blacksmithing')<55))then
begin
first := '9004';
second := '44';
item := $1441; //50.0-55.0: Cutlass 9004/44
exit;
end;
if ((GetSkillValue('Blacksmithing')>=55) and(GetSkillValue('Blacksmithing')<59.5))then
begin
first := '9004';
second := '46';
item := $13FF; //55.0-59.5: Katana 9004/46
exit;
end;
if ((GetSkillValue('Blacksmithing')>=59.5) and(GetSkillValue('Blacksmithing')<70.5))then
begin
first := '9006';
second := '74';
item := $0F62; //59.5-70.5: Spear 9006/74
exit;
end;
if ((GetSkillValue('Blacksmithing')>=70.5) and(GetSkillValue('Blacksmithing')<106.4))then
begin
first := '9001';
second := '10';
item :=$1413;
exit; //70.5 - 106.4 Platemail Gorget 9001/10
end;
if ((GetSkillValue('Blacksmithing')>=106.4) and(GetSkillValue('Blacksmithing')<108.9))then
begin
first := '9001';
second := '9';
item :=$1414;
exit; //106.4 - 108.9 Platemail Gloves 9001/9
end;
if ((GetSkillValue('Blacksmithing')>=108.9) and(GetSkillValue('Blacksmithing')<116.3))then
begin
first := '9001';
second := '8';
item :=$1410;
exit; //108.9 - 116.3 Platemail Arms 9001/8
end;
if ((GetSkillValue('Blacksmithing')>=116.3) and(GetSkillValue('Blacksmithing')<118.8))then
begin
first := '9001';
second := '11';
item :=$1411;
exit; //116.3 - 118.8 Platemail Legs 9001/11
end;
if ((GetSkillValue('Blacksmithing')>=118.8) and(GetSkillValue('Blacksmithing')<120.0))then
begin
first := '9001';
second := '12';
item :=$1415;
exit; //118.8 - 120.0 Platemail Tunics 9001/12
end;
end;


procedure check;
begin
if (count(ingot) < 30)then
begin
UseObject( boxMaterial );
wait(500);
grab(FindTypeEx(ingot,$0000,boxMaterial,true),1000); //Количество ингов в пак для крафта
wait(1000)
end;
end;

procedure craftTools(typetool , typeitem : Integer ; first, second : String);
begin

if (count(typeitem) < 2) then
begin
while (count(typeitem) < 5 )do
begin
check;

UseObject(FindType(typetool,backpack));
UseObject(backpack);
WaitGump(first);
wait(500);
WaitGump(second);
end;
end;
end;



procedure craft(tool: word);
begin
checkSkill;
if (FindType(tool,backpack)<>0)then
begin
UseObject(FindType(tool,backpack));
wait(500);

WaitGump(first);
wait(200);
WaitGump(second);
wait(1000);
end
else UseObject(backpack);
check;
end;

procedure smeltItems;
begin
if (CountEx (item,$FFFF,backpack) > 0)then
begin
UseObject(FindType(tong,backpack));
wait(1000);
NumGumpButton(GetGumpsCount-1,7000);
WaitForTarget(1000);
TargetToObject(FindType(item,backpack));
wait(500);
//AddToSystemJournal('Smelt');
end;
end;

Begin
init;
UseObject(backpack);
wait(500);
UseObject( boxMaterial );
wait(500);
while (GetSkillValue('Blacksmithing')<GetSkillCap('Blacksmithing')) do
begin
craft(tong);
craftTools(tinkertool,tinkertool,'9003', '11');
craftTools(tinkertool,tong,'9003', '20');
smeltItems;

end;
End.