Naike
2008-05-17 09:23:03
<!– BEGIN TEMPLATE: formanswers –>
N1ke! - SRL Member Application Form
N1ke!
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
A little of everything..
Other Communitys
No other communitys
How Long have You Played Runescape
Idk really… 3 years maybe
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My name is Nicklas and im from sweden. I forced Wizzup? to make me junior member becuase i didnt feel worthy but now im back! Hope you like it ;)
- N1ke!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
N1ke! - SRL Member Application Form
N1ke!
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
A little of everything..
Other Communitys
No other communitys
How Long have You Played Runescape
Idk really… 3 years maybe
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
My name is Nicklas and im from sweden. I forced Wizzup? to make me junior member becuase i didnt feel worthy but now im back! Hope you like it ;)
- N1ke!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program NewtBuyer;
{.include SRL/SRL.scar}
var
X, Y, Ax, Ay, Nx, Ny, Ix, Iy, K, Energi: Integer;
Time, Time2, Time3, Count, Newt, Newt2, Buyed, RunTime : integer;
NewtDep, Walk : Integer;
Mr : string;
//////////////////////////////////////////////////////////////////////
/////////////////////////Player Setup/////////////////////////////////
//////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
Begin
RunTime := 3 // Hours it will run!
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // Nickname
Players[0].Active := True;
Players[0].Strings[0] := ''; // Bankpin
Players[0].Integers[0] := 0; // How much cash in first inv spot
Players[1].Name := ''; // Username
Players[1].Pass := ''; // Password
Players[1].Nick := ''; // 3 letters from your name!
Players[1].Active := True;
Players[1].Strings[0] := ''; // Bankpin
Players[1].Integers[0] := 0; // How much cash in first inv spot
Players[2].Name := ''; // Username
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // 3 letters from your name!
Players[2].Active := True;
Players[2].Strings[0] := ''; // Bankpin
Players[2].Integers[0] := 0; // How much cash in first inv spot
Players[3].Name := ''; // Username
Players[3].Pass := ''; // Password
Players[3].Nick := ''; // 3 letters from your name!
Players[3].Active := True;
Players[3].Strings[0] := ''; // Bankpin
Players[3].Integers[0] := 0; // How much cash in first inv spot
Players[4].Name := ''; // Username
Players[4].Pass := ''; // Password
Players[4].Nick := ''; // 3 letters from your name!
Players[4].Active := True;
Players[4].Strings[0] := ''; // Bankpin
Players[4].Integers[0] := 0; // How much cash in first inv spot
End;
//////////////////////////////////////////////////////////////////////
///////////////////End Of Player Setup/////////////////////////////////
//////////////////////////////////////////////////////////////////////
Procedure ProgressReport;
Begin
ClearDebug;
Writeln('|----------------- Progress Report -----------------|');
Writeln('| Ran for ' + (TimeRunning) + ' With ' + IntToStr(HowManyPlayers) + ' Players.');
Writeln('|---------------------------------------------------|');
Writeln('| Player - Active - NewtsBuyed - Gps Left |');
Writeln('|---------------------------------------------------|');
For K:= 0 To HowManyPlayers-1 Do
Begin
Writeln('| ' + IntToStr(K) + ' - ' + BoolToStr(Players[K].Active) +
' - ' + IntToStr(Players[K].Integers[1]) + ' - ' + IntToStr(Players[K].Integers[0]) );
end;
Writeln('|---------------------------------------------------|');
end;
Function FindBetty:boolean; Forward;
Procedure BuyNewts; Forward;
{*************************************************************************************************
Function GetAngle(GetAngleFrom : Boolean): Integer;
By: N1ke!
Description: Gets the minimap angle. True = Clockwise , False = Not Clockwise
*************************************************************************************************}
Function GetAngle(GetAngleFrom : boolean): Integer;
Var Angle : extended;
Begin
If(Not(LoggedIn))Then Exit;
Angle := (rs_GetCompassAngleDegrees);
If GetAngleFrom = True then Angle := 360 - Angle;
Result := Round(Angle);
End;
{*************************************************************************************************
Function SafeAngleRadial(Color: Integer; MaxStartRadial, MaxEndRadial: Integer; Radius: Integer): Boolean;
By: N1ke!
Description: Starts searching between MaxStartRadial & MaxEndRadial then
adds a 5 every time it fails until its more then MaxStartRadial & MaxEndRadial.
Will work if your minimap is South, west, east etc..
*************************************************************************************************}
Function SafeAngleRadial(Color: Integer; MaxStartRadial, MaxEndRadial: Integer; Radius: Integer): Boolean;
Var
MSR, MER, Angle: Integer;
begin
If(Not(LoggedIn))Then Exit;
Angle := GetAngle(True);
MSR := MaxStartRadial + MaxEndRadial / 2 - Angle;
MER := MSR - 1 - Angle;
If MSR < 0 then
begin
MSR := MSR + 360;
MER := MER + 360;
end;
If MSR > 360 then
begin
MaxStartRadial := MaxStartRadial + 360;
MaxEndRadial := MaxEndRadial + 360;
End;
Repeat
If RadialWalk(Color, MSR, MER, Radius, 0, 0)then Result := True;
If Result = True then
Begin
Writeln('Found Color with :');
Writeln('StartRadial = ' + IntToStr(MSR));
Writeln('EndRadial = ' + IntToStr(MER));
Writeln('Angle = ' + IntToStr(Angle));
Exit;
end;
MSR := MSR - 5;
MER := MER + 5;
Until(MSR < MaxStartRadial)or(MER > MaxEndRadial);
Writeln('SafeRadial failed!');
Result := False;
End;
Procedure AlignMM(Direction:string); // Credit to whoever did this! TY.
var DTM,x,y,i:integer;
acc:extEnded;
Begin
If (not LoggedIn) then exit;
DTM := DTMFromString('78DA634C676260086240016F9F7C641001D28' +
'C40FC1F0818416AFC71AB0101B09A7022D44413A1C60BBF1A009F' +
'1015DF');
wait(50)
If FindDtmRotated(DTM,x,y,MMX1,MMY1,MMX2,MMY2,radians(-40),radians(40),0.01,acc) then
Begin
If (acc < 0.1) and (acc > -0.1) then
exit
else
Begin
repeat
If FindDtmRotated(DTM,x,y,MMX1,MMY1,MMX2,MMY2,radians(-40),radians(40),0.01,acc) then
Begin
If acc < 0 then
Begin
KeyDown(VK_RIGHT)
Wait(20+random(10))
KeyUp(VK_RIGHT)
End;
If acc > 0 then
Begin
KeyDown(VK_LEFT)
Wait(20+random(10))
KeyUp(VK_LEFT)
End;
If acc = 0 then break;
End else
exit;
wait(20)
Inc(i)
until (((acc < 0.1) and (acc > -0.1)) or (i > 25))
End;
End else MakeCompass(Direction);
freeDtm(DTM);
End;
Procedure MightRun;
Begin
Energi := GetMMLevels('run', Mr);
If Energi > RandomRange(30, 80) then SetRun(true);
End;
Procedure MakeCompassN;
Begin
If (not LoggedIn) then exit;
MakeCompass('N');
AlignMM('N');
End;
function AllPlayersInactive : Boolean; Credit To Fakawi!!!! Thx for the great community!!
var
I : Integer;
Begin
for I := 0 to HowManyPlayers - 1 do
If Players[i].Active then
Exit;
Result := True;
End;
Procedure HideScar;
Begin
Case Random(21) of
0: Disguise('Windows Live Messenger');
1: Disguise('iTunes');
2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
3: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Microsoft Internet Explorer');
4: Disguise('untitled - Paint');
5: Disguise('Google Tools');
6: Disguise('C:');
7: Disguise('Tip.it Runescape Help :: The Original RuneScape help site!');
8: Disguise('Rune Headquarters :.:.: Your Unfair RuneScape Advantage');
9: Disguise('C:/Program');
10: Disguise('Mozilla Firefox');
11: Disguise('My files');
12: Disguise('Rune Headquarters :.:.: Your Unfair RuneScape Advantage');
13: Disguise('RuneScape - das riesige Online-Abenteuerspiel für Tausende von Spielern von Jagex Ltd.');
14: Disguise('Jagex Software :: Home');
15: Disguise('Google - Mozilla Firefox');
16: Disguise('Google - Microsoft Internet Explorer');
17: Disguise('Microsoft Internet Explorer');
18: Disguise('Video Game Cheats - Video Game Reviews - Video Game Codes - Video Game Web Site - GameFAQs');
19: Disguise('Habbo ~ Home');
20: Disguise('YouTube - Broadcast Yourself.');
end;
end;
Procedure StartUp;
Begin
If (Not LoggedIn) then Exit;
Wait(RandomRange(250, 3000));
SetAngle(True);
MightRun;
End;
function FindBankN(TheBank: string): Boolean; // Edited from Srl
// Credits to WT-Fakawi and Ron.
var
bx, by, TheDTM: Integer;
WhichAngle: ExtEnded;
Begin
If (not LoggedIn) then exit;
case TheBank of
'feb': TheDTM := DTMFromString('78DA63AC67626088634001FFFFFD63F80FA41' +
'9416C2060AC01AA4987C83141D5FCF9C3C4C0055503028CAD44A8' +
'E924AC0600131E11B5');
'fwb': TheDTM := DTMFromString('78DA636C676260086540038C0CFFC12403C37' +
'F206004A98986C8304155FCF9C3C4C0055503D6D14C849A6EC26A' +
'009F5A0EA1');
'db': TheDTM := DTMFromString('78DA636C67626008644001FFFFFD63F80FA41' +
'9416C2060AC01AAF182C8B140D5FCF9C304A619A17CB09A204C35' +
'22E86AC2F09B0300F8811153');
'veb': TheDTM := DTMFromString('78DA63EC61626008624001FFFFFD63F80FA41' +
'9416C2060EC00AA8982C83141D5FCF9C3C4C0055503028C138850' +
'D343580D00122211A9');
'vwb': TheDTM := DTMFromString('78DA63EC606260B066C000FF819811440301E' +
'354A01A3B88381354FECF1F260611A81A1000AB3125428D2E7E35' +
'0087F80E5E');
'akb': TheDTM := DTMFromString('78DA636C606260F06140019D9D710CFF81342' +
'310FF0702C652A01A37881C1354CD9F3F4C0C5C5035200056E345' +
'841A3FFC6A002A3B0F97');
End;
If FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05,
WhichAngle) then
Begin
Mouse(bx, by, 0, 0, True);
SetAngle(True);
FFlag(0);
If OpenBankFast(TheBank) then
Begin
If PinScreen then Inpin(Players[CurrentPlayer].Strings[0]);
Writeln('Opened the bank');
Result := True;
FreeDTM(TheDTM);
Exit;
End
else Result := False;
End
else Result := False;
FreeDTM(TheDTM);
End;
Function NewtInv: Boolean;
Begin
If (Not LoggedIn) then Exit;
Result := False;
Newt2 := DTMFromString('78DA63DCCFC4C0B09B910119888A0833FC07D' +
'220D1FF40C0B80BA86617AA1A882C8C04D27B806A0EE25603C607' +
'806A0E1150739808738E02D5EC23A0E61850CD1E22DCB31DBF1A0' +
'0BE9D115A');
GameTab(4);
If FindDTM(Newt2, nx, ny, 690, 433, 718, 461) then Result := True else Result := False;
If Result = True then Writeln('Found Newt') else Writeln('Didnt find Newt');
End;
Procedure WalkToBetty;
Begin
If Players[CurrentPlayer].Integers[0] < 85 then Logout;
If (Not LoggedIn) then Exit;
SymbolAccuracy := 0.7;
MakeCompassN;
for Walk := 0 to 8 do
Case Walk of
0: If Not RadialRoadWalk(FindFallyRoadColor, 219, 235, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 219, 235, 65) Then Logout;
1: If Not RadialRoadWalk(FindFallyRoadColor, 168, 205, 55, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 168, 205, 55) Then Logout;
2: If Not RadialRoadWalk(FindFallyRoadColor, 170, 200, 55, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 170, 200, 55) Then Logout;
3: If Not RadialRoadWalk(FindRoadColor, 170, 200, 40, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 170, 200, 40) Then Logout;
4: If Not RadialRoadWalk(FindRoadColor, 170, 200, 55, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 170, 200, 55) Then Logout;
5: If Not RadialRoadWalk(FindRoadColor, 170, 200, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 170, 200, 65) Then Logout;
6: If Not RadialRoadWalk(FindRoadColor, 110, 153, 50, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 110, 153, 50) Then Logout;
7: If Not RadialRoadWalk(FindRoadColor, 138, 220, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 138, 220, 65) Then Logout;
8: If FindSymbol(x, y, 'magic shop') then
Begin
Mouse(x, y, 0, 0, true);
FFlag(0)
End else
Begin
SymbolAccuracy := 0.5;
If FindSymbol(x, y, 'magic shop') then
Begin
Mouse(x, y, 0, 0, true);
FFlag(0)
End else LogOut;
End;
End;
End;
Procedure WalkBack;
Begin
If (Not LoggedIn) then Exit;
SymbolAccuracy := 0.7;
MakeCompassN;
for Walk := 0 to 8 do
Case Walk of
0: If Not RadialRoadWalk(FindRoadColor, 17, 86, 40, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 17, 86, 40) Then Logout;
1: If Not RadialRoadWalk(FindRoadColor, 326, 360, 75, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 326, 360, 75) Then Logout;
2: If Not RadialRoadWalk(FindRoadColor, 340, 383, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 340, 383, 65) Then Logout;
3: If Not RadialRoadWalk(FindRoadColor, 340, 383, 60, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 340, 383, 60) Then Logout;
4: If Not RadialRoadWalk(FindRoadColor, 340, 389, 45, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 340, 389, 45) Then Logout;
5: If Not RadialRoadWalk(FindFallyRoadColor, 336, 375, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 336, 375, 65) Then Logout;
6: If Not RadialRoadWalk(FindFallyRoadColor, 335, 373, 65, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 335, 373, 65) Then Logout;
7: If Not RadialRoadWalk(FindFallyRoadColor, 338, 373, 40, 0, 0)then
If Not SafeAngleRadial(FindFallyRoadColor, 338, 373, 40) Then Logout;
8: If Not FindBankN('feb') then
Begin
If Not FindSymbol(X, Y, 'bank')then Logout;
Mouse(x, y, 0, 0, true);
FFlag(0);
If OpenBankFast('feb') then Inpin(Players[CurrentPlayer].Strings[0]) else FindBankN('feb');
End else LogOut;
End;
End;
Procedure MainStock;
Begin
If (Not LoggedIn) then Exit;
If not FindColorSpiral(ix, iy, 2070783, 52, 67, 117, 82) then Mouse(81, 74, 7, 20, True) else Exit;
End;
Procedure CloseShop;
Begin
If (Not LoggedIn) then Exit;
Mouse(485, 41, 8, 8, True);
End;
Procedure DontPanic;
Begin
If (Not LoggedIn) then Exit;
CloseShop;
Wait(200+Random(400));
LogOut;
End;
Procedure DoubleCheck;
Begin
If (Not LoggedIn) then Exit;
MarkTime(Time2);
Repeat
Wait(500+random(500));
until(TimeFromMark(Time2) > 7000) or (ShopScreen);
If ShopScreen then BuyNewts else FindBetty;
End;
Function FindBetty: Boolean;
Begin
If (Not LoggedIn) then Exit;
MarkTime(Time);
Count := 0;
Result := False;
Repeat
If FindObjCustom(ax, ay, ['etty'], [6163551, 593996, 5901147], 4)then
Begin
MMouse(ax, ay, 0, 0);
If IsUpText('etty')then Mouse(ax, ay, 0, 0, False) else Count := Count + 1;
If ChooseOption('rade') then
Begin
Result := True;
DoubleCheck;
End else Count := Count + 1;
End else
If FindSymbol(x, y, 'magic shop') then
Begin
Mouse(x, y, 0, 0, true);
Count := Count + 1;
FFlag(0)
End else
Begin
SymbolAccuracy := 0.5;
If FindSymbol(x, y, 'magic shop') then
Begin
Mouse(x, y, 0, 0, true);
Count := Count + 1;
FFlag(0)
End else LogOut;
End;
Until(Result = True) or (Count > 2)or(TimeFromMark(Time) > 20*1000);
If Result = False then LogOut;
End;
Procedure BuyNewts;
Begin
If (Not LoggedIn) then Exit;
Newt := DTMFromString('78DA636C6364602862400157CE9D63F80FA48' +
'1320CFF8180B109C82A6540038C48249006A9C923A0A615C8CA21' +
'A0A607C82A20A0A60BC82A23A006E4AF72FC6A0043430E50');
Buyed := 0;
MainStock;
If FindDtm(Newt, nx, ny, 372, 95, 400, 128) then
Case Random(2) of
0: Begin
Mouse(nx, ny, 0, 0, False);
Wait(200+random(400));
If ChooseOption('uy X') then
Begin
Wait(RandomRange(750, 1400));
TypeSEnd('27');
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] - 81;
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 27;
End else DontPanic;
End;
1: Begin
Repeat
Mouse(nx, ny, 0, 0, False);
Wait(200+random(400));
If ChooseOption('10') then Buyed := Buyed + 1 else DontPanic;
Until(Buyed > 2);
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] - 84;
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 27;
End;
End;
FreeDTM(Newt)
Wait(RandomRange(600, 1200));
CloseShop;
Wait(RandomRange(750, 1400));
If not NewtInv then Logout;
End;
Procedure LeaveNewts;
Begin
If (Not LoggedIn) then Exit;
NewtDep := 0;
MarkTime(Time);
If NewtInv then
Case Random(2) of
0: Begin
Mouse(nx, ny, 2, 2, False);
If not ChooseOption('All') then Logout;
CloseBank;
End;
1: Begin
Repeat
Mouse(nx, ny, 2, 2, False);
If not ChooseOption('10') then Logout;
NewtDep := NewtDep + 1;
Until(NewtDep > 2)or(TimeFromMark(Time) > 7000);
CloseBank;
End;
End else Logout;
End;
Begin
SetupSRL;
DeclarePlayers;
ActivateClient;
MarkTime(Time3);
LoginPlayer;
StartUp;
Repeat
If (not LoggedIn) then
Begin
NextPlayer(True);
StartUp;
End;
WalkToBetty;
FindBetty;
WalkBack;
LeaveNewts;
ProgressReport;
Until(TimeFromMark(Time3) > RunTime*3600000)or(AllPlayersInactive);
End.——————————————————
<!– END TEMPLATE: formanswers –>