TMap.AddObject - Revision history

Tk at 16:00, 22 January 2016

2016-01-22T16:00:34Z

Mighty at 19:02, 22 August 2013

2013-08-22T19:02:57Z

Mighty: new page

2013-08-22T10:43:42Z

new page

New page

'''''function AddObject(Obj: [[TNewMapObject]]):[[TActiveMapObject]]'''''
Obj: new object to be placed on the map
Result: newly created object<br>

==Description==

This function will add a new object at position X,Y with target style. It will always be active.

==Example==
The below example will spawn a medkit on the players position whenever he types "Medic!"

<syntaxhighlight lang="pascal">
var
i: integer;

procedure SpawnMedkit(posx,posy: single);
var temp: TNewMapObject;
begin
temp := TNewMapObject.Create;
temp.X := posx;
temp.Y := posy;
temp.Style := 16; // medkit
Map.AddObject(temp);
temp.Free; // IMPORTANT!
end;

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

begin
for i:=1 to 32 do
Players[i].OnSpeak := @MyOnSpeak;
end.
</syntaxhighlight>

[[Category:TMap]]

@@ Line 28: / Line 28: @@
 begin
    if Text = 'Medic!' then
-     SpawnMedkit(p.X,p.Y);
+     SpawnMedkit(p.X,p.Y);z
 end;
@@ Line 35: / Line 35: @@
      Players[i].OnSpeak := @MyOnSpeak;
 end.
 </syntaxhighlight>
 [[Category:TMap]]

@@ Line 1: / Line 1: @@
-  '''''function AddObject(Obj: [[TNewMapObject]]):[[TActiveMapObject]]'''''
+  '''function AddObject(Obj: [[TNewMapObject]]):[[TActiveMapObject]]'''
    Obj: new object to be placed on the map
    Result: newly created object<br>