Mercurial Mercurial > sheepy-clone / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uFLTypes.pas
author unc0rr
Sat, 25 Apr 2015 23:46:09 +0300
branchqmlfrontend
changeset 10900 6a805e822074
parent 10892 83a99e2f8b00
child 10951 89a7f617e091
permissions -rw-r--r--
Some hedgewars coding a week keeps doctor away
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








10452






03519fd9f98d
Show team color in teams list widget, also allow to change it on mouse click



unc0rr


parents: 
10450

diff
changeset




     5


    TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam













03519fd9f98d
Show team color in teams list widget, also allow to change it on mouse click



unc0rr


parents: 
10450

diff
changeset




     6


                   , mtTeamColor);








10428






7c25297720f1
More refactoring: move PoC preview getting code into flib



unc0rr


parents: 
10420

diff
changeset




     7














7c25297720f1
More refactoring: move PoC preview getting code into flib



unc0rr


parents: 
10420

diff
changeset




     8


    TIPCMessage = record








10418






091d2c0216c3
Move away from passing shortstrings into C code, now IPC works



unc0rr


parents: 
10406

diff
changeset




     9


                   str: shortstring;













091d2c0216c3
Move away from passing shortstrings into C code, now IPC works



unc0rr


parents: 
10406

diff
changeset




    10


                   len: Longword;













091d2c0216c3
Move away from passing shortstrings into C code, now IPC works



unc0rr


parents: 
10406

diff
changeset




    11


                   buf: Pointer













091d2c0216c3
Move away from passing shortstrings into C code, now IPC works



unc0rr


parents: 
10406

diff
changeset




    12


               end;








10432






b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    13









10420





unc0rr


parents: 
10418

diff
changeset




    14


    TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);








10430






899a30018ede
Getter and setter for seed



unc0rr


parents: 
10428

diff
changeset




    15


    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




    16









10432






b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    17


    TGameType = (gtPreview, gtLocal);













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    18


    THedgehog = record













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    19


            name: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    20


            hat: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    21


            end;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    22


    TTeam = record













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    23


            teamName: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    24


            flag: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    25


            graveName: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    26


            fortName: shortstring;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    27


            owner: shortstring;








10450






bf9e30b4ef9b
 - Store index of color instead of its value



unc0rr


parents: 
10444

diff
changeset




    28


            color: Longword;








10432






b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    29


            extDriven: boolean;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    30


            botLevel: Longword;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    31


            hedgehogs: array[0..7] of THedgehog;













b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    32


            hogsNumber: Longword;








10440






b74a7bbe224e
 - Implement getTeamsList (not tested)



unc0rr


parents: 
10432

diff
changeset




    33


        end;













b74a7bbe224e
 - Implement getTeamsList (not tested)



unc0rr


parents: 
10432

diff
changeset




    34


    PTeam = ^TTeam;








10432






b0abef0ee78c
Quick Game PoC



unc0rr


parents: 
10430

diff
changeset




    35









10819






57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    36


    TScheme = record













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    37


            schemeName













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    38


            , scriptparam : shortstring;













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    39


            fortsmode













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    40


            , divteams













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    41


            , solidland













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    42


            , border













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    43


            , lowgrav













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    44


            , laser













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    45


            , invulnerability













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    46


            , mines













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    47


            , vampiric













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    48


            , karma













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    49


            , artillery













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    50


            , randomorder













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    51


            , king













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    52


            , placehog













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    53


            , sharedammo













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    54


            , disablegirders













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    55


            , disablewind













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    56


            , morewind













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    57


            , tagteam













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    58


            , bottomborder: boolean;













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    59


            damagefactor













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    60


            , turntime













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    61


            , health













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    62


            , suddendeath













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    63


            , caseprobability













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    64


            , minestime













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    65


            , landadds













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    66


            , minedudpct













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    67


            , explosives













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    68


            , minesnum













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    69


            , healthprobability













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    70


            , healthcaseamount













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    71


            , waterrise













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    72


            , healthdecrease













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    73


            , ropepct













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    74


            , getawaytime













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    75


            , worldedge: LongInt













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    76


        end;













57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    77


    PScheme = ^TScheme;








10888






a04e04aaf599
Ammo schemes list, almost works



unc0rr


parents: 
10819

diff
changeset




    78


    TAmmo = record













a04e04aaf599
Ammo schemes list, almost works



unc0rr


parents: 
10819

diff
changeset




    79


            ammoName: shortstring;








10892






83a99e2f8b00
Make ammo scheme work



unc0rr


parents: 
10888

diff
changeset




    80


            a, b, c, d: shortstring;








10888






a04e04aaf599
Ammo schemes list, almost works



unc0rr


parents: 
10819

diff
changeset




    81


        end;













a04e04aaf599
Ammo schemes list, almost works



unc0rr


parents: 
10819

diff
changeset




    82


    PAmmo = ^TAmmo;








10819






57e21f7621b0
Send selected scheme config on engine initialization (WIP)



unc0rr


parents: 
10452

diff
changeset




    83









10406






b5fd52ac760f
Basic layout of frontlib, some more sdl bindings



unc0rr


parents: 

diff
changeset




    84


implementation













b5fd52ac760f
Basic layout of frontlib, some more sdl bindings



unc0rr


parents: 

diff
changeset




    85














b5fd52ac760f
Basic layout of frontlib, some more sdl bindings



unc0rr


parents: 

diff
changeset




    86


end.















sheepy-clone