home *** CD-ROM | disk | FTP | other *** search
/ Gul´dan´s Rache / GULDAN.BIN / install / big_inst / inst1.pak / SAD.WFM < prev    next >
Encoding:
Text File  |  1996-10-09  |  20.7 KB  |  824 lines
  1. ** END HEADER -- Diese Zeile nicht löschen*
  2. * Erstellt am 09.10.1996
  3. *Copyright digital media
  4. parameter bModal
  5. local f
  6. f = new sadFORM()
  7. if (bModal)
  8.    f.mdi = .F. && ensure not MDI
  9.    f.ReadModal()
  10. else
  11.    f.Open()
  12. endif
  13. CLASS sadFORM OF FORM
  14.    Set Procedure To D:\WIN\VISUALDB\BEISPIEL\BUTTONS.CC additive
  15.    this.Width = 109.5
  16.    this.Text = "ADD ON LEVEL - GUL'DAN'S RACHE"
  17.    this.Top = 1.4697
  18.    this.ColorNormal = "W"
  19.    this.Left = 30.666
  20.    this.View = "dir.dbf"
  21.    this.ScrollBar = 2
  22.    this.Height = 25.9404
  23.  
  24.    DEFINE LINE LINIE4 OF THIS;
  25.        PROPERTY; 
  26.          Bottom 8.2941,;
  27.          Width 1,;
  28.          Top 8.2941,;
  29.          ColorNormal "R+",;
  30.          Left 27.1667,;
  31.          PageNo 4,;
  32.          Right 34.1667
  33.  
  34.    DEFINE LINE LINIE5 OF THIS;
  35.        PROPERTY; 
  36.          Bottom 11.4118,;
  37.          Width 1,;
  38.          Top 11.4118,;
  39.          ColorNormal "R+",;
  40.          Left 27.1667,;
  41.          PageNo 4,;
  42.          Right 34.1667
  43.  
  44.    DEFINE LINE LINIE6 OF THIS;
  45.        PROPERTY; 
  46.          Bottom 10.3529,;
  47.          Width 1,;
  48.          Top 10.3529,;
  49.          ColorNormal "R+",;
  50.          Left 27.1667,;
  51.          PageNo 4,;
  52.          Right 34.1667
  53.  
  54.    DEFINE LINE LINIE7 OF THIS;
  55.        PROPERTY; 
  56.          Bottom 12.4706,;
  57.          Width 1,;
  58.          Top 12.4706,;
  59.          ColorNormal "R+",;
  60.          Left 27.1667,;
  61.          PageNo 4,;
  62.          Right 34.1667
  63.  
  64.    DEFINE LINE LINIE8 OF THIS;
  65.        PROPERTY; 
  66.          Bottom 13.3529,;
  67.          Width 1,;
  68.          Top 13.3529,;
  69.          ColorNormal "R+",;
  70.          Left 27.1667,;
  71.          PageNo 4,;
  72.          Right 34.1667
  73.  
  74.    DEFINE LINE LINIE9 OF THIS;
  75.        PROPERTY; 
  76.          Bottom 14.3529,;
  77.          Width 1,;
  78.          Top 14.3529,;
  79.          ColorNormal "R+",;
  80.          Left 27.1667,;
  81.          PageNo 4,;
  82.          Right 34.1667
  83.  
  84.    DEFINE LINE LINIE10 OF THIS;
  85.        PROPERTY; 
  86.          Bottom 15.2941,;
  87.          Width 1,;
  88.          Top 15.2941,;
  89.          ColorNormal "R+",;
  90.          Left 27.1667,;
  91.          PageNo 4,;
  92.          Right 34.1667
  93.  
  94.    DEFINE LINE LINIE11 OF THIS;
  95.        PROPERTY; 
  96.          Bottom 16.2941,;
  97.          Width 1,;
  98.          Top 16.2941,;
  99.          ColorNormal "R+",;
  100.          Left 27.1667,;
  101.          PageNo 4,;
  102.          Right 34.1667
  103.  
  104.    DEFINE LINE LINIE12 OF THIS;
  105.        PROPERTY; 
  106.          Bottom 17.1765,;
  107.          Width 1,;
  108.          Top 17.1765,;
  109.          ColorNormal "R+",;
  110.          Left 27.1667,;
  111.          PageNo 4,;
  112.          Right 34.1667
  113.  
  114.    DEFINE LINE LINIE13 OF THIS;
  115.        PROPERTY; 
  116.          Bottom 18.0588,;
  117.          Width 1,;
  118.          Top 18.0588,;
  119.          ColorNormal "R+",;
  120.          Left 27.1667,;
  121.          PageNo 4,;
  122.          Right 34.1667
  123.  
  124.    DEFINE LINE LINIE14 OF THIS;
  125.        PROPERTY; 
  126.          Bottom 19.2353,;
  127.          Width 1,;
  128.          Top 19.2353,;
  129.          ColorNormal "R+",;
  130.          Left 27.1667,;
  131.          PageNo 4,;
  132.          Right 34.1667
  133.  
  134.    DEFINE LINE LINIE1 OF THIS;
  135.        PROPERTY; 
  136.          Bottom 2.3529,;
  137.          Width 1,;
  138.          Top 2.3529,;
  139.          ColorNormal "WindowText",;
  140.          Left 20.3333,;
  141.          Right 36.3333
  142.  
  143.    DEFINE LINE LINIE2 OF THIS;
  144.        PROPERTY; 
  145.          Bottom 11.6471,;
  146.          Width 1,;
  147.          Top 11.2941,;
  148.          ColorNormal "WindowText",;
  149.          Left 64.3333,;
  150.          Right 37.3333
  151.  
  152.    DEFINE LINE LINIE3 OF THIS;
  153.        PROPERTY; 
  154.          Bottom 7.2353,;
  155.          Width 1,;
  156.          Top 7.2353,;
  157.          ColorNormal "R+",;
  158.          Left 27.1667,;
  159.          PageNo 4,;
  160.          Right 34.1667
  161.  
  162.    DEFINE LINE LINIE15 OF THIS;
  163.        PROPERTY; 
  164.          Bottom 21.2353,;
  165.          Width 1,;
  166.          Top 21.2353,;
  167.          ColorNormal "R+",;
  168.          Left 27.1667,;
  169.          PageNo 4,;
  170.          Right 34.1667
  171.  
  172.    DEFINE RECTANGLE RECHTECK4 OF THIS;
  173.        PROPERTY; 
  174.          Width 22.834,;
  175.          Text "",;
  176.          Top 7.2344,;
  177.          Left 83.832,;
  178.          BorderStyle 2,;
  179.          Height 8.0596
  180.  
  181.    DEFINE IMAGE GRAFIK7 OF THIS;
  182.        PROPERTY; 
  183.          Width 80.002,;
  184.          Top 0.9395,;
  185.          Left 3.6641,;
  186.          PageNo 3,;
  187.          DataSource "FILENAME GULDAN.BMP",;
  188.          Height 4.293
  189.  
  190.    DEFINE IMAGE GRAFIK3 OF THIS;
  191.        PROPERTY; 
  192.          Width 16.502,;
  193.          Alignment 1,;
  194.          Top 5.7637,;
  195.          Left 9.8311,;
  196.          PageNo 4,;
  197.          DataSource "FILENAME TOOLS.BMP",;
  198.          Height 2.9395
  199.  
  200.    DEFINE RECTANGLE RECHTECK3 OF THIS;
  201.        PROPERTY; 
  202.          Width 60.002,;
  203.          Text "",;
  204.          Top 4.9395,;
  205.          Left 3.3311,;
  206.          PageNo 3,;
  207.          Height 17.9395
  208.  
  209.    DEFINE TEXT TEXT13 OF THIS;
  210.        PROPERTY; 
  211.          Width 47.002,;
  212.          Text "Gebäude und Einheiten werden schneller gebaut",;
  213.          Top 8.7637,;
  214.          ColorNormal "BtnText/W",;
  215.          Left 4.3311,;
  216.          PageNo 3,;
  217.          Height 1.0586
  218.  
  219.    DEFINE TEXT TEXT6 OF THIS;
  220.        PROPERTY; 
  221.          Width 29.002,;
  222.          Text "GEEIGNET FÜR      SPIELER",;
  223.          Top 7,;
  224.          ColorNormal "BtnText/W",;
  225.          Left 53.1641,;
  226.          Height 0.9395
  227.  
  228.    DEFINE RECTANGLE RECHTECK2 OF THIS;
  229.        PROPERTY; 
  230.          Width 24.502,;
  231.          Text "Dateien kopieren",;
  232.          Top 15.6465,;
  233.          Left 82.1641,;
  234.          Height 6.0586
  235.  
  236.    DEFINE RECTANGLE RECHTECK1 OF THIS;
  237.        PROPERTY; 
  238.          Width 21,;
  239.          Text "",;
  240.          Top 0.7051,;
  241.          Left 86,;
  242.          PageNo 0,;
  243.          Height 5.8223
  244.  
  245.    DEFINE ENTRYFIELD EINGABEFELD1 OF THIS;
  246.        PROPERTY; 
  247.          Width 24.5,;
  248.          ValidErrorMsg "Ungültige Eingabe",;
  249.          Top 6.5879,;
  250.          FontSize 11,;
  251.          ColorNormal "0xa00000/W",;
  252.          Left 27,;
  253.          Enabled .F.,;
  254.          ColorHighLight "R+/W",;
  255.          DataLink "DIR->NAME",;
  256.          Height 1.9395
  257.  
  258.    DEFINE ENTRYFIELD EINGABEFELD2 OF THIS;
  259.        PROPERTY; 
  260.          Width 47.002,;
  261.          ValidErrorMsg "Ungültige Eingabe",;
  262.          Top 10.2344,;
  263.          FontSize 11,;
  264.          ColorNormal "0xa00000/W",;
  265.          Left 26.8311,;
  266.          Enabled .F.,;
  267.          ColorHighLight "R+/W",;
  268.          DataLink "DIR->TITEL",;
  269.          Height 1.9395
  270.  
  271.    DEFINE ENTRYFIELD EINGABEFELD3 OF THIS;
  272.        PROPERTY; 
  273.          Width 47.002,;
  274.          ValidErrorMsg "Ungültige Eingabe",;
  275.          Top 14.8809,;
  276.          FontSize 11,;
  277.          ColorNormal "0xa00000/W",;
  278.          Left 26.8311,;
  279.          Enabled .F.,;
  280.          ColorHighLight "R+/W",;
  281.          DataLink "DIR->TERRAIN",;
  282.          Height 1.9395
  283.  
  284.    DEFINE ENTRYFIELD EINGABEFELD4 OF THIS;
  285.        PROPERTY; 
  286.          Width 47.002,;
  287.          ValidErrorMsg "Ungültige Eingabe",;
  288.          Top 19.7051,;
  289.          FontSize 11,;
  290.          ColorNormal "0xa00000/W",;
  291.          Left 26.8311,;
  292.          Enabled .F.,;
  293.          ColorHighLight "R+/W",;
  294.          DataLink "DIR->SIZE",;
  295.          Height 1.9395
  296.  
  297.    DEFINE ENTRYFIELD EINGABEFELD5 OF THIS;
  298.        PROPERTY; 
  299.          Width 3.502,;
  300.          ValidErrorMsg "Ungültige Eingabe",;
  301.          Top 6.5879,;
  302.          FontSize 11,;
  303.          ColorNormal "0xa00000/W",;
  304.          Left 68.8311,;
  305.          Enabled .F.,;
  306.          ColorHighLight "R+/W",;
  307.          DataLink "DIR->PLAYER",;
  308.          Height 1.8809
  309.  
  310.    DEFINE TABBOX REGISTER1 OF THIS;
  311.        PROPERTY; 
  312.          Width 109.5,;
  313.          ID 114,;
  314.          Top 24.7051,;
  315.          FontSize 9,;
  316.          ColorNormal "BtnFace",;
  317.          ColorHighLight "BtnText/BtnFace",;
  318.          OnSelChange {;form.PageNo = this.CurSel},;
  319.          DataSource 'ARRAY {"Level-Übersicht","Detail-Info","Cheat-Codes","Inhalt der CD"}',;
  320.          Height 1.2354
  321.  
  322.    DEFINE EDITOR EDITOR1 OF THIS;
  323.        PROPERTY; 
  324.          Width 106.3359,;
  325.          CUATab .T.,;
  326.          FontName "Courier New",;
  327.          Top 0.4688,;
  328.          Left 1.1641,;
  329.          ScrollBar 0,;
  330.          DataLink "DIR->EXT_TEXT",;
  331.          PageNo 2,;
  332.          Height 22.1768
  333.  
  334.    DEFINE IMAGE GRAFIK1 OF THIS;
  335.        PROPERTY; 
  336.          Width 20.002,;
  337.          OnDesignOpen CLASS::GRAFIK1_ONDESIGNOPEN,;
  338.          Top 0.9395,;
  339.          OnRightDblClick CLASS::GRAFIK1_ONRIGHTDBLCLICK,;
  340.          Left 86.6641,;
  341.          PageNo 0,;
  342.          DataSource "FILENAME PRG_LGO.BMP",;
  343.          Height 5.4131
  344.  
  345.    DEFINE LISTBOX LISTENFELD1 OF THIS;
  346.        PROPERTY; 
  347.          Width 21.002,;
  348.          ID 109,;
  349.          Top 6.4102,;
  350.          Left 1.6641,;
  351.          ColorHighLight "HighLightText/HighLight",;
  352.          DataSource "FIELD DIR->NAME",;
  353.          Height 16.292
  354.  
  355.    DEFINE TEXT TEXT1 OF THIS;
  356.        PROPERTY; 
  357.          Width 24.502,;
  358.          Alignment 3,;
  359.          Text "DOS DATEINAME",;
  360.          Top 5.3516,;
  361.          ColorNormal "BtnText/W",;
  362.          Left 26.6641,;
  363.          Height 1
  364.  
  365.    DEFINE TEXT TEXT2 OF THIS;
  366.        PROPERTY; 
  367.          Width 38.666,;
  368.          Alignment 3,;
  369.          Text "GELÄNDEINFORMATION",;
  370.          Top 13.293,;
  371.          ColorNormal "BtnText/W",;
  372.          Left 27,;
  373.          Height 0.9395
  374.  
  375.    DEFINE TEXT TEXT3 OF THIS;
  376.        PROPERTY; 
  377.          Width 22.166,;
  378.          Alignment 3,;
  379.          Text "KARTENGRÖSSE",;
  380.          Top 18,;
  381.          ColorNormal "BtnText/W",;
  382.          Left 27,;
  383.          Height 0.9395
  384.  
  385.    DEFINE TEXT TEXT4 OF THIS;
  386.        PROPERTY; 
  387.          Width 10,;
  388.          Alignment 3,;
  389.          Text "SPIELER",;
  390.          Top 12.7051,;
  391.          ColorNormal "BtnText/W",;
  392.          Left 69,;
  393.          Height 1.5293
  394.  
  395.    DEFINE TEXT TEXT5 OF THIS;
  396.        PROPERTY; 
  397.          Width 8.333,;
  398.          Text "TITEL",;
  399.          Top 9.1758,;
  400.          ColorNormal "BtnText/W",;
  401.          Left 27,;
  402.          Height 0.9395
  403.  
  404.    DEFINE WEITERFELD WEITERFELD1 OF THIS;
  405.        PROPERTY; 
  406.          Group .T.,;
  407.          DownBitmap "RESOURCE #101",;
  408.          Top 23,;
  409.          Left 79,;
  410.          PageNo 0
  411.  
  412.    DEFINE ZURUECKFELD ZURUECKFELD1 OF THIS;
  413.        PROPERTY; 
  414.          Group .T.,;
  415.          DownBitmap "RESOURCE #105",;
  416.          Top 23.0586,;
  417.          Left 64.5,;
  418.          PageNo 0
  419.  
  420.    DEFINE SCHLIESSENFELD SCHLIESSENFELD1 OF THIS;
  421.        PROPERTY; 
  422.          Group .T.,;
  423.          DownBitmap "RESOURCE #2092",;
  424.          DisabledBitmap "RESOURCE #2092",;
  425.          UpBitmap "RESOURCE #2090",;
  426.          Top 23,;
  427.          Left 93.5,;
  428.          PageNo 0
  429.  
  430.    DEFINE PUSHBUTTON SCHALTFLAECHE1 OF THIS;
  431.        PROPERTY; 
  432.          Group .T.,;
  433.          Width 21.002,;
  434.          Text "W95 Explorer",;
  435.          UpBitmap "RESOURCE #2160",;
  436.          Top 19.2344,;
  437.          OnRightDblClick CLASS::SCHALTFLAECHE1_ONRIGHTDBLCLICK,;
  438.          OnClick CLASS::SCHALTFLAECHE1_ONCLICK1,;
  439.          SpeedTip "Dateimanager für Windows 95 User",;
  440.          Left 84.3311,;
  441.          Height 1.8223
  442.  
  443.    DEFINE PUSHBUTTON SCHALTFLAECHE3 OF THIS;
  444.        PROPERTY; 
  445.          Group .T.,;
  446.          Width 20.835,;
  447.          Text "W311 Dateimanager",;
  448.          UpBitmap "RESOURCE #2160",;
  449.          Top 17.1758,;
  450.          OnRightDblClick CLASS::SCHALTFLAECHE3_ONRIGHTDBLCLICK,;
  451.          OnClick CLASS::SCHALTFLAECHE3_ONCLICK,;
  452.          SpeedTip "Dateimanager für Windows 3.11 User",;
  453.          Left 84.3311,;
  454.          Height 1.7061
  455.  
  456.    DEFINE TEXT TEXT8 OF THIS;
  457.        PROPERTY; 
  458.          Width 11.502,;
  459.          Text "HATCHET",;
  460.          Top 5.1758,;
  461.          ColorNormal "R+/W",;
  462.          Left 4.3311,;
  463.          PageNo 3,;
  464.          Height 1.1182
  465.  
  466.    DEFINE TEXT TEXT9 OF THIS;
  467.        PROPERTY; 
  468.          Width 9.1689,;
  469.          Text "VALDEZ",;
  470.          Top 10.5293,;
  471.          ColorNormal "R+/W",;
  472.          Left 4.6641,;
  473.          PageNo 3,;
  474.          Height 0.9395
  475.  
  476.    DEFINE TEXT TEXT10 OF THIS;
  477.        PROPERTY; 
  478.          Width 46.335,;
  479.          Text "Zum Holzhacken werden nur 2 Schläge benötigt",;
  480.          Top 6.2344,;
  481.          ColorNormal "BtnText/W",;
  482.          Left 4.3311,;
  483.          PageNo 3,;
  484.          Height 1.293
  485.  
  486.    DEFINE TEXT TEXT11 OF THIS;
  487.        PROPERTY; 
  488.          Width 20.002,;
  489.          Text "Gibt Ihnen mehr Öl ",;
  490.          Top 11.8809,;
  491.          ColorNormal "BtnText/W",;
  492.          Left 4.6641,;
  493.          PageNo 3,;
  494.          Height 1.0586
  495.  
  496.    DEFINE TEXT TEXT12 OF THIS;
  497.        PROPERTY; 
  498.          Width 14.002,;
  499.          Text "MAKE IT SO",;
  500.          Top 7.7051,;
  501.          ColorNormal "R+/W",;
  502.          Left 4.3311,;
  503.          PageNo 3,;
  504.          Height 0.9395
  505.  
  506.    DEFINE TEXT TEXT14 OF THIS;
  507.        PROPERTY; 
  508.          Width 13.002,;
  509.          Text "ON SCREEN",;
  510.          Top 13.4102,;
  511.          ColorNormal "R+/W",;
  512.          Left 4.8311,;
  513.          PageNo 3,;
  514.          Height 1
  515.  
  516.    DEFINE TEXT TEXT15 OF THIS;
  517.        PROPERTY; 
  518.          Width 30.502,;
  519.          Text "Deckt die gesamte Karte auf",;
  520.          Top 14.6465,;
  521.          ColorNormal "BtnText/W",;
  522.          Left 4.6641,;
  523.          PageNo 3,;
  524.          Height 1.0586
  525.  
  526.    DEFINE TEXT TEXT16 OF THIS;
  527.        PROPERTY; 
  528.          Width 21.502,;
  529.          Text "GLITTERING PRIZES",;
  530.          Top 16.1758,;
  531.          ColorNormal "R+/W",;
  532.          Left 4.6641,;
  533.          PageNo 3,;
  534.          Height 1
  535.  
  536.    DEFINE TEXT TEXT17 OF THIS;
  537.        PROPERTY; 
  538.          Width 54.502,;
  539.          Text "Gold und alle Rohstoffe vermehren sich auf Ihrem Konto",;
  540.          Top 17.4688,;
  541.          ColorNormal "BtnText/W",;
  542.          Left 4.6641,;
  543.          PageNo 3,;
  544.          Height 0.9395
  545.  
  546.    DEFINE TEXT TEXT18 OF THIS;
  547.        PROPERTY; 
  548.          Width 27.002,;
  549.          Text "IT IS A GOOD DAY TO DIE",;
  550.          Top 18.8809,;
  551.          ColorNormal "R+/W",;
  552.          Left 4.8311,;
  553.          PageNo 3,;
  554.          Height 1
  555.  
  556.    DEFINE TEXT TEXT19 OF THIS;
  557.        PROPERTY; 
  558.          Width 58.5,;
  559.          Alignment 9,;
  560.          Text "Macht alle Ihre Einheiten unverwundbar (ausser bei direkten Treffern von Katapulten), Ihre Gegner können Sie mit einem Schlag töten.",;
  561.          Top 20.2344,;
  562.          ColorNormal "BtnText/W",;
  563.          Left 4.5,;
  564.          PageNo 3,;
  565.          Height 2.5303
  566.  
  567.    DEFINE TEXT TEXT7 OF THIS;
  568.        PROPERTY; 
  569.          Width 42.8359,;
  570.          Alignment 10,;
  571.          Text "                                     Die Cheat Codes werden durch drücken der RETURN-Taste aktiviert. Hierdurch erscheint am unteren Ende des Spielfelds eine Eingabe- aufforderung. Dort geben Sie den Cheat Code ein.",;
  572.          Border .T.,;
  573.          Top 7.5293,;
  574.          FontSize 11,;
  575.          ColorNormal "0xa00000/BtnFace",;
  576.          Left 64.6641,;
  577.          PageNo 3,;
  578.          Height 14.8809
  579.  
  580.    DEFINE IMAGE GRAFIK4 OF THIS;
  581.        PROPERTY; 
  582.          Width 19.835,;
  583.          Alignment 1,;
  584.          Top 9.0586,;
  585.          Left 6.8311,;
  586.          PageNo 4,;
  587.          DataSource "FILENAME WARTOOLS.BMP",;
  588.          Height 10.6465
  589.  
  590.    DEFINE TEXT TEXT20 OF THIS;
  591.        PROPERTY; 
  592.          Width 44.502,;
  593.          Text "Win 32s. Wird für Windows 3.11 benötigt",;
  594.          Top 6.8223,;
  595.          FontSize 6,;
  596.          ColorNormal "0xa00000/W",;
  597.          Left 35.6641,;
  598.          PageNo 4,;
  599.          Height 0.9395
  600.  
  601.    DEFINE TEXT TEXT21 OF THIS;
  602.        PROPERTY; 
  603.          Width 44.502,;
  604.          Text "Win G. Wird für Windows 3.11 benötigt",;
  605.          Top 7.8223,;
  606.          FontSize 6,;
  607.          ColorNormal "0xa00000/W",;
  608.          Left 35.6641,;
  609.          PageNo 4,;
  610.          Height 0.9395
  611.  
  612.    DEFINE TEXT TEXT22 OF THIS;
  613.        PROPERTY; 
  614.          Width 26.502,;
  615.          Text "Alternativer Editor für WC2.",;
  616.          Top 9.8809,;
  617.          FontSize 6,;
  618.          ColorNormal "0xa00000/W",;
  619.          Left 35.6641,;
  620.          PageNo 4,;
  621.          Height 0.9395
  622.  
  623.    DEFINE TEXT TEXT23 OF THIS;
  624.        PROPERTY; 
  625.          Width 24.1689,;
  626.          Text "Ein Cheat Tool für WC 2",;
  627.          Top 11,;
  628.          FontSize 6,;
  629.          ColorNormal "0xa00000/W",;
  630.          Left 35.6641,;
  631.          PageNo 4,;
  632.          Height 0.9395
  633.  
  634.    DEFINE TEXT TEXT24 OF THIS;
  635.        PROPERTY; 
  636.          Width 55.1689,;
  637.          Text "Extrahiert alle WC2 Dateien. Auch die eingebauten Level",;
  638.          Top 12,;
  639.          FontSize 6,;
  640.          ColorNormal "0xa00000/W",;
  641.          Left 35.6641,;
  642.          PageNo 4,;
  643.          Height 0.9395
  644.  
  645.    DEFINE TEXT TEXT25 OF THIS;
  646.        PROPERTY; 
  647.          Width 55.1689,;
  648.          Text "Excelenter Pud Manager unter DOS. Mein Tip!",;
  649.          Top 12.8809,;
  650.          FontSize 6,;
  651.          ColorNormal "0xa00000/W",;
  652.          Left 35.6641,;
  653.          PageNo 4,;
  654.          Height 0.9395
  655.  
  656.    DEFINE TEXT TEXT26 OF THIS;
  657.        PROPERTY; 
  658.          Width 55.1689,;
  659.          Text "Ändern der Einheitennamen. Z.B. Chogal in Thomas...",;
  660.          Top 13.8809,;
  661.          FontSize 6,;
  662.          ColorNormal "0xa00000/W",;
  663.          Left 35.6641,;
  664.          PageNo 4,;
  665.          Height 0.9395
  666.  
  667.    DEFINE TEXT TEXT27 OF THIS;
  668.        PROPERTY; 
  669.          Width 55.1689,;
  670.          Text "Umfangreiche Liste mit Cheat Codes für WC2",;
  671.          Top 14.8223,;
  672.          FontSize 6,;
  673.          ColorNormal "0xa00000/W",;
  674.          Left 35.6641,;
  675.          PageNo 4,;
  676.          Height 0.9395
  677.  
  678.    DEFINE TEXT TEXT28 OF THIS;
  679.        PROPERTY; 
  680.          Width 55.1689,;
  681.          Text 'Savegames für "menschliche" Spieler...',;
  682.          Top 15.7637,;
  683.          FontSize 6,;
  684.          ColorNormal "0xa00000/W",;
  685.          Left 35.6641,;
  686.          PageNo 4,;
  687.          Height 0.9395
  688.  
  689.    DEFINE TEXT TEXT29 OF THIS;
  690.        PROPERTY; 
  691.          Width 55.1689,;
  692.          Text "Kali Patch. Beschleunigt WC2 im Internet",;
  693.          Top 16.7051,;
  694.          FontSize 6,;
  695.          ColorNormal "0xa00000/W",;
  696.          Left 35.6641,;
  697.          PageNo 4,;
  698.          Height 0.9395
  699.  
  700.    DEFINE TEXT TEXT30 OF THIS;
  701.        PROPERTY; 
  702.          Width 55.1689,;
  703.          Text "Update Patch für WC2, auf Version 1.21",;
  704.          Top 17.5879,;
  705.          FontSize 6,;
  706.          ColorNormal "0xa00000/W",;
  707.          Left 35.6641,;
  708.          PageNo 4,;
  709.          Height 0.9395
  710.  
  711.    DEFINE TEXT TEXT31 OF THIS;
  712.        PROPERTY; 
  713.          Width 55.1689,;
  714.          Text "Cheatcodes und Savegame-Editor (mehr Geld)",;
  715.          Top 18.7637,;
  716.          FontSize 6,;
  717.          ColorNormal "0xa00000/W",;
  718.          Left 35.6641,;
  719.          PageNo 4,;
  720.          Height 0.9395
  721.  
  722.    DEFINE IMAGE GRAFIK5 OF THIS;
  723.        PROPERTY; 
  724.          Width 19.002,;
  725.          Alignment 1,;
  726.          Top 20.7637,;
  727.          Left 7.3311,;
  728.          PageNo 4,;
  729.          DataSource "FILENAME PUDMAP.BMP",;
  730.          Height 1.1172
  731.  
  732.    DEFINE TEXT TEXT32 OF THIS;
  733.        PROPERTY; 
  734.          Width 55.1689,;
  735.          Alignment 9,;
  736.          Text "In diesem Verzeichnis finden Sie dieZusatzlevel, sortiert nach Spieleranzahl",;
  737.          Top 20.7637,;
  738.          FontSize 6,;
  739.          ColorNormal "0xa00000/W",;
  740.          Left 35.6641,;
  741.          PageNo 4,;
  742.          Height 1.7637
  743.  
  744.    DEFINE IMAGE GRAFIK6 OF THIS;
  745.        PROPERTY; 
  746.          Width 80.002,;
  747.          Top 0.9395,;
  748.          Left 3.6641,;
  749.          PageNo 4,;
  750.          DataSource "FILENAME GULDAN.BMP",;
  751.          Height 4.293
  752.  
  753.    DEFINE INFOBUTTON SCHALTFLAECHE2 OF THIS;
  754.        PROPERTY; 
  755.          Group .T.,;
  756.          Width 9.6689,;
  757.          DownBitmap "RESOURCE #2021",;
  758.          UpBitmap "RESOURCE #2020",;
  759.          Top 23.0586,;
  760.          OnClick CLASS::SCHALTFLAECHE2_ONCLICK1,;
  761.          Left 51.1641,;
  762.          Height 1.5293
  763.  
  764.    DEFINE IMAGE GRAFIK8 OF THIS;
  765.        PROPERTY; 
  766.          Width 21.168,;
  767.          Alignment 1,;
  768.          Top 7.4688,;
  769.          Left 84.665,;
  770.          DataSource "BINARY DIR->BITMAP",;
  771.          Height 7.5889
  772.  
  773.    DEFINE IMAGE GRAFIK2 OF THIS;
  774.        PROPERTY; 
  775.          Width 80.002,;
  776.          Top 0.9395,;
  777.          Left 3.6641,;
  778.          DataSource "FILENAME GULDAN.BMP",;
  779.          Height 4.293
  780.  
  781.    Procedure SCHALTFLAECHE1_OnClick
  782.    NeuVer=GETDIR( )
  783.    * Verzeichnis-Dialogfenster öffnen
  784.    * Wenn Benutzer Abbruch wählt, ist NeuVer leer
  785.    NeuVer=GETDIR("C:\")
  786.    USE Dir
  787.    Gesamtname=GETDIRECTORY( )+"\"+dbf( )
  788.    
  789.    Procedure SCHALTFLAECHE2_OnClick
  790.    COPY FILE *.pud  TO ?
  791.    * Die Datei Test.prg wird kopiert.
  792.    
  793.    
  794.    Procedure SCHALTFLAECHE1_OnClick1
  795.    run(.T.,"explorer.exe")
  796.    
  797.    Procedure SCHALTFLAECHE3_OnClick
  798.    run(.T.,"winfile.exe")
  799.    
  800.    Procedure SCHALTFLAECHE4_OnClick
  801.    run(.F.,"nc.exe")
  802.    
  803.    Procedure SCHALTFLAECHE5_OnClick
  804.    
  805.    Procedure SCHALTFLAECHE1_OnRightDblClick(flags, col, row)
  806.    run(.F.,"nc.exe")
  807.    
  808.    Procedure SCHALTFLAECHE3_OnRightDblClick(flags, col, row)
  809.    run(.F.,"nc.exe")
  810.    
  811.    Procedure GRAFIK1_OnDesignOpen(bFromPalette)
  812.    
  813.    
  814.    Procedure GRAFIK1_OnRightDblClick(flags, col, row)
  815.    run (.F.,"C:\WAR2\war2.exe")
  816.    *Warcraft aufrufen
  817.    
  818.    Procedure BEISPIELINFOFELD1_OnClick
  819.    
  820.    Procedure SCHALTFLAECHE2_OnClick1
  821.    MSGBOX("Copyright 1996, digital media, Warcraft ist ein eingetragenes Warenzeichen von Blizzard Entertainment", "Zusatzlevel: Gul'dan's Rache", 59)
  822.    
  823. ENDCLASS
  824.