PC Action 1998 December/PCA1298.ISO/Demos/Anno/GADDATA/BAU.GAD

Text File | 1998-07-16 | 7KB | 306 lines

;==============INCLUDE-FILES====================;

  Include: "TOOLS.INC"

;===============================================;

  Objekt: GADGET

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

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

    IDHAUPT    = 31001
    IDNIX      = 31101

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

  ;---HΣusergadgets---;
    @Nummer:    +1
    BASE =      Nummer
    Id:         IDHAUPT+0
    Kind:       GAD_GFX
    Basenr:     BASE
    Gfxnr:      GFXHAUS
    Menuflg:    1
    Reiheflg:   1
    Pressoff:   9
    Pos:        17, 623
    Size:       56, 64
    Posoffs:    0, 0

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        72, 623
    Size:       56, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        129, 623
    Size:       56, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
  ;  Menuflg:    0
    Pos:        185, 623
    Size:       56, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        17, 692
    Size:       56, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        72, 692
    Size:       56, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        129, 692
    Size:       58, 64

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    @Gfxnr:     +1
    Pos:        188, 692
    Size:       59, 64

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

    @Nummer:    +1
    Id:         IDHAUPT+21
    Kind:       GAD_GFX
    Gfxnr:      GFXPFEILH+1
    Pressoff:   3
    Pos:        210, 413
    Size:       40, 60
    Posoffs:    4, 0

    @Nummer:    +1
    Id:         IDHAUPT+22
    Kind:       GAD_GFX
    Gfxnr:      GFXPFEILH+2
    Pressoff:   3
    Flipflg:    1
    Pos:        10, 456
    Size:       34, 40
    Posoffs:    3, 0

    ;---GebΣudebezeichnung---:
    @Nummer:    +1
    BASE =      Nummer
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXOVERHEAD+2
    Pos:        6, 354
    Size:       244, 30

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

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

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

  ;---Angaben ⁿber Baukosten (Symbole)---;
    @Nummer:    +1
    BASE =      Nummer
    Id:         IDHAUPT+50
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXBAUMAT+2     ; Werkzeug
    Pos:        16, 594
    Size:       1, 1

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Gfxnr:      GFXBAUMAT+3     ; Holz
    Pos:        72, 594

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Gfxnr:      GFXBAUMAT+1     ; Ziegel
    Pos:        128, 594

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Gfxnr:      GFXBAUMAT+5     ; Kanonen
    Pos:        184, 594

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Gfxnr:      GFXBAUMAT+0     ; Baukosten
    Pos:        16, 564

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Gfxnr:      GFXBAUMAT+6     ; Betriebskosten
    Pos:        128, 564

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

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        72, 594      ; Holz

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        128, 594     ; Ziegel

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        184, 594     ; Kanonen

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        16, 564      ; Baukosten

    @Nummer:    +1
    ObjFill:    BASE
    @Id:        +1
    Pos:        128, 564     ; Betriebskosten

  ;---Produktionskette (2 Rohstoffe)--;
        X = 27
        Y = 510

    @Nummer:    +1
    Id:         IDHAUPT+60
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXWARE                    ; Workstoffgrafik
    Pos:        X, Y
    Posoffs:        2, 1
        Size:       48, 46

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Gfxnr:      GFXWARELEER+2        ; Workstoffitem
    Pos:        X, Y
    Size:       48, 46

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXPROD+5                ; Pfeil
    Pos:        X, Y
    Posoffs:        55, 7
        Size:       48, 46

        X = X+75

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXWARE                    ; Rohstoffgrafik
    Pos:        X, Y
    Posoffs:        2, 1
        Size:       48, 46

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Gfxnr:      GFXWARELEER+2        ; Rohstoffitem
    Pos:        X, Y
    Size:       48, 46

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXPROD+0                ; Pfeil
    Pos:        X, Y
    Posoffs:        55, 7
        Size:       48, 46

        X = X+75

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXWARE                    ; Warengrafik
    Pos:        X, Y
    Posoffs:        2, 1
    Size:       48, 46

    @Nummer:    +1
    @Id:        +1
    Kind:       GAD_GFX
    Gfxnr:      GFXWARELEER+2        ; Warenitem
    Pos:        X, Y
    Size:       48, 46

  EndObj;