Constructor - Revision history

Mighty: /* Usage */

2013-08-22T10:43:56Z

‎Usage

Mighty: /* Usage */

2013-08-22T10:41:37Z

‎Usage

Mighty: /* Usage */

2013-08-12T14:44:30Z

‎Usage

Mighty: new page

2013-08-12T14:44:07Z

new page

New page

==Description==

Constructors are used to allocate memory for a new object/class/variable etc.<br>
It's important to remember to free previously allocated memory by using [[Destructor|Destructors]]

==Usage==

There are some user constructable classes in Script Core 3, for example [[TNewPlayer]] and [[TNewMapObject]].<br>
Below example shows the usage of [[TNewMapObject]].Create, which is this classes constructor.

<syntaxhighlight lang="pascal">
procedure SpawnMedkit(posx,posy: single);
var temp: TNewMapObject;
begin
temp := TNewMapObject.Create;
temp.X := posx;
temp.Y := posy;
temp.Style := 16;
Map.AddObject(temp); // we could also save object's ID (newly spawned medkit)\
temp.Free; // IMPORTANT!
end;

procedure MyOnSpeak(p: TActivePlayer; Text: string);
begin
if lowercase(Text) = 'Medic!' then
SpawnMedkit(p.X,p.Y);
end;
</syntaxhighlight>

@@ Line 20: / Line 20: @@
    temp.Y := posy;
    temp.Style := 16;
-   Map.AddObject(temp); // we could also save object's ID (newly spawned medkit)\
+   Map.AddObject(temp); // we could also save object's ID (newly spawned medkit)
    temp.Free; // IMPORTANT! destructor
 end;
@@ Line 26: / Line 26: @@
 procedure MyOnSpeak(p: TActivePlayer; Text: string);
 begin
-   if lowercase(Text) = 'Medic!' then
+   if Text = 'Medic!' then
      SpawnMedkit(p.X,p.Y);
 end;

@@ Line 10: / Line 10: @@
 <syntaxhighlight lang="pascal">
 procedure SpawnMedkit(posx,posy: single);
 var temp: TNewMapObject;
@@ Line 26: / Line 29: @@
      SpawnMedkit(p.X,p.Y);
 end;
 </syntaxhighlight>