home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1998 June (Bonus) / Bomico.iso / Anno1602 / GADDATA / TRANSFER.GAD < prev    next >
Text File  |  1998-02-25  |  10KB  |  461 lines

  1.  
  2. ;---Spieler Definitionen---;
  3.   Objekt: GADGET
  4.  
  5.     BLK_TOOL  =   0
  6.   
  7.     COL_WHT =     255
  8.     COL_RED =     249
  9.     COL_BLK =     0
  10.  
  11.     ZEINR =       0
  12.  
  13.   ;---Default-Werte festlegen---;
  14.     @Nummer:    0
  15.     Id:         0
  16.     Blocknr:    BLK_TOOL
  17.     Gfxnr:      0
  18.     Kind:       GAD_UNUSED
  19.     ObjFill:    0,MAXGADGET
  20.  
  21.   ;========================================;
  22.   ;   Hier starten richtige Definitionen   ;
  23.   ;========================================;
  24.  
  25.     IDHAUPT     = 45001
  26.     IDNIX       = 45201
  27.  
  28.     GFXTAFEL    = 0
  29.     GFXPFEIL    = GFXTAFEL+1
  30.     GFXPLUS     = GFXPFEIL+4
  31.     GFXMAIN     = GFXPLUS+4
  32.         GFXMAP            = GFXMAIN+8
  33.         GFXHAUS     = GFXMAP+5
  34.     GFXPFEIL    = GFXHAUS+18
  35.     GFXBAUMAT   = GFXPFEIL+6
  36.     GFXBAUHAUS  = GFXBAUMAT+35
  37.     GFXMENU     = GFXBAUHAUS+86
  38.     GFXOVERHEAD = GFXMENU+3
  39.     GFXPFEILV   = GFXOVERHEAD+5
  40.     GFXMENGE    = GFXPFEILV+4
  41.     GFXWARELEER = GFXMENGE+8
  42.     GFXWARE     = GFXWARELEER+4
  43.     GFXKONT     = GFXWARE+41
  44.         GFXLEISTE   = GFXKONT+20
  45.         GFXSIED     = GFXLEISTE+55
  46.         GFXSIEDFACE    =    GFXSIED+9
  47.         GFXSIEDINFR    = GFXSIEDFACE+4
  48.         GFXSIEDNAHR = GFXSIEDINFR+16
  49.         GFXPROD     = GFXSIEDNAHR+2
  50.         GFXSHIP            = GFXPROD+6
  51.         GFXWERFT        = GFXSHIP+39
  52.         GFXMILIT        = GFXWERFT+15
  53.         GFXSTADT        = GFXMILIT+18
  54.         GFXTRANS        = GFXSTADT+14
  55.  
  56. ;================HAUPT-GADGETS==================;
  57.  
  58.   ;---Warennamen und-preise, Stadt- und Schiffsnamen---;
  59.     @Nummer:    0
  60.     BASE =      Nummer
  61.     Id:         IDHAUPT+110
  62.     Kind:       GAD_TEXTL
  63.     Noselflg:   1
  64.     Blocknr:    ZEINR
  65.     Color:      0
  66.     Pos:        27, 420
  67.     Size:       1, 1
  68.  
  69.     @Nummer:    +1
  70.     ObjFill:    BASE
  71.     @Id:        +1
  72.     Pos:        27, 650
  73.  
  74.   ;---Aktueller Schiffsname---;
  75.     @Nummer:    0
  76.     BASE =      Nummer
  77.     Id:         IDNIX
  78.     Kind:       GAD_GFX
  79.     Noselflg:   1
  80.     Gfxnr:      GFXOVERHEAD+2
  81.     Pos:        6, 582
  82.     Size:       244, 30
  83.  
  84.     @Nummer:    +1
  85.     ObjFill:    BASE
  86.     Id:         IDHAUPT+120
  87.     Gfxnr:      GFXOVERHEAD+1
  88.  
  89.     @Nummer:    +1
  90.     Id:         IDHAUPT+121
  91.     Kind:       GAD_TEXTZ
  92.     Blocknr:    ZEINR
  93.     Color:      1, 0
  94.     Pos:        6, 586
  95.     Size:       244, 30
  96.     Posoffs:    124, 29
  97.  
  98.   ;---Name der Kontorstadt---;
  99.     @Nummer:    +1
  100.     BASE =      Nummer
  101.     Id:         IDNIX
  102.     Kind:       GAD_GFX
  103.     Noselflg:   1
  104.     Gfxnr:      GFXOVERHEAD+2
  105.     Pos:        6, 354
  106.     Size:       244, 30
  107.  
  108.     @Nummer:    +1
  109.     ObjFill:    BASE
  110.     Id:         IDHAUPT+122
  111.     Gfxnr:      GFXOVERHEAD+0
  112.  
  113.     @Nummer:    +1
  114.     Id:         IDHAUPT+123
  115.     Kind:       GAD_TEXTZ
  116.     Blocknr:    ZEINR
  117.     Color:      1, 0
  118.     Pos:        6, 358
  119.     Size:       244, 30
  120.     Posoffs:    124, 29
  121.  
  122.   ;---Waren kaufen, verkaufen---;
  123.     @Nummer:    +1
  124.     Id:         IDHAUPT+0
  125.     Kind:       GAD_GFX
  126.     Gfxnr:      GFXPFEILV
  127.     Pressoff:   2
  128.     Pos:        26, 529
  129.     Size:       51, 54
  130.     Posoffs:    0, 0
  131.     
  132.     @Nummer:    +1
  133.     Id:         IDHAUPT+1
  134.     Kind:       GAD_GFX
  135.     Gfxnr:      GFXPFEILV+1
  136.     Pressoff:   2
  137.     Pos:        186, 529
  138.     Size:       56, 54
  139.     Posoffs:    0, 0
  140.  
  141.   ;---Waremenge einstellen---;
  142.     @Nummer:    +1
  143.     BASE =      Nummer
  144.     Id:         IDHAUPT+2
  145.     Kind:       GAD_GFX
  146.     Basenr:     BASE
  147.     Reiheflg:   1
  148.     Gfxnr:      GFXMENGE
  149.     Pressoff:   4
  150.     Pos:        79, 544
  151.     Size:       19, 24
  152.     
  153.     @Nummer:    +1
  154.     Id:         IDHAUPT+3
  155.     Kind:       GAD_GFX
  156.     Basenr:     BASE
  157.     Reiheflg:   1
  158.     Gfxnr:      GFXMENGE+1
  159.     Pressoff:   4
  160.     Pos:        99, 542
  161.     Size:       22, 31
  162.     
  163.     @Nummer:    +1
  164.     Id:         IDHAUPT+4
  165.     Kind:       GAD_GFX
  166.     Basenr:     BASE
  167.     Reiheflg:   1
  168.     Gfxnr:      GFXMENGE+2
  169.     Pressoff:   4
  170.     Pos:        122, 540
  171.     Size:       27, 35
  172.     
  173.     @Nummer:    +1
  174.     Id:         IDHAUPT+5
  175.     Kind:       GAD_GFX
  176.     Basenr:     BASE
  177.     Reiheflg:   1
  178.     Gfxnr:      GFXMENGE+3
  179.     Pressoff:   4
  180.     Pos:        149, 537
  181.     Size:       32, 40
  182.  
  183.     ;---Warenscroll-Pfeile---;
  184.     @Nummer:    +1
  185.     Id:         IDHAUPT+6
  186.     Kind:       GAD_GFX
  187.     Gfxnr:      GFXTRANS+8
  188.     Pressoff:   2
  189.     Pos:        5, 425
  190.     Size:       19, 41
  191.  
  192.     @Nummer:    +1
  193.     Id:         IDHAUPT+7
  194.     Kind:       GAD_GFX
  195.     Gfxnr:      GFXTRANS+9
  196.     Pressoff:   2
  197.     Pos:        236, 426
  198.     Size:       20, 40
  199.  
  200.     ;---Warentypen im Kontor----;
  201.     @Nummer:    +1
  202.     BASE =            Nummer
  203.         Id:         IDHAUPT+140
  204.     Kind:       GAD_GFX
  205.     Basenr:     BASE
  206.     Reiheflg:   1
  207.     Gfxnr:      GFXTRANS+0
  208.     Pressoff:   4
  209.         Pos:              12, 472
  210.         Size:            63, 45
  211.  
  212.     @Nummer:    +1
  213.         ObjFill:        BASE
  214.         @Id:                +1
  215.         @Gfxnr:            +1
  216.         Pos:                79, 471
  217.         Size:                46, 51
  218.  
  219.     @Nummer:    +1
  220.         ObjFill:        BASE
  221.         @Id:                +1
  222.         @Gfxnr:            +1
  223.         Pos:                125, 471
  224.         Size:                65, 49
  225.  
  226.     @Nummer:    +1
  227.         ObjFill:        BASE
  228.         @Id:                +1
  229.         @Gfxnr:            +1
  230.         Pos:                191, 470
  231.         Size:                58, 53
  232.  
  233.   ;---Warengrafiken Kontor (nicht wΣhlbar)---;
  234.     @Nummer:    +1
  235.     X =         28
  236.     Y =         420
  237.     BASE =      Nummer
  238.     Id:         IDHAUPT+10
  239.     Kind:       GAD_GFX
  240.     Noselflg:   1
  241.     Gfxnr:      GFXWARE
  242.     Pos:        X, Y
  243.     Size:       48, 46
  244.     
  245.     @Nummer:    +1
  246.     ObjFill:    BASE
  247.     @Id:        +1
  248.     @Pos:       +53, +0
  249.  
  250.     @Nummer:    +1
  251.     ObjFill:    BASE
  252.     @Id:        +1
  253.     @Pos:       +53, +0
  254.  
  255.     @Nummer:    +1
  256.     ObjFill:    BASE
  257.     @Id:        +1
  258.     @Pos:       +53, +0
  259.  
  260.   ;---Lagermenge Kontor (nicht wΣhlbar)---;
  261.     @Nummer:    +1
  262.     X =         70
  263.     Y =         423
  264.     BASE =      Nummer
  265.     Id:         IDHAUPT+130
  266.     Kind:       GAD_BALKEN
  267.     Noselflg:   1
  268.     Slidverflg: 1
  269.     Color:      COL_RED, COL_RED
  270.     Pos:        X, Y
  271.     Size:       4, 42
  272.     
  273.     @Nummer:    +1
  274.     ObjFill:    BASE
  275.     @Id:        +1
  276.     @Pos:       +53, +0
  277.  
  278.     @Nummer:    +1
  279.     ObjFill:    BASE
  280.     @Id:        +1
  281.     @Pos:       +53, +0
  282.  
  283.     @Nummer:    +1
  284.     ObjFill:    BASE
  285.     @Id:        +1
  286.     @Pos:       +53, +0
  287.  
  288.   ;---Warengadgets Kontor---;
  289.     @Nummer:    +1
  290.     X =         26
  291.     Y =         419
  292.     BASE =      Nummer
  293.     Id:         IDHAUPT+30
  294.     Kind:       GAD_GFX
  295.     Reiheflg:   1
  296.     Basenr:     BASE
  297.     Gfxnr:      GFXWARELEER+2
  298.     Pressoff:   1
  299.     Pos:        X, Y
  300.     Size:       48, 48
  301.     
  302.     @Nummer:    +1
  303.     ObjFill:    BASE
  304.     @Id:        +1
  305.     @Pos:       +53, +0
  306.  
  307.     @Nummer:    +1
  308.     ObjFill:    BASE
  309.     @Id:        +1
  310.     @Pos:       +53, +0
  311.  
  312.     @Nummer:    +1
  313.     ObjFill:    BASE
  314.     @Id:        +1
  315.     @Pos:       +53, +0
  316.  
  317.   ;---Warengrafiken Schiff (nicht wΣhlbar)---;
  318.     @Nummer:    +1
  319.     X =         28
  320.     Y =         649
  321.     BASE =      Nummer
  322.     Id:         IDHAUPT+50
  323.     Kind:       GAD_GFX
  324.     Noselflg:   1
  325.     Gfxnr:      GFXWARE
  326.     Pos:        X, Y
  327.     Size:       48, 46
  328.     
  329.     @Nummer:    +1
  330.     ObjFill:    BASE
  331.     @Id:        +1
  332.     @Pos:       +53, +0
  333.  
  334.     @Nummer:    +1
  335.     ObjFill:    BASE
  336.     @Id:        +1
  337.     @Pos:       +53, +0
  338.  
  339.     @Nummer:    +1
  340.     ObjFill:    BASE
  341.     @Id:        +1
  342.     @Pos:       +53, +0
  343.  
  344.     @Nummer:    +1
  345.     ObjFill:    BASE
  346.     @Id:        +1
  347.     Pos:        X, Y+54
  348.     
  349.     @Nummer:    +1
  350.     ObjFill:    BASE
  351.     @Id:        +1
  352.     @Pos:       +53, +0
  353.  
  354.     @Nummer:    +1
  355.     ObjFill:    BASE
  356.     @Id:        +1
  357.     @Pos:       +53, +0
  358.  
  359.     @Nummer:    +1
  360.     ObjFill:    BASE
  361.     @Id:        +1
  362.     @Pos:       +53, +0
  363.  
  364.   ;---Lagermenge Schiff (nicht wΣhlbar)---;
  365.     @Nummer:    +1
  366.     X =         70
  367.     Y =         651
  368.     BASE =      Nummer
  369.     Id:         IDHAUPT+90
  370.     Kind:       GAD_BALKEN
  371.     Noselflg:   1
  372.     Slidverflg: 1
  373.     Color:      COL_RED, COL_RED
  374.     Pos:        X, Y
  375.     Size:       4, 42
  376.     
  377.     @Nummer:    +1
  378.     ObjFill:    BASE
  379.     @Id:        +1
  380.     @Pos:       +53, +0
  381.  
  382.     @Nummer:    +1
  383.     ObjFill:    BASE
  384.     @Id:        +1
  385.     @Pos:       +53, +0
  386.  
  387.     @Nummer:    +1
  388.     ObjFill:    BASE
  389.     @Id:        +1
  390.     @Pos:       +53, +0
  391.  
  392.     @Nummer:    +1
  393.     ObjFill:    BASE
  394.     @Id:        +1
  395.     Pos:        X, Y+54
  396.     
  397.     @Nummer:    +1
  398.     ObjFill:    BASE
  399.     @Id:        +1
  400.     @Pos:       +53, +0
  401.  
  402.     @Nummer:    +1
  403.     ObjFill:    BASE
  404.     @Id:        +1
  405.     @Pos:       +53, +0
  406.  
  407.     @Nummer:    +1
  408.     ObjFill:    BASE
  409.     @Id:        +1
  410.     @Pos:       +53, +0
  411.  
  412.   ;---Warengadgets Schiff---;
  413.     @Nummer:    +1
  414.     X =         26
  415.     Y =         648
  416.     BASE =      Nummer
  417.     Id:         IDHAUPT+70
  418.     Kind:       GAD_GFX
  419.     Reiheflg:   1
  420.     Basenr:     BASE
  421.     Gfxnr:      GFXWARELEER+2
  422.     Pressoff:   1
  423.     Pos:        X, Y
  424.     Size:       48, 48
  425.     
  426.     @Nummer:    +1
  427.     ObjFill:    BASE
  428.     @Id:        +1
  429.     @Pos:       +53, +0
  430.  
  431.     @Nummer:    +1
  432.     ObjFill:    BASE
  433.     @Id:        +1
  434.     @Pos:       +53, +0
  435.  
  436.     @Nummer:    +1
  437.     ObjFill:    BASE
  438.     @Id:        +1
  439.     @Pos:       +53, +0
  440.  
  441.     @Nummer:    +1
  442.     ObjFill:    BASE
  443.     @Id:        +1
  444.     Pos:        X, Y+54
  445.     
  446.     @Nummer:    +1
  447.     ObjFill:    BASE
  448.     @Id:        +1
  449.     @Pos:       +53, +0
  450.  
  451.     @Nummer:    +1
  452.     ObjFill:    BASE
  453.     @Id:        +1
  454.     @Pos:       +53, +0
  455.  
  456.     @Nummer:    +1
  457.     ObjFill:    BASE
  458.     @Id:        +1
  459.     @Pos:       +53, +0
  460.  
  461. EndObj;