Joseph Pogi3
2009-02-18 01:08:10
<!– BEGIN TEMPLATE: formanswers –>
Joseph Pogi3 - SRL Member Application Form
Joseph Pogi3
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VIsual Basic and Java
Other Communitys
None
How Long have You Played Runescape
3 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have Been Learning and Making Script For a Long time. I don't Play Runescape Now, Only make Scripts for it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Joseph Pogi3 - SRL Member Application Form
Joseph Pogi3
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VIsual Basic and Java
Other Communitys
None
How Long have You Played Runescape
3 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have Been Learning and Making Script For a Long time. I don't Play Runescape Now, Only make Scripts for it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ __ _____ ________
/ / / _ / /______ /
/ / / /_/ / ____/ /
/ / / ____/ /___ /
____/ / / / ____/ /
/_____/ /_/ /_____/
===================================
| Jp3's Pest Controller |
===================================
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
_______________
_______________/ Instruction \________________
|================================================|
| Start In Pest Control |
| Have a Decent Armour |
| Have a Decent Weapon |
==================================================
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
___________________/Features\____________________
|==================================================|
| S.M.A.R.T (Optional) |
| It Spends Points for you(optional) |
| Will Go to World 144 For you (Pest Control world)|
| Very Good Anti Ban |
| Anti Random is not needed |
====================================================
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Credits
Joseph Pogi3 (for Making The Script)
Freddy1990 and Kaitnieks (For Making Scar)
Benland100 (For Making S.M.A.R.T)
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| }
program PestControl;
{.Include srl/srl/misc/smart.scar}
{.include SRL/SRL.scar}
var
x, y, I, II, Deathss, Trips, Slept, SleepTime, SleepTimeX: Integer;
ScriptFalse, First: Boolean;
Const
Username = 'Joseph Pogi3'; //Put Your Runescape UserName here.
Password = 'Bradford'; //Put Your Runescape UserName here
CombatStyle = 'melee'; //combat style, Example: Melee,Range and Mage
SpendPointsOn = 'strength'; //Exaple: strength,attack,defence.hitpoints
//magic,ranged,prayer and dontspend
procedure AntiBan;
begin
if ScriptFalse then Exit;
If(not LoggedIn)then Exit;
MouseSpeed := 12 + Random(3);
Case Random(10) of
0: MMouse(Random(MIX2), Random(MIY2), 10, 10);
1: HoverSkill('Strength', False);
2: PickUpMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(2200));
5: IdleTime(500+random(700), 600, 0.5+rand);
6: DoEmote(1+random(19));
7:
begin
RandomRClick;
if not ChooseOption('xamine') then
ChooseOption('ancel');
end;
8:
begin
MakeCompass(IntToStr(Random(360)));
MakeCompass('S');
end;
9:
case random(50) of
0: Typesend('Rofl');
1: Typesend('lol');
2: Typesend('Cmon');
3: Typesend('I want full Void');
4: Typesend('Boring');
5: Typesend('=)');
6: Typesend('Woohooo');
7: Typesend('May the force be with you!');
8: Typesend('Come in!');
end;
end;
Wait(500+random(500));
Gametab(4);
end;
procedure AntiBan2;
begin
if ScriptFalse then Exit;
If(not LoggedIn)then Exit;
MouseSpeed := 12 + Random(3);
Case Random(13) of
0: MMouse(Random(MIX2), Random(MIY2), 10, 10);
1: if Random(2) = 1 then HoverSkill('strength', False);
2: PickUpMouse;
3: GameTab(1+Random(12));
4,5:SleepAndMoveMouse(400+Random(2200));
6: IdleTime(500+random(700), 600, 0.5+rand);
7,8:MMouse(Random(MSX2), Random(MSY2), 0, 0);
9: if Random(2) = 1 then RandomRClick;
10: MakeCompass(IntToStr(Random(360)));
11:
begin
if Random(2) = 1 then
begin
KeyDown(VK_LEFT);
if Random(2) = 1 then Wait(400+random(2500))
else SleepAndMoveMouse(400+random(2500));
KeyUp(VK_LEFT);
end else
begin
KeyDown(VK_RIGHT);
if Random(2) = 1 then Wait(400+random(2500))
else SleepAndMoveMouse(400+random(2500));
KeyUp(VK_RIGHT);
end;
end;
12:
begin
I := 500+random(800);
KeyDown(VK_DOWN);
if Random(2) = 1 then Wait(I)
else SleepAndMoveMouse(I);
KeyUp(VK_DOWN);
Wait(100+random(300));
KeyDown(VK_UP);
if Random(2) = 1 then Wait(I+random(400))
else SleepAndMoveMouse(I+random(400));
KeyUp(VK_UP);
end;
end;
Wait(200+random(500));
Gametab(4);
end;
procedure Rest;
begin
Status('Resting..');
LogOut;
I := 300000+random(900000);
WriteLn('Resting for ' + IntToStr(I/60000) + 'minutes');
Wait(I/2);
WriteLn(IntToStr(I/2/60000) + ' minutes left');
Wait(I/2);
LoginPlayer;
Inc(Slept);
MarkTime(SleepTime);
SleepTimeX := 3000000 + Random(6000000);
end;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := 'ose';
Players[0].Active := True;
end;
Procedure Pray;
var
S: String;
PrayLvl: Integer;
Coords: Array of TPoint;
begin
GameTab(6);
PrayLvl := GetMMLevels('pray', S);
Coords := [IntToPoint(0, 0)];
case Lowercase(CombatStyle) of
'melee':
begin
if PrayLvl > 3 then Coords := [IntToPoint(590, 220)];
if PrayLvl > 6 then Coords := [IntToPoint(590, 220), IntToPoint(630, 220)];
if PrayLvl > 12 then Coords := [IntToPoint(630, 220), IntToPoint(590, 255)];
if PrayLvl > 15 then Coords := [IntToPoint(590, 255), IntToPoint(630, 255)];
if PrayLvl > 30 then Coords := [IntToPoint(630, 255), IntToPoint(705, 295)];
if PrayLvl > 33 then Coords := [IntToPoint(705, 295), IntToPoint(555, 330)];
end;
'ranged', 'range':
begin
if PrayLvl > 7 then Coords := [IntToPoint(665, 220)];
if PrayLvl > 25 then Coords := [IntToPoint(590, 290)];
if PrayLvl > 43 then Coords := [IntToPoint(555, 370)];
end;
'magic', 'mage':
begin
if PrayLvl > 8 then Coords := [IntToPoint(705, 220)];
if PrayLvl > 26 then Coords := [IntToPoint(630, 295)];
if PrayLvl > 44 then Coords := [IntToPoint(590, 370)];
end;
end;
If Coords[0].x = 0 then Exit;
for I := 0 to High(Coords) do
Mouse(Coords[I].x, Coords[I].y, 25, 20, True);
GameTab(4);
end;
function InGame: Boolean;
begin
if FindColor(x, y, 16711935, 368, 74, 370, 76) then
Result := True;
end;
function InBoat: Boolean;
begin
if FindColor(x, y, 16777113, 47, 83, 49, 85) then
Result := True;
end;
procedure GoingInBoat;
var
P: TPointArray;
T2D: T2DPointArray;
begin
if ScriptFalse then Exit;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.04, 0.18);
FindColorsSpiralTolerance(MMCX, MMCY, P, 3627893, MSX1, MSY1, MSX2, MSY2, 9);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
if Length(P) < 10 then Exit;
T2D := TPAtoATPAEx(P, 30, 30);
SetLength(P, 0);
for I := 0 to Length(T2D) - 1 do
begin
if Length(T2D[I]) > 8 then
begin
MiddleTPAEx(T2D[I], x, y);
MMouse(x-2, y-2, 5, 5);
Wait(150+random(60));
if IsUpTextMultiCustom(['ross', 'angp', 'lank']) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(200+random(400));
if not First then Mouse(x-1, y-1, 3, 3, True);
Wait(1000+random(600));
if InBoat or InGame then Exit;
Mouse(x-1, y-1, 3, 3, True);
First := False;
Wait(2200);
I := 0;
Exit;
end;
end;
end;
I := 0;
end;
function CentreColor: Integer;
var
P: TPointArray;
C: TIntegerArray;
begin
FindColorsSpiralTolerance(MMCX, MMCY, P, 2057081, MMX1, MMY1, MMX2, MMY2, 37);
C := GetColors(P);
ClearSameIntegers(C);
for I := 0 to Length(C)-1 do
if FindColoredAreaTolerance(x, y, C[I], MMX1, MMY1, MMX2, MMY2, 270, 0) then
begin
Result := C[I];
Exit;
end;
end;
function Center: TPoint;
var
P: TPointArray;
begin
if ScriptFalse then Exit;
Result := IntToPoint(0, 0);
FindColorsTolerance(P, CentreColor, MMX1, MMY1, MMX2, MMY2, 0);
Result := MiddleTPA(P);
SetLength(P, 0);
if Distance(627, 85, Result.x, Result.y) > 13 then Exit;
Result := IntToPoint(0, 0);
end;
procedure WalkToCenter(Start: Boolean);
var
a, b: Integer;
P: TPoint;
begin
if ScriptFalse then Exit;
P := Center;
if P.x = 0 then Exit;
if Start then
begin
Mouse(P.x-3, P.y-3, 7, 3, True);
Wait(100+random(600));
Pray;
Flag;
Exit;
end;
MMouse(P.x-4, P.y-4, 9, 9);
GetMousePos(a, b);
If not InGame then Exit;
Mouse(a, b, 0, 0, True);
Wait(700);
Flag;
end;
procedure Terminate(Text: String);
begin
WriteLn(Text);
LogOut;
ScriptFalse := True;
end;
procedure WaitingForGameStart;
begin
if ScriptFalse then Exit;
MakeCompass('S');
if not InBoat and not InGame then Terminate('Can not find the boat');
if InGame then Exit;
if ScriptFalse then Exit;
repeat
if Random(20) = 1 then AntiBan;
Wait(200+Random(200));
until(InGame);
Inc(Trips);
end;
function Died: Boolean;
begin
if not FindBlackChatMessage('died') then Exit;
if FindColor(x, y, FindWaterColor, MMCX-10, MMCY-10, MMCX+10, MMCY+10) then
begin
Result := True;
Inc(Deathss);
end;
end;
procedure Kill;
var
R, G, P: TPointArray;
T2D: T2DPointArray;
begin
if ScriptFalse then Exit;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.05, 0.43);
FindColorsSpiralTolerance(MMCX, MMCY, R, 1646435, MSX1, MSY1, MSX2, MSY2, 3);
SetColorspeed2Modifiers(0.06, 0.40);
FindColorsSpiralTolerance(MMCX, MMCY, G, 2900504, MSX1, MSY1, MSX2, MSY2, 5);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
P := CombineTPA(R, G);
SetLength(R, 0);
SetLength(G, 0);
if Length(P) < 7 then Exit;
T2D := TPAtoATPAEx(P, 30, 30);
SetLength(P, 0);
for I := 0 to Length(T2D) - 1 do
begin
if Length(T2D[I]) > 5 then
begin
MiddleTPAEx(T2D[I], x, y);
MMouse(x-2, y-2, 5, 5);
Wait(100+random(40));
if IsUpTextMultiCustom(['Atta', 'ck Sh', 'ifter']) then
begin
GetMousePos(x, y);
if Random(13) = 1 then
begin
Mouse(x, y, 0, 0, False);
if not ChooseOption('ttack') then ChooseOption('ancel');
Wait(1800+random(2300));
Exit;
end;
Mouse(x, y, 0, 0, True);
Wait(1800+random(2300));
Exit;
end;
end;
end;
Wait(1200+random(600));
end;
procedure Proggy;
begin
ClearDebug;
WriteLN('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
WriteLn(' __ _____ _______ ~')
Writeln(' / / / _ / /______ / ~')
WriteLn(' / / / /_/ / ____/ / ~')
WriteLn(' / / / ____/ /___ / ~')
WriteLn(' ____/ / / / ____/ / ~')
WriteLn(' /_____/ /_/ /_____/ ~')
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
WriteLn('Runned: ' + TimeRunning)
WriteLn('Rested: ' + IntToStr(Slept) + ' times ')
WriteLn('Did: ' + IntToStr(Trips) + ' trips ')
WriteLn('Died: ' + IntToStr(Deathss) + ' times ')
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
end;
procedure ChooseWorld144;
begin
Mouse(369, 244, 7, 4, True);
Wait(1300);
Mouse(101, 121, 4, 4, True);
Wait(1300);
Mouse(646, 121, 4, 4, True);
Wait(4000);
if FindText(x, y, '144', SmallChars, 95, 145, 170, 450) then Mouse(x, y+4, 50, 3, true);
Wait(1300);
end;
procedure WalkVoid;
begin
SymbolAccuracy := 0.6
WriteLn('We have 100 points... going to spend some points');
MakeCompass('N');
If FindSymbol(x, y, 'magic shop') then Mouse(x+22, y+10, 4, 4, True);
Wait(3000+random(600));
Flag;
Wait(1000+random(600));
end;
procedure WalkPc;
begin
MakeCompass('S');
Mouse(630, 12, 4, 3, True);
Wait(3000+random(600));
Flag;
Wait(3000+random(600));
I := 0;
end;
function TalkVoid: Boolean;
var
P: TPointArray;
T2D: T2DPointArray;
begin
Result := False;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(1.67, 0.29);
FindColorsSpiralTolerance(MMCX, MMCY, P, 3684669, MSX1, MSY1, MSX2, MSY2, 2);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(1);
T2D := TPAtoATPAEx(P, 20, 20);
SetLength(P, 0);
for I := 0 to Length(T2D) - 1 do
begin
if Length(T2D[I]) > 4 then
begin
MiddleTPAEx(T2D[I], x, y);
MMouse(x-1, y-1, 3, 3);
Wait(130+random(50));
if IsUpTextMultiCustom(['Void', 'Knight']) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(400+random(200));
ChooseOption('xcha');
Wait(1000+random(600));
Flag;
Wait(2000+random(600));
Result := True;
Case Lowercase(SpendPointsOn) of
'attack','att','atk': Mouse(190, 67, 30, 6, True);
'defence','def': Mouse(190, 104, 30, 6, True);
'magic','mage': Mouse(190, 143, 30, 6, True);
'prayer','pray': Mouse(190, 181, 30, 6, True);
'strength','str': Mouse(407, 67, 30, 6, True);
'ranged','range': Mouse(407, 104, 30, 6, True);
'hitpoints','hp': Mouse(407, 113, 30, 6, True);
end;
Wait(1000+random(600));
Mouse(190, 290, 100, 30, True);
Wait(1000+random(600));
I := 0;
Exit;
end;
end;
end;
end;
procedure SpendPoints;
begin
If Lowercase(SpendPointsOn) = 'dontspend' then
Terminate('We have gotten 250 points...Stopping script');
if ScriptFalse then Exit;
WalkVoid;
I := 0;
repeat
Wait(3000+random(1000));
if I > 3 then Terminate('Failed spending the points');
if ScriptFalse then Exit;
Inc(I);
Until(TalkVoid);
WalkPc;
end;
procedure ScriptTerminate;
begin
Proggy;
end;
procedure StartThings;
begin
First := True;
ScriptFalse := False;
SetupSrl;
DeclarePlayers;
MouseSpeed := 12 + Random(3);
repeat
Wait(300);
until(RSReady);
Wait(1000);
repeat
MMouse(369, 244, 7, 4);
GetMousePos(x, y);
until(x > 367);
SleepTimeX := 3000000 + Random(6000000);
MarkTime(SleepTime);
end;
procedure MainLoop;
begin
repeat
if TimeFromMark(SleepTime) > SleepTimeX then Rest;
II := 0;
repeat
Status('Outside the boat');
GoingInBoat;
Wait(1000);
Inc(II);
if FindNPCChatText('already have', Nothing) then SpendPoints;
if not Inboat and not InGame then MakeCompass('S');
until(InBoat) or (InGame) or (II > 3);
Status('In the boat');
WaitingForGameStart;
Status('In The game');
WalkToCenter(True);
repeat
WalkToCenter(False);
if Died then WalkToCenter(True);
kill;
if Random(8) = 1 then AntiBan;
Wait(120);
until not InGame;
until ScriptFalse;
TerminateScript;
end;
begin
StartThings;
if not LoggedIn then
begin
ChooseWorld144;
LoginPlayer;
end;
Retaliate(True);
SetRun(True);
SetAngle(True);
ClickToContinue;
MainLoop;
end.——————————————————
<!– END TEMPLATE: formanswers –>