SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
cut em2 it - SRL Member Application Form
cut em2 it

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
C++

Other Communitys
Sythe, Fagex

How Long have You Played Runescape
2 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I have experience in DDTMs and map walking. I find learning canvases hard, but, I am starting to figure them out. I understand TBoxes and TPointArrays. I now use anti-ban and changed the anti-randoms so the script is a little shorter. I hope you accept me as an SRL Member.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program ShrimpThenBank;
{.include SRL/SRL.scar}
{By Cut em2 it. Edit line 8-10 and 16-46, move your
characters to the Draynor fishing area, and run the script!(Have extra nets in first bank slot.)}
var
  a, b, HowLoads, z, w, o, d, Time, Shrimps, Anchovies:integer;
const
  YourSRLId = '';  //Leave blank if you don't have one.
  YourSRLPassword = ''; //Leave blank if you don't have one
  CurrentVersion = '2.18 BETA';//No Touchey!!!
  
procedure CountTehShrimp(Shrimp, Anchovys: integer); forward;

procedure DeclarePlayers;
begin
  CurrentPlayer  := 0;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name        := ''; //username
  Players[0].Pass        := ''; //Password
  Players[0].Nick        := ''; //3-4 letters of user name
  Players[0].Integers[0] := 50;  //How many loads for player to do
  Players[0].Strings[0] :=  '0000'; //PIN Number
  Players[0].Active      := True;  //Player active

{ Players[1].Name        := ''; //username
  Players[1].Pass        := ''; //Password
  Players[1].Nick        := ''; //3-4 letters of user name
  Players[1].Integers[0] := 2;  //How many loads for player to do
  Players[1].Strings[0] :=  '0000'; //PIN Number
  Players[1].Active      := True;  //Player active

  Players[2].Name        := ''; //username
  Players[2].Pass        := ''; //Password
  Players[2].Nick        := ''; //3-4 letters of user name
  Players[2].Integers[0] := 2;  //How many loads for player to do
  Players[2].Strings[0] :=  '0000'; //PIN Number
  Players[2].Active      := True;  //Player active

  Players[3].Name        := ''; //username
  Players[3].Pass        := ''; //Password
  Players[3].Nick        := ''; //3-4 letters of user name
  Players[3].Integers[0] := 2;  //How many loads for player to do
  Players[3].Strings[0] :=  '0000'; //PIN Number
  Players[3].Active      := True;  //Player active
}
end;
procedure MeAntiBan;
begin
  case random(8) of
    0: BoredHuman;
    1: RandomRClick;
    2: PickupMouse;
    3: RandomMovement;
    4: MMouse(4, 4, 600, 600);
    6: AlmostLogout;
    7: HoverSkill('random', false);
  end;
end;
procedure ChangeTimeNow;
begin
  if HowLoads=Players[CurrentPlayer].Integers[0] then
  begin
    NextPlayer(False);
    HowLoads := 0;
    MakeCompass('N');
  end;
  if not LoggedIn then
  begin
    LoginPlayer;
    MakeCompass('N');
  end;
end;

procedure Progress;
begin
  Writeln('This is my first auto fisher + banker.');
  Writeln('By cut em2 it.');
  Writeln('Did '+ IntToStr(HowLoads) +' loads.');
  Writeln('Fished '+ IntToStr(Shrimps) +' shrimp.');
  Writeln('Fished '+ IntToStr(Anchovies) +' anchovies.');
  Writeln('Thanks for using my auto fisher!');
end;

procedure ScriptTerminate;
begin
  Progress;
  SendSRLReport;
  Writeln('Script terminated');
end;

procedure Fish;
var x, y, runx, runy: integer;
  Box: TBox;
begin
  repeat
    if not LoggedIn then Exit;
    Wait(4000+random(200));
    FindNormalRandoms;
    MakeCompass('N');
    if not FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box) then
    begin
      SendArrowSilentWait(3, 2000+random(100));
      FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box);
      Mouse(x, y, 1, 1, true);
    end else
    begin
      case random(2) of
      0: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, true);
          Wait(6000+random(400));
        end;
      end;
      1: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, false);
          ChooseOption('Net');
          Wait(6000+random(400));
        end;
      end;
      end;
    end;
    if(FindFight)then
    begin
      RunAwayDirection(runx, runy, 'S');
      Wait(10000+random(2000));
      RunBack(runx, runy);
    end;
    FindNormalRandoms;
    MeAntiBan;
  until(InvFull);
  Writeln('Done fishing.');
  CountTehShrimp(Shrimps, Anchovies);
end;
function LoadShrimp: integer;
var
  fishMP: TDTMPointDef;
  fishSP: array of TDTMPointDef;
  fishDDTM: TDTM;
begin
  SetArrayLength(fishSP, 3);
  
  fishMP.x := 557;
  fishMP.y := 301;
  fishMP.areasize := 1;
  fishMP.areashape := 0;
  fishMP.color := 6982976;
  fishMP.tolerance := 9;
  
  fishSP[0].x := 606;
  fishSP[0].y := 296;
  fishSP[0].areasize := 1;
  fishSP[0].areashape := 0;
  fishSP[0].color := 65536;
  fishSP[0].tolerance := 0;
  
  fishSP[1].x := 619;
  fishSP[1].y := 313;
  fishSP[1].areasize := 1;
  fishSP[1].areashape := 0;
  fishSP[1].color := 65536;
  fishSP[1].tolerance := 0;
  
  fishSP[2].x := 632;
  fishSP[2].y := 293;
  fishSP[2].areasize := 1;
  fishSP[2].areashape := 0;
  fishSP[2].color := 65536;
  fishSP[2].tolerance := 0;
  
  fishDDTM.MainPoint :=  fishMP;
  fishDDTM.SubPoints :=  fishSP;
  result := AddDTM(fishDDTM);
end;
function LoadAnch: integer;
var
  anchMP: TDTMPointDef;
  anchSP: array of TDTMPointDef;
  anchovy: TDTM;
begin
  SetArrayLength(anchSP, 3);
  
  anchMP.x := 619;
  anchMP.y := 265;
  anchMP.areasize := 1;
  anchMP.areashape := 0;
  anchMP.color := 9208450;
  anchMP.tolerance := 9;

  anchSP[0].x := 578;
  anchSP[0].y := 272;
  anchSP[0].areasize := 1;
  anchSP[0].areashape := 0;
  anchSP[0].color := 65536;
  anchSP[0].tolerance := 0;

  anchSP[1].x := 606;
  anchSP[1].y := 261;
  anchSP[1].areasize := 1;
  anchSP[1].areashape := 0;
  anchSP[1].color := 65536;
  anchSP[1].tolerance := 0;

  anchSP[2].x := 629;
  anchSP[2].y := 256;
  anchSP[2].areasize := 1;
  anchSP[2].areashape := 0;
  anchSP[2].color := 65536;
  anchSP[2].tolerance := 0;
  
  anchovy.MainPoint :=  anchMP;
  anchovy.SubPoints :=  anchSP;
  result := AddDTM(anchovy);
end;
  
procedure CountTehShrimp(Shrimp, Anchovys: integer);
var i, x, y: integer;
  tehslot: TBox;
begin
  for i := 2 to 28 do
  begin
    if not LoggedIn then Exit;
    tehslot := InvBox(i);
    if FindDTM(LoadShrimp, x, y, tehslot.x1, tehslot.y1, tehslot.x2, tehslot. y2) then
    Shrimp := Shrimp + 1;
    ReportVars[0] := ReportVars[0] + 1;
    if FindDTM(LoadAnch, x, y, tehslot.x1, tehslot.y1, tehslot.x2, tehslot.y2) then
    Anchovies := Anchovies + 1;
    ReportVars[1] := ReportVars[1] + 1;
  end;
  Writeln('Fished '+ IntToStr(Shrimp) +' shrimp.');
  Writeln('Fished '+ IntToStr(Anchovies) +' anchovies.');
end;

procedure Bank;
var TehColor: integer;
begin
  if not LoggedIn then Exit;
  MakeCompass('N');
  SymbolAccuracy := 0.5;
  MeAntiBan;
  if not(FindSymbol(o,d,'bank'))then
  begin
    if not LoggedIn then Exit;
    TehColor := FindRoadColor;
    RadialRoadWalk(TehColor, 2, 90, 65, 1, 1);
    FFlag(1+random(1));
    FindSymbol(o, d, 'bank');
    Mouse(o, d, 1, 1, true);
    FFlag(1+random(2));
  end;
  if not LoggedIn then Exit;
  If FindSymbol(o,d,'bank') Then
  begin
    Mouse(o,d,0,0,true);
    FFlag(1+random(2));
    while FlagPresent do
    begin
      MeAntiBan;
      FindNormalRandoms;
      Wait(1000+(320));
    end;
    repeat
      if not LoggedIn then Exit;
      FindObjCustom(z, w, ['Use','Booth'], [3421240,4937311], 5);
      Mouse(z,w,0,0,false);
      ChooseOption('Use-quickly');
      Wait(300+random(12));
    until(BankScreen) or (PinScreen);
    if(PinScreen)then
    begin
      InPin(Players[CurrentPlayer].Strings[0]);
    end;
    if(Bankscreen)then
    begin
      Wait(1000+random(103));
      Writeln('Banking');
      if (not(FindFishingEquipment(3097172,'Small fishing net'))) then
      begin
        Withdraw(1, 1, 1);
      end;
      if not LoggedIn then Exit;
      Deposit(2,28,1);
      ReportVars[1] := 27;
      Wait(700+random(100));
      CloseBank;
      if not FindSymbol(a,b,'fish')then
      begin
        TehColor := FindRoadColor;
        RadialWalk(TehColor, 170, 200, 21, 1, 1);
        while FlagPresent do MeAntiBan;
        FFlag(1+random(2));
        FindSymbol(a, b, 'fish');
        Mouse(a, b, 1, 1, true);
        FFlag(1+random(2));
      end else
      Mouse(a,b,0,0,true);
      if not LoggedIn then Exit;
      FFlag(1+random(2));
    end;
  end;
end;

begin
  MarkTime( Time );
  SRLID := YourSRLId;
  SRLPassword := YourSRLPassword;
  HowLoads := 0;
  SetupSRL;
  ScriptId := '477';
  ActivateClient;
  DeclarePlayers;
  Wait(1000);
  if not LoggedIn then LoginPlayer;
  Repeat
    Repeat
      Fish;
      Bank;
      HowLoads := HowLoads + 1;
      SRLRandomsReport;
    Until(HowLoads = Players[CurrentPlayer].Integers[0]);
    Progress;
    ChangeTimeNow;
  Until( False );
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Put some Wait(50 + Random(50)); just before you call IsUpText inside your Fish routine. Sometimes SCAR is just too fast and IsUptext misses the text because the RS-Client is too slow with displaying the uptext.

Looks like a good start though it lacks sophistication. Still voting yes.

    Mouse(o,d,0,0,true);
    FFlag(1+random(2));
    while FlagPresent do
    begin
      MeAntiBan;
      FindNormalRandoms;
      Wait(1000+(320));
    end;

Why did you do FFlag(1 + random(2)) if you want to scan for randoms and do antiban while you're waiting?

        RadialWalk(TehColor, 170, 200, 21, 1, 1);
        while FlagPresent do MeAntiBan;
        FFlag(1+random(2));

Isn't the FFlag a little late ?

begin
  MarkTime( Time );
  SRLID := YourSRLId;
  SRLPassword := YourSRLPassword;
  HowLoads := 0;//HowLoads is at the default of zero
  SetupSRL;
  ScriptId := '477';
  ActivateClient;
  DeclarePlayers;
  Wait(1000);
  if not LoggedIn then LoginPlayer;
  Repeat
    Repeat
      Fish;
      Bank;
      HowLoads := HowLoads + 1;
      SRLRandomsReport;
    Until(HowLoads = Players[CurrentPlayer].Integers[0]);
    Progress;
    ChangeTimeNow;
  Until( False );
end.

Why did you choose to put a loop inside an endless one? Also, you only use Time with 'MarkTime(Time).'

You never free the ddtms.

FreeDTM(TheDTMInteger);

Jack, it would keep going until there would be a problem, which in that case, the script would be terminated.

@WT-Fakawi - Thanks for the vote and the suggestion :D

From: cut em2 it
Jack, it

would keep going until there would be a problem, which in that case, the script would be terminated.

@WT-Fakawi - Thanks for the vote and the suggestion :D

TerminateScript is not inside it..

procedure ScriptTerminate;
begin
  Progress;
  SendSRLReport;
  Writeln('Script terminated');
end;

Was this what you were talking about?

    if not FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box) then
    begin
      SendArrowSilentWait(3, 2000+random(100));
      FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box);
      Mouse(x, y, 1, 1, true);

You click here on x, y whether or not you find the color, so long as you didn't find it the first time.
Edit:
1 Member 5 Guests?
How are Guests viewing this?

I'm not exactly sure? Maybe members that spent time here then logged off while taking a while?

And yes that was what I was talking about, if you use TerminateScript, you get a duplicate identifier error. ScriptTerminate works though.

procedure ScriptTerminate;
begin
  Progress;
  SendSRLReport;
  Writeln('Script terminated');
end;

It doesn't terminate the script XD
It just writes 'Script terminated'

No, script terminate terminates the script too.

From: cut em2 it
No, script terminate terminates the script too.

What am I missing?

I don't know. It always works for me?

…Huh
Ooooh…kaaaay….

Edit:
You're weird.

Lol, I'm serious…

cut em2 it is right! look at tara's chiken owner =p it uses same thing… cut em2 it, im still debating buy prolly a yes from me:)
EDIT:

very nice, a NO!!! from me.

jk. yes!

Thanks footballjds

From: footballjds
cut em2 it is right! look at tara's chiken owner =p it uses same thing… cut em2 it, im still debating buy prolly a yes from me:)
EDIT:

very nice, a NO!!! from me.

jk. yes!

I went and downloaded his chicken killer, there isn't a script terminate in there..
EDIT:
And no, the scriptterminate procedure does not work. It only writes 'Script terminated.'

Whatever… :mad:


Edit: lol :p jk

I vote yes. It's a bit simple, but it's good stuff.

Thanks for the yes Sp0rky.

You haven't learn your multiplayer properly yet, have you? ;)

  if HowLoads=Players[CurrentPlayer].Integers[0] then
  begin
    NextPlayer(False);

NextPlayer(False) means that the current player will be set to false and not run again, although it did the loads properly.

This is not really safe,

    if not FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box) then
    begin
      SendArrowSilentWait(3, 2000+random(100));
      FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box);
      Mouse(x, y, 1, 1, true);

it might not find the color anyway, and if it does find the color after rotating the screen the color might be from somethng else and you don't even check. you might end up clicking something totally different. Also it is not inside of a loop, so you only have 2 chances of finding the right color in the right place, which really i don't think is enough.


over here your standards are off,

     1: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, false);
          ChooseOption('Net');
          Wait(6000+random(400));
        end;
      end;
      end;

but these cases are the only place where they're off and no one knows too well what are the right standards for cases, so that's okay :p

why DDTMs if you use them as normal dtms, never change any of the variables of the ddtm? You're better off with just using a normal DTM.

need more failsafe here:

  if not(FindSymbol(o,d,'bank'))then
  begin
    if not LoggedIn then Exit;
    TehColor := FindRoadColor;
    RadialRoadWalk(TehColor, 2, 90, 65, 1, 1);
    FFlag(1+random(1));
    FindSymbol(o, d, 'bank');
    Mouse(o, d, 1, 1, true);
    FFlag(1+random(2));
  end;

you need a loop in there, to keep it walking and looking for the symbol, and very often the bank symbol is obscured by players, so i suggest you make a DTM of the bankers, which is more reliable than the symbol ;)


what if the colors here are off? it'll never find it and stay in that loop forever. you had to add a time mark!

    repeat
      if not LoggedIn then Exit;
      FindObjCustom(z, w, ['Use','Booth'], [3421240,4937311], 5);
      Mouse(z,w,0,0,false);
      ChooseOption('Use-quickly');
      Wait(300+random(12));
    until(BankScreen) or (PinScreen);

you have this amazing dtm counter and then you just simply add 27 to the report var?!

  Deposit(2,28,1);
  ReportVars[1] := 27;

again not enough failsafes on the walking to fish spot

you need if not loggedin then break here:

  Repeat
    Repeat
           <--------- here
      Fish;
      Bank;
      HowLoads := HowLoads + 1;
      SRLRandomsReport;
    Until(HowLoads = Players[CurrentPlayer].Integers[0]);
    Progress;
    ChangeTimeNow;
  Until( False );

you need more antiban on your fishing procedure. Or should I say you need antiban seeing there's none? :p

anyway this is not a flawless script, but very few are. and the things i pointed out i think you really just need time to get to know them, comes from experience and listening to other scripters say and seeing what they do. I'm voting yes with the hope that you'll keep improving.

~RM

Yes from me. But why do you use DDTM's when you can use DTM's?

From: JackLKrawl
I went and downloaded his chicken killer, there isn't a script terminate in there..
EDIT:
And no, the scriptterminate procedure does not work. It only writes 'Script terminated.'

SCAR calls procedure ScriptTerminate when the scripts stops/gets terminated. So when you click the red button, in this case, it will write "Script Terminated".

But why do you use DDTM's when you can use DTM's?

W/o dtms it would be pretty short…but you've been here active and you got a firemaker aswell…

Yes from me:)

Sorry its a no. Because Standards are WAAAYYYY off. Also because What RM said.
Oh and heres a pointer:

procedure ChangeTimeNow;
begin
  if HowLoads>Players[CurrentPlayer].Integers[0] then
  begin
    NextPlayer(False);
    HowLoads := 0;
    MakeCompass('N');
  end;
  if not LoggedIn then
  begin
    LoginPlayer;
    MakeCompass('N');
  end;
end;

Not that big editing (just added a '>' instead of an '=' but you need to that to make sure that it always exits at the Banking area :) , And that it doesn't stop somewhere else.

Yes from me..

From: Rasta Magician
You haven't learn your multiplayer properly yet, have you? ;)

  if HowLoads=Players[CurrentPlayer].Integers[0] then
  begin
    NextPlayer(False);

NextPlayer(False) means that the current player will be set to false and not run again, although it did the loads properly.

This is not really safe,

    if not FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box) then
    begin
      SendArrowSilentWait(3, 2000+random(100));
      FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box);
      Mouse(x, y, 1, 1, true);

it might not find the color anyway, and if it does find the color after rotating the screen the color might be from somethng else and you don't even check. you might end up clicking something totally different. Also it is not inside of a loop, so you only have 2 chances of finding the right color in the right place, which really i don't think is enough.


over here your standards are off,

     1: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, false);
          ChooseOption('Net');
          Wait(6000+random(400));
        end;
      end;
      end;

but these cases are the only place where they're off and no one knows too well what are the right standards for cases, so that's okay :p

why DDTMs if you use them as normal dtms, never change any of the variables of the ddtm? You're better off with just using a normal DTM.

need more failsafe here:

  if not(FindSymbol(o,d,'bank'))then
  begin
    if not LoggedIn then Exit;
    TehColor := FindRoadColor;
    RadialRoadWalk(TehColor, 2, 90, 65, 1, 1);
    FFlag(1+random(1));
    FindSymbol(o, d, 'bank');
    Mouse(o, d, 1, 1, true);
    FFlag(1+random(2));
  end;

you need a loop in there, to keep it walking and looking for the symbol, and very often the bank symbol is obscured by players, so i suggest you make a DTM of the bankers, which is more reliable than the symbol ;)


what if the colors here are off? it'll never find it and stay in that loop forever. you had to add a time mark!

    repeat
      if not LoggedIn then Exit;
      FindObjCustom(z, w, ['Use','Booth'], [3421240,4937311], 5);
      Mouse(z,w,0,0,false);
      ChooseOption('Use-quickly');
      Wait(300+random(12));
    until(BankScreen) or (PinScreen);

you have this amazing dtm counter and then you just simply add 27 to the report var?!

  Deposit(2,28,1);
  ReportVars[1] := 27;

again not enough failsafes on the walking to fish spot

you need if not loggedin then break here:

  Repeat
    Repeat
           <--------- here
      Fish;
      Bank;
      HowLoads := HowLoads + 1;
      SRLRandomsReport;
    Until(HowLoads = Players[CurrentPlayer].Integers[0]);
    Progress;
    ChangeTimeNow;
  Until( False );

you need more antiban on your fishing procedure. Or should I say you need antiban seeing there's none? :p

anyway this is not a flawless script, but very few are. and the things i pointed out i think you really just need time to get to know them, comes from experience and listening to other scripters say and seeing what they do. I'm voting yes with the hope that you'll keep improving.

~RM

Thanks for the yes but a few things to say. I forgot to take out the report var as it is not needed. Now onto why I used DDTMs. Shrimps and Anchovies have the same shape. If I were to do a DTM of all the black outline, it would recognize everything as a shrimp, which is the first DDTM in an if then statement. That is why I used DDTMs.

Edit: And I do have antiban btw :D

From: nielsie95
Yes from me. But why do you use DDTM's when you can use DTM's?



SCAR calls procedure ScriptTerminate when the scripts stops/gets terminated. So when you click the red button, in this case, it will write "Script Terminated".

But he doesn't have a TerminateScript in the script.

procedure MeAntiBan;
begin
  case random(8) of
    0: BoredHuman;
    1: RandomRClick;
    2: PickupMouse;
    3: RandomMovement;
    4: MMouse(4, 4, 600, 600); //NOT antiban
    6: AlmostLogout;
    7: HoverSkill('random', false);
  end;
end;

How do I actually get voted in? Like do you have to have a certain amount of votes?

Procedure name tells scar to terminate…

MMouse(4,4,600,600) kinda is Antiban - It moves randomly moves mouse…

@cut em it, You have learned to always put tolerance 255?
Thats not right… you don't have to…about 10 or so is okay

sorry that was a typo :D

From: Negaal
Procedure name tells scar to terminate…

MMouse(4,4,600,600) kinda is Antiban - It moves randomly moves mouse…

@cut em it, You have learned to always put tolerance 255?
Thats not right… you don't have to…about 10 or so is okay

Oh. Weird.

Supposedly MMouse isn't antiban, because Jagex cannot detect it. It would be a better idea to do "Wait(Random(500));" instead.

From: cut em2 it
How do I actually get voted in? Like do you have to have a certain amount of votes?

You have to have more yeses than noes by the end of a week or so, or have it where there is no way the results can lean towards no.

when votings are nearly 50 / 50 like yours it usually takes 5 - 7 days, when it's a really amazing or a really bad script it is usually solved in 1 - 3 days.

officially it can go up to two weeks :p
~RM

Okay, that clears things up thanks :D

Sorry I voted no, a bit simple and somethings you did in there make no sense what-so-ever to me.

Jack is right btw, your "Script Terminate" procedure isn't terminating the script. There are two reasons. The first, there is no command in the procedure to stop the script. Two even if there was you never actually use that procedure anywhere in your script……….

From: Hobbit
Jack is right btw, your "Script Terminate" procedure isn't terminating the script. There are two reasons. The first, there is no command in the procedure to stop the script. Two even if there was you never actually use that procedure anywhere in your script……….

From: nielsie95

SCAR calls procedure ScriptTerminate when the scripts stops/gets terminated. So when you click the red button, in this case, it will write "Script Terminated".

Example:

program New;

procedure ScriptTerminate;
begin
  WriteLn('there you go');
end;

begin
end.

Wouldn't that give it a Acess Violation?

From: nielsie95
Example:

program New;

procedure ScriptTerminate;
begin
  WriteLn('there you go');
end;

begin
ScriptTerminate;
ScriptTerminate;
end.

No one is questioning what it does now, but it doesn't trigger the termination. The "end." does, doesn't it?

From: nielsie95
Example:

program New;

procedure ScriptTerminate;
begin
  WriteLn('there you go');
end;

begin
ScriptTerminate;
ScriptTerminate;
end.

If it writes 'There you go' three times, then it does not terminate the script.

Successfully compiled
there you go
there you go
there you go
Successfully executed

Correct me if I am wrong but procedure TerminateScript calls on ScriptTerminate in the event of the script being stopped?

From: cut em2 it
Correct me if I am wrong but procedure TerminateScript calls on ScriptTerminate in the event of the script being stopped?

:google:
http://www.villavu.com/forum/showthread.php?t=23922?t=26101&highlight=scriptterminate
Yes. Otherwise it couldn't write "There you go" three times instead of two.

If the script stops in any way, end. or terminate or button, it calls scriptterminate.

From: n3ss3s
If the script stops in any way, end. or terminate or button, it calls scriptterminate.

Amen to that.

hope this clears it all up..

program New;
procedure ScriptTerminate;
begin
  Writeln('DURRRRRRrrrss....');
end;
begin
  TerminateScript;
end.

i ran it and i got [php]Successfully compiled
DURRRRRRrrrss….
Successfully executed[/php]:p

Thanks for the clear up everyone, I now know I should have terminatescript as my script terminator not scriptterminate. Thanks to everyone who has given feedback :D

From: footballjds
hope this clears it all up..

program New;
procedure ScriptTerminate;
begin
  Writeln('DURRRRRRrrrss....');
end;
begin
  TerminateScript;
end.

i ran it and i got [php]Successfully compiled
DURRRRRRrrrss….
Successfully executed[/php]:p

He's just a little bit…Special.

actually your not clearing it up. cut em 2 it has it right, and obviously nielsie is right >.>

program New;
procedure ScriptTerminate;
begin
writeln('proving a point');
end;

begin
end.

[php]
Successfully compiled
proving a point
Successfully executed
[/php]

try it yourself if you don't believe it ;)

edit: actually you were sayign the same thing but that Terminate Script confused me :p :$

~RM

From: Rasta Magician
actually your not clearing it up. cut em 2 it has it right, and obviously nielsie is right >.>

program New;
procedure ScriptTerminate;
begin
writeln('proving a point');
end;

begin
end.

[php]
Successfully compiled
proving a point
Successfully executed
[/php]

try it yourself if you don't believe it ;)

edit: actually you were sayign the same thing but that Terminate Script confused me :p :$

~RM

lol no, We've been on this for two pages. He doesn't have a TerminateScript, so he winds up going through an endless loop…

do i have terminate script? NO.
does it write 'proving a point'? YES.

that's all im trying to say.

:p

~RM

From: Rasta Magician
do i have terminate script? NO.
does it write 'proving a point'? YES.

that's all im trying to say.

:p

~RM

We're talking about his application :)
Edit:
Read the post above yours. He tells you what went wrong.

Lol its funny to see people think they know what they are talking about, when infact, they defend the opposite of the truth.

From: mickaliscious
Lol its funny to see people think they know what they are talking about, when infact, they defend the opposite of the truth.

Indeed.

JACKLKRAWL!!!!!!!!!!!!!!!!!!:fiery: :fiery: :fiery: :fiery: :fiery:
what do you mean by "special" ?!?!!!!
if your dissen me… ooh boy, il DO!!! actually nothing because i don't know your address..

From: footballjds
JACKLKRAWL!!!!!!!!!!!!!!!!!!:fiery: :fiery: :fiery: :fiery: :fiery:
what do you mean by "special" ?!?!!!!
if your dissen me… ooh boy, il DO!!! actually nothing because i don't know your address..

I meant more the usage of the scriptterminate procedure.

writeln('DUuUuUrrrrr');

In. Lucky you :)