bolshak25
2012-05-05 16:17:13
Function SetXPBar(Bar,Skill:Integer):Boolean;
var
DTM,x,y:Integer;
DTMBox,CounterBox,SkillBox:TBox;
begin
Result:=False;
ToggleXPBar(True);
case Bar of
1:
begin
DTMBox.X1:= 490;
DTMBox.Y1:= 0;
DTMBox.X2:= 512;
DTMBox.Y2:= 25;
CounterBox.X1:= 240;
CounterBox.Y1:= 24;
CounterBox.X2:= 290
CounterBox.Y2:= 30;
end;
2:
begin
DTMBox.X1:= 490;
DTMBox.Y1:= 25;
DTMBox.X2:= 512;
DTMBox.Y2:= 50;
CounterBox.X1:= 340;
CounterBox.Y1:= 24;
CounterBox.X2:= 390;
CounterBox.Y2:= 30;
end;
3:
begin
DTMBox.X1:= 490;
DTMBox.Y1:= 50;
DTMBox.X2:= 512;
DTMBox.Y2:= 75;
CounterBox.X1:= 440;
CounterBox.Y1:= 24;
CounterBox.X2:= 490;
CounterBox.Y2:= 30;
end;
end;
case Skill of
Skill_Attack :
begin
DTM := DTMFromString('mQwAAAHicY2ZgYPjKyMDwFoh/A7E6kK8PxApA/PPbWYa2OHWGH1/PMPAD+TDMiISBAACiVQoK');
SkillBox.X1:= 235;
SkillBox.Y1:= 80;
SkillBox.X2:= 259;
SkillBox.Y2:= 104;
end;
Skill_Strength :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjEyMDwmxFCfwdiR6CYNRBbArEbEB8s8mE43RTCcLo3k6Hax4KBHyiGjBnRMAgAAH7TCvo=');
SkillBox.X1:= 265;
SkillBox.Y1:= 80;
SkillBox.X2:= 289;
SkillBox.Y2:= 104;
end;
Skill_Defence :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjCyMDwAYh/QjGILQAUF4ZiHihuqCljiImLB+PWji4w5geKo2NGLBgMAHFFDEE=');
SkillBox.X1:= 295;
SkillBox.Y1:= 80;
SkillBox.X2:= 319;
SkillBox.Y2:= 104;
end;
Skill_Range :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjDyMDwFoj/AfEXIFYGiikCsREQawHxytPXGAwMjRlyk3wYshM9GfiBYsiYEQ2DAABHPwnS');
SkillBox.X1:= 325;
SkillBox.Y1:= 80;
SkillBox.X2:= 349;
SkillBox.Y2:= 104;
end;
Skill_Prayer :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjCyMDwAYi/AvEvRghfkwGCVaG0HhD/+fOT4dCNpwyHXv1kWH3lNcPUE88Y+IHi6JgRCwYDAOwvErI=');
SkillBox.X1:= 415;
SkillBox.Y1:= 80;
SkillBox.X2:= 439;
SkillBox.Y2:= 104;
end;
Skill_Magic :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjKCMEfgPgXEDsBxayB2B2I3YBYRN2LQc2tgSGt3IpBVlKcgR8ohowZ0TAIAAD1CAf8');
SkillBox.X1:= 355;
SkillBox.Y1:= 80;
SkillBox.X2:= 379;
SkillBox.Y2:= 104;
end;
Skill_RuneCrafting :
begin
DTM := DTMFromString('mQwAAAHicY2ZgYPjMyMDwHYg/ALEAkM8DxKJA/GdzHMOfn68ZqkpSGPiBfBhmRMJAAACPOQmB');
SkillBox.X1:= 235;
SkillBox.Y1:= 140;
SkillBox.X2:= 259;
SkillBox.Y2:= 164;
end;
Skill_Construction :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjCyMDwFYjfAPFvINYBiqkDsS4Q6wPxhVUVDH/+/gHjvGBDBn6gGDJmRMMgAADwoQ2W');
SkillBox.X1:= 325;
SkillBox.Y1:= 140;
SkillBox.X2:= 349;
SkillBox.Y2:= 164;
end;
Skill_Dungeoneering :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjGyMDwEYj/APEbIHYCirkBsSsQ2wFxBjMDw+I8ZYafAdwMf/+eYOAHiiFjRjQMAgBo2ArY');
SkillBox.X1:= 415;
SkillBox.Y1:= 140;
SkillBox.X2:= 439;
SkillBox.Y2:= 164;
end;
Skill_Hitpoints :
begin
DTM := DTMFromString('mQwAAAHicY2ZgYPjCyMDwDoh/AbEgkM8DxLxA/NrQkGF/bi4Y8wP5MMyIhIEAAE9jB7w=');
SkillBox.X1:= 385;
SkillBox.Y1:= 80;
SkillBox.X2:= 409;
SkillBox.Y2:= 104;
end;
Skill_Agility :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjCyMDwHYg/AvFPIHYAilkCsTsQuwLxsXZLhh5fZYbby5QYjlaKMvADxZAxIxoGAQBsdQqb');
SkillBox.X1:= 445;
SkillBox.Y1:= 80;
SkillBox.X2:= 469;
SkillBox.Y2:= 104;
end;
Skill_Herblore :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjCyMDwFog/A/FvIBZhgGAeKG2SKMEQO1eRoeCiDBjzA8WQMSMaBgEAC9wI4g==');
SkillBox.X1:= 475
SkillBox.Y1:= 80;
SkillBox.X2:= 499
SkillBox.Y2:= 104;
end;
Skill_Thieving :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjKyMDwHoj/APFPIH4HxJpAcVUgVgFiLSi+fv0Cw58/Pxk+fnjH4O/vz+Dv58/ADxRHx4xYMBgAAGR0D/8=');
SkillBox.X1:= 235;
SkillBox.Y1:= 110;
SkillBox.X2:= 259;
SkillBox.Y2:= 134;
end;
Skill_Crafting :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjEyMDwFop/QbETUNwWiD2htAcQJ7spMphIijO0xakzNNSUMbz+9YeBHyiOjhmxYDAAAJpzDPQ=');
SkillBox.X1:= 265;
SkillBox.Y1:= 110;
SkillBox.X2:= 289;
SkillBox.Y2:= 134;
end;
Skill_Fletching :
begin
DTM := DTMFromString('mWAAAAHicY2FgYHjHyMDwC4g/APFvIBYGirEBsSQQ8wJxhZ4Zw66d2ximz5vNYJRymoEfKIaMGdEwCAAAWFUKkQ==');
SkillBox.X1:= 295;
SkillBox.Y1:= 110;
SkillBox.X2:= 319;
SkillBox.Y2:= 134;
end;
Skill_Slayer :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjIyMDwHoi/Q7E+UEwTiFWA2BCIz+5YwPDj3jGGP3//MMxrL2bgB4ohY0Y0DAIAAqkOEg==');
SkillBox.X1:= 265;
SkillBox.Y1:= 140;
SkillBox.X2:= 289;
SkillBox.Y2:= 164;
end;
Skill_Hunter :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjKyMDwEYh/APEfIH4HxK5AcTsgtgViRyj2VOBn2FJmyTA7zZTh1+mFDO0xRgz8QHF0zIgFgwEAp/4M8Q==');
SkillBox.X1:= 355;
SkillBox.Y1:= 140;
SkillBox.X2:= 379;
SkillBox.Y2:= 164;
end;
Skill_Mining :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjIyMDwFoh/AfEXIP4HxEJAcXEg5gZiNiDmB+LV+dYMp5qCGdZu2cHw589PhuNnzoLF0TEjFgwGAC32D8w=');
SkillBox.X1:= 325;
SkillBox.Y1:= 110;
SkillBox.X2:= 349;
SkillBox.Y2:= 134;
end;
Skill_Smithing :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjEyMDwDoi/AfF7IP4KxFpAcVUo1oPipr7pDI4ubmCcmZXDUFBcysAPFEfHjFgwGAAAX1ILuQ==');
SkillBox.X1:= 355;
SkillBox.Y1:= 110;
SkillBox.X2:= 379;
SkillBox.Y2:= 134;
end;
Skill_Fishing :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjCyMDwB4jfAfFbIPYAirkAsRsQ24FweTuDtIY5g7FLLINOWCoDP1AMGTOiYRAAAA/hCJU=');
SkillBox.X1:= 385;
SkillBox.Y1:= 110;
SkillBox.X2:= 409;
SkillBox.Y2:= 134;
end;
Skill_Cooking :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjCCMFvgfg3EH8CYiGgOBcQC0KxKBDXZwcz/GqwYmhoaGSQlRRnyE/2Y+AHiqNjRiwYDABGXgtP');
SkillBox.X1:= 415;
SkillBox.Y1:= 110;
SkillBox.X2:= 439;
SkillBox.Y2:= 134;
end;
Skill_FireMaking :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjGyMDwCYh/AvFHKK0NFFeFYgMo/vF8I8MHMz6GeX4qDKvzrRlW99Yw8APF0TEjFgwGAOFRDdg=');
SkillBox.X1:= 445;
SkillBox.Y1:= 110;
SkillBox.X2:= 469;
SkillBox.Y2:= 134;
end;
Skill_WoodCutting :
begin
DTM := DTMFromString('mggAAAHicY2NgYPjCyMDwHoh/AfFHIP4GxL+B2AUoZwvENkDsBcTeMKwpx2DRwMxgXa3PUOquxNAdY8OQ7KbIwA+Uw4YZcWAIAACPRwzG');
SkillBox.X1:= 475;
SkillBox.Y1:= 110;
SkillBox.X2:= 499;
SkillBox.Y2:= 134;
end;
Skill_Farming :
begin
DTM := DTMFromString('mWAAAAHicY2FgYPjGyMDwBYh/AvE7IBYBivEDMQ8QCwDxn79/GKKjohhMTAwZps6YA5ZDxoxoGAQAa10Kvw==');
SkillBox.X1:= 295;
SkillBox.Y1:= 140;
SkillBox.X2:= 319;
SkillBox.Y2:= 164;
end;
Skill_Summoning :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjMyMDwA4jfQTGIrQMUVwVibSBWBmI9IDawcWS48OEHQ2bzBIaZBy4xFK45wcAPFEfHjFgwGAAABhIO2A==');
SkillBox.X1:= 385;
SkillBox.Y1:= 140;
SkillBox.X2:= 409;
SkillBox.Y2:= 164;
end;
SKILL_ALLCOMBAT :
begin
DTM := DTMFromString('mbQAAAHicY2VgYPjKyMDwG4jfAfF7IP4JxPZAcSsgtgBiFyB2BeI7Nx8yXLp4kuHnn18M77tEGP5e8GbgB4qjY0YsGAwAztIR8Q==');
SkillBox.X1:= 445;
SkillBox.Y1:= 140;
SkillBox.X2:= 469;
SkillBox.Y2:= 164;
end;
SKILL_EVERYSKILL :
begin
DTM := DTMFromString('mQwAAAHicY2ZgYPjGyMDwDoj/ALEQkC8AxKJAHDQxlmGHkxODacBiBn4gH4YZkTAQAAA1rwby');
SkillBox.X1:= 475;
SkillBox.Y1:= 140;
SkillBox.X2:= 499;
SkillBox.Y2:= 164;
end;
end;
If not FindDTM(DTM,x,y,DTMBox.X1,DTMBox.Y1,DTMBox.X2,DTMBox.Y2) then
begin
Mouse(532,63,6,6,mouse_Right); //Click Setup
Wait(1000+Random(500));
ChooseOption('tup'); //Click Setup
Wait(1000+Random(500));
MouseBox(CounterBox.X1,CounterBox.Y1,CounterBox.X2,CounterBox.Y2,mouse_Left); //Click Counter
Wait(1000+Random(500));
MouseBox(SkillBox.X1,SkillBox.Y1,SkillBox.X2,SkillBox.Y2,mouse_Left); //Click Skill
Wait(1000+Random(500));
MouseBox(315,150,335,160,mouse_Left);//Click Yes
Wait(1000+Random(500));
Mouse(503,13,4,4,Mouse_left); //exit
end;
FreeDTM(DTM);
Result :=True;
end; Wrote it up because its very useful for anyone who counts xo via the xp bars(like me).