-
Notifications
You must be signed in to change notification settings - Fork 1
/
inc__r2globals.pas
317 lines (276 loc) · 12.2 KB
/
inc__r2globals.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
{*******************************************************************************
NFK [R2]
GLOBAL VARIABLES library
Info:
Also contains procedure and function declarations.
*******************************************************************************}
//mp;
BNET1 : TUDPdemon;
TCPSERV : TSimpleTCPServer;
TCPCLIENT : TSimpleTCPClient;
BRefreshEnabled : boolean;
WindowHandle : HWND;
SND: r2sound;
MainMenu : r2menu; // conn: not used yet
GameMenu : r2menu; //
MP_Providers, MP_Sessions, BNET_AU_LIST : TStringList;
MP_ProvidersIndex, MP_STEP, MP_SessionIndex: byte;
ParticleEngine: TParticleEngine;
// console
SinTable,
CosTable: Array[0..360] of extended;
INCONSOLE,GODMODE,INMENU, INTEAMSELECTMENU : boolean;
MENUORDER,MENUEDITMODE,MENUEDITMAX,MENUTIMEOUT,MENUWANTORDER : BYTE;
constr,ROOTDIR,MENUEDITSTR : string[255];
messagemode_str : string[255];
mainform: Tmainform;
lastconadd, mapindex,mapofs,mapcansel,GX,GY : integer;
serverofs:integer;
demoindex,demoofs : word;
{ conn: not used
Wave1,wave3,wave2,wave4,wave5,wave6 : integer;
Wavey : shortint;
Wavedir : byte;
Waveoy : real;
}
DemoStream, DeCompressedPaletteStream : TmemoryStream;
DemoStreamBZ:TmemoryStream;
DemoStreamProgressEvent : TProgressEvent;
LocationsArray : array [1..50] of TLocationText; // map locations text.
combo1 : TComboBoxNFK;
SPAWNX, SPAWNY : byte;
scoreboard_ts : TStringList; // for scoreboard sorting,
scoreboard_to : cardinal;
menu1_alpha : cardinal;
menu1_alpha_dir : byte;
menu2_alpha : cardinal;
menu2_alpha_dir : byte;
menu3_alpha : cardinal;
menu3_alpha_dir : byte;
menu4_alpha : cardinal;
menu4_alpha_dir : byte;
menu5_alpha : cardinal;
menu5_alpha_dir : byte;
menu6_alpha : cardinal;
menu6_alpha_dir : byte;
NFKPLANET_KeepAlive_var : byte = 6;
font_alpha : cardinal;
font_invalpha : cardinal;
font_alpha_dir : byte;
font_alpha_s : cardinal;
font_invalpha_s : cardinal;
font_alpha_dir_s : byte;
button_alpha : cardinal;
button_alpha_dir : byte;
button1_alpha : cardinal;
button1_alpha_dir : byte;
button2_alpha : cardinal;
button2_alpha_dir : byte;
button3_alpha : cardinal;
button3_alpha_dir : byte;
prevra : byte; // preview rect anim
starttime, answertime, votetesttime : cardinal;
tgR,tgG,tgB : real;
ctgR,ctgG,ctgB : real;
dompoint1, dompoint2, dompoint3 : byte;
dedicated_gameend_time : cardinal;
conmsg_index : word;
// SYS_CONSOLE_XZ : real;
// SYS_CONSOLE_YZ : real;
p1properties_backto: boolean;
mouseLeft, mouseRight, mouseMid : boolean; // conn: extended mouse handle
demodata: ddemodata;
demofile : file of ddemodata;
demofilename, LastDemoCommand : string;
mapweapondata : Tmapweapondata;
GameObjects : array [0..1000] of TMonoSprite; // array of game objects
AllBricks : array [0..250,0..250] of TBrick; // array of bricks
MapObjects : array [0..255] of TMAPOBJV2; // array of map objects
AllModels : array [0..750] of TNFKModel; // modelz
playerstats : array[0..16] of TPlayerStats; // mirror to players[0..7]. // Conn: [TODO] fix it to 7+
conscrmsg,conscrmsg2,conscrmsg3,conscrmsg4 : string;
conmsg : TStringList;
conmsgcur : array[0..14] of string[255];
conhist : tSTRINGLIST;
contime,contime2,contime3,contime4 : longint;
RESPAWNS_COUNT,LASTRESPAWN,hiclr : integer;
// conshow : integer; // conn: not used
RESPAWNSRED_COUNT,RESPAWNSBLUE_COUNT:integer;
LASTRESPAWNRED,LASTRESPAWNBLUE:integer;
ReadBuf{, ReadBuf2} : array[0..1023] of Byte;
muslist,mp3list,contab,credlist : TStringlist;
mp3lastsel: word;
players : array [0..16] of TPlayer; // conn: [TODO] fixit to 7+
LOG,maplist,demolist : TStringlist;
P1dummy, P2dummy : TPlayerEx;
mappath, demopath, loadmapsearch_lastfile : string;
DISPLAYMESSAGE : string;
crosh1,srosh2 : real;
extback : TBITMAP;
p1flashbar,p2flashbar,p1weapbar,p2weapbar,HEIG,fff,gamesudden,netsync,menuburn : byte;
menux,menuy : word;
gametime,gametic : integer;
keyaccel,keyaccel1,pkeyaccel,pkeyaccel1,draworder,menu_sl,last_menu_sl,menu_tab : byte;
map_author,map_name, map_filename, demo_name,demo_name_str : string [70];
map_filename_fullpath : string;
map_bg : byte;
map_crc32 : cardinal;
map_info : byte;
lastmap : integer = -1;
menuhic : boolean;
Particles:array[1..6] of TParticle;
zColor,Opacity : integer;
mapinfo:TMapInfo;
SV_Remember_Score_List : TList;
SVVOTE : TSVCallVote;
SpectatorList : TList;
//me: byte; // keep my players[index]
// SineLineTable: Array[0..360] Of single;
{*******************************************************************************
game.dll
*******************************************************************************}
var
GetSimpleText: function(LangRus: Boolean): PChar;
LibHandle: THandle;
{*******************************************************************************
bot.dll
*******************************************************************************}
type
TCallProcSTR = function(text : shortstring):shortstring;
TCallTextProc = procedure(text : shortstring);
TCallProcCreatePlayer = procedure(name, model: shortstring; team : byte);
TCallProcWordByteFunc = procedure(DXID : word ; keys: byte);
TCallProcWordWordFunc = procedure(DXID : word ; angle: word);
TCallProcWordWord_Bool = function(x, y : word):boolean;
TCallProcWordWordString = procedure(x, y : word; text : shortstring);
TCallProcBrickStruct = function(x, y : word):TBrick;
TCallProcObjectsStruct = function (ID : word):TMonoSpriteBD;
TCallProcSpecailObjectsStruct = function (ID : byte):TMAPOBJV2;
TCallProcWord = procedure(par : WORD);
TCallProcChat = procedure(DXID:word; text : shortstring; teamchat: boolean);
{*******************************************************************************
FUNCTIONS & PROCEDURES
*******************************************************************************}
procedure ReSortScoreBoard;
function CUSTOMSORT_PL (List: TStringList; Index1, Index2: Integer): Integer;
function CUSTOMSORT_PING (List: TStringList; Index1, Index2: Integer): Integer;
Function strpar(s : string; i: integer) : string;
function strpar_np(s:string; pos : word):string;
function strpar_next(s:string; pos : word):string;
procedure FillCharEx(var Ar:array of char; S:String);
procedure FireRocket(f : TPlayer; x,y,ang : real);
function modu(a : real) : real; // module
procedure PlayerAnim(id : byte); // id
procedure ADDMESSAGE(s : string);
procedure ADDPLAYER (sender : TPLayer);
procedure ApplyDamage(f : TPlayer; dmg : integer; att : TMonoSprite; tp : byte);
procedure ApplyCommand(s : string);
procedure ApplyHCommand(s : string);
procedure DeathMessage(f : TPlayer ; att : TMonoSprite; tp : byte);
procedure FIRE (f : TPlayer; x,y,ang : real);
procedure SpawnBlood(f : TPlayer);
procedure SpawnRailMark(x,y:real;color: byte);
procedure SpawnBulletMark(x,y:real);
procedure SpawnXYBlood(f : TPlayer; x,y:real);
procedure ThrowPlayer(player : TPlayer; epicenter : TMonoSprite; dmg : integer);
procedure TABCommand(s : string);
procedure LOADMAP (Filename : string; inreal : boolean);
procedure LoadCFG (s : string; option:byte);
procedure SaveCFG (s : string);
//function sqrtt(x : real) : real;
function AssignUniqueDXID (tmp : word) : word;
procedure SpawnNetShots(x,y : smallint);
procedure SpawnNetShots1(x,y : smallint);
procedure Gamma_set(a : byte);
function BrickOnHead(sender:TPlayer) : boolean;//do not jump over brickz
function formatbyte(n : integer) : integer;
procedure SpawnXYNulBlood(x,y:real);
procedure DrawBMPFont(s : string; x,y : Smallint ;size : byte);
procedure DrawCBMPFont(s:string;y:integer;size:byte);
function IsParamStr(ss : string) : boolean;
procedure GammaAnimation;
procedure Firegauntlet(f : TPlayer);
procedure FireBFG(f : TPlayer; x,y,ang : real);
procedure FirePlasma(f : TPlayer; x,y,ang : real);
procedure FireMachine(f : TPlayer; x,y,ang : real);
procedure FireShotGun(f : TPlayer; x,y,ang : real);
procedure FireRail(f : TPlayer; clr,x,y,ang : real);
procedure FireGren(f : TPlayer; x,y,ang : real);
procedure FireShaft(f : TPlayer; x,y,ang : real);
procedure FireShaftEx(f : tplayer; dude_ : boolean);
procedure RespawnFlash (x,y : real);
procedure ActivateOBJ(p : byte);
procedure ClipButton(xx,yy: integer);
procedure CorpsePhysic(id : byte);
procedure SpawnCorpse(f : TPlayer);
procedure DoWeapBar(i : byte);
Function ClipDoorTrigger(xx,yy: integer) : boolean;
function toValidFilename(str : string) : string;
procedure unbindkey(k : byte);
procedure p1defaults;
procedure p2defaults;
procedure GetMapWeaponData;
function IsWaterContentHEAD(sender : TPlayer) : boolean; // this procedure checkz if the player onground
function player_region_touch (x,y,x1,y1 : word; f : tplayer) : boolean;
procedure ShowCriticalError(caption,text1,text2 : shortstring);
procedure resetmap;
function InScreen(x,y,bn : integer) : boolean;
procedure CTF_DropFlag (f : TPlayer);
procedure CTF_ReturnFlag (flag:byte); // flag returnto base.
procedure CTF_EVENT_FLAGTAKEN(x,y:byte;DXID:word);
procedure CTF_Event_FlagCapture(DXID:word);
procedure CTF_Event_Message(DXID:word;action:shortstring);
function MyteamIS():byte;
function MyDxidIS():word;
function TeamGame:boolean;
procedure CTF_Event_FlagDrop_Apply(sender : TMonoSprite); // correcting flag poz.
procedure CTF_Event_PickupFlag(sender : TMonoSprite; player:TPlayer); // pickup selfteam flag, and start wear it...
procedure CTF_Event_ReturnFlag(DXID:WORD; team:byte);
procedure CTF_Event_GameStateScoreChanged();
procedure g_Network_droppableObjects(ToIP:ShortString; ToPort: word);
procedure CTF_SAVEDEMO_FlagDrop(sender : TMonoSprite);
function CTF_BlueFlagAtBase:boolean;
function CTF_RedFlagAtBase:boolean;
procedure CalculateFragBar;
function GetRedTeamScore : Smallint;
function GetBlueTeamScore : Smallint;
procedure DOM_Capture(x,y,team,packet_type:byte);//captures a point.
procedure WPN_ProcessWeaponPhysics (sender : TMonoSprite);
procedure POWERUP_ProcessPowerupPhysics (sender : TMonoSprite);
procedure WPN_DropWeapon (f : TPlayer);
procedure POWERUP_Drop (f : TPlayer);
procedure WPN_Event_WeaponDrop(sender : TMonoSprite);
function WPN_GainWeapon(f : TPlayer; wpnindex:byte) : boolean;
function POWERUP_GainPowerup(f : TPlayer; pindex, amount: byte) : boolean;
procedure POWERUP_Event_Pickup(sender : TMonoSprite; player:TPlayer); // pickup powerup
procedure DoWeapBarEx(F : TPlayer);
procedure ALIAS_SaveAlias(var TS:TStringList);
procedure DOM_UpdateStatusBar;
procedure ApplyModels();
procedure ApplyOriginalModels();
procedure SPAWNCLIENT;
function DrawWINDOW(Caption, Button: shortString;x,y, width, height:word; type_: byte) :boolean;
function LOADMAPCRC32(filename:string):Cardinal;
function BD_GetSystemVariable(s : shortstring):shortstring;
procedure resetplayerstats(f : tplayer);
procedure resetplayer(f : tplayer);
function ASSIGNMODEL(f : TPlayer) : boolean;
procedure FindRespawnPoint (p : TPlayer; net : boolean);
function GetNumberOfPlayers:byte;
procedure setcrosshairpos(f : TPlayer; x,y,h : single;vis : boolean); // xyh real
procedure ParseColorText(s: string;x,y:integer;fonttype:byte);
function MyPingIS():word;
procedure BNET_ServerStart;
procedure SV_Remember_Score_Add(netname, nfkmodel:string; frags : integer);
procedure SV_Remember_Score_Clear;
function MAPExists(filename:string; CRC32:cardinal) : boolean;
function GetNumberOfBots:byte;
function ISHotSeatMap:boolean;
procedure SendFloodTo(ToIP:shortstring; ToPort: word; order : byte);
procedure TestPlayerDead(i:byte);
procedure CL_AskLobbyGamestate(ToIP:String);
procedure ThrowXYGib (x,y : single; typ : byte);
function IsMultip() : byte; // 0=none; 1=host; 2=client
procedure LAN_BroadCast;
// -----------------------------------------------------------------------------
function DirectoryExists(const Name: string): Boolean;