Kingofptw
03-22-2007, 09:40 PM
But would this firerunecrafter still work without scarscape?
program FireRuneCrafter;
{.include RSCI.txt}
/////////////////////////////
///F?r? R??? ?r?ft?r v1.5////
/////By ShadowSyntax////////
////////////////////////////
//Setup: //
//1.Login to ScarScape. //
//2.Wield fire tiara. //
//3.Setup on line 27. //
//4.Start in duel arena //
// bank. //
//5.Silent Mouse off. //
//6.Start holding a full //
// load of rune ess. //
//7.Rune ess in first //
// bank slot. //
/////////////////////////////////////////////////////////////////////
//Notes: //
//1. Learn from my code, don't steal from it //
//2. This script is FREE! //
//3. Email cheeseballs@hotpop.com with any bugs //
//4. Testers: ShadowSyntax, EViDENCE //
/////////////////////////////////////////////////////////////////////
//SETUP: //
const //
ess = 1620; //How much rune ess in your bank //
/////////////////////////////////////////////////////////////////////
//Version Info: //
//v1.0 - Basic script is written //
//v1.1 - Info added to script, and a heap of bugs have been fixed //
//v1.2 - Random mouse movements added, fixed a runecrafting bug //
//v1.3 - Fixed all known bugs. //
//v1.3b - Fixed Altar Bug //
//v1.3.1 - Various little things fixed //
//v1.4 - Fixed a bunch of wait times and fixed banking proc //
//v1.5 - New RuneCrafting method, Status Report improved //
/////////////////////////////////////////////////////////////////////
//RSCI Download: www.runesc.net/RSCI.zip //
//RuneRS Forums: www.RuneRS.org //
/////////////////////////////////////////////////////////////////////
var
essno,sst,wst,wet,tih,tim,tis,awt,srt,cst,tripno,c losedbmp,bankbmp:integer;
allbmp,Walkto1,Walkto2,Walkto3,Walkto4,gate,portal ,Walkback1,loc1,loc2:integer;
thepath,splitpath,randommouse,essused,averagetrips ,strtlvl,curlvl:integer;
procedure LoadCrap;
begin
Walkto1 := DTMFromString('78DA634C6662604866400106E2109A11CA6 78' +
'CC354B3A4270E554D0A504D02AA9A1D73B350D40000245805 EC');
Walkto2 := DTMFromString('78DA634C646260706240018CA6501AC68FC 35' +
'4F3E4C9135435F140350EA86AF62DCA455103003C9C069E') ;
Walkto3 := DTMFromString('78DA630C6162604863400106E2109A11CA6 70' +
'CC354F3E4C9134C35C9449843400D002009067A');
Walkto4 := DTMFromString('78DA632C64626090664001A26C109A11CA6 7C' +
'C05AA914755A31E248AAAA604A8468A8039654035B2A86AF6 2DCA' +
'45510300265A04DB');
gate := DTMFromString('78DA63AC636260886440014FA034238CAEC 55' +
'453981D85AAA61E53CD929E384C3521A86A76CCCD42510300 6C8E' +
'08D0');
portal := DTMFromString('78DA63AC616260706640012F9A0CC134239 4C' +
'F588EA9C6525E08554D03508D13AA1A334549543520BBEC08 9803' +
'52E38EDF3D0017940847');
Walkback1 := DTMFromString('78DA638C6162605060400196DC109A11CA6 74' +
'C04AA9127A0260CA84615554D5EAE0C8A1A009DE60303');
bankbmp := BitmapFromString(17, 7, 'z78DA33753135313137A50BE98' +
'617D0C2160324405DBB306DC12F3E546CC104C861488C2E6A C50B' +
'A9EA01DEA7A43E');
allbmp := BitmapFromString(18, 6, 'z78DA33753135313137C520DD30' +
'8029112A8911C7A5C6000CF0EBC2548F5F1C972C2EBDB4B08 B123' +
'389370D3FA0AE5D06188072BB00441399F7');
closedbmp := BitmapFromString(13, 11, 'z78DA337531353131371D22' +
'A481811B102093F8D510670E0460D785A99290390835D8444 8338' +
'D94D018358D3AA6E14A45A4A610005EB3BDBD');
end;
procedure mouserandom;
begin
randommouse := random(8);
if (randommouse>=5)then
begin
MMouse(10+random(700),9+random(450),0,0);
wait(200+random(400));
end;
if (randommouse=1)then
begin
GameTab(random(7)+1);
wait(200+random(1400));
MMouse(10+random(700),9+random(450),0,0);
wait(200+random(1400));
GameTab(4);
end;
end;
procedure report;
begin
tripno:= tripno +1;
essno:= essno +28;
curlvl:=GetStatFor('rc',1);
essused:= essused +28;
ClearReport;
AddToReport('? Fire Rune Crafter By Shadow Syntax ?');
AddToReport('? Progress Report ?');
AddtoReport('?'+inttostr(essno) + ' Rune Essence Used ?');
AddtoReport('?'+inttostr(tripno) + ' Trips Done ?');
AddtoReport('?'+inttostr(curlvl-strtlvl) + ' Levels Gained ?');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
averagetrips:=(60*60)/(tih*60*60 + tim*60)*tripno;
AddToReport('? Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds ?');
AddToReport('? Doing '+inttostr(averagetrips)+' Trips per Hour ?');
end;
procedure bank;
begin
writeln(' ')
writeln('? Banking ?')
writeln(' ')
Status('Banking...');
Mouse(262+random(5),122+random(5),0,0,false);
if(findbitmapin(closedbmp,loc1,loc2,0,0,746,532))t hen
begin
Mouse(loc1+5+random(2),loc2+2+random(2),0,0,true);
wait(3200+random(500));
flag;
mouserandom;
Mouse(224+random(10),157+random(10),0,0,false);
end;
if(findbitmapin(bankbmp,loc1,loc2,0,0,746,532))the n
begin
Mouse(loc1+random(5)+2,loc2+random(2)+2,0,0,true);
wait(3200+random(500));
mouserandom;
repeat
wait(200+random(1000));
until(getcolor(213,43)=2070783);
Mouse(573+random(5),221+random(2),0,0,false);
if(findbitmapin(allbmp,loc1,loc2,0,0,746,532))then
begin
Mouse(loc1+random(2),loc2+random(2),0,0,true);
wait(1000+random(1000));
Mouse(86+random(5),70+random(5),0,0,false);
if(findbitmapin(allbmp,loc1,loc2,0,0,746,532))then
Mouse(loc1+random(2),loc2+random(2),0,0,true);
wait(1000+random(1000));
mouserandom;
Mouse(424+random(2),40+random(5),0,0,true);
wait(1000+random(1000));
report;
end;
end;
end;
procedure craftrunes;
begin
writeln(' ')
writeln('? Crafting Runes ?')
writeln(' ')
Status('Crafting Runes...');
splitpath := random(2);
if(splitpath = 0)then
begin
Mouse(697-random(2),119-random(2),0,0,true);
Flag;
wait(200+random(500));
mouserandom;
Mouse(149+random(30),255+random(30),0,0,true);
Flag;
mouserandom;
wait(5200+random(2000));
if(FindDTM(portal,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+6,loc2+random(2),0,0,true);
mouserandom;
Flag;
wait(1200+random(500));
end;
Mouse(215+random(5),170+random(5),0,0,true);
Flag;
mouserandom;
wait(2200+random(500));
end;
if(splitpath = 1)then
begin
Mouse(661+random(4),122+random(4),0,0,true);
Flag;
wait(200+random(500));
Mouse(455+random(7),172+random(12),0,0,true);
Flag;
wait(5200+random(2000));
if(FindDTM(portal,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+6,loc2+2,0,0,true);
Flag;
wait(1200+random(500));
end;
Mouse(215+random(5),170+random(5),0,0,true);
Flag;
wait(2200+random(500));
end;
end;
procedure walkto;
begin
if(FindDTM(Walkto1,loc1,loc2,0,0,759,520))then
writeln(' ')
writeln('? Walking To Altar ?')
writeln(' ')
Status('Walking to Alter...');
begin
if(thepath = 0)then
begin
Mouse(loc1-random(4)-6,loc2-random(4)-6,0,0,true);
Flag;
wait(random(500));
Mouse(586+random(8),88+random(2),0,0,true);
Flag;
mouserandom;
wait(random(500));
if(FindDTM(Walkto2,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1-random(2)-18,loc2+10+random(3),0,0,true);
Flag;
wait(random(500));
if(FindDTM(Walkto3,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+random(2)-5,loc2+random(2)-2,0,0,true);
Flag;
wait(200+random(500));
mouserandom;
Mouse(635+random(2),154+random(2),0,0,true);
Flag;
wait(200+random(500));
mouserandom;
Mouse(613+random(5),121+random(5),0,0,true);
Flag;
wait(200+random(500));
if(FindDTM(gate,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+2,loc2,0,0,true);
Flag;
mouserandom;
wait(200+random(500));
Mouse(238+random(2),163+random(30),0,0,true);
Flag;
mouserandom;
wait(200+random(500));
if(FindDTM(Walkto4,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+random(3)+5,loc2+random(3),0,0,true);
Flag;
wait(200+random(500));
Mouse(414+random(10),31+random(10),0,0,true);
Flag;
mouserandom;
wait(2200+random(500));
Mouse(313+random(30),27+random(30),0,0,true);
Flag;
mouserandom;
wait(200+random(500));
end;
end;
end;
end;
end;
end;
end;
procedure walkback;
begin
if(thepath = 0)then
writeln(' ')
writeln('? Going To Duel Arena Bank ?')
writeln(' ')
Status('Going to Duel Arena Bank...');
begin
Mouse(632+random(11),111+random(30),0,0,true);
Flag;
mouserandom;
wait(200+random(500));
if(FindDTM(gate,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1-2,loc2+1,0,0,true);
Flag;
mouserandom;
wait(1500+random(1000));
Mouse(284,169+random(5),0,0,true);
Flag;
wait(200+random(500));
Mouse(694+random(3),63+random(3),0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
Mouse(656,23+random(3),0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
if(FindDTM(Walkto3,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+40+random(3),loc2-11+random(3),0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
if(FindDTM(Walkto2,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+random(3)+15,loc2+random(3)+15,0,0,true );
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
Mouse(700+random(5),75+random(6),0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
if(FindDTM(Walkto1,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+random(5)+10,loc2-random(2)-5,0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
if(FindDTM(Walkto1,loc1,loc2,0,0,759,520))then
begin
Mouse(loc1+39,loc2-24,0,0,true);
wait(1000);
mouserandom;
Flag;
wait(200+random(500));
end;
end;
end;
end;
end;
end;
end;
begin
LoadInclude('XXX Explorer: Relive your fantasys today!');
wait(2000);
LoadCrap;
essno:=28;
essused:=0;
sst:=GetSystemTime;
strtlvl:=GetStatFor('rc',1);
tripno:=0
writeln(' ');
writeln('? Fire Rune Crafter By ShadowSyntax Started ?');
writeln(' ');
repeat
begin
Run(true);
GameTab(4);
thepath := random(1);
walkto;
Run(false);
GameTab(4);
craftrunes;
Run(true);
GameTab(4);
thepath := random(1);
walkback;
bank;
end;
until(essused>ess);
writeln(' ');
writeln('? Fire Rune Crafter By ShadowSyntax Ended ?');
writeln('? Remember to check RuneRS for updates ^_^ ?');
writeln(' ');
end.
Or you got any alternate to propose me,i think personally that Jrs air crafter need some work because it dosen't got a autonomy of more then 4 loads...
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.