SRL Scripting Competition #3.5

Forms and canvas's!
Deadline: 23rd September 2008 12.00 Midnight GMT

Results: Here!

I have been given the go-ahead by Nielsie who has said that if enough people join then a competition cup shall be handed out. The reason I have chosen Forms and Canvas's is because few people know how to use them efficiently and this give a reason for learning them.

You may notice I've kept the thread as close to StarBlaster's layout as I could.

Anyone is welcome to join the competition, the rules are simple:

Rules

• You must work on your own - no development teams
• However much you have completed must be submitted before the
  deadline, even if you don't complete the script fully, you still have a
  (small) chance of winning.
• You must make all of your own custom functions. You cannot take
  them from any other script even if you have permission. This means
  that the only procedures / functions you may use are the ones already
  in the SRL include, SCAR Divi or ones that you make yourself.
• Once you have submitted a script, you cannot submit another one /
  edit your current one, so make sure you check it over thoroughly before
  submitting your entry.
• You must start from scratch, This means you cannot take code form your other scripts you must write everything from scratch so that everyone is starting from the same place.
• I will not accept obbed scripts badly named variables will lose marks.

I may add / change the rules at any time, and i will warn you when i do. They won't be big changes though.

Extra Rules!

Because of the variety of entry types we will get there are some extra rules

• All images must be loaded from a folder, no large bitmaps to be present
  in your script.
• Your code must be strictly unseen by any other members participating
  in the competition until the deadline. However, you may let other
  members of the public who are not participating in the competition test
  out your script (The code must be sent privately). You MUST list all of
  the members you allow to test your game at the top of your script.
  Each person may only help test one script!
• You must not use plugins.

Anyone who tries to cheat will be automatically eliminated! (I.E. copying existing / other members code) I will be the judge of whether you cheat or not

Script will be judged on:

• Clean Code - i.e No useless code/code that could be shortened.
  standards.
• Follow all SRL rules: i.e break out of potential infinite loops etc.
• Creativity - Speaks for itself
• Efficiency - How well does it work, does it runtime often
• Profesionalism - Neat looking design
• Added Extras... (?)
• Usefulness/addictiveness/other - dependent on the entry type

Prize
Competition winners cup,
1 month runescape members kindly donated by Nuaman akhlaq
however it is up to you whether or not to accept as he will need access to your account.

and no matter what happens as long as you have recoveries and bank everything with a pin you will be safe =]

anything else that is donated,(this could be RL cash, Rs gp, members pins, accounts, 'Services' etc.)
For safety if you want to offer a service such as fire caping you must be SRL Member or above.
It is then up to the winner to choose whether to accept it or not

Submitting your entry
Once you have finished your script, email or PM it to me so that others won't see your finished product until the end of the competition, and they can't steal your ideas! All scripts will then be posted up after the competition has ended.

Why should I enter?
Hopefully this competition will not only get you motivated to script but help you to develop a larger understanding of scar itself and a greater appreciation for the de-preciated functions that you may have never seen before entering the competition. This script will make you use techniques you may have never tried before, such as using the Canvas and Debug window as well as all of the Fast drawing functions... check out the SCAR manual for more info...

Where do I Start?!
Anywhere you want you have ~1 month, this is the most open competition so far, the entries can range from a calculator to a game so be creative.

Testers
Testers must not submit any code to the entrant they may only point out errors,
as soon as code from a tester is used then he becomes part of your development team,
Therefore disqualifying you.

Good luck to everyone; Let the Games begin!

I'll Join.

me also.

Are junior members allowed to join? I really don't think I will win, but it would motivate me to learn more about scar.

Me me me me me me!! Finally a scripting competition I can join :D

Yes Griff any one who can see this thread can join, which, if i am correct is everyone =p

ok, thanks.... JUNIOR MEMBER FTW

basicly the same as the last comp? it was just canvas? ahh well, i might join.

No nick last comp was a game
this time its forms and canvases
which could be like applications eg notepads and calcculators o anything you feel like maybe eithen a movie

New player forms? :)

SCAR Code:

Program IDontEvenKnowWhatThisFormIsForYetXD;
         (*             YES I know I have weird tabbing...             *)
var Form:TForm;
    TabController:TPageControl;
    Tabs:array[1..3] of TTabSheet;
    PlayerScrollBox:TScrollBox;
    PlayerFormEdits:array[1..5] of array of TEdit;
    PlayerFormLabels:array[1..5] of array of TLabel;
    PlayerFormChecks:array of TCheckBox;
    OtherEdits:array[1..4] of TEdit;
    Labels:array[1..4] of TLabel;
    Checks:array[1..2] of TCheckBox;
    PlayerAdd,PlayerDelete,SaveSettings,LoadSettings:TButton;
    Ok,Cancel:TButton;
    AnObject:TObject; // Because TObjects can't be used as variants for ThreadSafeCalls
function TheForm:Boolean; forward;
procedure SetEditProperties(var anEdit:TEdit;var aLabel:TLabel;x,y,w,h:integer;text:string;password:boolean); forward;
procedure VanishLabel; forward;
procedure SafeVanishLabel(Sender:TObject); forward;
procedure AddPlayer; forward;
procedure SafeAddPlayer(Sender:TObject); forward;
procedure DeletePlayer; forward;
procedure SafeDeletePlayer(Sender:TObject); forward;
procedure EnablePlayer(Sender:TObject); forward;
procedure ScriptTerminate; forward;
procedure SaveTheSettings(Sender:TObject); forward;
procedure LoadTheSettings(Sender:TObject); forward;
procedure OnFormClose(Sender: TObject; var CanClose: Boolean); forward;
procedure CloseForm(Sender:TObject); forward;

function TheForm:Boolean;
  var i:integer;
  begin
  Form := CreateForm;
  Form.SetBounds(0,0,600,450);
  Form.Position := poScreenCenter;
  Form.Caption := 'Widget''s Essence Miner';
  Form.BorderIcons := [biSystemMenu];
  Form.OnClick := @SafeVanishLabel;
  Form.OnCloseQuery := @OnFormClose;
  TabController := TPageControl.Create(Form);
  TabController.Parent := Form;
  TabController.SetBounds(2,2,590,385);
  TabController.Visible := True;
  for i := 1 to 2 do
    begin
    Tabs[i] := TTabSheet.Create(Form);
    Tabs[i].PageControl := TabController;
    end;
  Tabs[1].Caption := 'Setup';
  Tabs[2].Caption := 'Players';
 // Tabs[3].Caption := 'Autoresponder'; // Not yet =)
  for i := 1 to 4 do
    begin
    OtherEdits[i] := TEdit.Create(Form);
    OtherEdits[i].Parent := Tabs[1];
    OtherEdits[i].OnClick := @SafeVanishLabel;
    Labels[i] := TLabel.Create(Form);
    Labels[i].Parent := OtherEdits[i];
    Labels[i].Font.Color := $AAAAAA;
    Labels[i].Color := OtherEdits[i].Color;
    Labels[i].Transparent := False;
    Labels[i].OnClick := @SafeVanishLabel;
    end;
  SetEditProperties(OtherEdits[1],Labels[1],50,50,120,20,'Stats ID',False);
  SetEditProperties(OtherEdits[2],Labels[2],175,50,150,20,'Stats Pass',True);
  SetEditProperties(OtherEdits[3],Labels[3],50,80,135,20,'Mouse Speed',False);
  SetEditProperties(OtherEdits[4],Labels[4],190,80,135,20,'Loads Per Login',False);
  OtherEdits[3].Text := '15';
  OtherEdits[4].Text := '4';
  for i := 1 to 2 do
    begin
    Checks[i] := TCheckBox.Create(Form);
    Checks[i].Parent := Tabs[1]
    Checks[i].SetBounds(51,80+30*i,270,20);
    end;
  Checks[1].Caption := 'Use Pouches';
  Checks[2].Caption := 'Auto-Respond';
  PlayerScrollBox := TScrollBox.Create(Form);
  PlayerScrollBox.Parent := Tabs[2];
  PlayerScrollBox.SetBounds(10,10,560,275);
  PlayerScrollBox.Color := 16119800;
  SafeAddPlayer(Form);
  PlayerAdd := TButton.Create(Form);
  PlayerAdd.Parent := Tabs[2];
  PlayerAdd.SetBounds(30,300,100,25);
  PlayerAdd.Caption := 'Add Player';
  PlayerAdd.OnClick := @SafeAddPlayer;
  PlayerDelete := TButton.Create(Form);
  PlayerDelete.Parent := Tabs[2];
  PlayerDelete.SetBounds(135,300,100,25);
  PlayerDelete.Caption := 'Delete Player';
  PlayerDelete.OnClick := @SafeDeletePlayer;
  SaveSettings := TButton.Create(Form);
  SaveSettings.Parent := Form;
  SaveSettings.SetBounds(5,387,100,25);
  SaveSettings.Caption := 'Save Settings';
  SaveSettings.OnClick := @SaveTheSettings;
  LoadSettings := TButton.Create(Form);
  LoadSettings.Parent := Form;
  LoadSettings.SetBounds(110,387,100,25);
  LoadSettings.Caption := 'LoadSettings';
  LoadSettings.OnClick := @LoadTheSettings;
  LoadTheSettings(Form);
  Ok := TButton.Create(Form);
  Ok.Parent := Form;
  Ok.SetBounds(485,387,100,25);
  Ok.Caption := 'OK';
  Ok.OnClick := @CloseForm;
  Cancel := TButton.Create(Form);
  Cancel.Parent := Form;
  Cancel.SetBounds(380,387,100,25);
  Cancel.Caption := 'Cancel';
  Cancel.OnClick := @CloseForm;
  Result := (Form.ShowModal=MrOk);
  end;
  
function ShowForm:Boolean;
  var tva:Tvariantarray;
  begin
  result := ThreadSafeCall('TheForm',tva);
  end;
  
procedure SetEditProperties(var anEdit:TEdit;var aLabel:TLabel;x,y,w,h:integer;text:string;password:boolean);
  begin
  anEdit.SetBounds(x,y,w,h);
  if password then
    anEdit.PasswordChar := '*';
  aLabel.SetBounds(w-Form.Canvas.TextWidth(text)-5,-1,Form.Canvas.TextWidth(text)+5,20);
  aLabel.Caption := text;
  end;
  
procedure SafeVanishLabel(Sender:TObject);
var tva:Tvariantarray;
  begin
  AnObject := Sender;
  tva := []
  try
    ThreadSafeCall('VanishLabel',tva);
  except
    Writeln('Thread error');
  end;
  end;
  
procedure VanishLabel;
  var i,i2:integer;
      TheEdit:TEdit;
      TheLabel:TLabel;
      Sender:TObject;
  begin
  try
    Sender := AnObject;
    for i := 1 to high(OtherEdits) do
      if not Labels[i].visible then
        Labels[i].visible := true;
    for i := 1 to 5 do
      for i2 := 0 to (getarraylength(PlayerFormEdits[1])-1) do
        if not PlayerFormLabels[i][i2].Visible then
          PlayerFormLabels[i][i2].Visible := True;
    TheLabel := nil;
    TheEdit := nil;
    for i := 1 to high(OtherEdits) do
      if (Sender=OtherEdits[i]) OR (Sender=Labels[i]) then
        begin
        TheLabel := Labels[i];
        TheEdit := OtherEdits[i];
        end;
    for i := 1 to high(PlayerFormEdits) do
      for i2 := 1 to getarraylength(PlayerFormEdits[1]) do
        if (Sender=PlayerFormEdits[i][i2-1]) OR (Sender=PlayerFormLabels[i][i2-1]) then
          begin
          TheLabel := PlayerFormLabels[i][i2-1];
          TheEdit := PlayerFormEdits[i][i2-1];
          end;
    if not ((TheEdit=nil) OR (TheLabel=nil)) then
      begin
      TheLabel.Visible := False;
      TheEdit.SetFocus;
      end else
        if not (Sender=Form) then
          Form.SetFocus;
    Sender := nil;
    AnObject := nil;
  except
    Writeln('Weird error with the labels *sigh*');
  end;
  end;
  
procedure AddPlayer;
  var i,i2:integer;
  begin
  i2 := GetarrayLength(PlayerFormEdits[1]);
  for i := 1 to 5 do
    begin
    SetarrayLength(PlayerFormEdits[i],GetarrayLength(PlayerFormEdits[i])+1);
    SetarrayLength(PlayerFormLabels[i],GetarrayLength(PlayerFormLabels[i])+1);
    PlayerFormEdits[i][i2] := TEdit.Create(Form);
    PlayerFormEdits[i][i2].Visible := False;
    PlayerFormEdits[i][i2].Parent := PlayerScrollBox;
    PlayerFormEdits[i][i2].OnClick := @SafeVanishLabel;
    PlayerFormLabels[i][i2] := TLabel.Create(Form);
    PlayerFormLabels[i][i2].Parent := PlayerFormEdits[i][i2];
    PlayerFormLabels[i][i2].Font.Color := $AAAAAA;
    PlayerFormLabels[i][i2].Color := PlayerFormEdits[i][0].Color;
    PlayerFormLabels[i][i2].OnClick := @SafeVanishLabel;
    end;
  SetarrayLength(PlayerFormChecks,GetarrayLength(PlayerFormChecks)+1);
  SetEditProperties(PlayerFormEdits[1][i2],PlayerFormLabels[1][i2],25,10+25*i2,120,20,'Username',false);
  SetEditProperties(PlayerFormEdits[2][i2],PlayerFormLabels[2][i2],150,10+25*i2,120,20,'Password',true);
  SetEditProperties(PlayerFormEdits[3][i2],PlayerFormLabels[3][i2],275,10+25*i2,70,20,'Nick',false);
  SetEditProperties(PlayerFormEdits[4][i2],PlayerFormLabels[4][i2],350,10+25*i2,70,20,'PIN',false);
  SetEditProperties(PlayerFormEdits[5][i2],PlayerFormLabels[5][i2],425,10+25*i2,110,20,'Total Loads',false);
  PlayerFormChecks[i2] := TCheckBox.Create(Form);
  PlayerFormChecks[i2].Visible := False;
  PlayerFormChecks[i2].Color := 16119800;
  PlayerFormChecks[i2].Parent := PlayerScrollBox;
  PlayerFormChecks[i2].SetBounds(5,11+25*i2,20,20);
  PlayerFormChecks[i2].Checked := True;
  PlayerFormChecks[i2].OnClick := @EnablePlayer;
  for i := 1 to 5 do
    begin
    PlayerFormEdits[i][i2].Visible := True;
    PlayerFormLabels[i][i2].Visible := True;
    end;
  PlayerFormChecks[i2].Visible := True;
  end;
  
procedure SafeAddPlayer(Sender:TObject);
  var tva:Tvariantarray;
  begin
  ThreadSafeCall('AddPlayer',tva);
  end;
  
procedure DeletePlayer;
  var i,i2:integer;
  begin
  try
    i := GetarrayLength(PlayerFormChecks)-1;
    if (i=0) then Exit;
    for i2 := 1 to 5 do
      begin
      PlayerFormEdits[i2][i].Parent := nil;
      PlayerFormLabels[i2][i].Parent := nil;
      SetarrayLength(PlayerFormLabels[i2],i);
      SetarrayLength(PlayerFormEdits[i2],i);
      end;
    PlayerFormChecks[i].Parent := nil;
    SetarrayLength(PlayerFormChecks,i);
  except
    GetApplication.MessageBox('Error deleting player','Error',1);
  end;
  end;
  
procedure SafeDeletePlayer(Sender:TObject);
  var tva:Tvariantarray;
  begin
  ThreadSafeCall('DeletePlayer',tva);
  end;
  
procedure EnablePlayer(Sender:TObject);
  var i,i2:integer;
  begin
  for i := 0 to (getarraylength(PlayerFormChecks)-1) do
    if Sender=PlayerFormChecks[i] then Break;
  for i2 := 1 to 4 do
    begin
    PlayerFormEdits[i2][i].Enabled := PlayerFormChecks[i].Checked;
    if PlayerFormChecks[i].Checked then
      PlayerFormEdits[i2][i].Color := $FFFFFF
    else
      PlayerFormEdits[i2][i].Color := $EEEEEE;
    end;
  end;
  
function Encrypt(text:string):string;
  var i:integer;
  begin
  for i := 1 to length(text) do
    result := result+Chr(ord(text[i])-8);
  end;
  
function Decrypt(text:string):string;
  var i:integer;
  begin
  for i := 1 to length(text) do
    result := result+Chr(ord(text[i])+8);
  end;
  
procedure SaveTheSettings(Sender:TObject);
  var path:string;
      i:integer;
  begin
  Path := AppPath+'EssMinerSettings.ini';
  WriteINI('Settings','StatsID',OtherEdits[1].Text,Path);
  WriteINI('Settings','StatsPass',Encrypt(OtherEdits[2].Text),Path);
  WriteINI('Settings','MouseSpeed',OtherEdits[3].Text,Path);
  WriteINI('Settings','Loads',OtherEdits[4].Text,Path);
  WriteINI('Settings','UsePouches',BoolToStr(Checks[1].Checked),Path);
  WriteINI('Settings','Autorespond',BoolToStr(Checks[2].Checked),Path);
  WriteINI('Settings','Players',IntToStr(GetarrayLength(PlayerFormEdits[1])),Path);
  for i := 0 to (GetarrayLength(PlayerFormEdits[1])-1) do
    begin
    WriteINI('Player'+inttostr(i),'User',PlayerFormEdits[1][i].Text,Path);
    WriteINI('Player'+inttostr(i),'Pass',Encrypt(PlayerFormEdits[2][i].Text),Path);
    WriteINI('Player'+inttostr(i),'Nick',PlayerFormEdits[3][i].Text,Path);
    WriteINI('Player'+inttostr(i),'PIN',PlayerFormEdits[4][i].Text,Path);
    WriteINI('Player'+inttostr(i),'Loads',PlayerFormEdits[5][i].Text,Path);
    end;
  end;
  
procedure LoadTheSettings(Sender:TObject);
  var path:string;
      i:integer;
  begin
  Path := AppPath+'EssMinerSettings.ini';
  if not FileExists(path) then Exit;
  OtherEdits[1].Text := ReadINI('Settings','StatsID',path);
  OtherEdits[2].Text := Decrypt(ReadINI('Settings','StatsPass',path));
  OtherEdits[3].Text := ReadINI('Settings','MouseSpeed',path);
  OtherEdits[4].Text := ReadINI('Settings','Loads',path);
  for i := 2 to GetarrayLength(PlayerFormEdits[1]) do
    SafeDeletePlayer(Form);
  for i := 0 to (StrToIntDef(ReadINI('Settings','Players',path),0)-1) do
    begin
    if (i>0) then
      SafeAddPlayer(Form);
    PlayerFormEdits[1][i].Text := ReadINI('Player'+inttostr(i),'User',path);
    PlayerFormEdits[2][i].Text := Decrypt(ReadINI('Player'+inttostr(i),'Pass',path));
    PlayerFormEdits[3][i].Text := ReadINI('Player'+inttostr(i),'Nick',path);
    PlayerFormEdits[4][i].Text := ReadINI('Player'+inttostr(i),'PIN',path);
    PlayerFormEdits[5][i].Text := ReadINI('Player'+inttostr(i),'Loads',path);
    end;
  Checks[1].Checked := StrToBoolDef(ReadINI('Settings','UsePouches',path),False);
  Checks[2].Checked := StrToBoolDef(ReadINI('Settings','Autorespond',path),False);
  end;
  
procedure OnFormClose(Sender: TObject; var CanClose: Boolean);
  var message:integer;
  begin
  message := GetApplication.MessageBox('Would you like to save the form settings?','Save Changes?',3);
  CanClose := (message<>2);
  if (message=6) then
    SaveTheSettings(Form);
  end;
  
procedure CloseForm(Sender:TObject);
  begin
  if (Sender=Ok) then
    Form.ModalResult := mrOk
  else
    Form.ModalResult := mrCancel;
  end;
  
procedure ScriptTerminate;
  begin
  Writeln('Script ending');
  // Bitmaps and such would be freed here
  end;
  
begin
if ShowForm then
  Writeln('Clicked OK')
else
  Writeln('Clicked Cancel');
Writeln('Form closed');
FreeForm(Form);
writeln('Form freed');
end.

(deal with the standards :p)

[not my application script either]

"Forms and canvases" is a bit too broad for me... could you clear it up on what you're looking for?

So i can take functions from lets say the SMART Include and modifie them?

Bullzeye it is ment to be broad be creative it can be a usefull application to a fun game they will all be marked equally as the last marking point is variable depending on the type of application.

yes jukka as long as its in th srl SVN include folder you can use it (that doesnt mean put your own stuff in and now reflection)

Sign me up as well. :)

I hope you know enough about this stuff to judge the peoples work with 100% err... Justice x)

Anyhow gl everyone.

Too broad for me. I may join the next one.

Quote:

---

Originally Posted by bullzeye95

Too broad for me. I may join the next one.

---

Your just scared to lose ^_^.

dang i know theres way better 1's out there

i use only form editor :) is that good? lol hopefully..

Quote:

---

Originally Posted by mastaraymond

Your just scared to lose ^_^.

---

Only if you join ;)

I will join, however i am unsure of what to do :p Forms and canvas's, what do you mean by that? A lot of pictures on the form, or? :p

@~~Joker~~: Form Editor FTW! However, images doesn't work on that, sooo. :p <3 Santy and SKy Scripter for teaching me how to add images.

If Ray and Skyler don't join I do :p

Come on markus be a sport they might make the most cool thing ever but it could be useless and boring and look flashy.

Quote:

---

Originally Posted by bullzeye95

Only if you join ;)

---

I don't think so..

I'm in. I pm'd the script to waddo.

I spended like 20 hours working on that form

Quote:

---

Originally Posted by MasterKill

I'm in. I pm'd the script to waddo.

I spended like 20 hours working on that form

---

Could i see it pl0x?

Im i allowed to make a separate include for different stuff etc?
I have a awesome idea, i just need to make a separate include to make it look clean :)

yes jukka just no plugins includes are fine

lol at Dan and just incase your seriuos "NO!"

im sure he's not keeping it against the rules to split up your script into different scar files.

I officially un-join because i am quite lazy and hate deadlines, and im mixster's tester. :)

Time to make some use of Freddy's tutorials :)

Quote:

---

Originally Posted by mastaraymond

I don't think so..

---

You're right. Markus is perfect competition for me!

But I still don't join.

I dont want to join, Im board of seeing form and canvases for the last year :(

Mixster I have put you back on.


Also Nuaman you dont have to use canvases you can use forms and make an application

Ok ill make one, Im joining. Whens the deadline?

I didn't get a competition cup for SC #3 :<.

Well you have one now
Deadline is september 30th

so, markus might join, masterkill joined, ray and skyler might join... this doesn't look very good for me.

Try anyway it will improve your scripting

OK I think I will, and hopefully I don't get made fun of too much when you mark them :D.

If I beat Markus or MK, they will NEVER hear the end of it.

Meh, forms are ftl :p otherwise id join, i've never joined one before :D

Quote:

---

Originally Posted by Metagen

Meh, forms are ftl :p otherwise id join, i've never joined one before :D

---

It's not about the forms, it's about what you do with em.. Making a form with a TImage is like 20 secs of work.. And then you can make the game :).