mine opens EOC too..
What do I have to change for the mouse to go faster? Like its a good script but it could be sped up by like 40%
Awesome script
Ran like 5 and half hour NO PROBLEMS AT ALL!
XHKueHF.png
about 1050 casts an hour for 5.5 hours straight!
[Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281
Is this the antileach?
Opens eoc for me :S All other oldschools scripts open the oldschool idk what wrong
Do you think you could add the tzhar fight caves to the script there are no randoms in there, also could we just change what monster we want to curse by just changing the colors? If you can't add fight cave monsters
The script starts up, but the form don't pop up, and bot does nothing.. Help?
fantastic script, got me to almost 55 mage![]()
************************************************** ******
TheAutoCurser - Made by Sequence
************************************************** ******
Time running: 11h 06m 39s
Casts: 12388
Casts p/h: 1114
************************************************** ******
runs great. got 67 mage so far![]()
Simba Code:Program TheAutoCurser;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
(********************************************************)
(* TheAutoCurser - Made by Sequence *)
(********************************************************)
(* 1. Specify how many casts you want to do. *)
(* 2. Start the script, and enter login info *)
(* 3. Be sure to stand at the Monk of Zamorak *)
(* in the cage at Varrock Castle *)
(********************************************************)
var
x, y, MonkColor, SkeletonColor1, SkeletonColor2, Casts, I : Integer;
CastsDone, CastsPerHour, TimeGone : Integer;
DsgnForm : TForm;
Username, Password : TEdit;
StartBtn : TButton;
NPCLocSetting : Integer;
NPCCombo : TComboBox;
const
ScriptVersionNumber = '1.32';
default = 'Calibri';
procedure DTM;
begin
Casts := 3184; //Change to specify how many casts you want to do.
MonkColor := 3742030;
SkeletonColor1 := 334238;
SkeletonColor2 := 3368652;
end;
procedure LogOutPlayer;
begin
P07_TabInventoryTab(11);
Wait(RandomRange(400, 700));
P07_MouseBox(575, 362, 706, 388, mouse_left);
TerminateScript;
end;
procedure CheckFriends;
begin
P07_TabInventoryTab(9);
Wait(RandomRange(300, 500));
MMouse(650, 270, 3, 3);
Wait(RandomRange(2000, 3000));
end;
procedure CheckInventory;
begin
P07_TabInventoryTab(4);
Wait(RandomRange(200, 600));
end;
procedure ProgressReport;
begin
ClearDebug;
TimeGone := (GetTimeRunning/1000);
CastsPerHour :=(3600*(CastsDone))/((TimeGone));
begin
Writeln('********************************************************');
Writeln(' TheAutoCurser - Made by Sequence ');
Writeln('********************************************************');
Writeln(' Time running: ' + MsToTime((GetTimeRunning), Time_Short));
(* Writeln(' Casts: ' + IntToStr(CastsDone) + ' ');
Writeln(' Casts p/h: ' + IntToStr(CastsPerHour) + ' ');
Writeln('********************************************************'); *)
end;
end;
procedure AutoUpdateScript;
var
NewFile : Integer;
OnlineVersion, NewScript, NewFileName : String;
begin
begin
Writeln('Checking TheAutoCurser VersionNumber');
OnlineVersion := GetPage('http://07scape-theautocurser.googlecode.com/svn/trunk/TheAutoCurser/AutoScriptUpdate.txt');
Writeln('Local : ' + ScriptVersionNumber + ' / Latest : ' + OnlineVersion);
if (Trim(OnlineVersion) > ScriptVersionNumber) then
begin
Writeln('New TheAutoCurser Version Available! Updating...');
NewScript := GetPage('http://07scape-theautocurser.googlecode.com/svn/trunk/TheAutoCurser/TheAutoCurser.simba');
NewFileName := AppPath + 'Scripts\TheAutoCurser v' + OnlineVersion + '.simba';
NewFile := RewriteFile(NewFileName, true);
try
WriteFileString(NewFile, NewScript);
except
begin
Writeln('Fatal error writing to ' + NewFileName + '!');
TerminateScript;
end;
end;
CloseFile(NewFile);
Writeln('New TheAutoCurser Version Downloaded Please Restart Simba!');
Writeln('TheAutoCurser version ' + OnlineVersion + ' has been added to your Simba/Scripts folder.');
TerminateScript;
end else
writeln('You already have version ' + OnlineVersion + ' of TheAutoCurser');
end;
end;
procedure StartUp;
begin
ClearDebug;
SetupP07Include;
AutoUpdateScript;
P07_AutoUpdateMe;
//P07_DeclarePlayer;
ActivateClient;
Wait(2000);
If (Not P07_LoggedIn) Then
P07_LogInPlayer;
//P07_MakeCameraAngleHigh;
//P07_MakeCompassEast;
DTM;
end;
Function AntiBan : Boolean;
begin
case random(300) of
//0: P07_HoverSkill('magic', random(5000));
1: P07_MakeCompassDegree(RandomRange(140, 170));
2: P07_MakeCompassDegree(RandomRange(190, 220));
//3: MMouse(random(650), random(350), 0, 0);
//4: CheckInventory;
//5: CheckFriends;
end;
end;
Function AntiBan2 : Boolean;
begin
case random(300) of
0: P07_HoverSkill('magic', random(5000));
1: P07_MakeCompassDegree(RandomRange(140, 170));
2: P07_MakeCompassDegree(RandomRange(190, 220));
3: MMouse(random(650), random(350), 0, 0);
4: CheckInventory;
5: CheckFriends;
end;
end;
procedure CastCurse;
begin
if P07_TabInventoryTab(7) then
begin
//P07_MouseBox(661, 258, 673, 269, mouse_left)
MMouse(667, 263, RandomRange(3, 5), RandomRange(3, 5));
Wait(RandomRange(100, 260));
ClickMouse2(mouse_left);
end;
end;
procedure CastCurseMonk;
begin
P07_MakeCompassEast;
P07_MakeCameraAngleHigh;
WriteLn('You have choosen to curse the Monk of Zamorak in Varrock Castle');
repeat
(*If (Not FindColorSpiralTolerance(x, y, MonkColor, 176, 84, 393, 320, 20)) then
LogOutPlayer
else*)
If FindColorSpiralTolerance(x, y, MonkColor, 176, 84, 393, 320, 20) then
begin
P07_MakeCompassEast;
P07_MakeCameraAngleHigh;
//P07_CastSpell(12);
CastCurse;
Mouse(x, y, random(RandomRange(3, 4)), random(RandomRange(3, 4)), mouse_left);
//MMouse(RandomRange(X - 3, X + 3), RandomRange(y - 3, y + 3), 0, 0);
//ClickMouse2(mouse_left);
ProgressReport;
AntiBan;
Inc(CastsDone);
end;
Until(I = Casts);
end;
procedure CastCurseSkeleton;
begin
repeat
P07_MakeCompassDegree(20);
P07_MakeCameraAngleLow;
WriteLn('You have choosen to curse Skeletons at the Varrock sewer');
begin
Wait(RandomRange(200, 350));
//P07_CastSpell(12);
CastCurse;
Wait(randomRange(500, 700));
if P07_FindObjCustom(x, y, ['ek'], [SkeletonColor1, SkeletonColor2], 5) then
begin
ClickMouse2(mouse_left);
Wait(RandomRange(400, 600));
Inc(CastsDone);
end
(* else
(begin
Wait(RandomRange(1034, 1503));
if (Not P07_FindObjCustom(x, y, ['Skeleton', 'Ske', 'ton', 'Skelet', 'leton'], [8885140, 9804448], 14)) then
WriteLn('NPC Not found, terminating script...');
Wait(RandomRange(100, 300));
Mouse(992, 293, random(5), random(5), true);
Wait(RandomRange(500, 1000));
LogOutPlayer;
Wait(RandomRange(500, 1000));
TerminateScript;
end; *)
end;
ProgressReport;
AntiBan2;
Inc(I);
until(I = Casts);
end;
procedure CastCurseGlobal;
begin
case NPCLocSetting of
0: CastCurseMonk;
1: CastCurseSkeleton;
end;
end;
procedure SaveSettings(Sender: TObject);
begin
DsgnForm.ModalResult := mrOk;
P07_PlayerName := Username.TEXT;
P07_PlayerPass := Password.TEXT;
NPCLocSetting := NPCCombo.ITEMINDEX;
DsgnForm.CLOSE;
end;
procedure YourClickProcedure(Sender: TObject);
begin
//ShowMessage('click');
end;
procedure InitForm;
begin
//DsgnForm
DsgnForm:=TForm.Create(nil);
with DsgnForm do
begin
Caption:='TheAutoCurser - by Sequence';
Left:=93;
Top:=163;
Width:=320;
Height:=144;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=11;
end;
//Username
Username:=TEdit.Create(DsgnForm);
with Username do
begin
Parent:=DsgnForm;
Text:='Username';
Left:=10;
Top:=10;
Width:=300;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=11;
end;
//Password
Password:=TEdit.Create(DsgnForm);
with Password do
begin
Parent:=DsgnForm;
Text:='Password';
Left:=10;
Top:=43;
Width:=300;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=11;
Password.PASSWORDCHAR:='*';
Password.MAXLENGTH:=20;
end;
//NPCCombo\\
NPCCombo:=TComboBox.Create(DsgnForm);
with NPCCombo do
begin
Caption:='Select NPC and Location';
Parent:=DsgnForm;
Left:=10;
Top:=76;
Width:=300;
Height:=23;
Items.Add('Monk of Zamorak - Varrock Castle');
Items.Add('Skeleton - Varrock Sewer');
Text := Items[0];
OnClick:=@YourClickProcedure;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=11;
end;
//StartBtn
StartBtn := TButton.Create(DsgnForm);
with StartBtn do
begin
Parent:=DsgnForm;
Caption:='Save Settings';
Left:=10;
Top:=109;
Width:=300;
Height:=25;
OnClick:=@SaveSettings;
Font.Color:=clDefault;
Font.Size:=11;
end;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
DsgnForm.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Begin
SetupSRL;
SafeInitForm;
SafeShowFormModal;
StartUp;
CastCurseGlobal;
end.
This seems to work for Tz-Kek under the monk settings.
Last edited by pescados666; 04-07-2013 at 04:02 AM.
Do this on Tz Kek in Fight Caves.
It's working flawlessly, with NO randoms.
Literally perfect.
Last edited by wino; 04-07-2013 at 07:49 AM.
I need a bit of help. Once I run it, put in username/pass, and hit save settings, the thing that you click okay for the firewall comes up. I click it once and it pops right back up, it does this like 3 times then simba minimizes and nothing happens. Any suggestions?
mine was working yesterday just fine and I try to run it today and it opens eoc. I'm not sure what went wrong
Good script but it always clicks in the same place... :S
Mine doesnt start up.
When I type in my inlog and password the script will stop O.o?
Edit: Never minder, saw that I were using the 1.31 instead of 1.32
Last edited by Bearsz; 04-11-2013 at 01:13 PM.
The first curse it searchs for color, than it click last place that clicked before.
So when it moves the camera, missclicks the curse and clicks the staircase!
Goes infront the staircase or climbs them. :/ doesnt work very well for me :/ where is the problem?
Can anyone help me, what do I change in the script so that it clicks the "stun" spell instead of "curse" spell? The level 80 variant of the spell that uses soul runes.
[Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281
Compiling failed.
script works perfectly fine just that after 5 mins of starting it will misclick and walk up the stairs is there a way to fix it?
There are currently 1 users browsing this thread. (0 members and 1 guests)