99 mage

[Shuttleu]

i finally have evrything i need for 99 mage but it wont let me cast curse on the same thing more than once

so what i want to know is how do you cast curse on the same thing more than once in a matter of seconds

~shut

[Magiic]

wear full iron the mage bonus is like really low and you never hit, do it on the zammy munk in varrock castle

[Harry]

Wear full iron, dragonhide vamps, leather boots, nothing that increases mage level. Will fail 100% of the time.

If you want to save cash, buy a mystic mud staff, and use that. Spells will still fail ~95% of the time, but you'll save a lot on runes.

[JuKKa]

Go to wizzard tower top floor theres a lesser demon then use this script:


Program start;
//{.Include SRL/SRL/Misc/SMART.Scar}
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Magic.Scar}

Procedure DeclarePlayers;
Begin
SRLID := '';
SRLPassword := '';

CurrentPlayer := 0;
HowManyPlayers := 1;
NumberOfPlayers( HowManyPlayers );

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:= True;

SetPlayerNameTPAs;

Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
End;

Var
X, Y, Timer, RedDoor, LadderColor: Integer;

Procedure FindRandoms;
Begin
FindNormalRandoms;
//SetTimeout(2, 'FindRandoms');
End;

Procedure heh;
Var
I, X, Y, BMP: Integer;
Begin
Exit;
DisplayDebugImgWindow(766, 504);
CopyClientToBitmap(bmp, 0, 0, 766, 504);
GetMousePos(X, Y);
For I := 0 To 6 Do
Begin
Inc(X);
If(I = 3)Then
Begin
Y := Y + 1;
X := X - 3;
End;
FastSetPixel( bmp, X, Y, 255 );
End;
CopyCanvas(GetBitmapCanvas( bmp ), GetDebugCanvas, 0, 0, 766, 504, 0, 0, 766, 504);
SetTimeout(1, 'heh');
End;

Function FindLesserEx: Boolean;
var
I, CTS, x, y: Integer;
TPA: TPointArray;
aTPA: T2DPointArray;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.14, 1.66);
FindColorsSpiralTolerance(MSCX, MSCY + 100, TPA, 1252949, MSX1, MSY1, MSX2, MSY2, 10)
aTPA := TPAToaTPAEx(TPA, 50, 50);
SortATPASize(aTPA, True);
For I:= 0 To High(aTPA) Do
Begin
MiddleTPAEx(aTPA[I], X, Y);
If(High(aTPA[I]) < 400)Then Continue;
Result := True;
Break;
End;
ColorToleranceSpeed( CTS );
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Function FindLesser: Boolean;
var
I, CTS, x, y: Integer;
TPA: TPointArray;
aTPA: T2DPointArray;
//ObjectRecord: TAutoColorInfo;
Begin
{
with ObjectRecord do
begin
UpText := 'Lesser';
MaxDist := 15;
Color := 1252949;
HueMod := 0.14;
SatMod := 1.66;
LumTol := 10;
MinR := 46; MaxR := 124;
MinG := 9; MaxG := 55;
MinB := 5; MaxB := 41;
MinX := 1.29; MaxX := 9.62;
MinY := 0.81; MaxY := 6.70;
MinZ := 0.24; MaxZ := 2.78;
end;
If(FindObjRecordEx(x, y, ObjectRecord, MSX1, MSY1, MSX2, MSY2, False, True))Then
Begin
Mouse(X, Y, 0, 0, True);
Result := True;
End;
}
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.14, 1.66);
FindColorsSpiralTolerance(MSCX, MSCY + 100, TPA, 1252949, MSX1, MSY1, MSX2, MSY2, 10)
aTPA := TPAToaTPAEx(TPA, 50, 50);
SortATPASize(aTPA, True);
For I:= 0 To High(aTPA) Do
Begin
MiddleTPAEx(aTPA[I], X, Y);
If(High(aTPA[I]) < 400)Then Continue;
MMouse(X, Y, 0, 0);
Wait(80+Random(20)); { =) }
If(IsUpTextMultiCustom(['Lesser', 'ess', {poke}'mon']))Then
Begin
//Writeln('T '+IntTostr(High(aTPA[I])));
Mouse(X, Y, 0, 0, True);
Result := True;
Break;
End;
//Writeln('F '+IntTostr(High(aTPA[I])));
End;
ColorToleranceSpeed( CTS );
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Procedure CastCurse;
Var
SpellName: String;
Begin
If(Not LoggedIn)Then Exit;

Case( Players[CurrentPlayer].Level[6] )Of
1..2:
Begin
Writeln('Not Enough Magic LVL');
Logout;
End;
3..10: SpellName := 'Confuse';
11..18: SpellName := 'Weaken';
19..98: SpellName := 'Curse';
Else
Begin
Writeln('DING level 99 gratz!');
Logout;
End;
End;

Status('Casting ' + SpellName + ' Level ' + IntToStr( Players[CurrentPlayer].Level[6] ));
If( FindLesserEx )Then
If( Cast ( SpellName ))Then
If( FindLesser )Then
FTWait(1+Random(1)+Random(2))
Else
Begin
FTWait(1);
FindRandoms;
FTWait(1);
End
Else
Begin
Writeln('Out Of Runes...');
Logout;
End
Else
FTWait(1);
End;

Function GetDoorColor: Integer;
Var
TPA: TPointArray;
M, I, X, Y, T: Integer;
Begin
M := GetSystemTime;
FindColorsTolerance(TPA, 210, MMX1, MMY1, MMX2, MMY2, 45);
For I:= 0 To High(TPA) Do
Begin
X := TPA[I].X;
Y := TPA[I].Y;
T := GetColor(X, Y);
If(Not InRange(T, 200, 255))Then
Continue;
If(CountColor(T, X - 2, Y - 2, X + 2, Y + 2) > 2)Then
Result := T;
If(Result > 0)Then
Break;
End;
Writeln('Door Color = ' + IntToStr(Result) + ' Took ' + IntToStr(GetSystemTime - M)+ ' msec');
End;

Function Callibrate: Boolean;
Begin
If(Not LoggedIn)Then Exit;
If( (GetSystemTime - Timer) / 1000 > 2 * 60) Or (ClickContinue( False, False ))Then
Begin
While(ClickContinue( True, True ))Do
FTWait(2);
GetAllLevels;
Timer := GetSystemTime;
End;
//Writeln(IntToStr( 2 * 60 - (GetSystemTime - Timer) / 1000));
FTWait(1);
If(LadderColor = 0)Then
LadderColor := FindLadderColor;
If(RedDoor = 0)Then
RedDoor := GetDoorColor;
Result := FindColor(X, Y, LadderColor, MMX1, MMY1, MMX2, MMY2) And
(FindColor(X, Y, RedDoor, MMX1, MMY1, MMX2, MMY2));
If(FindFight)Then
Cast('Camelot Teleport');
End;

Begin
If(FindWindowBySize(766, 504))Then
Writeln('Found RS')
Else
Writeln('Couldnt Find RS');

SetupSRL;
MouseSpeed := 15+Random(10);
Writeln('Mousespeed := '+IntToStr(MouseSpeed)+';');
DeclarePlayers;
LoginPlayer;

FindRandoms;

SetChat('On',1);
SetChat('Off',2);
SetChat('Off',3);
SetChat('Off',4);
SetChat('Off', 5);

MakeCompass('n');
SetAngle(True);

SetRun(True);

GetAllLevels;

Timer := GetSystemTime;
Repeat
//Mainloop
CastCurse;
If(Not Callibrate)Then
Break;
Until(Not LoggedIn);

End.

.......... Lessers are cursed evil creatures ..............


I got lvl 59 in 3 days :)

[Shuttleu]

okay well im using it on the dummys in lumby but now i need to find a way of checking for randoms without switching to gametab 4 everytime

~shut

[Timer]

FindNonInventoryRandoms;

[Shuttleu]

FindNonInventoryRandoms;

yer i found that put about an hour ago but forgot to say so :s
sorry

owell it seems to be running fine over 1 hour and not 1 problem and its only 83 lines long :p
Mini codes ftw! :p

~shut

[Mjordan]

Tell us how far you get. I suppose you'll get banned around level 80 something

[alge]

Yes i would also like to know how far you get.

[Lorken]

what do you mane by "i have everything..." what mage lvl did you start at? it would have really expensive, ud have to be real rich. me, i cant even buy a rune 2h sword, lol. i have to use a addy scimmy until i get enough money.

[Mjordan]

what do you mane by "i have everything..." what mage lvl did you start at? it would have really expensive, ud have to be real rich. me, i cant even buy a rune 2h sword, lol. i have to use a addy scimmy until i get enough money.
Lol thats really sad man. I can make up around 900k-1m a day with just playing ten minutes. GE merchanting is all I have to tell you...

[Shuttleu]

about 3.5 mill
mystic mud staff and a hell of a lot of body runes
unfortunatly i died so nw to find out how to fix it

~shut

EDIT: added better antirandom so now it should work (i hope)

[m4r1us]

gratz on 99 mage. i got 99 fletching :P i will make a vid and tell the link youtube

[Markus]

gratz on 99 mage. i got 99 fletching :P i will make a vid and tell the link youtube
Noob of the day: l2read

[P1nky]

Use search button nub :)
JK lol haha

here all details with Pictures:

http://www.villavu.com/forum/showthread.php?t=36674

use my script or go die :P
jp lol.

[AlexR]

wear full iron and mage the monk of zamorak @ varrock

[Shuttleu]

Use search button nub :)
JK lol haha

here all details with Pictures:

http://www.villavu.com/forum/showthread.php?t=36674

use my script or go die :P
jp lol.

i would use it if it didnt use reflection :/

~shut

[tls]

shuttleu you should make a monk of zamorak curser!!! it curses almost all of the time, and he recovers fast!

[P1nky]

i would use it if it didnt use reflection :/

~shut

ooooo, hm not much reflection ; and im pretty sure you can take it out and replace within minutes :)

[Kemdo]

Have you tried the men in edgeville?

[Lorken]

Lol thats really sad man. I can make up around 900k-1m a day with just playing ten minutes. GE merchanting is all I have to tell you...
whats that mean? how do you do it? i barely make a k a day, lol. i have like 32k in bank right now, thats big money for me

[Capricorn]

whats that mean? how do you do it? i barely make a k a day, lol. i have like 32k in bank right now, thats big money for me

Lol wow. I made 1k in 15 minutes running a chicken script. If you are F2P you should be able to make a decent 80 - 100k a hour easy. Chopping Yews, Mining coal, running air runes.