SCAR Code:
Program ULTRAMager;
{.Include SRL/SRL.Scar}
//This is version 0.1.
//Next version is probally going to be a pay-script.
////////////////////////////////////////////////////
// WRITER: U L T R A \\
// CATEGORY: Magic \\
// DESCRIPTION: Curses Tz-Kek's in the fight cave \\
// ANTI-BAN: True \\
// ANTI-RANDOMS: False \\
////////////////////////////////////////////////////
//Instructions
{
1.Get to a wave when a Tz-Kek comes.
2.Stand behind a Sulphur vent.
3.Stand so Tz-Kek cant attack you, have your body runes ready.
4.Start logged in.
5.Wear armour/dragon hide, anything to lower your magic bonus, wear mud staff.
6.Set up const.
7.Drag the crosshair onto the runescape window.
8.Click run and enjoy.
}
//Instructions
Var
Cursed, Bans, Magic, x, y: Integer;
Const
ToCurse = 1000;//How many times you want to curse Tz-Kek?
DoAntiBan = True;//True if you want to use Anti-Ban. Very recommended.
TzKek = 11;//The color of Tz-Kek, pick it only if doesn't find Tz-Kek!
{ DO NOT TOUCH BELOW THIS POINT IF YOU ARE NOT AN ADVANCED SCRIPTER }
Procedure DeclareDTM;
Begin
Magic := DTMFromString('78DA6364676060E066800346205EC9F696811' +
'5CAFE0F048C7C400627030A1015E784AB07D32035FCA86A40E660' +
'A8614355131EBE1E530D0F7E35007C030AA8');
End;
Procedure AntiBan;
Begin
If(DoAntiBan = True)Then
Begin
Case Random(12)Of
0:Begin
MouseSpeed:=10;
MMouse(0, 0, 350, 350);
Wait(500+random(600));
Bans:=Bans+1;
End;
1:Begin
Wait(1000+random(1000));
MouseSpeed:=15;
GameTab(1+random(13));
Wait(1000+random(1000));
GameTab(7);
Bans:=Bans+1;
End;
2:Begin
MouseSpeed:=8;
MMouse(100, 100, 250, 300);
Wait(500+random(500));
Bans:=Bans+1;
End;
3:Begin
GameTab(1+random(13));
Wait(1000+random(1000));
GameTab(7);
Bans:=Bans+1;
End;
4:Begin
MouseSpeed:=20;
MMouse(200, 200, 300, 310);
Wait(500+random(1000));
Bans:=Bans+1;
End;
5:Begin
Wait(200+random(800));
GameTab(2);
HoverSkill('random', False);
Wait(500+random(2000));
GameTab(7);
Bans:=Bans+1;
End;
6:Begin
GameTab(1);
Wait(200+random(300));
GameTab(2);
Wait(300+random(200));
GameTab(3+random(2));
Wait(500+random(650));
GameTab(7);
Bans:=Bans+1;
End;
7:Begin
MouseSpeed:=10;
GameTab(5+random(5));
Wait(1000+random(755));
GameTab(7);
Bans:=Bans+1;
End;
8:Begin
MouseSpeed:=25;
MMouse(70, 130, 200, 320);
Wait(200+random(900));
Bans:=Bans+1;
End;
9:Begin
MouseSpeed:=16;
Wait(100+random(100));
GameTab(6+random(2));
Wait(100+random(1000));
GameTab(7);
Bans:=Bans+1;
End;
10:Begin
Wait(500+random(5000));
MMouse(100, 100, 211, 211);
Wait(1000+random(1000));
Bans:=Bans+1;
End;
11:Begin;
Wait(2000+random(2000))
End;
End;
Procedure Curse;
Begin
GameTab(7);
Wait(500+random(1000));
If(FindDTM(Magic, x, y, MSX1, MSY1, MSX2, MSY2))Then
Mouse(x, y, 2, 2, True);
Wait(500+random(500));
Begin
If(FindColor(Tolerance(x, y, TzKek, MSX1, MSY1, MSX2, MSY2, 10))Then
Mouse(x, y, 3, 3, True);
Wait(2000+random(2000));
Cursed:=Cursed+1;
End;
End;
Procedure Report;
Begin
ClearDebug;
Begin
WriteLn('ULTRAMager Version 0.1.');
WriteLn('--------------------------------------------------------------------');
WriteLn('Cursed ' + IntToStr(Cursed) + ' Times.');
WriteLn('Did ' + IntToStr(Bans) + ' Anti-Bans.');
WriteLn('--------------------------------------------------------------------');
End;
End;
Begin
SetUpSRL;
ActivateClient;
DeclareDTM;
Begin
Repeat
MouseSpeed:=15;
Curse;
AntiBan;
Report;
Until(Cursed = ToCurse);
If(Cursed = ToCurse)Then
Exit;
TerminateScript;
End;
End.