got quite a few levels with this. great script. thanks :)
Printable View
got quite a few levels with this. great script. thanks :)
Great script :)
But if you actually cast curse on them you have a big chance of losing him.
Used it to cast 1k curses :)
Works fine at this spot
http://i.imgur.com/CnuoRWq.png
at wildy edge
************************************************** ******
TheAutoCurser - Made by Sequence
************************************************** ******
Time running: 3h 41m 21s
You have choosen to curse Skeletons at the Varrock sewer
(edited script so skellies in varrock= zammy mage at edge)
works perfect thank you soooo muchhhh!
When I run the script I get forwarded to SRL/SRL/core/mouse -- error at line 165, anybody know what this could be?
Doesnt work, nothing happens when i run it...
No antileach? worked fine
Is there a way to manually change where it clicks? Currently it clicks at exactly the same spot every time and I'd imagine that can be picked up on quite easily. :(
so much wrong with it. i havent used simba in ages yet even i can fix some of this stuff.
I cant seem to get the scrip running o.O
I did all of the anti-leech but now i get the error:
[Error] D:\Simba\Includes\P07Include.Simba(105:10): Duplicate identifier 'P07_GETUPTEXT' at line 104
Compiling failed.
sweet script man, ty
how does one increase the mouse speed?
Why don't you point out some of the things that is 'wrong' with it and maybe add the things that need to be fixed, rather than being a douche.Quote:
Originally Posted by blye
Why when I click play it loads up eoc not 07 :/
I haven't edited the script at all
Got this error
C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(282:145): Invalid number of parameters at line 281
Compiling failed.
Let me know if it is a simple fix. Thanks.
Got this when trying to run, not sure if it's the anti-leach, nor am I sure on how to find the anti-leach.
Code:[Error] C:\Simba\Includes\SRL/SRL/core/text.simba(791:13): Unknown identifier 'UpChars' at line 790
Compiling failed.
I just started getting this. Never got it before.Quote:
Originally Posted by Chromosomes
Could you add anti-random?
I've got the same thing happening.Quote:
Originally Posted by flash977
Great script, runs really well. Just a few minor issues; It occasionally clicks on other spells which is not so much of a problem with most spells as it carries on as normal but when it clicks on the enchant bolt spell the mouse just hovers- perhaps you could add in a fail safe in case this happens? It also sometimes clicks attack on the skeletons in the sewer rather than cursing them. Seems to be working flawlessly at the monk.
Good script for the first run, then when i bought more runes and i load it up it ONLY loads EoC, this only happens with this script. I have done everything correctly.
How much is mud staff? I really need to get my mage up for teles :D
It says Paired with smart and just sits there
Edit - says failed to detect clients
Hey can someone help me out? I got a message when trying to start this "Exception in Script: Unable to find file 'SRL/SRL.Simba'" I have Simba saved in my C drive. What do I need to do?
Thanks.
Have you set up SMART for 07? If not read through the link posted in the thread and follow it, should have no problems if you've done it correctly.Quote:
Originally Posted by paulftw
where do i put my username and password into this script?
In the form...Quote:
Originally Posted by aegistitan
What line is that in?Quote:
Originally Posted by RJJ95
Sorry man, I can't help you from here it's extremly self explanatoryQuote:
Originally Posted by aegistitan
:( anybody want to tell me what line to put username and password in? I don't know what a "form" is :(Quote:
Originally Posted by RJJ95
i lol'ed this here is a form http://img824.imageshack.us/img824/9...130304kl15.pngQuote:
Originally Posted by aegistitan
Just start the script and this should open :D
script ran well. occasionally the bot would begin selecting another player to cast curse on, which was pretty funny to watch at times. but other than that the script will do its job at low pop hours.
Hey guys. I believe this is my first post. Anyways, I'm what you would consider a "noob" with Simba. The script ran great before I updated the "SPS"(I believe). Well, after I updated the SPS & tried running the script, it brought me to world 36 in RS, not an Oldschool world. All I want to know is how I can fix this and get the script to put me back into an Oldschool world. Any help would be appreciated. Thanks for reading.:)
Can anyone help?
[Error] C:\Simba\Includes\P07Include.Simba(57:51): Invalid number of parameters at line 56
Compiling failed.
Anti-Leach or what?
How to make this shit faster its unusable atm.. so slow
Could you add support for Fight Caves? No randoms and less chance of ban.
I had the same thing can anyone help us?Quote:
Originally Posted by Z3tt
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.
Why does mine open eoc?