SCAR Code:
{ [ Skilld EveryWhere Minz0r ]
[---------------------------------------------]
[ Writer: Skilld U ]
[ Category: Mining ]
[ Version: 1 ]
[---------------------------------------------]
-Locations Include:
+Varrock East Iron (VEMI) done
+Varrock East Copper and Tin (VEMCT) done
+Varrock West Iron (VWMI) done
+Varrock West Silver (VWMS) done
+Al-Kharid Iron (AKI)
+Al-Kharid Gold (AKG)
+Guild (Guild)
+Barbarian Village Coal (BBVC) done
+Rimmington Copper and Tin (RCT)
+Rimmington Iron (RI)
Credits:
Da 0wner for his awesome form making
skills. :p
}
program EveryWhereMinz0r;
{.include SRL/SRL.scar}
{.include srl/srl/misc/path.scar}
{.include srl/srl/misc/Users.scar}
{Fill This Out!}
Const
HowManyPlyrs = 1; // How many players are you using
CurrntPlyr = 0; // The current player
var
x, y, i : integer;
VEBankers : integer;
TheLevel, ClickHereToPlay : integer;
AntiBanz, Responded, WeDidIt, Gases, Loads, EdgeVilleBankers : integer;
EdgeVille1, EdgeVille1Color, EdgeVille2, EdgeVille2Color, EdgeVille3, EdgeVille3Color, EdgeVille4, EdgeVille4Color, EdgeVille5, EdgeVille5Color : integer;
TehPickColor : array [0..5] of integer;
Activeness : boolean;
procedure GetTheLevel;
begin
TheLevel := GetSkillInfo('mining', false);
Writeln('Your Mining Level is ' + IntToStr(TheLevel));
end;
function ClickPlayRunescape:boolean; //Thanks to SantaClause! :)
begin
if not(LoggedIn) then
begin
LoginPlayer;
FTWait(1);
FindNormalRandoms;
SetRun(True);
GetAllLevels;
Exit;
end;
ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
'26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
'067D37AC3D95AADF2F50962C79');
if FindBitmap(x, y, ClickHereToPlay) then
begin
Mouse(X, Y, 20, 20, True);
Wait(5000+Random(5000));
FindNormalRandoms;
SetRun(True);
GetAllLevels;
FreeBitmap(ClickHereToPlay);
Exit;
end;
FreeBitmap(ClickHereToPlay);
Result := True; //Result := True; //Just to remove that stupid "[Hint]: Variable 'Result' never used in script" 'error'..
end;
procedure TehRespond;
begin
if InChat('hey') or InChat('hi') or InChat('whats up?') or InChat('ello')
or InChat('wassup') or InChat('sup') or InChat('h ey') or InChat('h ello')
or InChat('hows it going') or InChat('was up') or InChat('w hats up') then
begin
case Random(10) of
0 : TypeSend('hi');
1 : TypeSend('hello');
2 : TypeSend('hey');
3 : TypeSend('sup');
4 : TypeSend('hola');
5 : TypeSend('yo');
6 : TypeSend('dont feel like talking now, sorry');
7 : TypeSend('sup');
8 : TypeSend('not now');
9 : TypeSend('please leave me alone');
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
if InChat('mining lvl') or InChat('mine lev') or InChat('min lv') then
begin
GetTheLevel;
case Random(8) of
0 : TypeSend(IntToStr(TheLevel));
1 : TypeSend(IntToStr(TheLevel) + ' you?');
2 : TypeSend(IntToStr(TheLevel) + ' lol');
3 : TypeSend('currently ' +IntToStr(TheLevel));
4 : TypeSend('right now ' +IntToStr(TheLevel));
5 : TypeSend('soon ' +IntToStr(TheLevel + 1));
6 : TypeSend('almost ' +IntToStr(TheLevel + 1));
7 : TypeSend(IntToStr(TheLevel));
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
if InChat('lol') or InChat('funny') or InChat('ha')or
InChat('wow') or InChat('rofl') or InChat('omg')then
begin
case Random(10) of
0 : TypeSend('lol');
1 : TypeSend('lmao');
2 : TypeSend('hehe');
3 : TypeSend('roflmao');
4 : TypeSend('rofl');
5 : TypeSend('funny funny');
6 : TypeSend('haha');
7 : TypeSend('omg');
8 : TypeSend('that was funny');
9 : TypeSend('lol!');
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
if InChat(Players[CurrentPlayer].Nick) then
begin
case Random(10) of
0 : TypeSend('leave me alone');
1 : TypeSend('get away from me please');
2 : TypeSend('what?');
3 : TypeSend('im busy');
4 : TypeSend('sorry, cant talk now');
5 : TypeSend('not now');
6 : TypeSend('busy');
7 : TypeSend('i am busy sorry');
8 : TypeSend('scram');
9 : TypeSend('go away');
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
if InChat('noob') or InChat('newb') or InChat('nub') or InChat('choob')
or InChat('ch00b') or InChat('n00b') or InChat('nooby') or InChat('nublet')
or InChat('newby') or InChat('nubby') then
begin
case Random(11) of
0 : TypeSend('thanks');
1 : TypeSend('w/e');
2 : TypeSend('thnx');
3 : TypeSend('thank you');
4 : TypeSend('thanks :p');
5 : TypeSend('your a noob');
6 : TypeSend('im not nub');
7 : TypeSend('i pwn you.');
8 : TypeSend('go away');
9 : TypeSend('you nub');
10 : TypeSend(';p');
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
if InChat('bye') or InChat('cya') or InChat('gtg') or InChat('im leaving')
or InChat('im going') or InChat('see you later') or InChat('l8r mate')
or InChat('l8r') or InChat('ttyl') or InChat('ttfn') or InChat('b ye')
or InChat('by') then
begin
case Random(11) of
0 : TypeSend('c ya');
1 : TypeSend('bye');
2 : TypeSend('ttyl');
3 : TypeSend('b ye');
4 : TypeSend('by');
5 : TypeSend('ttfn');
6 : TypeSend('b y');
7 : TypeSend('l8r');
8 : TypeSend('cya');
9 : TypeSend('l8r mate');
10 : TypeSend('bye');
end;
Responded := Responded + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
end;
Procedure RandomMovementX; //Nauman ftw!
Begin
Case Random (5) of
1:Begin
MMouse(727 - Random(200), 90 + Random(200), 0, 0);
IdleTime(300 + Random(300), 500, 0.5);
end;
2:Begin
MMouse(227 - Random(200), 290 + Random(200), 0, 0);
IdleTime(300 + Random(300), 500, 0.5);
end;
3:Begin
GameTab(1+Random(14))
end;
4,0: Wait(2000+Random(200))
end;
end;
procedure CompassMovement;
begin
case Random(4) of
0: begin
repeat
KeyDown(VK_Left);
Wait(50 + random(50));
KeyUp(VK_Left);
Wait(50 + random(50));
KeyDown(VK_Right);
Wait(50 + random(50));
KeyUp(VK_Right);
Wait(50 + random(50));
WeDidIt := WeDidIt + 1;
until WeDidIt = 10;
WeDidIt := 0;
MakeCompass('N');
end;
1: begin
repeat
KeyDown(VK_Right);
Wait(50 + random(50));
KeyUp(VK_Right);
Wait(50 + random(50));
KeyDown(VK_Left);
Wait(50 + random(50));
KeyUp(VK_Left);
Wait(50 + random(50));
WeDidIt := WeDidIt + 1;
until WeDidIt = 10;
WeDidIt := 0;
MakeCompass('N');
end;
2: begin
KeyDown(VK_Right);
Wait(1500 + random(200));
KeyUp(VK_Up);
Wait(50 + random(50));
MakeCompass('N');
end;
3: begin
KeyDown(VK_Left);
Wait(500 + random(250));
KeyUp(VK_Left);
Wait(500 + random(250));
MakeCompass('N');
end;
end;
end;
procedure MyAntiBannage;
begin
case Random(20) of
0: begin
RandomRClick;
Wait(40 + Random(20));
Mouse(40 - Random(20), 30 + Random(20), 5, 5, False);
Wait(10 + Random(55));
MMouse(5 + Random(60),5 + Random(60),5,5);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
1: begin
BoredHuman;
Wait(40 + Random(30));
MMouse(20,49,10,10);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
2: begin
RandomMovement;
Wait(40 + Random(25));
MMouse(403 - Random(45), 200 - Random(35), 5, 5);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
3: AlmostLogout;
4: begin
PickUpMouse;
Wait(30 + Random(40));
HoverSkill('random', False);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
5: begin
HoverSkill('mining', False);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
6: begin
MMouse(24 + Random(30), 29 + Random(30), 5, 5);
Wait(40 + Random(30));
ChooseOption('ancel');
Wait(40 + Random(30));
DoEmote(3);
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
7: begin
CompassMovement;
Wait(40 + random(30));
GameTab(1 + random(13));
Wait(40 + random(30));
RandomMovementX
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
8: begin
PickUpMouse;
Wait(40 + random(30));
CompassMovement;
Wait(40 + random(30));
RandomMovementX
AntiBanz := AntiBanz + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
end;
end;
function SkilldGas : boolean;
begin
if FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Wait(500 + random(500));
if FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10) then
begin
repeat
Wait(2000 + random(1230));
until not (FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10));
end;
end;
Result := True;
Gases := Gases + 1;
end;
procedure SkilldPickAttacher;
begin
TehPickColor[0] := 2110788;
TehPickColor[1] := 4473930;
TehPickColor[2] := 6645357;
TehPickColor[3] := 5059636;
TehPickColor[4] := 3227185;
TehPickColor[5] := 5656122;
for i := 0 to 5 do
if FindColorTolerance(x, y, TehPickColor[i], MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(x, y, 3, 3, false);
if ChooseOption('ake') then
begin
GameTab(5);
TakeOff(5);
GameTab(4);
for i := 0 to 5 do
if FindColorTolerance(x, y, TehPickColor[i], MIX1, MIY1, MIX2, MIY2, 10) then
begin
MMouse(x, y, 3, 3);
if IsUpText('Use') then
begin
Mouse(x, y, 3, 3, true);
Wait(250);
end;
for i := 1 to 28 do
begin
MMouseItem(i);
if (IsUpText('Pickaxe handle')) then
begin
GetMousePos(x, y);
Mouse(x, y, 3, 3, true);
Wait(500 + random(500));
end;
end;
end;
end;
end;
end;
function VarrockWestColors(TheNumber: integer) : integer;
var
VW_1, VW_2, VW_3, VW_4 : integer;
begin
if TheNumber = 1 then
begin
VW_1 := BitmapFromString(2, 2, 'beNorcS4qdf5f6lxa4lwKACI3BT' +
'o=');
Result := AutoColorThis(VW_1, 50, MMX1, MMY1, MMX2, MMY2);
FreeBitmap(VW_1);
end;
if TheNumber = 2 then
begin
VW_2 := BitmapFromString(1, 2, 'beNorcS4tcS4FAAg4Alk=');
Result := AutoColorThis(VW_2, 50, MMX1, MMY1, MMX2, MMY2);
FreeBitmap(VW_2);
end;
if TheNumber = 3 then
begin
VW_3 := BitmapFromString(2, 1, 'beNordc4tdf4PAAirAt0=');
Result := AutoColorThis(VW_3, 50, MMX1, MMY1, MMX2, MMY2);
FreeBitmap(VW_3);
end;
if TheNumber = 4 then
begin
VW_4 := BitmapFromString(2, 1, 'beNqL+p8XZZwHAAq3AsM=');
Result := AutoColorThis(VW_4, 50, MMX1, MMY1, MMX2, MMY2);
FreeBitmap(VW_4);
end;
end;
procedure VEMIron;
begin
repeat
ClickPlayRunescape;
if FindObjCustom(x, y, ['ock', 'Mine'], [2832993], 6) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
until (InvFull);
end;
procedure VEMCopperTin;
begin
repeat
ClickPlayRunescape;
begin
case (1) of
0 : begin
if FindObjCustom(x, y, ['ock', 'Mine'], [4681367], 10) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
end;
1 : begin
if FindObjCustom(x, y, ['ock', 'Mine'], [6382185], 10) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
end;
end;
end;
until (InvFull);
end;
procedure VWMIron;
begin
repeat
ClickPlayRunescape;
if FindObjCustom(x, y, ['ock', 'Mine'], [2503249], 6) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
until (InvFull);
end;
procedure VWMSilver;
begin
repeat
ClickPlayRunescape;
if FindObjCustom(x, y, ['ock', 'Mine'], [10198183], 6) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
until (InvFull);
end;
procedure AKIron;
begin
end;
procedure AKGold;
begin
end;
procedure Guild;
begin
end;
procedure BarbVillageCoal;
begin
repeat
if FindObjCustom(x, y, ['ock', 'Mine'], [2702653], 10) then
begin
repeat
SkilldGas;
until not SkilldGas;
Mouse(x, y, 5, 5, true);
repeat
Wait(500);
TehRespond;
MyAntiBannage;
until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
end;
until (InvFull);
end;
procedure RimmingtonCopperTin;
begin
end;
procedure RimmingtonIron;
begin
end;
procedure ToVEM;
begin
RoadColor := FindVarrockRoadColor;
Path[0].Mainpoint.x:=676;
Path[0].Mainpoint.y:=54;
Path[0].Subpoints[0].x:=658;
Path[0].Subpoints[0].y:=55;
Path[0].Subpoints[1].x:=688;
Path[0].Subpoints[1].y:=53;
Path[0].Subpoints[2].x:=672;
Path[0].Subpoints[2].y:=55;
Path[0].Subpoints[3].x:=681;
Path[0].Subpoints[3].y:=54;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[1].Mainpoint.x:=672;
Path[1].Mainpoint.y:=85;
Path[1].Subpoints[0].x:=649;
Path[1].Subpoints[0].y:=84;
Path[1].Subpoints[1].x:=695;
Path[1].Subpoints[1].y:=86;
Path[1].Subpoints[2].x:=664;
Path[1].Subpoints[2].y:=86;
Path[1].Subpoints[3].x:=683;
Path[1].Subpoints[3].y:=86;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[2].Mainpoint.x:=678;
Path[2].Mainpoint.y:=98;
Path[2].Subpoints[0].x:=645;
Path[2].Subpoints[0].y:=82;
Path[2].Subpoints[1].x:=691;
Path[2].Subpoints[1].y:=119;
Path[2].Subpoints[2].x:=670;
Path[2].Subpoints[2].y:=81;
Path[2].Subpoints[3].x:=684;
Path[2].Subpoints[3].y:=109;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[3].Mainpoint.x:=633;
Path[3].Mainpoint.y:=129;
Path[3].Subpoints[0].x:=651;
Path[3].Subpoints[0].y:=150;
Path[3].Subpoints[1].x:=639;
Path[3].Subpoints[1].y:=95;
Path[3].Subpoints[2].x:=636;
Path[3].Subpoints[2].y:=119;
Path[3].Subpoints[3].x:=644;
Path[3].Subpoints[3].y:=137;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[4].Mainpoint.x:=651;
Path[4].Mainpoint.y:=129;
Path[4].Subpoints[0].x:=646;
Path[4].Subpoints[0].y:=152;
Path[4].Subpoints[1].x:=638;
Path[4].Subpoints[1].y:=105;
Path[4].Subpoints[2].x:=651;
Path[4].Subpoints[2].y:=141;
Path[4].Subpoints[3].x:=644;
Path[4].Subpoints[3].y:=118;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[5].Mainpoint.x:=628;
Path[5].Mainpoint.y:=125;
Path[5].Subpoints[0].x:=635;
Path[5].Subpoints[0].y:=156;
Path[5].Subpoints[1].x:=627;
Path[5].Subpoints[1].y:=96;
Path[5].Subpoints[2].x:=630;
Path[5].Subpoints[2].y:=136;
Path[5].Subpoints[3].x:=624;
Path[5].Subpoints[3].y:=107;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[6].Mainpoint.x:=647;
Path[6].Mainpoint.y:=124;
Path[6].Subpoints[0].x:=660;
Path[6].Subpoints[0].y:=146;
Path[6].Subpoints[1].x:=629;
Path[6].Subpoints[1].y:=99;
Path[6].Subpoints[2].x:=659;
Path[6].Subpoints[2].y:=131;
Path[6].Subpoints[3].x:=632;
Path[6].Subpoints[3].y:=113;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[7].Mainpoint.x:=625;
Path[7].Mainpoint.y:=117;
Path[7].Subpoints[0].x:=616;
Path[7].Subpoints[0].y:=131;
Path[7].Subpoints[1].x:=635;
Path[7].Subpoints[1].y:=104;
Path[7].Subpoints[2].x:=619;
Path[7].Subpoints[2].y:=124;
Path[7].Subpoints[3].x:=635;
Path[7].Subpoints[3].y:=114;
Writeln(BoolToStr(FindPath(0, False)));
if FindSymbol(x, y, 'Mine') then
begin
Mouse(x, y, 3, 3, true);
FFlag(0);
Players[CurrentPlayer].Loc := 'Varrock East Mine';
Writeln('Successfully Made It To Varrock East Mine');
end;
if not FindSymbol(x, y, 'Mine') then
begin
Writeln('Lost :(');
NextPlayer(False);
end else
begin
Players[CurrentPlayer].Loc := 'Lost Walking To VEM';
Writeln('We Got Lost Walking To Varrock East Mine :(');
Logout;
NextPlayer(False);
Exit;
end;
end;
procedure BankFromVEM;
begin
RoadColor := FindVarrockRoadColor;
Path[0].Mainpoint.x:=671;
Path[0].Mainpoint.y:=46;
Path[0].Subpoints[0].x:=643;
Path[0].Subpoints[0].y:=23;
Path[0].Subpoints[1].x:=655;
Path[0].Subpoints[1].y:=74;
Path[0].Subpoints[2].x:=657;
Path[0].Subpoints[2].y:=26;
Path[0].Subpoints[3].x:=665;
Path[0].Subpoints[3].y:=63;
Path[0].Subpoints[4].x:=667;
Path[0].Subpoints[4].y:=34;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[1].Mainpoint.x:=597;
Path[1].Mainpoint.y:=59;
Path[1].Subpoints[0].x:=586;
Path[1].Subpoints[0].y:=25;
Path[1].Subpoints[1].x:=627;
Path[1].Subpoints[1].y:=71;
Path[1].Subpoints[2].x:=592;
Path[1].Subpoints[2].y:=41;
Path[1].Subpoints[3].x:=614;
Path[1].Subpoints[3].y:=63;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[2].Mainpoint.x:=616;
Path[2].Mainpoint.y:=51;
Path[2].Subpoints[0].x:=614;
Path[2].Subpoints[0].y:=14;
Path[2].Subpoints[1].x:=623;
Path[2].Subpoints[1].y:=75;
Path[2].Subpoints[2].x:=608;
Path[2].Subpoints[2].y:=25;
Path[2].Subpoints[3].x:=616;
Path[2].Subpoints[3].y:=58;
Path[2].Subpoints[4].x:=613;
Path[2].Subpoints[4].y:=40;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[3].Mainpoint.x:=629;
Path[3].Mainpoint.y:=35;
Path[3].Subpoints[0].x:=616;
Path[3].Subpoints[0].y:=12;
Path[3].Subpoints[1].x:=628;
Path[3].Subpoints[1].y:=73;
Path[3].Subpoints[2].x:=625;
Path[3].Subpoints[2].y:=23;
Path[3].Subpoints[3].x:=622;
Path[3].Subpoints[3].y:=56;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[4].Mainpoint.x:=598;
Path[4].Mainpoint.y:=48;
Path[4].Subpoints[0].x:=601;
Path[4].Subpoints[0].y:=16;
Path[4].Subpoints[1].x:=621;
Path[4].Subpoints[1].y:=76;
Path[4].Subpoints[2].x:=599;
Path[4].Subpoints[2].y:=29;
Path[4].Subpoints[3].x:=612;
Path[4].Subpoints[3].y:=56;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[5].Mainpoint.x:=631;
Path[5].Mainpoint.y:=51;
Path[5].Subpoints[0].x:=609;
Path[5].Subpoints[0].y:=20;
Path[5].Subpoints[1].x:=625;
Path[5].Subpoints[1].y:=74;
Path[5].Subpoints[2].x:=615;
Path[5].Subpoints[2].y:=35;
Path[5].Subpoints[3].x:=631;
Path[5].Subpoints[3].y:=63;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[6].Mainpoint.x:=613;
Path[6].Mainpoint.y:=70;
Path[6].Subpoints[0].x:=602;
Path[6].Subpoints[0].y:=51;
Path[6].Subpoints[1].x:=622;
Path[6].Subpoints[1].y:=75;
Path[6].Subpoints[2].x:=607;
Path[6].Subpoints[2].y:=61;
Path[6].Subpoints[3].x:=620;
Path[6].Subpoints[3].y:=74;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[7].Mainpoint.x:=591;
Path[7].Mainpoint.y:=75;
Path[7].Subpoints[0].x:=556;
Path[7].Subpoints[0].y:=77;
Path[7].Subpoints[1].x:=619;
Path[7].Subpoints[1].y:=70;
Path[7].Subpoints[2].x:=572;
Path[7].Subpoints[2].y:=75;
Path[7].Subpoints[3].x:=607;
Path[7].Subpoints[3].y:=72;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[8].Mainpoint.x:=595;
Path[8].Mainpoint.y:=89;
Path[8].Subpoints[0].x:=560;
Path[8].Subpoints[0].y:=92;
Path[8].Subpoints[1].x:=610;
Path[8].Subpoints[1].y:=88;
Path[8].Subpoints[2].x:=577;
Path[8].Subpoints[2].y:=91;
Path[8].Subpoints[3].x:=606;
Path[8].Subpoints[3].y:=88;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[9].Mainpoint.x:=594;
Path[9].Mainpoint.y:=87;
Path[9].Subpoints[0].x:=561;
Path[9].Subpoints[0].y:=87;
Path[9].Subpoints[1].x:=617;
Path[9].Subpoints[1].y:=86;
Path[9].Subpoints[2].x:=579;
Path[9].Subpoints[2].y:=89;
Path[9].Subpoints[3].x:=608;
Path[9].Subpoints[3].y:=89;
Writeln(BoolToStr(FindPath(0, False)));
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 3, 3, true);
FFlag(0);
end;
if not FindSymbol(x, y, 'bank') then
begin
VEBankers := DTMFromString('78DA63FCC2C4C0F0840105FCFFFF1F4C3342F' +
'98CAF806A5EA3AAF9F3870955CD2F20FF0D01359F8830E71D11E6' +
'7C23AC06000E881824');
if DTMRotated(VEBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
FFlag(0);
Players[CurrentPlayer].Loc := 'Varrock East Bank';
Writeln('Successfully Made It To Varrock East Bank');
end;
end else
begin
Players[CurrentPlayer].Loc := 'Lost Walking To VE Bank';
Writeln('We Got Lost Walking To Varrock East Bank :(');
Logout;
NextPlayer(False);
Exit;
end;
FreeDTM(VEBankers);
end;
procedure ToVWM;
begin
RoadColor := FindVarrockRoadColor;
Path[0].Mainpoint.x:=600;
Path[0].Mainpoint.y:=106;
Path[0].Subpoints[0].x:=629;
Path[0].Subpoints[0].y:=110;
Path[0].Subpoints[1].x:=577;
Path[0].Subpoints[1].y:=105;
Path[0].Subpoints[2].x:=621;
Path[0].Subpoints[2].y:=108;
Path[0].Subpoints[3].x:=587;
Path[0].Subpoints[3].y:=105;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[1].Mainpoint.x:=583;
Path[1].Mainpoint.y:=80;
Path[1].Subpoints[0].x:=555;
Path[1].Subpoints[0].y:=87;
Path[1].Subpoints[1].x:=605;
Path[1].Subpoints[1].y:=84;
Path[1].Subpoints[2].x:=573;
Path[1].Subpoints[2].y:=81;
Path[1].Subpoints[3].x:=598;
Path[1].Subpoints[3].y:=83;
Writeln(BoolToStr(FindPath(0, False)));
RadialWalk(VarrockWestColors(1), 188, 170, 37, 5, 5);
RadialWalk(VarrockWestColors(2), 191, 182, 58, 5, 5);
RadialWalk(VarrockWestColors(3), 174, 164, 55, 5, 5);
RadialWalk(VarrockWestColors(4), 154, 144, 63, 5, 5);
if FindSymbol(x, y, 'Mine') then
begin
Mouse(x, y, 3, 3, true);
FFlag(0);
Players[CurrentPlayer].Loc := 'Varrock West Mine';
Writeln('Successfully Made It To Varrock West Mine');
end;
if not FindSymbol(x, y, 'Mine') then
begin
Players[CurrentPlayer].Loc := 'Lost Walking To VWM';
Writeln('We Got Lost Walking To Varrock West Mine :(');
Logout;
NextPlayer(False);
Exit;
end;
end;
procedure BankFromVWM;
var
VWBankers : integer;
begin
RadialWalk(VarrockWestColors(4), 23, 34, 54, 5, 5);
RadialWalk(VarrockWestColors(3), 319, 327, 45, 5, 5);
RadialWalk(VarrockWestColors(2), 313, 320, 66, 5, 5);
RadialWalk(VarrockWestColors(1), 0, 5, 68, 5, 5);
RoadColor := FindVarrockRoadColor;
Path[0].Mainpoint.x:=588;
Path[0].Mainpoint.y:=26;
Path[0].Subpoints[0].x:=584;
Path[0].Subpoints[0].y:=44;
Path[0].Subpoints[1].x:=609;
Path[0].Subpoints[1].y:=15;
Path[0].Subpoints[2].x:=590;
Path[0].Subpoints[2].y:=39;
Path[0].Subpoints[3].x:=599;
Path[0].Subpoints[3].y:=24;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[1].Mainpoint.x:=664;
Path[1].Mainpoint.y:=59;
Path[1].Subpoints[0].x:=641;
Path[1].Subpoints[0].y:=67;
Path[1].Subpoints[1].x:=687;
Path[1].Subpoints[1].y:=55;
Path[1].Subpoints[2].x:=651;
Path[1].Subpoints[2].y:=61;
Path[1].Subpoints[3].x:=676;
Path[1].Subpoints[3].y:=56;
Writeln(BoolToStr(FindPath(0, False)));
RoadColor := FindVarrockRoadColor;
Path[2].Mainpoint.x:=669;
Path[2].Mainpoint.y:=73;
Path[2].Subpoints[0].x:=649;
Path[2].Subpoints[0].y:=82;
Path[2].Subpoints[1].x:=696;
Path[2].Subpoints[1].y:=71;
Path[2].Subpoints[2].x:=659;
Path[2].Subpoints[2].y:=79;
Path[2].Subpoints[3].x:=682;
Path[2].Subpoints[3].y:=74;
Writeln(BoolToStr(FindPath(0, False)));
if FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 3, 3, true);
FFlag(0);
end;
if not FindSymbol(x, y, 'bank') then
begin
Mouse(x, y, 3, 3, true);
FFlag(0);
end;
if not FindSymbol(x, y, 'bank') then
begin
VWBankers := DTMFromString('78DA63FCC2C4C0F0840105FCFFFF1F4C3342F' +
'98CBF806A1EA3AAF9F3870955CD4F20FF1601353F80FCCB04D47C' +
'03F24FA1AAF9F74F18450D00CDED1422');
if DTMRotated(VWBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
FFlag(0);
Players[CurrentPlayer].Loc := 'Varrock West Bank';
Writeln('Successfully Made It To Varrock West Bank');
end;
end else
begin
Players[CurrentPlayer].Loc := 'Lost Walking To VW Bank';
Writeln('We Got Lost Walking To Varrock West Bank :(');
Logout;
NextPlayer(False);
Exit;
end;
FreeDTM(VWBankers);
end;
procedure ToAKMine;
begin
end;
procedure BankFromAKMine;
begin
end;
procedure ToGuild;
begin
end;
procedure BankFromGuild;
begin
end;
procedure ToBarbMine;
begin
EdgeVille1 := BitmapFromString(1, 1, 'beNoL0sgHAAG4AOo=');
EdgeVille1Color := AutoColorThis(EdgeVille1, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille1Color,180,82,533,1,1);
EdgeVille2 := BitmapFromString(1, 1, 'beNpLcGgAAAIjASE=');
EdgeVille2Color := AutoColorThis(EdgeVille2, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille2Color,182,277,503,3,3);
EdgeVille3 := BitmapFromString(2, 2, 'beNorUu4sUv5fBCI7AR/2' +
'BO8=');
EdgeVille3Color := AutoColorThis(EdgeVille3, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille3Color,75,82,472,2,2);
EdgeVille4 := BitmapFromString(1, 1, 'beNprU2oAAAJZASk=');
EdgeVille4Color := AutoColorThis(EdgeVille4, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille4Color,211,277,505,1,1);
EdgeVille5 := BitmapFromString(2, 2, 'beNrLtGnItPmfCSIbACDr' +
'BRQ=');
EdgeVille5Color := AutoColorThis(EdgeVille5, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille5Color,196,277,491,3,3);
if FindSymbol(x, y, 'mine') then
begin
Mouse(x, y, 5, 5, true);
FFlag(0);
Players[CurrentPlayer].Loc := 'Barbarian Mine';
Writeln('We Successfully Walked To Barbarian Mine');
end else
begin
Players[CurrentPlayer].Loc := 'Lost Walking To Barbarian Mine';
Writeln('We Got Lost Walking To Barbarian Mine :(');
Logout;
NextPlayer(False);
Exit;
end;
FreeBitmap(EdgeVille1);
FreeBitmap(EdgeVille2);
FreeBitmap(EdgeVille3);
FreeBitmap(EdgeVille4);
FreeBitmap(EdgeVille5);
end;
procedure BankFromBarbMine;
begin
EdgeVille1 := BitmapFromString(1, 1, 'beNoL0sgHAAG4AOo=');
EdgeVille1Color := AutoColorThis(EdgeVille1, 50, MMX1, MMY1, MMX2, MMY2);
EdgeVille2 := BitmapFromString(1, 1, 'beNpLcGgAAAIjASE=');
EdgeVille2Color := AutoColorThis(EdgeVille2, 50, MMX1, MMY1, MMX2, MMY2);
EdgeVille3 := BitmapFromString(2, 2, 'beNorUu4sUv5fBCI7AR/2' +
'BO8=');
EdgeVille3Color := AutoColorThis(EdgeVille3, 50, MMX1, MMY1, MMX2, MMY2);
EdgeVille4 := BitmapFromString(1, 1, 'beNprU2oAAAJZASk=');
EdgeVille4Color := AutoColorThis(EdgeVille4, 50, MMX1, MMY1, MMX2, MMY2);
EdgeVille5 := BitmapFromString(2, 2, 'beNrLtGnItPmfCSIbACDr' +
'BRQ=');
EdgeVille5Color := AutoColorThis(EdgeVille5, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(EdgeVille5Color,43,97,588,1,1);
RadialWalk(EdgeVille4Color,350,262,617,2,2);
RadialWalk(EdgeVille3Color,354,262,608,3,3);
RadialWalk(EdgeVille2Color,357,262,615,2,2);
RadialWalk(EdgeVille1Color,348,262,605,1,1);
EdgeVilleBankers := DTMFromString('78DA63FCC2C4C0F09C0105FCFFFF1F4C3342F' +
'98CBF816A9EA1AAF9F3870955CD2F20FF1E01353F81FCABF8D500' +
'002D54105E');
if DTMRotated(EdgeVilleBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
FFlag(0);
Players[CurrentPlayer].Loc := 'EdgeVille Bank';
Writeln('Successfully Made It To EdgeVille Bank');
end else
begin
Players[CurrentPlayer].Loc := 'Lost Walking To EdgeVille Bank';
Writeln('We Got Lost Walking To EdgeVille Bank :(');
Logout;
NextPlayer(False);
Exit;
end;
FreeDTM(EdgeVilleBankers);
FreeBitmap(EdgeVille1);
FreeBitmap(EdgeVille2);
FreeBitmap(EdgeVille3);
FreeBitmap(EdgeVille4);
FreeBitmap(EdgeVille5);
end;
procedure ToRimmingtonMine;
begin
end;
procedure BankFromRimmingtonMine;
begin
end;
procedure Bank;
begin
case lowercase(Players[CurrentPlayer].Strings[0]) of
'VEMI' : begin
OpenBankFast('VEB');
FFlag(0);
end;
'VEMCT' : begin
OpenBankFast('VEB');
FFlag(0);
end;
'VWMI' : begin
OpenBankFast('VWB');
FFlag(0);
end;
'VWMS' : begin
OpenBankFast('VWB');
FFlag(0);
end;
'AKI' : begin
OpenBankFast('ak');
FFlag(0);
end;
'AKG' : begin
OpenBankFast('ak');
FFlag(0);
end;
'Guild' : begin
OpenBankFast('feb');
FFlag(0);
end;
'BBVC' : begin
OpenBankFast('eb');
FFlag(0);
end;
'RCT' : begin
OpenBankFast('feb');
FFlag(0);
end;
'RI' : begin
OpenBankFast('feb');
FFlag(0);
end;
end;
if BankScreen then
begin
for i := 2 to 28 do
begin
if ExistsItem(i) then
begin
MouseItem(i, false);
ChooseOption('ll');
Wait(1000 + random(500));
CloseBank;
Loads := Loads + 1;
end;
end;
end;
end;
procedure SortTheShit;
begin
case lowercase(Players[CurrentPlayer].Strings[0]) of
'VEMI' : begin
ToVEM;
VEMIron;
BankFromVEM;
Bank;
end;
'VEMCT' : begin
ToVEM;
VEMCopperTin;
BankFromVEM;
Bank;
end;
'VWMI' : begin
ToVWM;
VWMIron;
BankFromVWM;
Bank;
end;
'VWMS' : begin
ToVWM;
VWMSilver;
BankFromVWM;
Bank;
end;
'AKI' : begin
ToAKMine;
AKIron;
BankFromAKMine;
Bank;
end;
'AKG' : begin
ToAKMine;
AkGold;
BankFromAKMine;
Bank;
end;
'Guild' : begin
ToGuild;
Guild;
BankFromGuild;
Bank;
end;
'BBVC' : begin
ToBarbMine;
BarbVillageCoal;
BankFromBarbMine;
Bank;
end;
'RCT' : begin
ToRimmingtonMine;
RimmingtonCopperTin;
BankFromRimmingtonMine;
Bank;
end;
'RI' : begin
ToRimmingtonMine;
RimmingtonIron;
BankFromRimmingtonMine;
Bank;
end;
end;
end;
procedure ProgressReport;
begin
ClearReport;
SRLRandomsReport;
AddToReport('//========Skilld=========\\');
AddToReport('\\===EveryWhere Minzor===//');
AddToReport('/=====Da 0wner Pwnz:p=====\');
AddToReport('Worked for ' + TimeRunning);
AddToReport('Completed ' + IntToStr(Loads) + ' Loads--');
AddToReport('Used AntiBan ' + IntToStr(AntiBanz) + ' Times-');
AddToReport('\=========================/');
for i := 0 to Length(Players) - 1 do
begin
AddToReport('/=========================\');
for i := 0 to Length(Players) - 1 do
AddToReport(''+IntToStr(i) + ' : ' + Players[i].Name + ', Active : ' + BoolToStr(Players[i].Active)+', Loc : '+Players[i].Loc+' ');
AddToReport('\=========================/');
end;
SendSRLReport;
end;
Var
frmDesign : TForm;
frmDesign2 : TForm;
Label1 : TLabel;
GroupBox1 : TGroupBox;
Label3 : TLabel;
Label4 : TLabel;
Label2 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label11 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
ComboBox2 : TComboBox;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
ComboBox1 : TComboBox;
GroupBox2 : TGroupBox;
Label9 : TLabel;
Label10 : TLabel;
Edit5 : TEdit;
Edit6 : TEdit;
GroupBox3 : TGroupBox;
Label12 : TLabel;
Label13 : TLabel;
Label14 : TLabel;
Label15 : TLabel;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Label16 : TLabel;
Memo1 : TMemo;
Button9 : TButton;
CPlayer : Integer;
Version : Extended;
CurrentVersion : String;
Function VersionCheck : Boolean;
Begin
CurrentVersion := GetPage('http://skilldmultichopper.freehostia.com/versionchecker.txt');
If StrToFloat(CurrentVersion) = Version then Result := True;
End;
Procedure LodPlayers(HowMany, CurrentPlyr : Integer);
Var
i : integer;
Begin
HowManyPlayers := HowMany;
CurrentPlayer := CurrentPlyr;
NumberOfPlayers(HowManyPlayers);
For i := 0 to HowMany - 1 do
Begin
Players[i].Name := ReadINI('Player' + IntToStr(i), 'Name', AppPath + 'PlayerManager.ini');
Players[i].Pass := ReadINI('Player' + IntToStr(i), 'Password', AppPath + 'PlayerManager.ini');
Players[i].Nick := ReadINI('Player' + IntToStr(i), 'Nick', AppPath + 'PlayerManager.ini');
Players[i].Strings[0] := ReadINI('Player' + IntToStr(i), 'Location', AppPath + 'PlayerManager.ini');
Players[i].Integers[0] := StrToInt(ReadINI('Player' + IntToStr( i), 'Loads', AppPath + 'PlayerManager.ini'));
End;
End;
Procedure Start(Sender : TObject);
Begin
If ((Edit5.Text = '') or (Edit6.Text = '')) then
Begin
ShowMessage('Please enter a stats username and/or password.');
Exit;
End;
If ((Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') or (Edit4.Text = '') or (ComboBox1.Text = '') or (ComboBox2.Text = '')) then
Begin
ShowMessage('Please enter your user details.');
Exit;
End;
LodPlayers(HowManyPlyrs, CurrntPlyr);
SRLID := Edit5.Text;
SRLPassword := Edit6.Text;
Exit;
End;
Procedure Help(Sender : TObject);
Begin
ShowMessage('Go to SRL Forums. PM "Da 0wner" with details' + Chr(13) + 'about what you want.');
End;
Procedure GoForums(Sender : TObject);
Begin
OpenWebPage('http://skilldscripts.freeforums.org/index.php?sid=61a9c92a59ac8f6e0624dc3ce61eb9e0');
End;
Procedure CheckVersion(Sender : TObject);
Begin
Label12.Caption := 'Please Wait...';
If VersionCheck then Label12.Caption := 'You Are Up To Date';
If not VersionCheck then Label12.Caption := 'You Are Not Up To Date, Version ' + CurrentVersion + ' is avaliable.';
End;
Procedure PMNextPlayer(Sender : TObject);
Begin
If Label3.Caption = 'Current Player [50]' then Exit;
WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Loads', Edit4.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Location', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('SRLStats', 'SRLID', Edit5.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('SRLStats', 'SRLPass', Edit6.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Active', ComboBox2.Text, AppPath + 'PlayerManagerSK.ini');
CPlayer := CPlayer + 1;
Label3.Caption := 'Current Player [' + IntToStr(CPlayer) + ']';
Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');
End;
Procedure PMBackPlayer(Sender : TObject);
Begin
If Label3.Caption = 'Current Player [0]' then Exit;
WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('SRLStats', 'SRLID', Edit5.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('SRLStats', 'SRLPass', Edit6.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('SRLStats', 'Active', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');
CPlayer := CPlayer - 1;
Label3.Caption := 'Current Player [' + IntToStr(CPlayer) + ']';
Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
Edit5.Text := ReadINI('Player' + IntToStr(CPlayer), 'SRLID', AppPath + 'PlayerManagerSK.ini');
Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
ComboBox1.Text := ReadINI('SRLStats', 'Location', AppPath + 'PlayerManagerSK.ini');
ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');
End;
Procedure PMSavePlayer(Sender : TObject);
Begin
WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Location', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');
WriteINI('Player' + IntToStr(CPlayer), 'Loads', Edit4.Text, AppPath + 'PlayerManagerSK.ini');
End;
Procedure SafeInitForm2; Forward;
Procedure SafeShowFormModal2; Forward;
Procedure Go2Proggy(Sender : TObject);
Begin
SafeInitForm2;
SafeShowFormModal2;
End;
Procedure Go2Main(Sender : TObject);
Begin
FrmDesign2.ModalResult := MrOk;
End;
Procedure InitForm2;
Begin
frmDesign2 := CreateForm;
frmDesign2.Left := 257;
frmDesign2.Top := 114;
frmDesign2.Width := 249;
frmDesign2.Height := 448;
frmDesign2.Caption := 'frmDesign';
frmDesign2.Color := clHighlight;
frmDesign2.Font.Color := clWindowText;
frmDesign2.Font.Height := -11;
frmDesign2.Font.Name := 'MS Sans Serif';
frmDesign2.Font.Style := [];
frmDesign2.Visible := False;
frmDesign2.Position := poScreenCenter;
frmDesign2.PixelsPerInch := 96;
Label16 := TLabel.Create(frmDesign2);
Label16.Parent := frmDesign2;
Label16.Left := 16;
Label16.Top := 8;
Label16.Width := 199;
Label16.Height := 20;
Label16.Caption := 'Skilld Everywhere Minz0r';
Label16.Font.Color := clYellow;
Label16.Font.Height := -16;
Label16.Font.Name := 'MS Sans Serif';
Label16.Font.Style := [fsBold];
Label16.ParentFont := False;
Memo1 := TMemo.Create(frmDesign2);
Memo1.Parent := frmDesign2;
Memo1.Left := 8;
Memo1.Top := 40;
Memo1.Width := 225;
Memo1.Height := 345;
Memo1.ScrollBars := ssVertical;
Memo1.TabOrder := 8;
Memo1.ReadOnly := True;
Button9 := TButton.Create(frmDesign2);
Button9.Parent := frmDesign2;
Button9.Left := 64;
Button9.Top := 392;
Button9.Width := 105;
Button9.Height := 17;
Button9.Caption := 'Close';
Button9.TabOrder := 9;
Button9.OnClick := @Go2Main;
End;
Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 360;
frmDesign.Top := 68;
frmDesign.Width := 218;
frmDesign.Height := 608;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clHighlight;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
frmDesign.Position := poScreenCenter;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 16;
Label1.Top := 8;
Label1.Width := 177;
Label1.Height := 16;
Label1.Caption := 'Skilld EveryWhere Minz0r';
Label1.Font.Color := clYellow;
Label1.Font.Height := -13;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 8;
GroupBox1.Top := 40;
GroupBox1.Width := 193;
GroupBox1.Height := 249;
GroupBox1.Caption := 'Player Setup';
GroupBox1.Font.Color := clWindowText;
GroupBox1.Font.Height := -11;
GroupBox1.Font.Name := 'MS Sans Serif';
GroupBox1.Font.Style := [];
GroupBox1.ParentFont := False;
GroupBox1.TabOrder := 0;
Label3 := TLabel.Create(GroupBox1);
Label3.Parent := GroupBox1;
Label3.Left := 56;
Label3.Top := 16;
Label3.Width := 81;
Label3.Height := 13;
Label3.Caption := 'Current Player [0]';
Label4 := TLabel.Create(GroupBox1);
Label4.Parent := GroupBox1;
Label4.Left := 8;
Label4.Top := 40;
Label4.Width := 66;
Label4.Height := 16;
Label4.Caption := 'Username:';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -13;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 8;
Label2.Top := 64;
Label2.Width := 63;
Label2.Height := 16;
Label2.Caption := 'Password:';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label5 := TLabel.Create(GroupBox1);
Label5.Parent := GroupBox1;
Label5.Left := 8;
Label5.Top := 112;
Label5.Width := 41;
Label5.Height := 16;
Label5.Caption := 'Loads:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -13;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(GroupBox1);
Label6.Parent := GroupBox1;
Label6.Left := 8;
Label6.Top := 88;
Label6.Width := 64;
Label6.Height := 16;
Label6.Caption := 'Nickname:';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -13;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label7 := TLabel.Create(GroupBox1);
Label7.Parent := GroupBox1;
Label7.Left := 8;
Label7.Top := 160;
Label7.Width := 40;
Label7.Height := 16;
Label7.Caption := 'Active:';
Label7.Font.Color := clWindowText;
Label7.Font.Height := -13;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(GroupBox1);
Label8.Parent := GroupBox1;
Label8.Left := 16;
Label8.Top := 232;
Label8.Width := 164;
Label8.Height := 13;
Label8.Caption := 'Powered by Player Manager BETA';
Label11 := TLabel.Create(GroupBox1);
Label11.Parent := GroupBox1;
Label11.Left := 8;
Label11.Top := 136;
Label11.Width := 54;
Label11.Height := 16;
Label11.Caption := 'Location:';
Label11.Font.Color := clWindowText;
Label11.Font.Height := -13;
Label11.Font.Name := 'MS Sans Serif';
Label11.Font.Style := [];
Label11.ParentFont := False;
Edit1 := TEdit.Create(GroupBox1);
Edit1.Parent := GroupBox1;
Edit1.Left := 80;
Edit1.Top := 40;
Edit1.Width := 105;
Edit1.Height := 21;
Edit1.TabOrder := 0;
Edit2 := TEdit.Create(GroupBox1);
Edit2.Parent := GroupBox1;
Edit2.Left := 80;
Edit2.Top := 64;
Edit2.Width := 105;
Edit2.Height := 21;
Edit2.PasswordChar := '*';
Edit2.TabOrder := 1;
Edit3 := TEdit.Create(GroupBox1);
Edit3.Parent := GroupBox1;
Edit3.Left := 80;
Edit3.Top := 88;
Edit3.Width := 105;
Edit3.Height := 21;
Edit3.TabOrder := 2;
Edit4 := TEdit.Create(GroupBox1);
Edit4.Parent := GroupBox1;
Edit4.Left := 80;
Edit4.Top := 112;
Edit4.Width := 105;
Edit4.Height := 21;
Edit4.TabOrder := 3;
ComboBox2 := TComboBox.Create(GroupBox1);
ComboBox2.Parent := GroupBox1;
ComboBox2.Left := 80;
ComboBox2.Top := 160;
ComboBox2.Width := 105;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 4;
ComboBox2.Text := 'True';
ComboBox2.Items.Add('True');
ComboBox2.Items.Add('False');
Button1 := TButton.Create(GroupBox1);
Button1.Parent := GroupBox1;
Button1.Left := 8;
Button1.Top := 184;
Button1.Width := 89;
Button1.Height := 20;
Button1.Caption := '<-- Back';
Button1.TabOrder := 5;
Button1.OnClick := @PMBackPlayer;
Button2 := TButton.Create(GroupBox1);
Button2.Parent := GroupBox1;
Button2.Left := 96;
Button2.Top := 184;
Button2.Width := 89;
Button2.Height := 20;
Button2.Caption := 'Next -->';
Button2.TabOrder := 6;
Button2.OnClick := @PMNextPlayer;
Button3 := TButton.Create(GroupBox1);
Button3.Parent := GroupBox1;
Button3.Left := 8;
Button3.Top := 203;
Button3.Width := 177;
Button3.Height := 20;
Button3.Caption := 'Save Players';
Button3.TabOrder := 7;
Button3.OnClick := @PMSavePlayer;
ComboBox1 := TComboBox.Create(GroupBox1);
ComboBox1.Parent := GroupBox1;
ComboBox1.Left := 80;
ComboBox1.Top := 136;
ComboBox1.Width := 105;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 8;
ComboBox1.Text := 'VEMI';
ComboBox1.Items.Add('VEMI');
ComboBox1.Items.Add('VEMCT');
ComboBox1.Items.Add('VWMI');
ComboBox1.Items.Add('VWMS');
ComboBox1.Items.Add('AKI');
ComboBox1.Items.Add('AKG');
ComboBox1.Items.Add('Guild');
ComboBox1.Items.Add('BBVC');
ComboBox1.Items.Add('RCT');
ComboBox1.Items.Add('RI');
GroupBox2 := TGroupBox.Create(frmDesign);
GroupBox2.Parent := frmDesign;
GroupBox2.Left := 8;
GroupBox2.Top := 296;
GroupBox2.Width := 193;
GroupBox2.Height := 73;
GroupBox2.Caption := 'Stats Setup';
GroupBox2.TabOrder := 1;
Label9 := TLabel.Create(GroupBox2);
Label9.Parent := GroupBox2;
Label9.Left := 8;
Label9.Top := 16;
Label9.Width := 49;
Label9.Height := 16;
Label9.Caption := 'Stats ID:';
Label9.Font.Color := clWindowText;
Label9.Font.Height := -13;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [];
Label9.ParentFont := False;
Label10 := TLabel.Create(GroupBox2);
Label10.Parent := GroupBox2;
Label10.Left := 8;
Label10.Top := 40;
Label10.Width := 67;
Label10.Height := 16;
Label10.Caption := 'Stats Pass:';
Label10.Font.Color := clWindowText;
Label10.Font.Height := -13;
Label10.Font.Name := 'MS Sans Serif';
Label10.Font.Style := [];
Label10.ParentFont := False;
Edit5 := TEdit.Create(GroupBox2);
Edit5.Parent := GroupBox2;
Edit5.Left := 80;
Edit5.Top := 16;
Edit5.Width := 105;
Edit5.Height := 21;
Edit5.TabOrder := 0;
Edit6 := TEdit.Create(GroupBox2);
Edit6.Parent := GroupBox2;
Edit6.Left := 80;
Edit6.Top := 40;
Edit6.Width := 105;
Edit6.Height := 21;
Edit6.TabOrder := 1;
Edit6.PasswordChar := '*';
GroupBox3 := TGroupBox.Create(frmDesign);
GroupBox3.Parent := frmDesign;
GroupBox3.Left := 8;
GroupBox3.Top := 376;
GroupBox3.Width := 193;
GroupBox3.Height := 161;
GroupBox3.Caption := 'Additional Options ';
GroupBox3.TabOrder := 2;
Label12 := TLabel.Create(GroupBox3);
Label12.Parent := GroupBox3;
Label12.Left := 48;
Label12.Top := 48;
Label12.Width := 101;
Label12.Height := 13;
Label12.Caption := 'Version Not Checked';
Label13 := TLabel.Create(GroupBox3);
Label13.Parent := GroupBox3;
Label13.Left := 8;
Label13.Top := 72;
Label13.Width := 171;
Label13.Height := 13;
Label13.Caption := 'Need a form done? Don'#39't know how';
Label14 := TLabel.Create(GroupBox3);
Label14.Parent := GroupBox3;
Label14.Left := 8;
Label14.Top := 88;
Label14.Width := 171;
Label14.Height := 13;
Label14.Caption := 'to do it? PM Da 0wner and he'#39'll do it';
Label15 := TLabel.Create(GroupBox3);
Label15.Parent := GroupBox3;
Label15.Left := 8;
Label15.Top := 104;
Label15.Width := 35;
Label15.Height := 13;
Label15.Caption := 'for you.';
Button4 := TButton.Create(GroupBox3);
Button4.Parent := GroupBox3;
Button4.Left := 16;
Button4.Top := 24;
Button4.Width := 81;
Button4.Height := 17;
Button4.Caption := 'Check Version';
Button4.TabOrder := 0;
Button4.OnClick := @CheckVersion;
Button5 := TButton.Create(GroupBox3);
Button5.Parent := GroupBox3;
Button5.Left := 96;
Button5.Top := 24;
Button5.Width := 81;
Button5.Height := 17;
Button5.Caption := 'Skilld Forums';
Button5.TabOrder := 1;
Button5.OnClick := @GoForums;
Button6 := TButton.Create(GroupBox3);
Button6.Parent := GroupBox3;
Button6.Left := 56;
Button6.Top := 120;
Button6.Width := 81;
Button6.Height := 17;
Button6.Caption := 'More Info';
Button6.TabOrder := 2;
Button6.OnClick := @Help;
Button8 := TButton.Create(GroupBox3);
Button8.Parent := GroupBox3;
Button8.Left := 56;
Button8.Top := 136;
Button8.Width := 81;
Button8.Height := 20;
Button8.Caption := 'Proggy';
Button8.TabOrder := 3;
Button8.OnClick := @Go2Proggy;
Button7 := TButton.Create(frmDesign);
Button7.Parent := frmDesign;
Button7.Left := 64;
Button7.Top := 544;
Button7.Width := 81;
Button7.Height := 21;
Button7.Caption := 'Start Script';
Button7.TabOrder := 3;
Button7.OnClick := @Start;
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 SafeInitForm2;
Var
v: TVariantArray;
Begin
setarraylength(V, 0);
ThreadSafeCall('InitForm2', v);
End;
Procedure ShowFormModal2;
Begin
frmDesign2.ShowModal;
End;
Procedure SafeShowFormModal2;
Var
v: TVariantArray;
Begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal2', v);
End;
begin
Version := 1.00;
CPlayer := 0;
SetupSRL;
ScriptID := '000';
SafeInitForm;
If ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini') <> '' then Begin
Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');
SafeShowFormModal;
Wait(1000);
ActivateClient;
repeat
LoginPlayer;
repeat
SortTheShit;
until (Loads = Players[CurrentPlayer].Integers[0]);
NextPlayer(LoggedIn);
until (false); //0.o
end.