Simba Code:
program MageGuildStunAlcher;
{$define srl5}
{$loadlib sps}
{$define smart}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$i srl/srl/skill/magic.simba}
const
zomcol1 = 5601688; //may need to change these using the eye dropper..
zomcol2 = 3553336; //zomcol means zombie color.....
zomcol3 = 8423045;
var
X, Y :integer;
//////////////////////////////\PLAYER SETUP\////////////////////////////////////
procedure declareplayers; //Declareplayers
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 lower case letters of your username
Players[0].Active:= True; //is this player active?
end;
////////////////////////////////////////////////////////////////////////////////
//// NO MORE TOUCHING ///////////////////////////////////// NO MORE TOUCHING////
////////////////////////////////////////////////////////////////////////////////
Procedure Randoms; //randoms
begin
writeln('any randoms?');
FindNormalRandoms;
If Not(LoggedIn) Then
begin
WriteLn('Unsolvable random??');
LoginPlayer;
FindNormalRandoms;
If Not(LoggedIn) Then
begin
WriteLn('Client has Logged Out, Failed a Random? Stopping Scrip...');
TerminateScript;
writeln('Script may need human assistance at this point');
end
end;
end;
Procedure Antiban;
begin
writeln('Bored Human');
if not LoggedIn then Exit;
case Random(99) of
0: begin
wait(1526);
PickUpMouse;
SetAngle(SRL_ANGLE_HIGH);
end;
1: begin
RandomMovement;
SetAngle(SRL_ANGLE_HIGH);
end;
3: PickUpMouse;
4:begin
wait(2413)
pickupmouse;
wait(518)
randommovement;
end;
end;
end;
//Borrowed, cut, screwed from a few scripts.....
Function FindObjectFX(colors: TIntegerArray; Uptext: TStringArray; X1, Y1, X2, Y2, Width, Height, tol: integer; Click: Boolean): Boolean;
var
X, Y, I: integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
SetLength(TPA, Length(Colors));
For I:= 0 To High(Colors) do
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[i], X1, Y1, X2, Y2, tol);
ATPA:= TPAToATPAEx(TPA, Width, Height);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if(Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], X, Y);
if Click then
MMouse(x, y, 5, 5);
Wait(randomrange(200, 500));
If(IsUpTextMultiCustom(UpText)) then
begin
if Click then
begin
ClickMouse2(False);
wait(500);
if ChooseOptionMulti(UpText) then
begin
Result := True;
Exit;
end;
end else
Result := True
end else
Result:= (((X <> 0) and (Y <> 0)) and (Click = False)) ;
end;
function ClickZom(Colors: TIntegerArray; Tol, TimeOut: Integer): Boolean;
var
x, y:integer;
begin
if (not LoggedIn) then exit;
if FindObjectFX(Colors, ['ttack', 'mbie', 'zomb'], MSX1, MSY1, MSX2, MSY2, 10, 10, Tol, True) then
cast('stun',false);
mouse(x,y,3,3,true);
end;
procedure ClickClickBoom;
begin
wait(RandomRange(236, 561));
if clickzom([zomcol1,zomcol2,zomcol3],5,1000) then
cast('high level alchemy', false);
Antiban;
end;
begin //main
cleardebug;
Smart_Server := 11;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
cleardebug;
writeln(' ') ;
writeln(' ') ;
writeln('JDMzaks Mage_Guild_Stun_Alcher') ;
writeln(' Version 1') ;
writeln('****FEEDBACK MAKES BETTER SCRIPTS****') ;
writeln(' ') ;
writeln(' ') ;
declareplayers;
LoginPlayer;
wait(1500);
SetAngle(SRL_ANGLE_HIGH);
repeat //main loop
Randoms;
ClickClickBoom;
until(false)
end.