Hey guys can someone help make this script work for rs07 ?
Code:program Killer; {$DEFINE SRL5} {$DEFINE SMART} {$i SRL\SRL.simba} {$i SRL\SRL\Misc\Debug.simba} Var WeAttacked:Integer; RT:Integer; Const Monster = 9619676; Monster1 = 9998993; Monster2 = 3830406; AttTime = 1500; Procedure DeclarePlayers; Begin NumberOfPlayers(1); CurrentPlayer := 0; LampSkill := 'Ranged'; With Players[0] do Begin Players[0].Name :=''; Players[0].Pass :=''; Players[0].Active :=True; Players[ 0].Booleans[ 1] := False; //Would you like to have the XP Counter on? BoxRewards := ['lamp'] End; End; Var OldXP, TimeSinceFight: Integer; Function StillFighting: Boolean; Begin Result := TimeFromMark( TimeSinceFight) < 4000; End; Procedure AntiBan; Begin If Players[ CurrentPlayer].Booleans[ 1] Then ToggleXPBar( True); If IsXPBarOpen Then Begin If Not( GetXPBarTotal = OldXP) Then Begin OldXP := GetXPBarTotal; MarkTime( TimeSinceFight); End; End; case Random(2000)of 0: HoverSkill('Ranged', False); 1: SleepAndMoveMouse(7000 + Random(500)); 2: RandomMovement; 3: PickUpMouse; 4: BoredHuman; 5..15: MakeCompass( RandomRange( -360, 360)); 16..60: Wait( Random( 3000)); End; End; Procedure FailSafe(Reason: string); Begin Writeln(Reason); Logout; TerminateScript; End; Procedure CheckRandoms; Begin RT:=GetSystemTime; If FindNormalRandoms Then IncEx(WeAttacked,GetSystemTime - RT); End; Procedure MoveCamera; Begin SetAngle(SRL_ANGLE_HIGH); Antiban; MakeCompass('N'); RT:=GetSystemTime; If FindNormalRandoms Then IncEx(WeAttacked,GetSystemTime - RT); End; Procedure Attack; Var X, Y: Integer; Begin If StillFighting Then Exit; if FindObjTPA(X, Y, Monster, 4, 1, 25, 25 ,100, ['Ogre']) Then Begin Writeln( 'Found Ogre'); Mouse(x,y ,5,5, false); ChooseOption('ttack'); Writeln('Raping Ogre'); Wait( 5000); MarkTime( TimeSinceFight); End; End; Begin MarkTime( TimeSinceFight); Smart_Server:=35 Smart_Members := True; Smart_SuperDetail := False; SetUpSRL; DeclarePlayers; LogInPlayer; Repeat Antiban; CheckRandoms; Attack; until(false) End.


Reply With Quote