SCAR Divi (3.0) official thread

lol, because nubs will opt for a 1 click irc client, instead of loading a script.

True, but then, noobs usually don't want to script, they want to cheat and leech. If they wanted to sincerely learn scripting and get help, they'd go through the extra steps to run a script. I mean, look, there's enough tutorials out there that teach one how to run scripts.

Quote:

---

Originally Posted by Pinqvin

Looking so forward to the release of this...

Doing great, Freddy1990 ;) Just wondering, what happened to the function that was supposed to detect sound? Or is it allready in SCAR? Just remember something like this was planned for SCAR when RSC and RS2 were both still playable...

---

It was made, but it was too inaccurate and inefficient to be practical, so (as I've heard) it was ditched

You can still find it around sometimes; I stumbled upon it a few months ago...

Yea I have tried to get it working before... I don't think it works. Its a shame because I bet shocker put a lot of time into it :(

SCAR has a real problem freeing buttons. I made a small test script to show you.

Sometimes it works and sometimes it gives me an Abstract Error.

Code:

---

program LoadingBarByRon;

var
  // InitForm variables.
  frmDesign : TForm;
  Button1 : TButton;

procedure FreeButton(Sender : TObject);
begin
  Button1.Free;
end;

// This form was parsed using: DFM Form Parser v.2 by Ron.
procedure InitForm;
begin
  frmDesign := CreateForm;
  with frmDesign do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    Width := 200;
    Height := 150;
    Caption := 'Button Test';
  end;
  Button1 := TButton.Create(frmDesign);
  with Button1 do
  begin
    Parent := frmDesign;
    Caption := 'Free Button Test';
    Width := 100;
    Top := 45;
    Left := 45;
    OnClick := @FreeButton;
  end;
end;

procedure SafeInitForm;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('InitForm', V);
end;

procedure ShowInitFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowInitFormModal;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowInitFormModal', V);
end;

procedure MainInitForm;
begin
  try
    SafeInitForm;
    SafeShowInitFormModal;
  finally
    FreeForm(frmDesign);
  except
    WriteLn('An error seems to have occurred in: InitForm');
  end;
end;

begin
  ClearDebug;
  MainInitForm;
end.

---

~Ron

I get abstract errors when trying to free forms, too. I use an event from a button to free the form, always gives me freakin abstract errors and memory violations.

Oh, you know what. I think I just figured it out.

If you try to free a component that is sending the event, then you are probably going to get an error. I'm not sure if you should or not, but most of the time it does happen.

If you try to free a component that is not sending the event, then it's okay. If you were trying to free a form using an event from another form, then you probably wouldn't get an abstract error.

What do you think Freddy?

Ron, be sure to post any bugs you find here, as well as here : http://www.freddy1990.com/forums/index.php?board=15.0.

Quote:

---

Originally Posted by Nazgand

I have a suggestion.
Would you make it so that we could use {} instead of begin end, but could still use begin end, so as to be backwards compatible?
This would help Java and C++ programmers, and save alot of typing

You could add this in the time you have nothing to do while waiting for the web server

---

but people that are NOT used to java nor c++ it would get really hard to see how the script is done cause of the { and }

Not really Jukka... Although it may create some compilation problems...( @ Nazgand: Be sure to post suggestions here : http://www.freddy1990.com/forums/index.php?board=14.0)

Dam.. Good job i was waiting for another Scar version to be out.. its been like what 2 years? ROFL anyways.. hola

Quote:

---

Originally Posted by Avaphi

Not really Jukka... Although it may create some compilation problems...( @ Nazgand: Be sure to post suggestions here : http://www.freddy1990.com/forums/index.php?board=14.0)

---

it would get really hard to follow it atleast for me, but i dont know about u..

i have never coded java, only some C++ but not much .. and i never knew what the { and } did until now.. :P

If you coded c++ and didn't know that the {} started and ended brackets, I don't believe you coded in c++...

had to be C then but...

back to topic !

Uhm... C has them to....... Did joo lie to me

lolz, lierz0r :o

Even hello world in c++ has them >_<

Code:

---

#include <iostream>

int main()
{
    std::cout << "Hello, world!\n";
}

---

Its okies... anyways, back on topic.

Haha :p

Hey freddy, do you think you could put an ismousebuttonup(left:boolean); command into Divi? There's an ismousebuttondown, so all it'd have to be is the opposite. Its really a tiny matter, I just used not(isdown...), but still, it'd be nice...

Quote:

---

Originally Posted by Smartzkid

Haha :p

Hey freddy, do you think you could put an ismousebuttonup(left:boolean); command into Divi? There's an ismousebuttondown, so all it'd have to be is the opposite. Its really a tiny matter, I just used not(isdown...), but still, it'd be nice...

---

if not IsMouseButtonDown(...)then

does not work..

Quote:

---

Originally Posted by JuKKa

if not IsMouseButtonDown(...)then

does not work..

---

What do you mean does not work? :confused:

Here:

Code:

---

const
  MouseButton = 'Right'; // Left or Right?

var
  Button: Boolean;

begin
  ClearDebug;
  case LowerCase(MouseButton) of
    'right': Button:= False;
    'left': Button:= True;
  else
    begin
      WriteLn('MouseButton must be Right or Left... Terminating.');
      TerminateScript;
    end
  end
  repeat
    ClearDebug;
    if(not(IsMouseButtonDown(Button)))then
      WriteLn('Mouse button = UP.')
    else
      WriteLn('Mouse button = DOWN.');
    Wait(100);
  until(False);
end.

---

But I think I got it what you mean.. It is not working correctly :G

Can be noticed easily with this:

Code:

---

function IsMouseButtonUp(LeftButton: Boolean): Boolean;
begin
  Result:= (not(IsMouseButtonDown(LeftButton)));
end;

begin
  ClearDebug;
  Wait(1500);
  if(IsMouseButtonUp(True))then
    WriteLn('Button is UP!')
  else
    WriteLn('Button is DOWN!');
end.

---

When you click play and wait until you receive the status to debug box, it seems to give a status it is down when it is actually not down. :)

But hmmm, if you start script by using F9 or Ctrl+Alt+R, so not Play button, it will work like it should.

-Sorry for offtopic- :redface:

Quote:

---

Originally Posted by Ron

SCAR has a real problem freeing buttons. I made a small test script to show you.

Sometimes it works and sometimes it gives me an Abstract Error.

Code:

---

program LoadingBarByRon;

var
  // InitForm variables.
  frmDesign : TForm;
  Button1 : TButton;

procedure FreeButton(Sender : TObject);
begin
  Button1.Free;
end;

// This form was parsed using: DFM Form Parser v.2 by Ron.
procedure InitForm;
begin
  frmDesign := CreateForm;
  with frmDesign do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    Width := 200;
    Height := 150;
    Caption := 'Button Test';
  end;
  Button1 := TButton.Create(frmDesign);
  with Button1 do
  begin
    Parent := frmDesign;
    Caption := 'Free Button Test';
    Width := 100;
    Top := 45;
    Left := 45;
    OnClick := @FreeButton;
  end;
end;

procedure SafeInitForm;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('InitForm', V);
end;

procedure ShowInitFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowInitFormModal;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowInitFormModal', V);
end;

procedure MainInitForm;
begin
  try
    SafeInitForm;
    SafeShowInitFormModal;
  finally
    FreeForm(frmDesign);
  except
    WriteLn('An error seems to have occurred in: InitForm');
  end;
end;

begin
  ClearDebug;
  MainInitForm;
end.

---

~Ron

---

i dont know scar but you might have to run GUI commands in the GUI thread.

Meh, i added a little thingy to divi that tries to free as many child components of a form ur freeing as possible...

err don't know if this has been said and pretty sure it's not in 2.03 but something like if a pop-up comes up it will automatically activate client. got no admin at the moment and a popup for anti virus keeps coming up but i can't disable it cos got no admin so all my scripts stop as soon as update pops up.

Please use proper English... I did not understand at all what you just said.

Quote:

---

Originally Posted by rkroxpunk

err don't know if this has been said and pretty sure it's not in 2.03 but something like if a pop-up comes up it will automatically activate client. got no admin at the moment and a popup for anti virus keeps coming up but i can't disable it cos got no admin so all my scripts stop as soon as update pops up.

---

Turn off your automated anitvir software update.

Someone was asking if the OR operator in scar left a statement as soon as one of the ORs was true. I said yes because I was so sure. Turns out I was wrong.

Run this script. If it waits 2 second. Then the bug exists in scar.

Code:

---

program OROperatorCheckByRon;

var
  Num : Integer;

function WaitALot : boolean;
begin
  Wait(1000);
  Result := True;
end;

begin
  ClearDebug;
  Num := 1;
  WriteLn('Checking OR operator...');
  if(Num = 1)or(WaitALot)then
    WriteLn('Done!');
end.

---

It shouldn't wait at all. As soon as it realizes that Num = 1, it should run the statement code.

~Ron

For the last time, it's not a bug

Hey Freddy, you should add a button on the toolbar to clear the report box. There's one for debug, why not report? :p

@Ron, it waited 1 second.

@Freddy, why not?

@Bullzeye, thats just a wasted key, the debug is much more commmonly used.



Freddy, you got an ETA we could get? lol, fine if you don't. Thanks for adding FindColorSkipBox too.

It's just not a feature, but it certaintly isn't a bug

It is the way the intreptor moves everything into delphi statements then runs the statements. It is fixable but unknown how much work to do it. It would save you time in some cases but not in others.

I have two questions.

1. What is supposed to happen when you go to Tools > Associate .scar Files?
2. How do you use the String to Picture?

Quote:

---

I have two questions.

1. What is supposed to happen when you go to Tools > Associate .scar Files?
2. How do you use the String to Picture?

---

1: im pretty sure associate .scar files makes it little more organized in your scar folders.

2: String to Picture
:= BitmapFromString(32, 12, 'z78DA73731B9EC00007409625D534' +
'7ABA7CF0B88776EEC71F2FF8D9B84C203E0D90E742FC7E244 63D7' +
'EBDC4ABA1245E48357FD4FD23C7FDE4E52F5AB88D92FC3B74 CBC6' +
'C15C870EBF7602000DA44EEF');

Fill in the width and the height (32, 12);

Then Stick the string in there (
'z78DA73731B9EC00007409625D534' +
'7ABA7CF0B88776EEC71F2FF8D9B84C203E0D90E742FC7E244 63D7' +
'EBDC4ABA1245E48357FD4FD23C7FDE4E52F5AB88D92FC3B74 CBC6' +
'C15C870EBF7602000DA44EEF');

then hit ok and it will show the bitmap;

I thought associate files meant that when you double click a .scar file it will open in scar (as opposed to notepad etc) so you don't have open scar, and go to open.

i could be wrong man.... i have never messed with it:)

May I suggest a new idea for SCAR Divi?

1: A good, "while-running" progress report. I want to be able to see what's going on with my script while it's running.

2: Goes with the last one. A way to keep the SCAR window open while the script is running.

Not sure if they're even possible, but it'd be nice to have them :p

Quote:

---

Originally Posted by Jason2gs

May I suggest a new idea for SCAR Divi?

1: A good, "while-running" progress report. I want to be able to see what's going on with my script while it's running.

2: Goes with the last one. A way to keep the SCAR window open while the script is running.

Not sure if they're even possible, but it'd be nice to have them :p

---

Just move around the client and scar so that you can see the debug box underneath.

Yeah, I avoid using OR as much as possible since it has to check every single component before triggering. I never thought of it as a bug, just a peculiarity.

I think that AND works the same way, and won't abort until checking all the components even if the first is false.

I just use sequential if... then.. else statements to avoid that problem. And you can always use breaks to get out of loops, if you want to check for multiple conditions in a loop rather than using "until blah or blah or blah".

no chance of silent mouse? lol

Quote:

---

Originally Posted by Jason2gs

1: A good, "while-running" progress report. I want to be able to see what's going on with my script while it's running.

---

You can make yourself just like I did in my SecetCutter
http://www.secetweb.com/images/secetcutter.PNG