NiCbaZ
2008-11-16 00:16:54
BETE Release
Color Choper
-Yews EdgeVill
-Maples Cammy
- Willows Draynor
Credits to
Narcle,
Wizzup,
Nuakurda
all for some stuff
Not sure if yews and maples work that well, ( i think they should)
Just seeing if i could still script color really :d
Color Choper
-Yews EdgeVill
-Maples Cammy
- Willows Draynor
Credits to
Narcle,
Wizzup,
Nuakurda
all for some stuff
Not sure if yews and maples work that well, ( i think they should)
Just seeing if i could still script color really :d
program MultiChopper;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRl/SRl.scar}
{.include srl/srl/misc/users.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
x,y,loads,ent,meh,coal: integer;
angle: string;
const
loc = 'willow';
UpText = 'illow';
procedure Debug(s: string);
begin
Writeln(s);
Status(s);
Disguise(s);
end;
procedure Main; forward;
function AutoColor(huh: string): integer;
var
H,S,L,X,Y,Z : Extended;
R,G,B,A,TestColor : Integer;
TPA : TPointArray;
begin
case huh of
'MapleMM':
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 608887, MMX1, MMY1, MMX2, MMY2, 60)
for A := 0 to High(TPA) do
begin
if RS_OnMinimap(TPA[A].X, TPA[A].Y) then
begin
TestColor := GetColor(TPA[A].X, TPA[A].Y);
if SimilarColors(TestColor, 608887, 50) then
begin
ColorToRGB(TestColor, R, G, B);
ColorToHSL(TestColor, H, S, L);
ColorToXYZ(TestColor, X, Y, Z);
if InRange(R - G, 25, 65) then //-20 + 20
if InRange(R - B, 90, 130) then
if InRange(G - B, 45, 85) then
if InRange(Round(X) - Round(Y), -6, 8) then //-7 + 7
if InRange(Round(Y) - Round(Z), 1, 15) then
if GetColor(TPA[A].X + 2, TPA[A].Y + 2) = TestColor then
if GetColor(TPA[A].X + 1, TPA[A].Y + 1) = TestColor then
begin
Writeln('MapleMM = '+Inttostr(TestColor));
Result := TestColor;
Exit;
end;
end;
end;
Result := 0;
end;
end;
'BankerMM':
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 1179390, MMX1, MMY1, MMX2, MMY2, 63)
for A := 0 to High(TPA) do
begin
if RS_OnMinimap(TPA[A].X, TPA[A].Y) then
begin
TestColor := GetColor(TPA[A].X, TPA[A].Y);
if SimilarColors(TestColor, 10837, 50) then
begin
ColorToRGB(TestColor, R, G, B);
ColorToHSL(TestColor, H, S, L);
ColorToXYZ(TestColor, X, Y, Z);
if InRange(R - G, 23, 63) then
if InRange(R - B, 65, 105) then
if InRange(G - B, 22, 62) then
if InRange(Round(X) - Round(Y), -6, 8) then
if InRange(Round(Y) - Round(Z), -3, 11) then
if GetColor(TPA[A].X + 2, TPA[A].Y + 2) = TestColor then
if GetColor(TPA[A].X + 1, TPA[A].Y + 1) = TestColor then
begin
Writeln('BankerMM = '+Inttostr(TestColor));
Result := TestColor;
Exit;
end;
end;
end;
Result := 0;
end;
end;
end;
end;
function MapleDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..3] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 1068;
dtmMainPoint.y := 225;
dtmMainPoint.AreaSize := 2;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 2517857;
dtmMainPoint.Tolerance := 255;
dtmSubPoints[0].x := 1068;
dtmSubPoints[0].y := 225;
dtmSubPoints[0].AreaSize := 2;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 2517857;
dtmSubPoints[0].Tolerance := 255;
dtmSubPoints[1].x := 1059;
dtmSubPoints[1].y := 219;
dtmSubPoints[1].AreaSize := 2;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 608887;
dtmSubPoints[1].Tolerance := AutoColor('MapleMM');
dtmSubPoints[2].x := 1098;
dtmSubPoints[2].y := 223;
dtmSubPoints[2].AreaSize := 2;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := AutoColor('MapleMM');
dtmSubPoints[2].Tolerance := 60;
dtmSubPoints[3].x := 1107;
dtmSubPoints[3].y := 226;
dtmSubPoints[3].AreaSize := 2;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := AutoColor('MapleMM');
dtmSubPoints[3].Tolerance := 60;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
procedure showCurrentScreen;
var
w,h,bmp:integer;
begin
try
getClientDimensions(w,h);
displayDebugImgWindow(766,504);
bmp:=bitmapFromString(w,h,'');
CopyClientToBitmap(bmp,0,0,w,h);
safeCopyCanvas(GetBitmapCanvas(bmp),GetDebugCanvas,0,0,w,h,0,0,w,h);
except
writeln('couldnt copy canvas');
end;
freeBitMap(bmp);
end;
function SwapTree: Boolean;
var
TPA: TPointArray;
P: TPoint;
X, Y: Integer;
begin
case loc of
'yew':
begin
Case FindSymbol(x, y, 'Water source') of
True :If FindSymbolIn(x, y, 'Tree', 547, 89, 683, 155) Then
MouseFlag(x + 7, y - 3, 3, 3, 0);
False : If FindSymbolIn(x, y, 'Tree', 570, 6, 700, 76) Then
MouseFlag(x + 7, y + 3, 3, 3, 0);
end;
Exit;
end;
end;
FindColorsTolerance(TPA, 1063516, MMX1, MMY1, MMX2, MMY2, 60);
Result := (Length(TPA) > 3);
if (Result) then
begin
P := MiddleTPA(TPA);
X := P.X;
Y := P.Y;
Mouse(X, Y, 10, 10, True);
FFlag(1);
Exit;
end;
Exit;
end;
procedure WalkToMain; Forward;
procedure WalkToBank; Forward;
procedure DebugATPA(aPoints: T2DPointArray);
var
ClientBMP, I, I2: Integer;
B: TBox;
Begin
B := GetATPABounds(aPoints);
DisplayDebugImgWindow(B.x2 - B.x1, B.y2 - B.y1);
ClientBMP := BitmapFromString(B.x2 - B.x1, B.y2 - B.y1, '');
CopyClientToBitmap(ClientBMP, B.x1, B.y1, b.x2, b.y2);
for I := 0 to High(aPoints) do
begin
for I2 := 0 to High(aPoints[i]) do
FastSetPixel(ClientBMP, aPoints[i][I2].X - b.x1, aPoints[i][I2].Y - b.y1, Random(839894));
end;
SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
try
FreeBitmap(ClientBMP);
except
end;
end;
function FindFastBank: Boolean;
var
z,x,y,cts : Integer;
TPA: TPointArray;
TP : TPoint;
D2TPA: T2DPointArray;
begin
Flag;
Debug(' Finding Bank ');
Result:= False;
SetAngle(True);
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
case loc of
'maple': FindColorsSpiralTolerance(628+random(20),428+random(20), TPA, 8229016, MSX1 + 20, MSY1 + 20, MSX2 - 20, MSY2 - 20, 2);
'willow': FindColorsSpiralTolerance(628+random(20),428+random(20), TPA, 3751244, MSX1 + 20, MSY1 + 20, MSX2 - 20, MSY2 - 20, 2);
'yew': FindColorsSpiralTolerance(628+random(20),428+random(20), TPA, 8097175, MSX1 + 20, MSY1 + 20, MSX2 - 20, MSY2 - 20, 5);
end;
D2TPA:= TPAtoATPAEx(TPA,5,5);
DebugATPA(D2TPA);
For z:= 0 to length(D2TPA) - 1 Do
begin
FindNormalRandoms;
TP:= MiddleTPA(D2TPA[Z]);
x := TP.x;
y := TP.y;
MMouse (x, y, 3, 3);
if IsUpText('ank') then
begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(200+random(100));
Result:= ChooseOption('e-q');
Flag;
Exit;
end;
Wait(350+random(350));
end;
end;
Function FindMaple: Boolean;
Var
I: Integer;
TP: TPoint;
TPA: TPointArray;
TPAA2: Array Of TPointArray;
T2Darray: T2DPointArray;
Begin
SetArrayLength(TPAA2, 2);
case loc of
'maple': FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], 2241886, MSX1, MSY1, MSX2, MSY2, 4);
'willow': FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], 3494468, MSX1, MSY1, MSX2, MSY2, 4);
'yew': FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], 2651494, MSX1, MSY1, MSX2, MSY2, 4);
end;
if isFkeyDown(12) then showCurrentScreen;
TPA := CombineTPA(TPAA2[0], TPAA2[1]);
T2Darray := SplitTPAEx(TPA, 10, 10);
FindNormalRandoms;
FindTalk;
if Length(TPA) < 5 then
begin
case loc of
'maple':
begin
MakeCompass(angle);
SetAngle(False);
FindMaple;
FindTalk;
if Length(TPA) > 5 then
Angle:= 'w';
end;
'yew':
begin
SwapTree;
if Length(TPA) > 5 then
begin
FindMaple;
Exit;
end;
FindColorsSpiralTolerance(MSCX, MSCY, TPAA2[I], 2651494, MSX1, MSY1, MSX2, MSY2, 4);
TPA := CombineTPA(TPAA2[0], TPAA2[1]);
T2Darray := SplitTPAEx(TPA, 10, 10);
if Length(TPA) < 5 then
begin
Sleepandmovemouse(5000+random(4000));
case random(2) of
0:
begin
GameTab(Random(10));
Sleepandmovemouse(4000+random(6000));
end;
1:BoredHuman;
end;
end;
end;
end;
end;
For I:= 0 To High(T2Darray) Do
Begin
if isFkeyDown(12) then showCurrentScreen;
TP := MiddleTPA(T2Darray[I]);
Begin
FindTalk;
if FindEnt(TP.X, TP.Y, true) then
begin
Inc(ent);
WalkToBank;
WalkToMain;
FindMaple;
end;
MMouse(TP.X, TP.Y, 0, 0);
Wait(100+Random(50));
FindNormalRandoms;
If IsUpText('illow') then
Begin
Result := True;
TP.X:= X;
TP.Y:= Y;
FindTalk;
Exit;
End;
End;
End;
End;
function FindEdgevilleBank(var X, Y: Integer): Boolean;
var
I: Integer;
B: TBox;
Bankers: TPointArray;
aBankers: T2DPointArray;
begin
Result := False;
FindColorsTolerance(Bankers, 60909, MMX1, MMY1, MMCX, MMY2, 0);
aBankers := SplitTPA(Bankers, 35);
for I := 0 To High(aBankers) Do
If Length(aBankers[I]) = 4 Then
begin
B := GetTPABounds(aBankers[I]);
Result := True;
X := B.X1 - 8;
Y := B.Y2 - 5;
end;
end;
procedure ChopMaples;
var
x,y,z,w,p,v: integer;
i : Integer;
Deg: Variant;
ChopsPl: Integer;
begin
Players[CurrentPlayer].Loc := 'Cutting';
If Not LoggedIn Then
Exit;
repeat
z:= InvCount;
if InvFull then Exit;
if FindMaple then
begin
Case random(2) of
0:
begin
if isFkeyDown(12) then showCurrentScreen;
FindNormalRandoms;
GetMousePos(x,y)
FindTalk;
Mouse(x, y, 0, 0, True);
FindNormalRandoms;
Flag;
Wait(200+random(300));
SetAngle(True);
FindTalk;
end;
1:
begin
FindNormalRandoms;
if isFkeyDown(12) then showCurrentScreen;
GetMousePos(x,y)
FindTalk;
Mouse(x, y, 0, 0, False);
FindTalk;
Wait(100+ random(300));
ChooseOption('hop');
FindNormalRandoms;
Flag;
Wait(100+random(500));
SetAngle(True);
end;
end;
MarkTime(p);
repeat
Writeln('Cutting');
if isFkeyDown(12) then showCurrentScreen;
FindNormalRandoms;
Wait(100+random(200));
if inChat('do not have') then
begin
FindTalk;
Writeln('We have No PickAxe');
Players[CurrentPlayer].Loc := 'No PickAxe - In Mine';
NextPlayer(False);
Exit;
end;
if InChat('logs') then
begin
FindTalk;
Inc(chopsPL);
if ChopsPl > 5 then
ChopMaples;
end;
if FindEnt(x, y, true) then
begin
Inc(ent);
WalkToBank;
WalkToMain;
FindMaple;
end;
if FindFight then
begin
WalkToBank;
Logout;
wait(1*60000+random(1*30000));
LoginPlayer;
WalkToMain;
end;
w:= InvCount;
FindNormalRandoms;
FindTalk;
if InvFull then
Break;
if Not LoggedIn then
Exit;
FindTalk;
FindNormalRandoms;
x:= Random(5);
if x = 3 then
begin
FindNormalRandoms;
Deg := rs_GetCompassAngleDegrees;
for i := 1 to (3 + Random(11)) do
begin
if isFkeyDown(12) then showCurrentScreen;
FindTalk;
MMouse(Random(MSX2), Random(MSY2), 0, 0);
if IsUpText('opti') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('Examine');
FindTalk;
end;
FindNormalRandoms;
case Random(6) of
0: SendArrowSilentWait(((Random(2) * 2) + 1), 1000 + Random(200));
1: SendArrowSilentWait(((Random(2) * 2)), 1000 + Random(200));
2: SendArrowSilentWait(((Random(2) * 2) + 1), 200 + Random(200));
3: SendArrowSilentWait(((Random(2) * 2)), 200 + Random(200));
4: SendArrowSilentWait(((Random(2) * 2) + 1), 20 + Random(20));
5: SendArrowSilentWait(((Random(2) * 2)), 20 + Random(20));
end;
FindNormalRandoms;
FindTalk;
end;
if (Deg <> 0) then
MakeCompass(IntToStr(Round(Deg)))
else
MakeCompass('N');
SendArrowSilentWait(0, 750 + Random(500));
end else
begin
Wait(1000+random(3000));
case random(4) of
0: begin idleTime(500+random(500),800+random(200),0.01); FindNormalRandoms; end;
1: begin gametab(random(14)); FindNormalRandoms; end;
2:
begin
FindNormalRandoms;
mouse(random(msx2),random(msy2),0,0,false);
chooseOption('xamin');
end;
3: wait(1000+random(2000));
end;
FindNormalRandoms;
end;
case loc of
'yew':
begin
if TimeFromMark(p) > 13000+random(5000) then
Break;
end;
end;
if TimeFromMark(p) > 7000+random(5000) then
Break;
until(w > z)or(InvFull) or Not LoggedIn;
end;
v:= InvCount;
FindNormalRandoms;
if not z > v then
Break;
FindNormalRandoms;
until(InvFull)or(not(LoggedIn));
end;
procedure WalkToMain;
var
x,y: integer;
begin
Debug(' Walking To Trees ');
Players[CurrentPlayer].Loc := 'Walking To Tree';
MakeCompass('N');
case random(2) of
1: SetRun(true);
end;
FindNormalRandoms;
case loc of
'maple':
begin
if not RadialWalk(AutoColor('MapleMM'),160,170,90,2,2) then
begin
wait(300+random(200));
if FindSymbol(x,y,'tree') then
begin
case random(2) of
0:
begin
Mouse(609, 50, 10, 10, true);
FindNormalRandoms;
Flag;
Angle:= 'e';
Exit;
end;
1:
begin
Mouse(650, 50, 10 , 10,true);
FindNormalRandoms;
Flag;
Angle:= 'w';
Exit;
end;
end;
end;
end;
end;
'willow':
Begin
Mouse(600, 120, 20, 20, true);
FindTalk;
Wait(500);
While Not(FlagPresent) do
begin
GetMousePos(x, y);
FindTalk;
Mouse(x, y, 3, 3, True);
Wait(RandomRange(250, 750));
end;
FFlag(0);
FindTalk;
end;
'yew':
begin
if FindSymbol(x, y, 'Tree') then
begin
If FindSymbol(x, y, 'Tree') Then
Mouse(x + 8, y + 8, 0, 0, True);
FFlag(4);
end else
begin
RadialWalk(FindDirtRoadColor, 230, 160, 65, 10, 20);
Flag;
If FindSymbol(x, y, 'Tree') Then
Mouse(x , y , 0, 0, True);
Flag;
end;
end;
end;
end;
procedure WalkToBank;
var
DTM: Integer;
begin
case loc of
'maple':
begin
DTM := DTMFromString('78DA63CC616260A86500035608C590979BC6A' +
'001A41981F83F1030A601D59442E498A06AFEFC61625087AA0101' +
'C622A04C11A61A3964355540993222D41030070054EA1274');
MakeCompass('N');
Debug(' Walking To Bank ');
SymbolAccuracy := 0.8;
if DtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x + 10, y, 7, 7, True);
Writeln('DTM');
Flag;
Sleepandmovemouse(1000+random(300));
end else
if FindSymBol(x,y,'bank') then
begin
Mouse(x,y,3,3,true);
FFlag(0);
end;
FreeDTM(DTM);
end;
'willow':
begin
DTM := DTMFromString('78DA632C65666070616440061909090C92401' +
'A24FA1F08182B816ADC206A98A06AFEFD13661081AA0101B01A3B' +
'026A0A806ABC08A8A920AC0600EFDD119B');
if DTMRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
Begin
FindNormalRandoms;
FindTalk;
Mouse(x + 12, y, 2, 5, true);
WriteLn(' Dtm ');
Wait(500);
If Not(FlagPresent) then
repeat
FindTalk;
GetMousePos(x, y);
Mouse(x - 2, y, 0, 0, true);
Wait(500);
until(FlagPresent);
FindNormalRandoms;
FFlag(0);
FreeDTM(DTM);
end else
Begin
FreeDTM(DTM);
FindTalk;
if FindSymbol(x, y, 'fish') then
Begin
FindTalk;
Mouse(x + 29, y - 58, 2, 2, true);
FFlag(3);
FindTalk;
FindNormalRandoms;
end else
Begin
Mouse(654, 47, 2, 2, true);
FFlag(3);
FindNormalRandoms;
end;
end;
end;
'yew':
begin
If findSymbol(x,y,'dungeon') then
begin
Writeln(' Found Symbol');
Mouse(x+4,y-37,3,3,true);
Flag;
if FindEdgevilleBank(x,y) then
Begin
y:= y - 5;
Mouse(x,y,5,5,true);
If Not(FlagPresent) then
repeat
FindTalk;
FindNormalRandoms;
Wait(500);
until(FlagPresent);
Flag;
Writeln(' At t3h bank');
end else
if FindSymbol(x,y ,'bank') then
begin
y:= y -5;
Writeln(' Found bank Symbol');
Mouse(x,y,3,3,true);
If Not(FlagPresent) then
repeat
FindTalk;
FindNormalRandoms;
Wait(500);
until(FlagPresent);
Flag;
end;
end;
end;
end;
if not FindFastBank then
begin
Writeln('Failed To Find Bank');
Players[CurrentPlayer].Loc := 'Failed To Find Bank';
Main;
Exit;
end else
begin
FindNormalRandoms;
Writeln('Banking');
Wait(1000+random(500));
Deposit(2, 28, True);
Wait(500+random(300));
case random(2) of
1: CloseBank;
0: Wait(1);
end;
Wait(500+random(300));
Writeln('Banked');
Players[CurrentPlayer].Loc := 'Mining';
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function MehBreakTorz: Boolean;
By: Nicbaz
Description: Takes A Break
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function MehBreakTorz: Boolean;
var
BreakFor,T,H,Oh,S,time : integer;
begin
Result:= False;
case loc of
'yew': Time:= 30*60000 +Random(15*60000);
'willow':Time:= 14*60000 +Random(3*60000);
'yew': Time:= 14*60000 +Random(15*60000);
end;
if TimeFromMark(meh) > Time then
begin
Writeln(Players[CurrentPlayer].Name + (' : Sleeping '));
if (loads <= 10) and (loads > 1) then
BreakFor:= (2*60000+random(3*60000));
if (loads <= 20 ) and (loads > 10) then
BreakFor:= (2*60000+random(3*60000));
if (loads <= 30 ) and (loads > 20) then
BreakFor:= (2*60000+random(3*60000));
if (loads <= 40 ) and (loads > 30) then
BreakFor:= (2*60000+random(3*60000));
if (loads <= 50 ) and (loads > 40) then
BreakFor:= (2*60000+random(3*60000));
if loads > 50 then
BreakFor:= (2*60000+random(5*60000));
if loads > 100 then
BreakFor:= (15*60000+random(5*60000));
Result:= True;
Logout;
ConvertTime(BreakFor, H, Oh, S);
MarkTime(T);
WriteLn(Players[CurrentPlayer].Name + ': Break for: '+inttostr(oh)+ 'm:' +inttostr(S)+ 's');
Repeat
ConvertTime(BreakFor - TimeFromMark(T), H, oh, S)
Disguise(inttostr(oh)+ 'm:' +inttostr(S)+ 's Break');
wait(1000);
until (BreakFor < TimeFromMark(T))
T:= 0;
Meh:= 0;
BreakFor:= 0;
MarkTime(Meh);
begin
LoginPlayer;
end;
end;
end;
procedure Main;
var
I : integer;
Active : string;
Sec: Extended;
begin
if Not LoggedIn Then
Exit;
WalkToMain;
FindNormalRandoms;
Debug('Chopping Trees ');
ChopMaples;
if FindFight then
begin
WalkToBank;
Logout;
wait(1*60000+random(1*30000));
LoginPlayer;
WalkToMain;
end;
FindNormalRandoms;
WalkToBank;
FindNormalRandoms;
MakeCompass('n');
FindNormalRandoms;
ClearDebug;
FindNormalRandoms;
inc(loads);
coal:= coal + 27;
ClearDebug;
Sec := GetTimeRunning div 1000+1;
Writeln('[------------------------------------------------------------------------------]');
WriteLn('[ ]');
Writeln('[ Nicbaz Multi Chopper ]');
Writeln('[------------------------------------------------------------------------------]')
Writeln('[ Worked For : ' + TimeRunning );
Writeln('[ Banked : ' + IntToStr( Loads )+ ' Loads');
Writeln('[ Banks per hour : ' + IntToStr(Round(3600*Loads/Sec)));
WriteLn('[ Logs Choped : '+ Inttostr(Coal));
WriteLn('[');
Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
WriteLn('[ Players ]');
WriteLn('[ ]');
WriteLn('[ # | Nick | Active | Level ]');
{ for I := 0 to (HowManyPlayers) - 1 do
begin
if (Players[I].Active = True) then
Active := 'T'
else
Active := 'F';
end;
HowManyPlayers:= 2; }
// For I:= 0 To HowManyPlayers -1 Do
// WriteLn('[ '+ Padr(IntToStr(I), 3) + '| '+ Padr(Players[I].Nick, 6) + '| ' + Padr(Active, 6) +'|');
WriteLn('[ ]');
Writeln('[------------------------------------------------------------------------------]');
WriteLn('[ ]');
Writeln('[ Nicbaz Multi Chopper ]');
Writeln('[------------------------------------------------------------------------------]');
MehBreakTorz;
end;
begin
SMARTSetupEx(110, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetupSRL;
SrlPlayerForm(true,[],[],[' Stats User', ' Stats Pass','loc','uptext'],[]);
begin
LoginPlayer;
Writeln(' Logging In Player');
end;
markTime(meh);
repeat
Main;
Until(False);
end.