* 1. Use RuneScape with Low Detail, Very Bright.
* 2. Set your Screen to 32 bit TRUE color.
* 3. Setup lines below.
* 4. Start in Mage Arena Enchanting Chamber middle
* 5. Start script Logged Out.
* 6.SMART only
* 7.Set In cost how many cosmics you have because the script WILL not stop until it has done the amount of comics you set it to do, il add a failsafe or that later
* 8. POST ALL PROGGIES IN THE THREAD!
* 9. Fill In const
* 10 Where your Pizza point hat and use staffs when possible.
Future Updates
* 1. Sleeping
* 2. More failSafes
SCAR Code:
program MageArena;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRl/SRl.scar}
{.include srl/srl/reflection/reflection.scar}
{===================================================================]
[ NicBaz MaGEE AreNaAA EnChaNtR ]
[ ]
[ NAME : NicBaz MaGEE AreNaAA EnChaNtR ]
[ WRITER : Nicbaz. ]
[ CATEGORY : Magic ]
[ DESCRIPTION : Does the mage erna ]
[ USAGE : Start in Enchantment ]
[ AUTOCOLOR : Yes. ]
[ SRL Used : 4.0, Revision 22. ]
[ SCAR Used : 3.15b. ]
[ ]
[===================================================================]
[ Instructions. ]
[===================================================================]
[ 1. Use RuneScape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Setup lines below. ]
[ 4. Start script Logged Out. ]
[ 5. POST ALL PROGGIES IN THE THREAD! ]
[ ]
[===================================================================]
[ Some more info: ]
[ 1. This script is not the fastest one out there it is made to run ]
[ for a long time so dw if its not that fast. ]
[===================================================================]
[===================================================================]
[ Future Updates. ]
[===================================================================]
[ 1. Sleeping ]
[ 2. More Random Walking ]
[ 3. Better Banking ]
[===================================================================]
[ Const ]
[===================================================================]
[===================================================================]
}const //]
SmartWorld = 'world{yourworldhere}';// eg 'world31']
StatsUser = ''; //]
StatsPass = ''; //]
Spell = '5'; //] what enchant spell
NumberOfCosmics = 5714; //] // how many comics you have
{===================================================================]
[1.0- Relesed To Public ]
[===================================================================}
var
LoadsLeft,cooks: integer;
Color: string;
Xp,x,y: integer;
Enchanted: integer;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure DeclarePlayers;
By: Nicbaz
Description: Declare The Players for the login Array.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure DeclarePlayers;
begin
HowManyPlayers:= 3; // number of players
CurrentPlayer:= 0; // starting player
{Green out or Delete unused slots}
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='ack';
Players[0].Active:= True;
Players[0].Integers[2]:= 2;
Players[0].Integers[3]:= 2; // 1 All herbs, 2 Herbs + laws, 3 All Runes + Herbs
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure DeclarePlayers;
By: Nicbaz
Description: Declare The Players for the login Array.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function AllPlayersInactive1: boolean;
var
p: integer;
begin
for p:= 0 to HowManyPlayers - 1 do
if Players[p].Active then exit;
result:= true;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure SetupLvl;
By: Nicbaz / Sp0rk
Description: Sets the lvl + Xp;
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure SetupLvl;
var
MageLevel: integer;
begin
MageLevel := GetSkillInfo('magic',false);
Writeln('Your magic level is ' + IntToStr(MageLevel));
if (MageLevel <= 26) and (MageLevel > 5) then
Xp := 13;
if (MageLevel <= 48) and (MageLevel > 26) then
Xp := 28;
if (MageLevel <= 56) and (MageLevel > 48) then
Xp := 44;
if (MageLevel <= 67) and (MageLevel > 56) then
Xp := 50;
if (MageLevel <= 86) and (MageLevel > 67) then
Xp := 58;
if (MageLevel > 86) then
Xp := 72;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure SetupLvl;
By: Nicbaz % hy
Description: AntiBan
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure AntiBan;
var
I: integer;
begin
case Random(100) of
0: MMouse(random(MSX2), random(MSY2), 0, 0);
1: MouseSpeed := 9 + Random(3);
2: HoverSkill('random', false);
5: PickupMouse;
6:
begin
SetRun(True);
GameTab(4);
end;
7: MouseSpeed := 9 + Random(3);
8: MMouse(random(MSX2), random(MSY2), 0, 0);
9: Wait(1 + Random(100));
10:
begin
GameTab(1 + random(12));
for I := 0 to 6 do
Wait(300 + Random(200));
GameTab(4);
end;
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure DeclarePlayers;
By: Nicbaz
Description: Declare The Players for the login Array.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure SwitchPlayers(Active:boolean);
var
thenextplayer,thelastplayer:integer;
Start: boolean;
begin
Logout;
Players[CurrentPlayer].Active:= Active;
TheNextPlayer:= CurrentPlayer + 1;
TheLastPlayer:= HowManyPlayers - 1;
if (TheNextPlayer <= TheLastPlayer)then
begin
CurrentPlayer:= CurrentPlayer + 1;
end else
begin
CurrentPlayer:= 0;
end;
if not(Players[CurrentPlayer].Active)then
begin
repeat
CurrentPlayer:= random(HowManyPlayers);
until(Players[CurrentPlayer].Active)or(AllPlayersInactive1);
end;
// Proggy;
if AllPlayersInactive1 then
begin
writeln('All Players False');
TerminateScript;
end;
start:= true;
LoginPlayer;
wait(random(500));
SetAngle(True);
wait(random(500));
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function XpGained: integer;
By: Nicbaz
Description: Returns Ex gained in a Integer;
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function XpGained: integer;
begin
Result:= Xp* Enchanted;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Proggie;
By: Nicbaz % fr0zen
Description: Proggie
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Proggie;
var
s: string;
i, File: integer;
MageLevel : integer;
begin
MageLevel := GetSkillInfo('magic',false);
Writeln('');
s := '-––•(·-><-·)•–––';
for i := 1 to Length(TimeRunning) + 16 do
Insert('¤', s, 9);
Writeln(s);
Writeln('-––•(·->' + PadL(PadR('MaGeR AreNa EncHaNteRR', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––');
Writeln('-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––');
If Enchanted > 0 then
Writeln(PadR('-––•(·-> Enchanted Colected: ' + IntToStr(Enchanted), Length(s) - 9) + ' <-·)•–––');
If Cooks > 0 then
Writeln(PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––');
If Cooks > 0 then
Writeln(PadR('-––•(·-> Xp Gained: ' + InttoStr(XpGained), Length(s) - 9) + ' <-·)•–––');
If MageLevel > 0 then
Writeln(PadR('-––•(·-> Magic Lvl: ' + InttoStr(MageLevel), Length(s) - 9) + ' <-·)•–––');
Writeln('-––•(·-> Time Running: ' + TimeRunning + ' <-·)•–––');
Writeln(s);
Disguise(PadR('-•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––');
if FileExists(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt') then
Begin
File := OpenFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
ReadFileString(File, s, FileSize(File));
CloseFile(File);
File := LastPos(TheDate(1), s);
if File > 0 then
Begin
File := RewriteFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
Delete(s, LastPos(TheDate(1), s) - 1, Length(s));
WriteFileString(File, s);
CloseFile(File);
end;
end;
s := '-––•(·-><-·)•–––';
for i := 1 to Length(TimeRunning) + 16 do
Insert('¤', s, 9);
WriteINI(TheDate(1) + ', ' + TheTime, s, '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·->' + PadL(PadR('MaGeR AreNa EncHaNteRR', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
If Enchanted > 0 then
WriteINI(TheDate(1) + ', ' + TheTime, PadR('-––•(·-> Enchanted: ' + IntToStr(Enchanted), Length(s) - 9) + ' <-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
If Cooks > 0 then
WriteINI(TheDate(1) + ', ' + TheTime, PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·-> Time Running:', TimeRunning + ' <-·)•–––', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
Delete(s, 1, 1);
WriteINI(TheDate(1) + ', ' + TheTime, '', s, ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
File := OpenFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
ReadFileString(File, s, FileSize(File));
CloseFile(File);
s := Replace(s, '=', ' ');
File := RewriteFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
WriteFileString(File, s);
CloseFile(File);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function AreWeEnchnting: Boolean;
By: Nicbaz
Description: Are we enchanting?
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function AreWeEnchnting: Boolean;
begin
Result := GetMe.Animation = 931;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function WhereWalk;
By: Nicbaz / sp0rk-eh
Description: Finds Bonus;
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Enchant;
var
X,Y: Integer;
Enchanted1: integer;
begin
GameTab(7);
repeat
case Spell of
'1': begin x := 691 + random(8); y := 239 + random(8); end;
'2': begin x := 619 + random(8); y := 286 + random(8); end;
'3': begin x := 595 + random(8); y := 334 + random(8); end;
'4': begin x := 619 + random(8); y := 358 + random(8); end;
'5': begin x := 642 + random(8); y := 405 + random(8); end;
'6': begin x := 691 + random(8); y := 413 + random(8); end;
end;
if (not (LoggedIn)) then Exit;
wait(50+random(20));
wait(50+random(20));
Mouse(x, y, 1, 1, True);
wait(100 + random(50))
if FindColorSpiralTolerance(x, y, 15395565, 694, 434, 717, 454, 20) then
begin
Writeln('color found');
Exit;
end;
x := 693 + random(20)
y := 435 + random(20)
Mouse(x, y, 1, 1, True);
wait(250+random(200));
if not AreWeEnchnting then
Wait(50);
Enchanted:= Enchanted + 1;
Enchanted1:= Enchanted1 + 1;
if Enchanted1 > 50 then
begin
Writeln('Over 35');
Exit;
end;
wait(500+random(200));
case random(4) of
0,1,2: wait(2);
3:GameTab(7);
end;
until FindColorSpiralTolerance(x, y, 15395565, 694, 434, 717, 454, 12);
GameTab(4);
FindNormalRandoms;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function WalkToPath(Path: TPointArray; DoTile: Integer): Boolean;
By: Nicbaz
Description: Walks the path.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function WalkToPath(Path: TPointArray; DoTile: Integer): Boolean;
var
I: integer;
begin
for I := DoTile to High(Path) do
if not (WalkToTile(Path[i],3 , 3)) then
Exit;
FFlag(0);
Result := True;
FindNormalRandoms;
End;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function WalkThroughPath(Path: TPointArray): Boolean;;
By: Nicbaz
Description: Walks the path.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function WalkThroughPath(Path: TPointArray): Boolean;
begin
if not (WalkToPath(Path, 0)) then
begin
writeln('path some how is off');
Result:= False;
Exit;
end;
Result := True;
FindNormalRandoms;
End;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function Walk(where: string): boolean;
By: Nicbaz
Description: Loads the tiles and walks.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function Walk(where: string): boolean;
var
Tiles: TPointArray;
begin
if InvFull then
Enchant;
case where of
'Blue':Tiles := [Point(3373, 9631) , Point(3377, 9623)]; //done
'Red':Tiles := [Point(3356, 9632) , Point(3349, 9624)]; //done
'Yellow':Tiles := [Point(3356, 9647) , Point(3348 ,9654)]; //done
'Green':Tiles := [Point(3373, 9648) , Point(3378, 9654)]; //done
end;
if not WalkThroughPath(Tiles) then
begin
Tiles:= [Point(3362,9639)];
WalkThroughPath(Tiles)
Exit;
end;
Result:= True;
FindNormalRandoms;
SetRun(true);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function WalkBak(where: string): boolean;
By: Nicbaz
Description: Loads the tiles and walks.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function WalkBak(where: string): boolean;
var
Tiles: TPointArray;
begin
case where of
'Blue': Tiles := [Point(3373, 9631), Point(3362,9639)]; //done
'Red': Tiles := [Point(3356, 9632), Point(3362,9639)]; //done
'Yellow':Tiles := [Point(3356, 9647), Point(3362,9639)]; //done
'Green': Tiles := [Point(3371, 9646), Point(3362,9639)]; //done
end;
if not WalkThroughPath(Tiles) then
begin
Tiles:= [Point(3362,9639)];
WalkThroughPath(Tiles)
Exit;
end;
FindNormalRandoms;
Result:= True;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function WhereWalk;
By: Nicbaz
Description: Finds Bonus;
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure WhereWalk;
var
X,Y: integer;
begin
if FindColorTolerance(x,y,1864334,468,312,498,315,30) then
begin
Color:= ('Yellow');
Exit;
end;
if FindColorTolerance(x,y,1055870,468,312,498,315,30) then
begin
Color:= ('Red');
Exit;
end;
if FindColorTolerance(x,y,10098964,468,312,498,315,30) then
begin
Color:= ('Blue');
Exit;
end;
if FindColorTolerance(x,y,1543442,468,312,498,315,30) then
begin
Color:= ('Green');
Exit;
end;
FindNormalRandoms;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function Find(where : string): boolean;
By: Nicbaz
Description: Find Obects with reflection.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function FindMiddle(where : string; chooseop: string): boolean;
var
Tiles: TPointArray;
xx : TPoint;
begin
case where of
'Middle' : Tiles:= [Point(3363,9640)];
'Out' :Tiles:= [Point(3360,3318)];
end;
if (DistanceFrom(Tiles[0]) > 1) then
begin
WalkToTile(Tiles[0], 0, 0);
FFlag(0);
Wait(100+random(20));
end;
XX:= TileToMS(Tiles[0], 0);
Mouse(xX.X, xX.Y, 4, 4, False);
Wait(80 + Random(120));
Result:= ChooseOption(chooseop);
Flag;
FindNormalRandoms;
AntiBan;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function Find(where : string): boolean;
By: Nicbaz
Description: Find Obects with reflection.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function FindShape(where : string): boolean;
var
xx : TPoint;
ZZ : Integer;
obj : Integer;
begin
case where of
'Blue': Obj := 10801;
'Red': Obj := 10802;
'Yellow':Obj := 10799;
'Green': Obj := 10800;
end;
MarkTime(zz);
GameTab(4);
repeat
if FindObject(xX,Obj) then
XX:= TileToMS(XX, 0);
Mouse(xX.X, xX.Y, 5, 5, True);
Wait(30 + Random(10));
if TimeFromMark(zz) > 200000 then
Exit;
if InvFull then
Exit;
FindNormalRandoms;
until InvFull;
AntiBan;
Result:= True;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function AreWeOutSide: boolean;
By: Nicbaz
Description: Returns if your outside or not
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function AreWeOutSide: boolean;
begin
Result:= FindSymbol(x, y, 'minigame');
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure Getinside;
By: Nicbaz
Description: Returns if your outside or not
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Procedure Getinside;
var
Tiles: TpointArray;
begin
if not AreWeOutSide then
Exit;
wait(200+random(100));
Tiles:= [Point(3363,3312),Point(3362,9639)];
if WalkToTile(Tiles[0],3,3) then
FindMiddle('Out','nch');
wait(500+random(400));
if WalkToTile(Tiles[1],3,3) then
wait(500+random(400));
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure MiniLoop;
By: Nicbaz
Description: Find Obects with reflection.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure MiniLoop;
var
ZZ,x,y: integer;
begin
repeat
SetAngle(true);
if AreWeOutSide then
Getinside;
WhereWalk;
if Walk(Color) then
FindShape(color);
case random(2) of
0:
begin
if WalkBak(Color) then
Writeln('Walked Back');
Enchant;
end;
1:
begin
Enchant;
if WalkBak(color) then
Writeln('Walked Back');
end;
end;
MarkTime(zz);
sendsrlreport;
repeat
if FindMiddle('Middle','ole') then
Break;
if FindMiddle('Middle','ans') then
wait(1000+random(200));
wait(50+random(20));
if timefromMark(zz) > 30000 then
Break;
wait(1);
until False;
Cooks:= Cooks + 1;
Proggie;
if not LoggedIn then
begin
LoginPlayer;
if FindSymbol(x, y, 'minigame') then
Writeln('OutSide Chamber');
wait(2);
end;
FindNormalRandoms;
sendsrlreport;
until Enchanted >= NumberOfCosmics;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Signature;
By: Nicbaz
Description: ASCII sig
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Signature;
begin
Writeln(' _______ .__ __________ __________ .____ __ __ _________ ___________ __ __________ ');
Writeln(' \ \ |__| ____ \______ \_____ \____ / | | _____ __ _ __/ \ / \ \_ ___ \_______ _____ \_ _____/_/ |_ ____ \______ \ ');
Writeln(' / | \ | |_/ ___\ | | _/\__ \ / / | | \__ \ \ \/ \/ /\ \/\/ / / \ \/\_ __ \\__ \ | __) \ __\_/ __ \ | _/ ');
Writeln('/ | \| |\ \___ | | \ / __ \_ / /_ | |___ / __ \_\ / \ / \ \____| | \/ / __ \_| \ | | \ ___/ | | \ ');
Writeln('\____|__ /|__| \___ >|______ /(____ //_______ \ |_______ \(____ / \/\_/ \__/\ / \______ /|__| (____ /\___ / |__| \___ >|____|_ / ');
Writeln(' \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ ');
end;
procedure writemypos;
var
Tx:Tpoint;
begin
Tx:= GetMyPos;
Writeln('Point('+Inttostr(tx.x)+','+Inttostr(tx.y)+'),');
end;
begin
SmartSetUp(SmartWorld,true,true,false);
wait(2000);
SetTargetDC(SmartGetDC);
SetupSRL;
writemypos;
ScriptID := '889';
DeclarePlayers;
SRLID := StatsUser;
SRLPassword :=StatsPass;
LoginPlayer;
SetupLvl;
MiniLoop;
end.