TGame.OnRequest - Revision history

Mighty: 2.7.8.b1 declaration change

2014-10-04T09:35:40Z

2.7.8.b1 declaration change

Mighty at 12:26, 26 July 2013

2013-07-26T12:26:08Z

Mighty at 11:47, 26 July 2013

2013-07-26T11:47:39Z

Mighty: new page

2013-07-26T11:36:12Z

new page

New page

'''''property OnRequest'''''
Access mode: RW
Event handler type: [[TOnRequestEvent]]
Event handler declaration:
function ('''Ip''': string; '''Port''': Word; '''State''': Byte; '''Forwarded''': Boolean; '''Password''': string): Integer;

==Description==
Event property called when a player joins the server.
<br>

==Example==
<syntaxhighlight lang="pascal">
procedure SpecOnJoin(Player: TActivePlayer; Team: TTeam);
begin
Player.Team := 5;
end;

// ...

begin
// assign OnJoin handler
Game.OnJoin := @SpecOnJoin;

// ...

// unassign
Game.OnJoin := nil;
end;
</syntaxhighlight>

[[Category:TGame]]

@@ Line 3: / Line 3: @@
    Event handler type: [[TOnRequestEvent]]
    Event handler declaration:
-     function ('''Ip''': string; '''Port''': Word; '''State''': Byte; '''Forwarded''': Boolean; '''Password''': string): Integer;
+     function ('''Ip''', '''Hw''': string; '''Port''': Word; '''State''': Byte; '''Forwarded''': Boolean; '''Password''': string): Integer;
 ==Description==
@@ Line 30: / Line 30: @@
 Example allows players to join even if they enter wrong password
 <syntaxhighlight lang="pascal">
-  function MyOnRequestHandler(Ip: string; Port: Word; State: Byte; Forwarded: Boolean; Password: string): Integer;
+  function MyOnRequestHandler(Ip, Hw: string; Port: Word; State: Byte; Forwarded: Boolean; Password: string): Integer;
   begin
     if (State = 3) then

← Older revision		Revision as of 12:26, 26 July 2013
Line 50:		Line 50:
	</syntaxhighlight>		</syntaxhighlight>

−	[[Category:TGame]]	+	[[Category:TGame]][[Category:Events]]

@@ Line 6: / Line 6: @@
 ==Description==
-Event property called when a player joins the server.
+Event property called when a player connects with a server in order to join.
 <br>
 ==Example==
 <syntaxhighlight lang="pascal">
-  procedure SpecOnJoin(Player: TActivePlayer; Team: TTeam);
+  function MyOnRequestHandler(Ip: string; Port: Word; State: Byte; Forwarded: Boolean; Password: string): Integer;
   begin
-    Player.Team := 5;
+    if (State = 3) then
   end;
@@ Line 19: / Line 40: @@
   begin
-    // assign OnJoin handler
+    // assign OnRequest handler
-    Game.OnJoin := @SpecOnJoin;
+    Game.OnRequest := @MyOnRequestHandler;
     // ...
     // unassign
-    Game.OnJoin := nil;
+    Game.OnRequest := nil;
   end;
 </syntaxhighlight>
 [[Category:TGame]]