Well this is my curser script so far. I know my standards stink :P but i just want some feedback from you guys on what i could do to improve the script. Keep in mind it's not done tho.
SCAR Code:
program jesus45lumbypwner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
var
x, y, BodyRune, Curse: integer;
const
///////////////////////////////////////////////////////
//
SmartWorld = 61; //what world? //
MembersAccount = False; // True for members //
//
//////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
{////////////////////////////////////////////////////////////////////////
//
DO NOT TOUCH BELOW HERE, UNLESS YOU KNOW WHAT YOUR DOING ;) //
//
}////////////////////////////////////////////////////////////////////
procedure Hello;
begin
writeln('-------------------------------------------------------*');
writeln(' WElCOME TO JESUS45 CURSE OWNER *');
writeln(' *');
writeln(' ENJOY! *');
writeln(' *');
writeln(' and dont be a noob or ill flamzor you :) *');
writeln('-------------------------------------------------------*');
end;
///////////////////////////////////////////////////////////////////////
Procedure Dtms;
begin
BodyRune := DTMFromString('78DA63B466666098C2C8800CFA5A5A18F8803' +
'448F43F1030BA02D574A1AA81C8C24820ED06543397801A33A09A' +
'4504D4E802D54C23A0460FA8A60FBF1A00840A0AA2');
end;
///////////////////////////////////////////////////////////////
Procedure FindRune;
begin
GameTab(7);
Wait(200+random(200));
if findDTM(BodyRune,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Wait(200+random(300));
Writeln('Found the body rune!');
end else
Writeln('Could not find body rune DTM');
end;
end;
//////////////////////////////////////////////////////////////////
Function CastCurse: boolean;
var
MyTPA :TPointArray;
MyPoint : TPoint;
x, y, i : integer;
Which : integer;
begin
FindColorsTolerance(MyTPA, 2456554, MSX1, MSY1, MSX2, MSY2,10);
if Length(MyTPA) = 0 then
FindColorsTolerance(MyTPA, 2234344, MSX1, MSY1, MSX2, MSY2, 10);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i]
MMouse(MyPoint.x, MyPoint.y, 3, 3);
Wait(50+random(50));
if(IsUpTextMultiCustom(['dum', 'mmy'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(250+random(100));
Wait(100+random(50));
Exit;
end;
Wait(300+random(400));
Wait(100+random(50));
end;
end;
//////////////////////////////////////////////////////////////
procedure SetupMagic;
var
x, y: integer;
begin
GameTab(7);
Wait(200+random(300));
Cast('curse');
begin
Wait(300+random(500));
Wait(100+random(50));
end;
end;
/////////////////////////////////////////////////////////
procedure ScriptSetup;
begin
SetupSRL;
SmartSetupEx(SmartWorld, MembersAccount, True, False);
while(not SmartActive)do Wait(100);
SetTargetDC(SmartGetDC);
end;
////////////////////////////////////////////////////////
Procedure AntiBanage;
begin
case random(5) of
1:PickUpMouse;
Wait(150+random(100));
end;
2:RandomMovement;
Wait(200+random(100));
end;
3:RandomClick;
Wait(200+random(85));
4: begin
MakeCompass('N');
Wait(50+random(25));
MakeCompass('S');
Wait(75+random(15));
MakeCompass('N');
Wait(100+random(10));
end;
end;
////////////////////////////////////////////////////////
begin
ScriptSetup
DeclarePlayers;
Hello;
end.