PC Action 1998 June (Bonus)/Bomico.iso/Anno1602/GADDATA/SKSHIP.GAD

Text File | 1998-03-03 | 6KB | 307 lines

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

    BLK_TOOL  =   0

    COL_WHT =     255
    COL_RED =     249
    COL_BLK =     0
    COL_BALK =    185

    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     = 51001
    IDNIX       = 51201

    GFXTAFEL    = 0
    GFXPFEIL    = GFXTAFEL+1
    GFXPLUS     = GFXPFEIL+4
    GFXMAIN     = GFXPLUS+4
        GFXMAP            = GFXMAIN+8
        GFXHAUS     = GFXMAP+5
    GFXPFEIL    = GFXHAUS+18
    GFXBAUMAT   = GFXPFEIL+6
    GFXBAUHAUS  = GFXBAUMAT+35
    GFXMENU     = GFXBAUHAUS+86
    GFXOVERHEAD = GFXMENU+3
    GFXPFEILV   = GFXOVERHEAD+5
    GFXMENGE    = GFXPFEILV+4
    GFXWARELEER = GFXMENGE+8
    GFXWARE     = GFXWARELEER+4
    GFXKONT     = GFXWARE+41
        GFXLEISTE   = GFXKONT+20
        GFXSIED     = GFXLEISTE+55
        GFXSIEDFACE    =    GFXSIED+9
        GFXSIEDINFR    = GFXSIEDFACE+4
        GFXSIEDNAHR = GFXSIEDINFR+16
        GFXPROD     = GFXSIEDNAHR+2
        GFXSHIP            = GFXPROD+6
        GFXWERFT        = GFXSHIP+39
        GFXMILIT        = GFXWERFT+15
        GFXSTADT        = GFXMILIT+18
        GFXTRANS        = GFXSTADT+14
    GFXOPTION   = GFXTRANS+12
    GFXKAMPF    = GFXOPTION+50

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

  ;---▄berschrift fⁿr Schiffsflotte---;
    @Nummer:    0
    BASE =      Nummer
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXOVERHEAD+2
    Pos:        6, 354
    Size:       244, 30

    @Nummer:    +1
    ObjFill:    BASE
    Id:         IDHAUPT+0
    Gfxnr:      GFXOVERHEAD+1

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

  ;---Kanonenbestⁿckung---*/
    @Nummer:    +1
    Id:         IDHAUPT+10
    Kind:       GAD_GFX
    Gfxnr:      GFXSHIP+3
        Pressoff:        4
        Pos:                159, 403
        Size:                74, 56

    @Nummer:    +1
    Id:         IDHAUPT+11
    Kind:       GAD_TEXTR
    Blocknr:    ZEINR
    Color:      0, 0
    Pos:        126, 414
        Size:                30, 30
    Posoffs:    30, 29

  ;---Zustandsbalken---;
    @Nummer:    +1
    Id:         IDHAUPT+12
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXSHIP+12
    Pos:        89, 468
    Size:       145, 21

    @Nummer:    +1
    Id:         IDHAUPT+13
    Kind:       GAD_BALKEN
    Slidhorflg: 1
    Noselflg:   1
    Color:      COL_BALK
    Pos:        91, 471
    Size:       141, 15

    @Nummer:    +1
    Id:         IDHAUPT+14
    Kind:       GAD_NIX
    Pos:        89, 468
    Size:       145, 21

  ;---Stoppen der Einheit---;
    @Nummer:    +1
    Id:         IDHAUPT+20
    Kind:       GAD_GFX
    Gfxnr:      GFXSHIP+24
        Pressoff:        1
    Pos:        30, 570
    Size:       42, 59

  ;---Patroillenmodus einschalten---;
    @Nummer:    +1
    BASE =      Nummer
    Id:         IDHAUPT+21
    Kind:       GAD_GFX
    Gfxnr:      GFXKAMPF+9
    Flipflg:    1
    Pressoff:   3
    Pos:        97, 570
    Size:       71, 59

  ;---Gadget fⁿr Weisse Flagge---;
    @Nummer:    +1
    ObjFill:    BASE
    Id:         IDHAUPT+22
    Flipflg:    1
    @Gfxnr:     +1
    Pos:        22, 439
    Size:       56, 63

  ;---Waren ⁿber Bord werfen---;
    @Nummer:    +1
    Id:         IDHAUPT+23
    Kind:       GAD_GFX
    Gfxnr:      GFXKAMPF+24
    Pressoff:   1
    Pos:        169, 582
    Size:       66, 55

  ;---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:   1
    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;