hedgewars: hedgewars/uFLTypes.pas@488782d9aba9 (annotated)

10406 b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	1	unit uFLTypes;
10418 091d2c0216c3 Move away from passing shortstrings into C code, now IPC works unc0rr parents: 10406 diff changeset	2	interface
11450 0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	3	uses SDLh;
10406 b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	4
11434 23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	5	const
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	6	MAXARGS = 32;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	7
10428 7c25297720f1 More refactoring: move PoC preview getting code into flib unc0rr parents: 10420 diff changeset	8	type
12861 488782d9aba9 Recreate uFLRunQueue in Qt, render previews unc0rr parents: 12860 diff changeset	9	TMessageType = (mtPreview, mtPreviewHogCount
12860 e33bcb9d5e9c Preview rendering seems to work now unc0rr parents: 11842 diff changeset	10	, mtToNet, mtGameFinished);
10428 7c25297720f1 More refactoring: move PoC preview getting code into flib unc0rr parents: 10420 diff changeset	11
11460 9f2fb0031ef0 Fix two bugs, and yay, spectating works now unc0rr parents: 11452 diff changeset	12	TFLIBEvent = (flibGameFinished);
11434 23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	13
11449 2bf0491d5e88 Client flags handling implementation start unc0rr parents: 11443 diff changeset	14	TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin);
2bf0491d5e88 Client flags handling implementation start unc0rr parents: 11443 diff changeset	15
11450 0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	16	PIPCMessage = ^TIPCMessage;
10428 7c25297720f1 More refactoring: move PoC preview getting code into flib unc0rr parents: 10420 diff changeset	17	TIPCMessage = record
10418 091d2c0216c3 Move away from passing shortstrings into C code, now IPC works unc0rr parents: 10406 diff changeset	18	str: shortstring;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works unc0rr parents: 10406 diff changeset	19	len: Longword;
11450 0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	20	buf: Pointer;
11452 78860824b5a5 Introduce barriers between messages to different engine instances unc0rr parents: 11451 diff changeset	21	barrier: Longword;
11450 0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	22	next: PIPCMessage;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	23	end;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	24	PIPCQueue = ^TIPCQueue;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	25	TIPCQueue = record
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	26	msg: TIPCMessage;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	27	mut: PSDL_Mutex;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	28	cond: PSDL_Cond;
0c75fa9ce340 - Use queues instead of single buffer to communicate between threads unc0rr parents: 11449 diff changeset	29	last: PIPCMessage;
10418 091d2c0216c3 Move away from passing shortstrings into C code, now IPC works unc0rr parents: 10406 diff changeset	30	end;
10432 b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	31
10420 02c573d19224 flib: unc0rr parents: 10418 diff changeset	32	TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
10951 89a7f617e091 - Move protocol handling events to main thread through qt's main loop unc0rr parents: 10892 diff changeset	33	TUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;
10406 b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	34
11451 6e9b12864856 Start work on running engine in network game unc0rr parents: 11450 diff changeset	35	TGameType = (gtPreview, gtLocal, gtNet);
10432 b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	36	THedgehog = record
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	37	name: shortstring;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	38	hat: shortstring;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	39	end;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	40	TTeam = record
11442 6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	41	teamName
6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	42	, flag
6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	43	, grave
6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	44	, fort
6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	45	, voice
6b04a266feee - Accept team and team color from net unc0rr parents: 11440 diff changeset	46	, owner: shortstring;
10450 bf9e30b4ef9b - Store index of color instead of its value unc0rr parents: 10444 diff changeset	47	color: Longword;
10432 b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	48	extDriven: boolean;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	49	botLevel: Longword;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	50	hedgehogs: array[0..7] of THedgehog;
b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	51	hogsNumber: Longword;
10440 b74a7bbe224e - Implement getTeamsList (not tested) unc0rr parents: 10432 diff changeset	52	end;
b74a7bbe224e - Implement getTeamsList (not tested) unc0rr parents: 10432 diff changeset	53	PTeam = ^TTeam;
10432 b0abef0ee78c Quick Game PoC unc0rr parents: 10430 diff changeset	54
10819 57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	55	TScheme = record
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	56	schemeName
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	57	, scriptparam : shortstring;
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	58	fortsmode
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	59	, divteams
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	60	, solidland
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	61	, border
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	62	, lowgrav
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	63	, laser
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	64	, invulnerability
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	65	, mines
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	66	, vampiric
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	67	, karma
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	68	, artillery
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	69	, randomorder
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	70	, king
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	71	, placehog
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	72	, sharedammo
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	73	, disablegirders
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	74	, disablewind
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	75	, morewind
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	76	, tagteam
11440 330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	77	, resethealth
330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	78	, disablelandobjects
330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	79	, aisurvival
330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	80	, infattack
330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	81	, resetweps
330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	82	, perhogammo
10819 57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	83	, bottomborder: boolean;
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	84	damagefactor
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	85	, turntime
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	86	, health
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	87	, suddendeath
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	88	, caseprobability
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	89	, minestime
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	90	, landadds
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	91	, minedudpct
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	92	, explosives
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	93	, minesnum
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	94	, healthprobability
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	95	, healthcaseamount
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	96	, waterrise
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	97	, healthdecrease
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	98	, ropepct
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	99	, getawaytime
11440 330c14f4ba69 Accept scheme from net unc0rr parents: 11437 diff changeset	100	, airmines
10819 57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	101	, worldedge: LongInt
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	102	end;
57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	103	PScheme = ^TScheme;
10888 a04e04aaf599 Ammo schemes list, almost works unc0rr parents: 10819 diff changeset	104	TAmmo = record
a04e04aaf599 Ammo schemes list, almost works unc0rr parents: 10819 diff changeset	105	ammoName: shortstring;
10892 83a99e2f8b00 Make ammo scheme work unc0rr parents: 10888 diff changeset	106	a, b, c, d: shortstring;
10888 a04e04aaf599 Ammo schemes list, almost works unc0rr parents: 10819 diff changeset	107	end;
a04e04aaf599 Ammo schemes list, almost works unc0rr parents: 10819 diff changeset	108	PAmmo = ^TAmmo;
10819 57e21f7621b0 Send selected scheme config on engine initialization (WIP) unc0rr parents: 10452 diff changeset	109
11434 23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	110	PGameConfig = ^TGameConfig;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	111	TGameConfig = record
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	112	seed: shortstring;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	113	theme: shortstring;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	114	script: shortstring;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	115	map: shortstring;
11462 33a0e3a14ddc - Fix passing of ansistrings via ipc unc0rr parents: 11460 diff changeset	116	drawnData: array[word] of char;
33a0e3a14ddc - Fix passing of ansistrings via ipc unc0rr parents: 11460 diff changeset	117	drawnDataSize: LongWord;
11434 23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	118	scheme: TScheme;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	119	ammo: TAmmo;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	120	mapgen: LongInt;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	121	featureSize: LongInt;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	122	mazesize: LongInt;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	123	template: LongInt;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	124	gameType: TGameType;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	125	teams: array[0..7] of TTeam;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	126	arguments: array[0..Pred(MAXARGS)] of shortstring;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	127	argv: array[0..Pred(MAXARGS)] of PChar;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	128	argumentsNumber: Longword;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	129	nextConfig: PGameConfig;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	130	end;
23912c93935a - Implement engine runs queue unc0rr parents: 11433 diff changeset	131
10406 b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	132	implementation
b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	133
b5fd52ac760f Basic layout of frontlib, some more sdl bindings unc0rr parents: diff changeset	134	end.

author	unc0rr
	Tue, 26 Dec 2017 01:36:58 +0100
branch	qmlfrontend
changeset 12861	488782d9aba9
parent 12860	e33bcb9d5e9c
permissions	-rw-r--r--