I got some Color Stuff for you, is color ok?
-Choclate buyer - 80 Flawless
- Pizza Buyer - 90% Flawless
- Potatoe Buyer - 90 % Flawless
SCAR Code:
{
__ __ _ _ _ _____ _ _
| \/ | | | | (_)/ ____| (_) | |
| \ / |_ _| | |_ _| (___ ___ _ __ _ _ __ | |_
| |\/| | | | | | __| |\___ \ / __| '__| | '_ \| __|
| | | | |_| | | |_| |____) | (__| | | | |_) | |_
|_| |_|\__,_|_|\__|_|_____/ \___|_| |_| .__/ \__|
| |
|_|
----------------------------------------------------
... Money Making Include ...
Choc, Pizza, Potatoe
----------------------------------------------------
_____
/ ____|
| | ___ _ __ ___
| | / _ \| '__/ _ \
| |___| (_) | | | __/
\_____\___/|_| \___|
----------------------------------------------------
... Money Making Include ...
Choc, Pizza, Potatoe
----------------------------------------------------
}
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Banking;
By: Nicbaz
Description: Banks the items
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Banking;
var
x, y,DTM: Integer;
begin
SetAngle(true);
If Not LoggedIn then
Exit;
FindNormalRandoms;
Wait(300 + random(160));
Writeln(Players[CurrentPlayer].Name + ': Is at the Banking');
if isFkeyDown(12) then showCurrentScreen;
case m of
'pizza': DTM := DTMFromString('78DA633CC4C8C0308501056CDF2ACEC00FA48' +
'1320CFF8180710F90D5C58006189148207D12C89A4740CD56206B' +
'1601356781AC7E026ACE03595309A8D902644DC0AF0600085D0F0' +
'0');
'potatoe' : DTM := DTMFromString('78DA63AC61606028604001DBB78933F000694' +
'620FE0F048C20F95C5435CB6714826946289FB10D4814A1AAE996' +
'13849B0356530C24CA70AB6102620080A60C7D');
'choc': DTM := DTMFromString('78DA632C636060C867400109D6CA0CD381342' +
'310FF0702C60620A390010D30229140BA1C4864105003B2A78C80' +
'9A2A20518E5F0D00FB3A09EB');
end;
if isFkeyDown(12) then showCurrentScreen;
repeat
case m of
'pizza','potatoe': OpenBankWg(3586770,'w');
'choc': OpenBankWg(2642543,'w');
end;
Tries := Tries + 1;
Until ((BankScreen) Or (Tries > 5) or (PinScreen));
If BankScreen Then
Begin
if isFkeyDown(12) then showCurrentScreen;
wait(1000+random(200));
FixBank;
wait(300+random(200));
if cooks = 0 then
QuickBanking;
wait(300+random(200));
if(FindDTM(DTM,x,y,mix1, miy1, mix2, miy2))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
Wait(300 + random(160));
if cooks > 0 then
QuickBanking;
Wait(300 + random(160));
end;
end;
case random(3) of
0,1: Wait(1);
2:CloseBank;
end;
FreeDTM(DTM);
Writeln(Players[CurrentPlayer].Name + ': Is Finished Banking');
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure ByThePizza;
By: Nicbaz & Gurt- idears from his script..
Description: Buys da Items
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Procedure ByPizza;
var
DTM,KZ,ll: Integer;
begin
if isFkeyDown(12) then showCurrentScreen;
Writeln(Players[CurrentPlayer].Name + ': Is Looking for Shop Keeper');
case m of
'pizza': DTM := DTMFromString('78DA633CC4C8C0308501056CDF2ACEC00FA48' +
'1320CFF8180710F90D5C58006189148207D12C89A4740CD56206B' +
'1601356781AC7E026ACE03595309A8D902644DC0AF0600085D0F0' +
'0');
'potatoe' : DTM := DTMFromString('78DA63AC61606028604001DBB78933F000694' +
'620FE0F048C20F95C5435CB6714826946289FB10D4814A1AAE996' +
'13849B0356530C24CA70AB6102620080A60C7D');
'choc': DTM := DTMFromString('78DA632C636060C867400109D6CA0CD381342' +
'310FF0702C60620A390010D30229140BA1C4864105003B2A78C80' +
'9A2A20518E5F0D00FB3A09EB');
end;
FindNormalRandoms;
if not (loggedIn) then
Exit;
MarkTime(Betty);
SymbolAccuracy := 0.4;
repeat
if isFkeyDown(12) then showCurrentScreen;
case m of
'potatoe','pizza': if (Find(7099990,'idio')) then Break;
'choc': if (Find(6251430,'okuh')) then Break;
end;
if TimeFromMark(Betty) > 14000 then
Begin
Writeln(' Lost Trying to get Back');
Inc(Kz);
if Losts Then
begin
Writeln(' Near Black OutLine');
Mouse(647,31,6,6,true);
Flag;
if (FindSymbol(x,y,'water'))then
begin
Mouse(x,y+12,2,2,true);
Flag;
end;
end else
if (FindSymbol(x,y,'water'))then
begin
Mouse(x,y +12,2,2,true);
Flag;
end;
case m of
'potatoe','pizza': if (FindNPC(7099990,'idio')) then Break;
'choc': if (FindNPC(6251430,'okuh')) then Break;
end;
if Kz > 3 then
begin
Writeln(' We Are Lost ');
if Not (FindSymbol(x,y,'water'))then
begin
Logout;
Lost:= True;
Exit;
end Else
begin
Mouse(x,y +12,2,2,true);
Flag;
Exit;
end;
end;
if isFkeyDown(12) then showCurrentScreen;
end;
until False;
begin
FFlag(0);
MarkTime(WindowTime);
Status('Waiting for shop screen');
repeat
if isFkeyDown(12) then showCurrentScreen;
if(TimeFromMark(WindowTime) > 15000)then
begin
if m = 'choc' then
Mouse(639,36,5,5,true);
Flag;
ByPizza;
Exit;
end;
until(GetColor(61,308) = 0);
if(not(GetColor(56,75) = 2070783))then
MarkTime(Betty1);
repeat
if isFkeyDown(12) then showCurrentScreen;
if not (loggedIn) then
Exit;
wait(2000 + random(500));
if(FindDTM(DTM,x,y,msx1,msy1,msx2,msy2))then
begin
Status('buyin the Potates');
Mouse(x,y,3,3,False);
ChooseOption('X');
begin
Wait(1000+random(300));
TypeSend(IntToStr(27+random(10)));
Break;
end;
end;
until(TimeFromMark(Betty1) > 15000);
end;
FreeDTM(DTM);
case random(3) of
0,1: Wait(1);
2:CloseWindow;
end;
Writeln(Players[CurrentPlayer].Name + ': Has Just Brought 27 '+ m +'s');
end;
Procedure DoTheBankWalk;
var
DTMz: Integer;
begin
Writeln(Players[CurrentPlayer].Name + ': Is Walking To The Bank');
If Not LoggedIn then
Exit;
case m of
'choc':
begin
if isFkeyDown(12) then showCurrentScreen;
SymbolAccuracy:=0.8;
DTMz := DTMFromString('78DA638C646260C86200032608C5D05C17C1F' +
'01F483302F17F20600C01CA24A2AAF9F38789811FAA0604188381' +
'32A9B8D530C2D4E4A0AAF9FA9501AE0624C61808244B709BC30CC' +
'4007A981241');
// If not RadialWalk(ChocRoadColor,253,267,60,3,3) then
begin
Mouse(571,99,7,7,true);
Flag;
end;
if isFkeyDown(12) then showCurrentScreen;
if not FindSymbol(x, y, 'bank') then
begin
if DTMRotated(DTMz, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
if isFkeyDown(12) then showCurrentScreen;
Mouse(x -2 , y +2 , 2, 2, true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
Exit;
end else
begin
if isFkeyDown(12) then showCurrentScreen;
Mouse(596,65-9 ,5,5,true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
exit;
end;
if FindSymbol(x, y, 'bank') then
begin
if isFkeyDown(12) then showCurrentScreen;
Mouse(x , y , 2-9, 2, true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
Exit;
end;
end;
if isFkeyDown(12) then showCurrentScreen;
Mouse(x , y -7 , 2, 2, true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
Exit;
end;
'pizza','potatoe':
begin
SymbolAccuracy:=0.4;
DTMz := DTMFromString('78DA6334676160F8CB80023278C518FE03694' +
'620FE0F048C1640355F50D5FCF9C3C420005503028C6A4035EF51' +
'D578C830C0D58030000F4D0B8D');
FindNormalRandoms;
if isFkeyDown(12) then showCurrentScreen;
if DTMRotated(DTMz, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x -2 , y +7 , 2, 2, true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
end else
begin
if isFkeyDown(12) then showCurrentScreen;
Writeln('Mut');
if FindSymbol(x, y, 'bank') then
begin
Mouse(x -5 , y +10 , 2, 2, true);
FFlag(0);
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
end else
begin
if isFkeyDown(12) then showCurrentScreen;
Writeln('Muta');
Mouse(596,102,4,4,true);
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
end;
end;
FreeDtm(DTMz);
if isFkeyDown(12) then showCurrentScreen;
end;
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure WalkToMain;
By: Nicbaz
Description: Walks To The Cross Roads In Fally
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure WalkToMain;
var
DTM: integer;
begin
if isFkeyDown(12) then showCurrentScreen;
case m of
'pizza','potatoe': DTM := DTMFromString('78DA639CCBC4C0E0C900066C108AC1D3DD85C' +
'108483302F17F2060EC06AA716440015F81F817540D0830F603D5' +
'2441D8AC5031334B530625A81A100600A9670A73');
'choc': DTM := DTMFromString('78DA639CCFC4C060C10006CC108AA1B92E82E' +
'13F906604E2FF40C03819A8C68401053C7BF68C410EAA060418DB' +
'806AAC09A80199238FA9468711A10600A14311F8');
end;
Writeln(Players[CurrentPlayer].Name + ': Is Starting To Walk To the '+ m +' shop');
case m of
'choc':
begin
if isFkeyDown(12) then showCurrentScreen;
SymbolAccuracy:=0.4;
// If not RadialWalk(ChocRoadColor,110,120,60,3,3) then
begin
Mouse(687,98,9,9,true);
Flag;
end;
if not FindSymbol(x, y, 'water') then
begin
Mouse(651,51,9,9,true);
Flag;
if isFkeyDown(12) then showCurrentScreen;
if DTMRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(X,Y,3,3,true);
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
Exit;
end;
if isFkeyDown(12) then showCurrentScreen;
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
end;
begin
if isFkeyDown(12) then showCurrentScreen;
Mouse(X,Y+13+random(7),4,4,true);
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
Exit;
end;
end;
'pizza','potatoe':
begin
if isFkeyDown(12) then showCurrentScreen;
SymbolAccuracy:=0.4;
if not FindSymbol(x, y, 'food shop') then
begin
Begin
if isFkeyDown(12) then showCurrentScreen;
Mouse(670,78,7,7,true);
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
Exit;
end;
end;
if isFkeyDown(12) then showCurrentScreen;
Mouse(X,Y,4,4,true);
Flag;
Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
Exit;
end;
end;
end;
SCAR Code:
{
__ __ _ _ _ _____ _ _
| \/ | | | | (_)/ ____| (_) | |
| \ / |_ _| | |_ _| (___ ___ _ __ _ _ __ | |_
| |\/| | | | | | __| |\___ \ / __| '__| | '_ \| __|
| | | | |_| | | |_| |____) | (__| | | | |_) | |_
|_| |_|\__,_|_|\__|_|_____/ \___|_| |_| .__/ \__|
| |
|_|
----------------------------------------------------
... Money Making Include ...
Choc, Pizza, Potatoe
----------------------------------------------------
______ _ _
| ____| | | (_)
| |__ _ _ _ __ ___| |_ _ ___ _ __ ___
| __| | | | '_ \ / __| __| |/ _ \| '_ \/ __|
| | | |_| | | | | (__| |_| | (_) | | | \__ \
|_| \__,_|_| |_|\___|\__|_|\___/|_| |_|___/
----------------------------------------------------
... Money Making Include ...
Choc, Pizza, Potatoe
----------------------------------------------------
FULL SCRIPT VAR's
----------------------------------------------------
}
var
x,y: Integer;
Betty,WindowTime,Betty1: integer;
cooks, fish,i,clays,tries,Meh : integer;
s: string;
Loads,Mo: integer;
Lost: Boolean;
procedure showCurrentScreen; forward;
procedure MainLoop; forward;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure DebugATPA(aPoints: T2DPointArray);
By: Nicbaz & Wizzup
Description: Draws all the ATPA Points
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure DebugATPA(aPoints: T2DPointArray);
var
ClientBMP, I, I2: Integer;
Pic: TBox;
Begin
If Debug = false then
Exit;
Pic := GetATPABounds(aPoints);
DisplayDebugImgWindow(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1);
ClientBMP := BitmapFromString(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1, '');
CopyClientToBitmap(ClientBMP, Pic.x1, Pic.y1, Pic.x2, Pic.y2);
for I := 0 to High(aPoints) do
begin
for I2 := 0 to High(aPoints[i]) do
FastSetPixel(ClientBMP, aPoints[i][I2].X - Pic.x1, aPoints[i][I2].Y - Pic.y1, Random(839894));
end;
SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
FreeBitmap(ClientBMP);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function OpenBankWg: Boolean;
By: SRL include Mod By Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function OpenBankWg(col: integer; angle:string): Boolean;
var
x, y, i, c, k: Integer;
Booths, t: TPointArray;
begin
Wait(400+random(200));
MakeCompass(angle);
k := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
FindColorsSpiralTolerance(MSCX, MSCY, Booths, col, MSX1, MSY1, MSX2, MSY2, 14);
ColorToleranceSpeed(k);
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
for i := 0 to GetArrayLength(Booths) -1 do
begin
if (not LoggedIn) or BankScreen or PinScreen then
Break;
MMouse(Booths[i].X, Booths[i].Y, 3, 3);
Wait(75 + Random(75));
case m of
'pizza','potatoe': if not IsUpText('ade') Then ConTinue;
'choc': if not IsUpText('ooth') Then ConTinue;
end;
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(70 + Random(75));
case m of
'pizza','potatoe': if not ChooseOption('ank') then Continue;
'choc': if not ChooseOption('uickly') Then Continue;
end;
begin
FFlag(0);
MarkTime(c);
repeat
Wait(100+random(30));
until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 3000);
end;
end;
end;
Result := (BankScreen) or (PinScreen);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function CountPlayers: Integer;
By: Nicbaz
Description: Counts the Players on the MM
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function CountPlayers: Integer;
var
Player : TPointArray;
D2TPA : T2DPointArray;
I, Final2DPA : Integer;
begin
FindColorsSpiralTolerance(MMCX, MMCY, Player, 45634536, MSX1, MSY1, MSX2, MSY2, 30);
D2TPA:= TPAtoATPAEx(Player,3,5);
DebugATPA(D2TPA);
for i := 0 to GetArrayLength(D2TPA) -1 /4 do
Result:= Result + 1;
Final2DPA:= GetArrayLength(D2TPA) -1 / 4;
Writeln(' There Are Currently '+ IntToStr(Final2DPA) +' On the MiniMap');
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Proggie;
By: Nicbaz
Description: Progress report
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Proggie;
begin
Writeln('');
s := '-––•(·-><-·)•–––';
for i := 1 to Length(TimeRunning) + 16 do
Insert('¤', s, 9);
Writeln(s);
Writeln('-––•(·->' + PadL(PadR('Nicbaz Item Buyer & WG', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––');
Writeln('-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––');
If Clays > 0 then
Writeln(PadR('-––•(·-> '+ m + ' Brought: ' + IntToStr(Clays), Length(s) - 9) + ' <-·)•–––');
If Cooks > 0 then
Writeln(PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––');
If Fish > 0 then
Writeln(PadR('-––•(·-> Profit Made: ' + IntToStr(Fish), Length(s) - 9) + ' <-·)•–––');
Writeln('-––•(·-> Time Running: ' + TimeRunning + ' <-·)•–––');
Writeln(s);
Writeln('Player Info:');
Disguise(PadR('-•(Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––');
for i := 0 to HowManyPlayers - 1 do
Writeln(' ' + Capitalize(Players[i].nick) + ': ' + Players[i].loc + ':' + +booltostr(Players[i].Active) + ':' );
Writeln('');
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function ChocRoadColor: Integer;
By: Nicbaz
Description: AutoColors The Road
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function ChocRoadColor: Integer;
var
H,S,L,X,Y,Z : Extended;
R,G,B,A,TestColor : Integer;
TPA : TPointArray;
begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 6787735, 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, 6787735, 50) then
begin
ColorToRGB(TestColor, R, G, B);
ColorToHSL(TestColor, H, S, L);
ColorToXYZ(TestColor, X, Y, Z);
if InRange(R - G, -15, 25) then
if InRange(R - B, 28, 68) then
if InRange(G - B, 23, 63) then
if InRange(Round(X) - Round(Y), -10, 4) then
if InRange(Round(Y) - Round(Z), 4, 18) 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('ChocRoadColor = '+Inttostr(TestColor));
Result := TestColor;
Exit;
end;
end;
end;
Result := 0;
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure QuickBanking;
By: SRL Include Modded By Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure WithdrawM(col, row, Amount: Integer);
Var
BBox: TBox;
begin
FixBankTab;
BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col - 1, Row - 1)));
If Amount = 1 Then
Begin
MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 1);
Wait(RandomRange(50, 150));
End
Else
Begin
MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 3);
wait(300+random(100));
if IsUpText('oins') then
begin
MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 2);
if InIntArray([5, 10], Amount) then
ChooseOption('Withdraw-' +IntToStr(Amount))
else if Amount = 0 then
ChooseOption('Withdraw-All')
else
if (ChooseOption('Withdraw-X')) then
begin
Wait(1000 + Random(200));
TypeSend(IntToStr(Amount));
end;
End else
begin
Inc(Mo);
if Mo > 5 then
begin
NextPlayer(False);
Exit;
end;
Writeln(' Money Not found.');
Exit;
end;
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure QuickBanking;
By: Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure QuickBanking;
begin
FindNormalRandoms;
begin
case m of
'pizza': WithdrawM(1,1,5400+random(100));
'potatoe' : WithdrawM(1,1,9500+random(100));
'choc' : WithdrawM(1,1,27*20+random(100));
end;
Wait(500+random(300));
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function Find: Boolean;
By: Nicbaz
Description: FindS the keeper
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function FindNPC(color: integer; text: string): Boolean;
Var
TPAs: TPointArray;
TPA: Tpoint;
D2TPA: T2DPointArray;
X,Y,I: Integer;
Begin
if isFkeyDown(12) then showCurrentScreen;
FindColorsSpiralTolerance(x,y,TPAs,color,MSX1, MSY1, MSX2,MSY2,12);
If length(TPAs) = 0 Then
Exit;
D2TPA:= TPAtoATPAEx(TPAs,13,13);
DebugATPA(D2TPA);
For i:= 0 to length(D2TPA) - 1 Do
begin
if isFkeyDown(12) then showCurrentScreen;
TPA:= MiddleTPA(D2TPA[i]);
MMouse(TPA.X, TPA.Y, 0, 0);
Wait(150 + Random(50));
If IsUpText(text) Then
begin
X:= TPA.X
Y:= TPA.Y
Mouse(x,y,2,2,false);
Wait(150 + Random(50));
Result:=ChooseOption('rade');
Exit;
end;
end;
Result:= False;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function Lost : Boolean;
By: Nicbaz
Description: See's if your lost
Status: Goof
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function losts : Boolean;
begin
Result:= CountColor(65536,mmx1,mmy1,mmx2,mmy2) > 500;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure showCurrentScreen;
By: Munk
Description: Debugs the SMART screen
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
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 MehBreakTorz: Boolean;
By: Nicbaz
Description: Takes A Break
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function MehBreakTorz: Boolean;
var
BreakFor,T,H,Oh,S : integer;
begin
if isFkeyDown(12) then showCurrentScreen;
Result:= False;
If TimeFromMark(Meh) > 20*60000 +Random(10*60000) then
begin
Writeln(Players[CurrentPlayer].Name + (' : Sleeping '));
if (Cooks <= 10) and (Cooks > 1) then
BreakFor:= (2*60000+random(3*60000));
if (Cooks <= 20 ) and (Cooks > 10) then
BreakFor:= (4*60000+random(3*60000));
if (Cooks <= 30 ) and (Cooks > 20) then
BreakFor:= (5*60000+random(3*60000));
if (Cooks <= 40 ) and (Cooks > 30) then
BreakFor:= (6*60000+random(3*60000));
if (Cooks <= 50 ) and (Cooks > 40) then
BreakFor:= (9*60000+random(3*60000));
if Cooks > 50 then
BreakFor:= (10*60000+random(5*60000));
if Cooks > 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
if isFkeyDown(12) then showCurrentScreen;
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 MainLoop;
By: Nicbaz
Description: Main Loop Of Script.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure MainLoop;
begin
Writeln(Players[CurrentPlayer].Name + ': Has Done '+ IntToStr(Cooks) +' Of '+ m);
Banking;
FindNormalRandoms;
WalkToMain;
FindNormalRandoms;
ByPizza;
FindNormalRandoms
DoTheBankWalk;
Cooks := Cooks + 1;
Clays := Clays + 27;
case m of
'pizza': Fish := Fish + 1890;
'pat' : Fish := Fish + 2592;
'choc' : Fish := Fish + 27*60;
end;
Writeln(Players[CurrentPlayer].Name + ': Has Just Finshed one load');
Fish := Fish + 1890;
Proggie;
SendSrlReport;
Loads:= Loads + 1;
if loads = Players[CurrentPlayer].Integers[0] then
TerminateScript;
If MehBreakTorz then
WriteLn(Players[CurrentPlayer].Name + ': Is Finshed Its First Sleep');
if isFkeyDown(12) then showCurrentScreen;
if Not LoggedIn then
TerminateScript;
end;