home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 19 / wesp / wesped2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-21  |  5.1 KB  |  95 lines
  1. {$A+,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {
  3.   ╓─────────────────────────────────────────────────────────────────────╖
  4.   ║ Generiert durch MASKEDIT PLUS Vers. 5.0 am 20.06.90 um 15:58:12 Uhr ║
  5.   ║                 Autor: Alfonso José Sanz Alonso                     ║
  6.   ╙─────────────────────────────────────────────────────────────────────╜
  7. }
  8.  
  9. UNIT WESPED2;
  10. INTERFACE
  11. Uses crt,Masktur4;
  12. Procedure EditorScreen__;
  13. Procedure EditorScreen(
  14.       VAR w1:Str80;
  15.       VAR w2:Byte;
  16.       neu:Boolean);
  17.  
  18. IMPLEMENTATION
  19.  
  20. Procedure EditorScreen__;
  21. Begin
  22.  MP_Initbuffer(TRUE);
  23.  write_fast(1,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
  24.  write_fast(81,'░░░░░█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█░░░░░░░░░░░░░░█▀▀▀▀▀▀▀▀▀▀▀▀▀▀█░░░░░░');
  25.  write_fast(161,'░░░░░▌  W E S P +   L E V E L E D I T O R  ▐░░░░░░░░░░░░░░█ (c) 1990     █░░░░░░');
  26.  write_fast(241,'░░░░░█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█░░░░░░░░░░░░░░█ Gerald Arend █░░░░░░');
  27.  write_fast(321,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░█ & toolbox    █░░░░░░');
  28.  write_fast(401,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░█▄▄▄▄▄▄▄▄▄▄▄▄▄▄█░░░░░░');
  29.  write_fast(481,'░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░');
  30.  write_fast(561,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
  31.  write_fast(641,'░░▒▒▓▓▓╔════════════════════════════╗▓▓▓▓▓╔═══════════════════════════╗▓▓▓▓▓▒▒░░');
  32.  write_fast(721,'░░▒▒▓▓▓║                   Level    ║▓▓▓▓▓║ BEDIENUNG DES EDITORS     ║▓▓▓▓▓▒▒░░');
  33.  write_fast(801,'░░▒▒▓▓▓╟────────────────────────────╢▓▓▓▓▓║───────────────────────────║▓▓▓▓▓▒▒░░');
  34.  write_fast(881,'░░▒▒▓▓▓║    1  2  3  4  5  6  7  8  ║▓▓▓▓▓║ <Einfg>  - Fläche setzen  ║▓▓▓▓▓▒▒░░');
  35.  write_fast(961,'░░▒▒▓▓▓║ A                          ║▓▓▓▓▓║ <Entf>   - Fläche löschen ║▓▓▓▓▓▒▒░░');
  36.  write_fast(1041,'░░▒▒▓▓▓║ B                          ║▓▓▓▓▓║ <s> <S>  - Startfläche    ║▓▓▓▓▓▒▒░░');
  37.  write_fast(1121,'░░▒▒▓▓▓║ C                          ║▓▓▓▓▓║ <l> <L>  - Ebene löschen  ║▓▓▓▓▓▒▒░░');
  38.  write_fast(1201,'░░▒▒▓▓▓║ D                          ║▓▓▓▓▓║ <z> <Z>  - Zufall         ║▓▓▓▓▓▒▒░░');
  39.  write_fast(1281,'░░▒▒▓▓▓║ E                          ║▓▓▓▓▓║ <+> <->  - Blättern       ║▓▓▓▓▓▒▒░░');
  40.  write_fast(1361,'░░▒▒▓▓▓║ F                          ║▓▓▓▓▓║                           ║▓▓▓▓▓▒▒░░');
  41.  write_fast(1441,'░░▒▒▓▓▓║ G                          ║▓▓▓▓▓║ <Escape> - Abbruch        ║▓▓▓▓▓▒▒░░');
  42.  write_fast(1521,'░░▒▒▓▓▓║ H                          ║▓▓▓▓▓║ <Return> - Level sichern  ║▓▓▓▓▓▒▒░░');
  43.  write_fast(1601,'░░▒▒▓▓▓╚════════════════════════════╝▓▓▓▓▓╚═══════════════════════════╝▓▓▓▓▓▒▒░░');
  44.  write_fast(1681,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
  45.  write_fast(1761,'░░▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒░░');
  46.  write_fast(1841,'░░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒░░');
  47.  write_fast(1921,'░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░');
  48.  MP_Setcolor(86,39,13); MP_Setcolor(139,16,2); MP_Setcolor(166,2,13);
  49.  MP_Setcolor(203,2,13); MP_Setcolor(205,2,8); MP_Setcolor(219,1,2);
  50.  MP_Setcolor(234,1,2); MP_Setcolor(235,2,8); MP_Setcolor(246,39,13);
  51.  MP_Setcolor(285,2,8); MP_Setcolor(299,1,2); MP_Setcolor(314,1,2);
  52.  MP_Setcolor(315,2,8); MP_Setcolor(328,39,8); MP_Setcolor(379,1,2);
  53.  MP_Setcolor(394,1,2); MP_Setcolor(395,2,8); MP_Setcolor(459,16,2);
  54.  MP_Setcolor(475,2,8); MP_Setcolor(541,16,8); MP_Setcolor(758,2,8);
  55.  MP_Setcolor(765,21,11); MP_Setcolor(792,2,8); MP_Setcolor(838,2,8);
  56.  MP_Setcolor(872,2,8); MP_Setcolor(893,22,12); MP_Setcolor(918,2,8);
  57.  MP_Setcolor(925,8,14); MP_Setcolor(952,2,8); MP_Setcolor(970,1,12);
  58.  MP_Setcolor(998,2,8); MP_Setcolor(1005,8,14); MP_Setcolor(1032,2,8);
  59.  MP_Setcolor(1050,1,12); MP_Setcolor(1078,2,8); MP_Setcolor(1085,8,10);
  60.  MP_Setcolor(1112,2,8); MP_Setcolor(1130,1,12); MP_Setcolor(1158,2,8);
  61.  MP_Setcolor(1165,8,10); MP_Setcolor(1192,2,8); MP_Setcolor(1210,1,12);
  62.  MP_Setcolor(1238,2,8); MP_Setcolor(1245,8,10); MP_Setcolor(1272,2,8);
  63.  MP_Setcolor(1290,1,12); MP_Setcolor(1318,2,8); MP_Setcolor(1325,8,10);
  64.  MP_Setcolor(1352,2,8); MP_Setcolor(1370,1,12); MP_Setcolor(1398,2,8);
  65.  MP_Setcolor(1432,2,8); MP_Setcolor(1450,1,12); MP_Setcolor(1478,2,8);
  66.  MP_Setcolor(1485,8,12); MP_Setcolor(1512,2,8); MP_Setcolor(1530,1,12);
  67.  MP_Setcolor(1558,2,8); MP_Setcolor(1565,8,12); MP_Setcolor(1592,2,8);
  68.  MP_Setcolor(1638,2,8); MP_Setcolor(1672,2,8); MP_Setcolor(1690,30,8);
  69.  MP_Setcolor(1725,29,8);
  70.  MP_BufferToScreen;
  71. End;
  72.  
  73. Procedure EditorScreen;
  74. Var c:integer;
  75.  
  76. Begin
  77.  if (neu) then EditorScreen__;
  78.  MP_Eingabefeldzeichen:=' ';
  79.  MP_Felder[1].Xpos:=10;
  80.  MP_Felder[1].Ypos:=10;
  81.  MP_Felder[1].Laenge:=12;
  82.  MP_Felder[1].Typ:='S';
  83.   MP_Felder[1].Text:=w1;
  84.  MP_Felder[2].Xpos:=34;
  85.  MP_Felder[2].Ypos:=10;
  86.  MP_Felder[2].Laenge:=2;
  87.  MP_Felder[2].Typ:='B';
  88.  if (w2<>0) then str(w2, MP_Felder[2].Text)
  89.   else MP_Felder[2].Text[0]:=#0;
  90.  MP_Lesefeld(2);
  91.  w1:= MP_Felder[1].Text;
  92.  val( MP_Felder[2].text,w2,c);
  93. End;
  94. END.
  95.