ashman
2007-11-30 10:09:57
<!– BEGIN TEMPLATE: formanswers –>
ashman - SRL Member Application Form
ashman
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, mysql, C++
Other Communitys
None really
How Long have You Played Runescape
pretty much since it started 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have long term exp, with runescape. I'm not the most advanced player in terms of levels but i know a fair amount about the game. I'm just starting out looking into programming in SCAR and its a very different bal game to a language like php & C++, there are several syntax differences that i am having to get used to. However i have managed to throw together a little script.
As for my "real" life i am basically studying music technology and software development at university in england. and yeh thats about it really.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
ashman - SRL Member Application Form
ashman
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, mysql, C++
Other Communitys
None really
How Long have You Played Runescape
pretty much since it started 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have long term exp, with runescape. I'm not the most advanced player in terms of levels but i know a fair amount about the game. I'm just starting out looking into programming in SCAR and its a very different bal game to a language like php & C++, there are several syntax differences that i am having to get used to. However i have managed to throw together a little script.
As for my "real" life i am basically studying music technology and software development at university in england. and yeh thats about it really.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Powercutter;
{.include si.scar}
var
x,y:integer;
cut,dropped: Integer;
UserName:string;
PassWord:string;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Button1 : TButton;
a****sername : TEdit;
asdfPassword : TEdit;
const
///////////////////////////////////SETUP/////////////////////////////////////////////
TreesColor1=1066044 ;//color of tree in gamescreen
TreesColor2=1452064 ;//color of tree in gamescreen
TreesColor3=1986624 ;//color of tree in gamescreen
Equiped= False;//true for equpied false for not
CutTime=6500;//Take it takes to walk to/cut down a tree(eggagerate it)
LoadsToCut=15;//Number of loads you want to cut untill logging out
LampSkill='WoodCutting';//What you want to use lamps on
///////////////////////////////END OF SETUP////////////////////////////////
procedure Tutorial1(senter: TObject);
begin
writeln('button pressed');
frmDesign.Caption:=(frmDesign.Caption+('.'));
frmDesign.ModalResult:= mrok
end;
Procedure ClickHumanA(xa, ya : integer; Click : boolean);
begin {A little procedure PWND created to simluate human clicking }
Holdmouse(xa, ya, click);
wait(50 + random (50));
Releasemouse(xa, ya, click);
end;
Procedure Getaxecolor;
var A1,A2,A3,H:Integer;
begin
Writeln('Getting axe and handle colors')
Wait(300)
if(Equiped=False)then
begin
Gametab(4);
A1 := (Getcolor(590, 220))
A2 := (Getcolor(590, 218))
A3 := (Getcolor(587, 219))
H := (Getcolor(579, 230))
Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color ' + inttostr(H))
end;
if(Equiped=True)then
begin
Gametab(5);
A1 := (Getcolor(595, 296))
A2 := (Getcolor(597, 296))
A3 := (Getcolor(594, 294))
H := (Getcolor(586, 306))
Writeln('Axe colors ' + inttostr(A1)+ ' ' + inttostr(A2) + ' ' + inttostr(A3))
Writeln('Handle color ' + inttostr(H))
end;
end;
Function Axelost : boolean;
var x, y,a1,a2,a3: integer;
begin
if(equiped=true)then
gametab(5)
If(findcolortolerance(x, y, A1, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 560, 210, 740, 460, 5)) then
result := true
if(equiped=false)then
gametab(4)
If(findcolortolerance(x, y, A1, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 560, 210, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 560, 210, 740, 460, 5)) then
result := true
else
result := false
end;
Procedure FixTheAxe;
Var x, y,a1,a2,a3,h : integer;
begin
if(Axelost = false)and
(Equiped=False)then
begin
repeat
if FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x,y,2,2,true)
if(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)))then
If(findcolortolerance(x, y, 1, 1, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
Flag;
If FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,2,2,true)
until((findcolortolerance(x, y, A1, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 1, 1, 740, 460, 5)))
begin
if (FindObjEx(x, y,'Axe',560, 210, 740, 460,A1, 5, 300, 300,true))or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,1,1,true)
wait(500 + random(500))
If(findcolortolerance(x, y, h, 565, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
end;
end;
if(Axelost = false)and
(Equiped=True)then
begin
Gametab(5);
if (findcolortolerance(x,y,H,560, 210, 740, 460, 5))then
Mouse(x,y,2,2,true)
Gametab(4);
repeat
if FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x,y,2,2,true)
if(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)))or
(not(FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)))then
If(findcolortolerance(x, y, 1, 1, 5, 725, 160, 5))then
Mouse(x, y,2,2,true)
Flag;
If FindObjEx(x, y,'Take A',1, 1, 740, 460,A1, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Take A',1, 1, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,2,2,true)
until((findcolortolerance(x, y, A1, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A2, 1, 1, 740, 460, 5)) or
(findcolortolerance(x, y, A3, 1, 1, 740, 460, 5)))
begin
if (FindObjEx(x, y,'Axe',560, 210, 740, 460,A1, 5, 300, 300,true))or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A2, 5, 300, 300,true)or
FindObjEx(x, y,'Axe',560, 210, 740, 460,A3, 5, 300, 300,true)then
Mouse(x, y,1,1,true)
wait(500 + random(500))
If(findcolortolerance(x, y, h, 565, 5, 725, 160, 10))then
Mouse(x, y,2,2,true)
end;
end;
end;
procedure Antirandoms;
begin
CheckRandoms(1,LampSkill,'N',false,false,srtAll)
DropUseless;
writeln('Checking Randoms');
end;
Function Antient: boolean;//My own Ent Detection Function
var
ENTCHOP:integer;
begin
ENTCHOP := BitmapFromString(8, 16, 'z78DA3330A0377003025492' +
'1895B844F08B136FF2F0564F6A7892175F431100009E0198F 1');
begin
if FindBitmapToleranceIn(ENTCHOP,x, y, 2, 3,366, 21,25)then
result:=true;
end;
begin
if (not(FindBitmapIn(ENTCHOP,x, y, 2, 3,366, 21)))then
result:=false;
end;
end;
Procedure Check4Ent;//My own Ent Detection Procedure
var cx,cy:integer;
begin
if(FindObj(cx, cy, 'Chop', TreesColor1, 5)) or
(FindObj(cx, cy, 'Chop', TreesColor2, 5))or
(FindObj(cx, cy, 'Chop', TreesColor3, 5))then
Mouse(cx,cy,1,1,true)
if (Antient=true) then
begin
writeln('!HOLY ****! Thats an ent!')
Mouse(650, 90,3,3,true);
wait(500+Random(500));
Mouse(643, 74,3,3,True);
wait (25000+Random(5000));
end;
if (Antient=false)then
begin
writeln('Entless Tree')
end;
end;
procedure choptree1;
var cx,cy:integer;
begin
if (not(FindObj(cx, cy, 'Chop', TreesColor1, 5))) or
(not(FindObj(cx, cy, 'Chop', TreesColor2, 5)))or
(not(FindObj(cx, cy, 'Chop', TreesColor3, 5)))then
writeln('Could not find a tree. Please re-choose colors')
if FindObj(cx, cy, 'Chop', TreesColor1, 5) or
FindObj(cx, cy, 'Chop', TreesColor2, 5)or
FindObj(cx, cy, 'Chop', TreesColor3, 5)then
Mouse(cx,cy,3,5,true);
writeln('Tree Found')
writeln('Chopping Tree..')
wait(3000)
if FindObj(cx, cy, 'Chop', TreesColor1, 5) then
Movemousesmooth(cx,cy);
if (not(FindObj(cx, cy, 'Chop', TreesColor1, 5)))then
if FindObj(cx, cy, 'Chop', TreesColor2, 5)then
Movemousesmooth(cx,cy);
if (not(FindObj(cx, cy, 'Chop', TreesColor2, 5)))then
if FindObj(cx, cy, 'Chop', TreesColor3, 5)then
Movemousesmooth(cx,cy);
Check4Ent;
wait(cuttime+Random(500));
Sendarrowsilentwait(3+random(4),500+Random(500));
end;
procedure DropLogs;
var x,y,dtmlogs, dropO:integer;
begin
writeln('Dropping Logs')
repeat
dtmLogs:= DTMFromString('78DA633CC4C4C0F090910119B4A4DA323C0 4D' +
'220D1FF40C07800A8E626AA1A882C8C04D29B806A9E1250B3 07A8' +
'E61D0135E7816A5E10507316A8E6010135A7816AAEE357030 09B0' +
'B11B0');
dropO := BitmapFromString(7, 14, 'z78DA3330182CC00D07C0A506' +
'BFF8C0AA24DE47C3090000FE4E7AA1');
if(findDTM(dtmlogs,x,y,560, 212, 736, 464))then
mouse(x,y,5,5,false)
Wait(200+Random(500));
if (findbitmap(dropO,x,y))then
Mouse(x,y,5,3,true)
Wait(910+Random(500));
until(not(findDTM(dtmlogs,x,y,560, 212, 736, 464)))
cut:=cut+27
dropped:=dropped+1
writeln('All Logs Dropped')
end;
procedure off;
begin
SetChat('off', 1);
SetChat('off', 2);
SetChat('off', 3);
end;
procedure ProgressReport;
begin
Writeln(' ');
Writeln(' ');
writeln(' Yohojos Any Tree Anywhere Powercutter Progress Report')
writeln(' You have dropped ' +inttostr(cut)+' logs')
writeln(' You have dropped ' +inttostr(dropped)+' load(s)')
writeln(' You have worked for ' +ScriptTime2(2))
Writeln(' You have Ran Away From ' + inttostr(gSiRandoms[4]) + ' Attacks');
Writeln(' You have Solved ' + inttostr(gSiRandoms[7]) + ' Boxes');
Writeln(' You have Talked To ' + inttostr(gSiRandoms[1]) + ' Randoms');
Writeln(' You have Gained ' +inttostr(gSiRandoms[5]) + ' Levels');
Writeln(' You have Completed '+inttostr(gSiRandoms[6]) +' Eye Tests');
end;
procedure FinalProgressReport;
begin
Writeln(' ');
Writeln(' ');
writeln(' Yohojos Any Tree Anywhere Powercutter Final Progress Reprot')
writeln(' !Your Autoing Sesion Has Been Completed!')
writeln(' You have dropped ' +inttostr(cut)+' logs')
writeln(' You have dropped ' +inttostr(dropped)+' load(s)')
writeln(' You have worked for ' +ScriptTime2(2))
Writeln(' You have Ran Away From ' + inttostr(gSiRandoms[4]) + ' Attacks');
Writeln(' You have Solved ' + inttostr(gSiRandoms[7]) + ' Boxes');
Writeln(' You have Talked To ' + inttostr(gSiRandoms[1]) + ' Randoms');
Writeln(' You have Gained ' +inttostr(gSiRandoms[5]) + ' Levels');
Writeln(' You have Completed '+inttostr(gSiRandoms[6]) +' Eye Tests');
end;
procedure logout1;
var x,y:integer;
begin
if(not(findcolorspiral(x,y,TreesColor1,1, 0,514, 336))
or(findcolorspiral(x,y,TreesColor2,1, 0,514, 336))
or(findcolorspiral(x,y,TreesColor3,1, 0,514, 336)))then
Logout;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 289;
frmDesign.Top := 161;
frmDesign.Width := 589;
frmDesign.Height := 395;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'WP MultinationalB Roman';
frmDesign.Font.Style := [fsBold, fsItalic];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 51;
Label1.Top := 30;
Label1.Width := 95;
Label1.Height := 24;
Label1.Alignment := taCenter;
Label1.Caption := 'User Name';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -20;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 450;
Label2.Top := 30;
Label2.Width := 91;
Label2.Height := 24;
Label2.Alignment := taCenter;
Label2.Caption := 'Pass Word';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -20;
Label2.Font.Name := 'Times';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 450;
Label3.Top := 47;
Label3.Width := 33;
Label3.Height := 14;
Label3.Caption := '(Its Bleeped Out)';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'Times';
Label3.Font.Style := [fsBold, fsItalic];
Label3.ParentFont := False;
Button1 := TButton.Create(frmDesign);
Button1.Onclick:=@Tutorial1;
Button1.Parent := frmDesign;
Button1.Left := 261;
Button1.Top := 261;
Button1.Width := 78;
Button1.Height := 25;
Button1.Caption := 'Start Chopping';
Button1.TabOrder := 8;
a****sername := TEdit.Create(frmDesign);
a****sername.Parent := frmDesign;
a****sername.Left := 41;
a****sername.Top := 60;
a****sername.Width := 121;
a****sername.Height := 30;
a****sername.Font.Color := clWindowText;
a****sername.Font.Height := -20;
a****sername.Font.Name := 'Times New Roman';
a****sername.Font.Style := [];
a****sername.ParentFont := False;
a****sername.TabOrder := 9;
a****sername.Text := '';
asdfPassword := TEdit.Create(frmDesign);
asdfPassword.Parent := frmDesign;
asdfPassword.Left := 440;
asdfPassword.Top := 60;
asdfPassword.Width := 121;
asdfPassword.Height := 29;
asdfPassword.Font.Color := clWindowText;
asdfPassword.Font.Height := -20;
asdfPassword.Font.Name := 'Wingdings 3';
asdfPassword.Font.Style := [fsBold, fsItalic];
asdfPassword.ParentFont := False;
asdfPassword.TabOrder := 10;
asdfPassword.Text := '';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure FormNames;
begin
username:=a****sername.text
password:=asdfpassword.text
end;
begin
SafeInitForm;
SafeShowFormModal;
FormNames;
activateclient;
LoadInclude('Windows Media Player');
SetAccount(1,UserName,PassWord);
Login(1)
wait(1000)
off;
Getaxecolor;
repeat
Antirandoms;
Choptree1;
FixTheAxe;
wait(10);
if(InvCount = 28)then
ProgressReport;
if(InvCount = 28)then
DropLogs
until(dropped>=(LoadsToCut));
Logout;
FinalProgressReport;
Terminatescript;
end.
——————————————————
<!– END TEMPLATE: formanswers –>