sheepy-clone: hedgewars/uFLNetTypes.pas@6b04a266feee (annotated)

10953 360e57620df3 Put types into a separate file unc0rr parents: diff changeset	1	unit uFLNetTypes;
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	2	interface
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	3
11434 d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	4	type TCmdType = (cmd_ADD_TEAM, cmd_ADD_TEAM_s, cmd_ASKPASSWORD, cmd_BANLIST,
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	5	cmd_BANLIST_s, cmd_BYE, cmd_CFG_AMMO, cmd_CFG_DRAWNMAP, cmd_CFG_FEATURE_SIZE,
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	6	cmd_CFG_FULLMAPCONFIG, cmd_CFG_FULLMAPCONFIG_s, cmd_CFG_MAP, cmd_CFG_MAPGEN,
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	7	cmd_CFG_MAZE_SIZE, cmd_CFG_SCHEME, cmd_CFG_SCHEME_s, cmd_CFG_SCRIPT,
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	8	cmd_CFG_SEED, cmd_CFG_TEMPLATE, cmd_CFG_THEME, cmd_CHAT, cmd_CLIENT_FLAGS,
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling unc0rr parents: 11430 diff changeset	9	cmd_CLIENT_FLAGS_s, cmd_CONNECTED, cmd_EM, cmd_EM_s, cmd_ERROR, cmd_HH_NUM,
11447 6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	10	cmd_INFO, cmd_INFO_s, cmd_JOINED, cmd_JOINED_s, cmd_JOINING, cmd_KICKED,
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	11	cmd_LEFT, cmd_LOBBY_JOINED, cmd_LOBBY_JOINED_s, cmd_LOBBY_LEFT, cmd_NICK,
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	12	cmd_NOTICE, cmd_PING, cmd_PING_s, cmd_PROTO, cmd_REMOVE_TEAM, cmd_ROOMS,
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	13	cmd_ROOMS_s, cmd_ROOM_ADD, cmd_ROOM_ADD_s, cmd_ROOM_DEL, cmd_ROOM_UPD,
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	14	cmd_ROOM_UPD_s, cmd_ROUND_FINISHED, cmd_RUN_GAME, cmd_SERVER_AUTH,
11446 908aed8525f9 Fix LEFT command handling unc0rr parents: 11434 diff changeset	15	cmd_SERVER_MESSAGE, cmd_SERVER_VARS, cmd_TEAM_ACCEPTED, cmd_TEAM_COLOR,
11447 6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	16	cmd_WARNING);
11418 ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	17
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	18	type TCmdParam = packed record
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	19	cmd: TCmdType;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	20	end;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	21	type TCmdParamL = packed record
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	22	cmd: TCmdType;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	23	str1: string;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	24	end;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	25	type TCmdParamS = packed record
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	26	cmd: TCmdType;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	27	str1: shortstring;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	28	end;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	29	type TCmdParamSL = packed record
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	30	cmd: TCmdType;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	31	str1: shortstring;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	32	str2: string;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	33	end;
11447 6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	34	type TCmdParamSS = packed record
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	35	cmd: TCmdType;
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	36	str1: shortstring;
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	37	str2: shortstring;
6b04a266feee - Accept team and team color from net unc0rr parents: 11446 diff changeset	38	end;
11418 ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	39	type TCmdParami = packed record
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	40	cmd: TCmdType;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	41	param1: LongInt;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	42	end;
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	43
10953 360e57620df3 Put types into a separate file unc0rr parents: diff changeset	44	TCmdData = record
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	45	case byte of
11418 ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	46	0: (cmd: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	47	1: (cpl: TCmdParamL);
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	48	2: (cps: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	49	3: (cpsl: TCmdParamSL);
ffff8a0d1a76 Implement processing net commands in the main thread unc0rr parents: 10953 diff changeset	50	4: (cpi: TCmdParami);
10953 360e57620df3 Put types into a separate file unc0rr parents: diff changeset	51	end;
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	52
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	53	implementation
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	54
360e57620df3 Put types into a separate file unc0rr parents: diff changeset	55	end.

author	unc0rr
	Thu, 03 Dec 2015 23:59:06 +0300
branch	qmlfrontend
changeset 11447	6b04a266feee
parent 11446	908aed8525f9
child 11467	33a0e3a14ddc
permissions	-rw-r--r--