WOOOT! (kinda)

[supersayian2224]

Well, I finished up my first script after a long time...lol.
But, it still has lots of errors that i can't seem to figure out. Anyone help?
P.s. Sorry about so many questoins =(

[Santa_Clause]

I'll help if I can, add my MSN: Influential_genius@Hotmail.com

[supersayian2224]

Added the attachment =P

[Santa_Clause]

To be honest, I'm not sure how to fix that error...it's pretty rare...

[Smartzkid]

It's because a lot of antiban stuff got moved around in SRL 3.7

Just comment out that procedure and see if it works

[SKy Scripter]

procedure ChopYew: Boolean;
begin
ActivateClient;
MakeCompass('N')
if(not(LoggedIn)) then
begin
NextPlayer(False)
Exit;
end;
repeat
begin
ActivateClient;
IsAxeBroken;
MakeCompass('N')
if ( FindObj ( x, y, 'Yew', Yew, 10 ) ) then
GetMousePos ( x, y )
EntChecker;
If FindFight Then
Begin
RunawayDirection( 'N' );
RunBack;

Mouse(TX, TY, 1, 1, True)
Wait (5000+ random(2000))
MarkTime(SafeWaiting)
repeat
If InvFull then
Begin
Exit;
end;
If DoneSwitch then
Begin
DoneSwitch := False;
Break;
end;
wait(1000)
If Not (LoggedIn) then NextPlayer(False);
Until (TimeFromMark(SafeWaiting) > 25000 + Random(15000))
end;
end;
If Not (LoggedIn) then NextPlayer(False);
Until (InvFull) or (TimeFromMark(TreeTime)>60000 * (25 + Random(3))) //ty to fourscape =)
end;

Procedure ChopYew : Boolean;

uhmmm you mean

function ChopYew : boolean;

[supersayian2224]

Ok i changed it around but now it keeps saying that it can't identify 'yew'..

[rkroxpunk]

Ok how much of this did u actually make??? This isn't too bad a script but the stuff ur getting errors on are so basic.....lots of this script won't even work because for instance first off u had

if DoneSwitch then
begin
DoneSwitch :=False
etc.

but u hadn't even made DoneSwitch a variable and nowhere in the script did u say DoneSwitch:=True so u never will get DoneSwitch. You had tonnes of things in there that u didn't declare as variables. You also had stuff like

procedure blah
var
blahblah
Function blah....

now u have a function and a procedure there which won't work.

I did my best to fix it but stopped when u had it looking for a DTM that doesn't even exist in the script :S.....also u had findobj(x,y,'Yew',Yew,10)
The place where u had the second Yewis meant to be the color u want so unless u made Yew a constant (which u didn't, not even a variable :S) it would be looking for nothing and giving u errors.

Fix up the DTM bit and i'll continue helping. this is what i got so far

[Santa_Clause]

I don't really think he made this...

P.S - 200 Posts!

[supersayian2224]

Ok i changed it...


btw.. I did make this... just that some parts are used from other scripts.

[3Garrett3]

Line 239: [Error] (15234:5): Unknown identifier 'PolyGlotTalk' in script C:\Program Files\SCAR 3.06\includes\srl/srl/extended/xantiban.scar

Is there something wrong with my SRL???



procedure DontBanMe(mins: Integer);
var
DBanMe: Integer;
begin
if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
DBanMe := Random(12); (*1 over so it will do nothing sometimes*)
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('random', False);
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: HoverEvery(15 + Random(5), 'random');
5: PickUpMouse;
6: BoredEvery(9 + Random(24));
7: DragItem(1, 1 + Random(18));
8: GameTab(1 + Random(12));
9: DoEmote(1 + Random(20));
10: PolyGlotTalk;
end;
end;


PS, you copied the SRL version of dont ban me, and used it as your own, only without the error thingy..

[Ramage]

@Garret: No, those procedures were removed from the latest SRL.

On Topic: Oh and you're missing quite a few ends; in your ChopYew function.

[rkroxpunk]

Ok seriously I can't see how u made this script there is so much stupid stuff in here that if u wrote any of this u should be able to fix easily.....once again u have called a DTM without even making a DTM wtf? u called if (FindDTM(RegularAxeDTM blahblah)) and there isn't even a DTM of a regular axe in here..... here's what I fixed so far