
Originally Posted by
Shuttleu
ok, its compiling now, dont know why it didnt yesterday... :/
anyway, just a simple
Simba Code:
{$i srl/srl.simba}
begin
setupsrl;
end.
compiles and runs fine, so if OP could let me know which script then i can look into it
~shut
Go to castlewars.. Run this script.. Bam..
[Hint] C:\Simba\Includes\SRL/SRL/core/antiban.simba(131:3): Variable 'X' never used at line 130
[Hint] C:\Simba\Includes\SRL/SRL/core/antiban.simba(131:3): Variable 'Y' never used at line 130
Compiled successfully in 1404 ms.
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 45, Members: True, Signed: True, Super Detail: False.
Error: Exception: Access violation at line 101
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]
Code:
program new;
{$define SMART}
{$define CRASHSMART}
{$i SRL/SRL.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}
{$i SRL/SRL/skill/summoning.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := 'Slayer';
Active := True;
end;
end;
Function OpenChest: Boolean;
var
X,Y,T: Integer;
begin
Result := BankScreen;
if FindObjTPAMulti(X, Y, [5793394, 11447990, 13619160], 3, 2, 10, 10, 10, ['Use','Bank','chest']) then
begin
MMouse(X, Y, 0, 0);
wait(500);
ClickMouse2(True);
if not DidRedClick then
Exit;
FFlag(0);
MarkTime(T);
repeat
FindNormalRandoms;
if (TimeFromMark(T) > 5000) then
Exit;
if (BankScreen) or (PinScreen) then
break;
Wait(100);
until(false)
if PinScreen then
if (Players[CurrentPlayer].Pin <> '') then
InPin(Players[CurrentPlayer].Pin);
end;
Result := BankScreen;
end;
begin
Smart_Server := 45;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
DeclarePlayers;
SetupSRL;
OpenChest;
end.