{ ************************************** ** CONQUISTA DELL'UNIVERSO by ** BIANCA Hard&Soft AND LANKY SOFT ** (c) 1995 PRATO ITALY ************************************ ** Written in ACE 2.3 ************************************** ** INCLUDE FILE ************************************** } DEFINT a-z 'default tutte le variabili short int '******* INIZIALIZZAZIONE TABELLE E PARAMETRI PIANETI E FLOTTE **** STRUCT pianeta SHORTINT prop SHORTINT px SHORTINT py SHORTINT nf SHORTINT ni SHORTINT nc SHORTINT nd SHORTINT np SHORTINT npf SHORTINT npi SHORTINT npc SHORTINT npd SHORTINT npp SHORTINT flan END STRUCT STRUCT flotta SHORTINT prop SHORTINT pstart SHORTINT pend SHORTINT tlan SHORTINT dist SHORTINT nf SHORTINT ni SHORTINT ncf SHORTINT nci SHORTINT ncd SHORTINT ncp SHORTINT nc END STRUCT CONST fturno=20 'ultimo turno di gioco CONST npianeti=15 'n# pianeti universo (poi definibile inizialmente) CONST ngiocat=2 'n# giocatori totale (poi definibile inizialmente) CONST amiga=0 'flag che indica se il primo giocatore e' amiga (0=no,1=si) CONST pf=2 'produzione oggetti F per unita di produzione CONST pi=3 'produzione oggetti I per unita di produzione CONST pc=1 'produzione oggetti C per unita di produzione CONST pd=5 'produzione oggetti D per unita di produzione CONST pp=1 'produzione oggetti P per unita di produzione CONST bf=3 'potenziale bellico oggetti F CONST bi=5 'potenziale bellico oggetti I CONST bd=2 'potenziale bellico oggetti D CONST bc=0 'potenziale bellico oggetti C CONST bp=0 'potenziale bellico oggetti P CONST mf=8 'capacita movimento oggetti F CONST mi=3 'capacita movimento oggetti I CONST mc=20 'capacita movimento oggetti C CONST md=0 'capacita movimento oggetti D CONST mp=0 'capacita movimento oggetti P CONST tf=2 'capacita trasporto oggetti F CONST ti=3 'capacita trasporto oggetti I CONST td=5 'capacita trasporto oggetti D CONST tp=1 'capacita trasporto oggetti P CONST tc=0 'capacita trasporto oggetti C '********************************************************************