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

Text File | 1998-03-03 | 5KB | 217 lines

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

    BLK_TOOL  =   0

    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     = 59001
    IDNIX       = 59901

    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
    GFXPIRAT    = GFXKAMPF+26
    GFXVERTRAG  = GFXPIRAT+19
    GFXINFO     = GFXVERTRAG+34
    GFXROUTE    = GFXINFO+8
    GFXTRADER   = GFXROUTE+11

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

  ;---Name des Schiffes---;
    @Nummer:    0
    BASE =      Nummer
    Id:         IDNIX
    Kind:       GAD_GFX
    Noselflg:   1
    Gfxnr:      GFXOVERHEAD+2
    Pos:        6, 354
    Size:       244, 30

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

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

    ;---Handel mit fremden Kontor---;
    @Nummer:    +1
    Id:         IDHAUPT+2
    Kind:       GAD_GFX
      Gfxnr:      GFXSHIP+2
        Pressoff:        4
        Pos:              16, 627
        Size:                64, 62

    ;---Warenaustausch mit eigenen Kontor---;
    @Nummer:    +1
    Id:         IDHAUPT+3
    Kind:       GAD_GFX
    Gfxnr:      GFXSHIP+16
        Pressoff:        1
        Pos:              16, 627
        Size:                64, 62

  ;---Festlegen einer fixen Schiffsroute---;
    @Nummer:    +1
    Id:         IDHAUPT+4
    Kind:       GAD_GFX
    Gfxnr:      GFXTRADER+0
        Pressoff:        2
        Pos:              101, 621
        Size:                68, 67

  ;---Ein -bzw. Ausschalten des Routenmodus---;
    @Nummer:    +1
    Id:         IDHAUPT+5
    Kind:       GAD_GFX
    Gfxnr:      GFXTRADER+1
    Flipflg:    1
        Pressoff:        2
        Pos:              179, 624
        Size:                57, 67

  ;---Stoppen des Traders---;
    @Nummer:    +1
    Id:         IDHAUPT+6
    Kind:       GAD_GFX
    Gfxnr:      GFXSHIP+24
        Pressoff:        1
        Pos:              30, 624
        Size:                56, 66

  ;---Warengrafiken Schiff (nicht wΣhlbar)---;
    @Nummer:    +1
    X =         28
    Y =         701
    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

  ;---Lagermenge Schiff (nicht wΣhlbar)---;
    @Nummer:    +1
    X =         70
    Y =         703
    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

  ;---Warengadgets Schiff---;
    @Nummer:    +1
    X =         26
    Y =         700
    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

EndObj;