hedgewars/uFLTypes.pas
author unc0rr
Sun, 28 Sep 2014 21:33:14 +0400
branchqmlfrontend
changeset 10432 b0abef0ee78c
parent 10430 899a30018ede
child 10440 b74a7bbe224e
permissions -rw-r--r--
Quick Game PoC
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
     3
10428
7c25297720f1 More refactoring: move PoC preview getting code into flib
unc0rr
parents: 10420
diff changeset
     4
type
7c25297720f1 More refactoring: move PoC preview getting code into flib
unc0rr
parents: 10420
diff changeset
     5
    TMessageType = (mtPreview);
7c25297720f1 More refactoring: move PoC preview getting code into flib
unc0rr
parents: 10420
diff changeset
     6
7c25297720f1 More refactoring: move PoC preview getting code into flib
unc0rr
parents: 10420
diff changeset
     7
    TIPCMessage = record
10418
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     8
                   str: shortstring;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
     9
                   len: Longword;
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
    10
                   buf: Pointer
091d2c0216c3 Move away from passing shortstrings into C code, now IPC works
unc0rr
parents: 10406
diff changeset
    11
               end;
10432
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    12
10420
unc0rr
parents: 10418
diff changeset
    13
    TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
10430
899a30018ede Getter and setter for seed
unc0rr
parents: 10428
diff changeset
    14
    TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    15
10432
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    16
    TGameType = (gtPreview, gtLocal);
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    17
    THedgehog = record
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    18
            name: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    19
            hat: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    20
            end;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    21
    TTeam = record
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    22
            teamName: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    23
            flag: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    24
            graveName: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    25
            fortName: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    26
            owner: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    27
            color: shortstring;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    28
            extDriven: boolean;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    29
            botLevel: Longword;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    30
            hedgehogs: array[0..7] of THedgehog;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    31
            hogsNumber: Longword;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    32
            end;
b0abef0ee78c Quick Game PoC
unc0rr
parents: 10430
diff changeset
    33
10406
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    34
implementation
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    35
b5fd52ac760f Basic layout of frontlib, some more sdl bindings
unc0rr
parents:
diff changeset
    36
end.