Simba Code:
program New;
{$DEFINE SRL5}
{$DEFINE SMART}
{$i srl/srl.simba}
var
Timer1: TTimer;
V: TVariantArray;
t: integer;
Procedure DeleteTimer;
Begin
Timer1.Enabled := False;
Timer1.Free;
End;
Procedure ScriptTerminate;
Begin
SetLength(V, 0);
ThreadSafeCall('DeleteTimer', V);
AddOnTerminate('DeleteTimer');
End;
procedure CrashSMART;
begin
//freeObjs;
Writeln('You are using CRASHSMART, so we are going to reload your client after the RS update!');
SmartgetFieldObject(1488,'crash');
// will crash SMART (and Simba).
// IF THIS DOES NOT CRASH YOUR SIMBA, YOU ARE NOT USING THE PROPER PLUGIN
// AN ACCESS VIOLATION HERE IS NOT THE CRASH; MAKE SURE YOU MOVED THE EDITED PLUGIN
Wait(5000);
WriteLn('CRASHSMART Failed: Make sure you are using the proper plugin!');
WriteLn('Read more about this feature at villavu.com/forum/showthread.php?t=67864');
// SetLength(V, 0);
// ThreadSafeCall('ScriptTerminate',V);
SetLength(V, 0);
ThreadSafeCall('TerminateScript',V);
// TerminateScript;
end;
Procedure hi(Sender: TObject);
var sock: integer;
begin
CrashSMART;
end;
Procedure CreateTimer;
Begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 1000;
Timer1.Enabled := True;
Timer1.OnTimer := @hi;
End;
begin
ClearDebug;
SetupSRL;
SetLength(V, 0);
ThreadSafeCall('CreateTimer', V);
t := getsystemtime;
Repeat
Wait(100);
writeln('Time elapse: ' + inttostr(getsystemtime - t));
Until getsystemtime - t > 8000;
end.
