GameStar 2000 January/Gamestar_14_2000-01_cd1.bin/DEMA/1602AD_Demo.exe/GADDATA/BAUKTGAD.DAT

Text File | 1999-10-28 | 7KB | 316 lines

;---Spieler Definitionen---;
  Objekt: GADGET

    BLK_TOOL  =   0
    BLK_BAUHAUS = 3

    COL_WHT =     255
    COL_RED =     249
    COL_BLK =     0

    ZEINR =       0

  ;---Default-Werte festlegen---;
    @Nummer:    0
    Id:         0
    Blocknr:    BLK_TOOL
    Gfxnr:      0
    Kind:       GAD_UNUSED
    ObjFill:    0,MAXGADGET

  ;========================================;
  ;   Hier starten richtige Definitionen   ;
  ;========================================;

    IDHAUPT    = 42001
    IDNIX      = 42101

    GFXTAFEL    = 0
    GFXPFEIL    = GFXTAFEL+1
    GFXPLUS     = GFXPFEIL+4
    GFXMAIN     = GFXPLUS+4
        GFXMAP            = GFXMAIN+8
        GFXHAUS     = GFXMAP+1
    GFXPFEIL    = GFXHAUS+18
    GFXBAUMAT   = GFXPFEIL+6
    GFXMENU     = GFXBAUMAT+10
    GFXOVERHEAD = GFXMENU+3
    GFXPFEILV   = GFXOVERHEAD+2
    GFXMENGE    = GFXPFEILV+4
    GFXWARELEER = GFXMENGE+8

;================HAUPT-GADGETS==================;

  ;---Name des Schiffes---;
    @Nummer:    0
    Id:         IDHAUPT+0
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXOVERHEAD
    Pos:        6, 595
    Size:       244, 30

    @Nummer:    +1
    Id:         IDHAUPT+1
    Kind:       GAD_TEXTZ
    Blocknr:    ZEINR
    Color:      1, 0
    Pos:        6, 595
    Size:       244, 30
    Posoffs:    124, 29

  ;---Pfeile links + rechts---;
    @Nummer:    +1
    Id:         IDHAUPT+20
    Kind:       GAD_GFX
    Gfxnr:      GFXPFEIL
    Pressoff:   3
    Pos:        11, 355
    Size:       40, 46
    Posoffs:    0, 0

    @Nummer:    +1
    Id:         IDHAUPT+21
    Kind:       GAD_GFX
    Gfxnr:      GFXPFEIL+1
    Pressoff:   3
    Pos:        212, 355
    Size:       40, 60
    Posoffs:    0, 0

  ;---Aktuelles Hausgadget---;
    @Nummer:    +1
    Id:         IDHAUPT+30
    Kind:       GAD_GFXFILL
    Blocknr:    BLK_BAUHAUS
    Noselflg:   1
    Pos:        48, 367
    Size:       160, 110

    @Nummer:    +1
    Id:         IDHAUPT+31
    Kind:       GAD_GFX
    Blocknr:    BLK_BAUHAUS
    Pos:        48, 355
    Size:       160, 110

    ;---Betriebskosten fⁿr GebΣude---;
    @Nummer:    +1
        BASE =            Nummer
    Id:         IDHAUPT+32
    Kind:       GAD_TEXTL
    Blocknr:    ZEINR
    Color:      0, 0
    Pos:        25, 480
    Size:       204, 25
    Posoffs:    0, 25

        @Nummer:        +1
        ObjFill:        BASE
        @Id:                +1
        Kind:                GAD_TEXTR
    Noselflg:   1
        Posoffs:        204, 25

  ;---Angaben ⁿber Baukosten (Symbole)---;
    @Nummer:    +1
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXBAUMAT+2
    Pos:        16, 540
    Size:       1, 1

    @Nummer:    +1
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXBAUMAT+0
    Pos:        172, 540
    Size:       1, 1

    @Nummer:    +1
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXBAUMAT+3
    Pos:        68, 540
    Size:       1, 1

    @Nummer:    +1
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXBAUMAT+4
    Pos:        120, 540
    Size:       1, 1

  ;---Angaben ⁿber Baukosten (BetrΣge)---;
    @Nummer:    +1
    BASE =      Nummer
    Id:         IDHAUPT+40
    Kind:       GAD_TEXTL
    Blocknr:    ZEINR
    Color:      0, 0
    Pos:        16, 540
    Size:       50, 28
    Posoffs:    30, 30

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        172, 540

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        68, 540

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        120, 540

  ;---Warengrafiken Schiff (nicht wΣhlbar)---;
    @Nummer:    +1
    X =         28
    Y =         649
    BASE =      Nummer
    Id:         IDHAUPT+50
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXWARE
    Pos:        X, Y
    Size:       48, 46

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        X, Y+54

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

  ;---Lagermenge Schiff (nicht wΣhlbar)---;
    @Nummer:    +1
    X =         70
    Y =         651
    BASE =      Nummer
    Id:         IDHAUPT+70
    Kind:       GAD_BALKEN
    Noselflg:   1
    Slidverflg: 1
    Color:      COL_RED, COL_RED
    Pos:        X, Y
    Size:       4, 42

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        X, Y+54

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

  ;---Warengadgets Schiff---;
    @Nummer:    +1
    X =         26
    Y =         648
    BASE =      Nummer
    Id:         IDHAUPT+90
    Kind:       GAD_GFX
    Gfxnr:      GFXWARELEER+2
    Pressoff:   0
    Pos:        X, Y
    Size:       48, 48

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        X, Y+54

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Pos:       +53, +0
EndObj;