Subj : �¥¡ïâ ¢ë 祣®.
To   : Vasiliy Arutyunov
From : Ilya Malanyin
Date : Thu Oct 19 2000 12:23 am

@RealName Ilya Malanyin
               _*‚ᥬ ¯à¨¢¥â ¢ª«îç ï Vasiliy, 梥⮢ ­¥ ­ ¤®*_

<18 Oct 00> ¨§-§  㣫  ¢ë«¥â¥« ( ) Vasiliy Arutyunov ¨ ªàë誮© 㭨⠧  ¤®¡¨« 
Ilya Malanyin!:

 VA>>>  € ¢®®¡é¥ â®ç­®... „ ¢ ©-⥠­  pyá᪮¬ :) € y â¥¡ï ¬­®£®
 VA>>> ¡¨¡«¨®â¥ª ¤«ï ¯ áª «ï?
 IM>> H¥§­ î ª ª y ­¥£®   y ¬¥­ï ¤®äyï! € çâ® ­ ¤®??

 VA>  € ᪮«ìª® ¢á¥ ¢¥á¨â?

230 ¬¥£®¢ - ¬ «® ®ç¥­ì ­® ¯®ª  ï í⨬ ®¡å®¦ãáì ¢®â çâ® ï ¯®ª  çâ® ¤¥« î:
‘ ¬¨ ¯®¤¯à ¢ìâ¥...

-=[ ˆ§ ¯ë«¨ ¨ £ §  த¨«áï for_scrp.pas ]=-
Unit For_Scrp;
  (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     *)
  (*        For Scripts from files     *)
  (*  Author: [RatMan] // MetaCortex $oft     *)
  (*  Version 1.0beta2     *)
  (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     *)
Interface
Uses Crt, Menuttt5;

  (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ    
*)
  (* Modules: Crt - standard module, MenuTTT5 - module from packet     *)
  (*          TechnoJock's Turbo     *)
  (* Toolkit by TechnoJock Software, Inc.     *)
  (* Archives: TTTDEM51.RAR - Demo sources     *)
  (*           TTTSRC51.RAR - Sources of Modules     *)
  (*           TTTDOC51.RAR - Doc's about TTT-packet     *)
  (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ    
*)

Procedure Scriptsmenu (Filename: String; Retcode: Integer);

 (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     
*)
 (* Window completely reveal for suitable reading     *)
 (*     *)
 (* Procedure ScriptsMenu (Filename :String; Retcode: Intger);     *)
 (* Procedure for the output on the screen a menu, from the file...     *)
 (* FileName: Name of Menu-Script     *)
 (* RetCode: Return Code Menu - pressed point number in menu     *)
 (* Format of file a menu-script:     *)
 (* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
*)
 (* Menu *)
 (* // Without fall must be!!! Danger!!!  Otherwise will say that this not 
script!   *)
 (* 1 1 4 5     *)
 (* // The first number - x-position left-upper corner     *)
 (* // Second number    - y-position left-upper corner     *)
 (* // Third number     - count of topics a menu     *)
 (* // Fourth number    - type of menu box     *)
 (* [  Main Menu ]     *)
 (* // Name a menu - without fall must begin with '[' and end     *)
 (* // ']' - and between name and brackets without fall must be spaces.     *)
 (* New Game     *)
 (* Load Game     *)
 (* Save Game     *)
 (* Quit     *)
 (* // Name of points a menu     *)
 (* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     
*)
 (* P.S: See examples     *)
 (* ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ     
*)

Procedure LoadPict(S:String);
Procedure CompPict(InF,OutF:String);
Implementation
Procedure CompPict(InF,OutF:String);
Var
I:Integer;
F,F1:Text;
C:Char;
Begin
Assign(F,InF);
Reset(F);
Assign(F1,OutF);
Rewrite(F1);
While Not Eof(F) do
Begin
Read(F,C);
Inc(C,4);
Write(F1,C);
end;
Close(F);
Close(F1);
end;
Procedure LoadPict(S:String);
Var
I:Integer;
Instr:String;
F:Text;
C:Char;
Begin
Assign(F,S);
Reset(F);
While Not Eof(F) do Begin
Read(F,C);
Dec(C,4);
If C='~' then Begin read(F,C);
              Case C of
              ' ':TextColor(1);
              '¡':TextColor(2);
              '¢':TextColor(3);
              '£':TextColor(4);
              '¤':TextColor(5);
              '¥':TextColor(6);
              '¦':TextColor(7);
              '§':TextColor(8);
              '¨':TextColor(9);
              'ª':TextColor(10);
              '«':TextColor(11);
              '¬':TextColor(12);
              '­':TextColor(13);
              '®':TextColor(14);
              '¯':TextColor(15);
             End;
end
Else
Write(C);
end;
Close(F);
end;
Procedure Scriptsmenu (Filename: String; Retcode: Integer);
Var
  F: Text;
  M : Menu_Record;
  Choice: Integer;
  CH : Char;
  Namemenu: String;
  Count: Integer;
  Instr: String;
  Topicsname: Array [1..30] Of String;
  X, Y, Probels: Integer;
  H: Integer;
  Mtype: Integer;
  K: String;
  I: Integer;
Begin
  If Filename= '' Then Begin WriteLn ('Input file not specified!'); Halt; End;
  Assign (F, Filename);
  {$I-}
  Reset (F);
  {$I+}
  If IOResult<> 0 Then Begin WriteLn ('File not found or access to him 
locked');
    Halt;
  End;
  ReadLn (F, K);
  For I:= 1 To Length (Filename) Do Filename [I] := UpCase (Filename [I] );
  For I:= 1 To Length (K) Do K [I] := UpCase (K [I] );
  If Pos ('MENU', K) <> 0 Then K:= K Else
  Begin
    WriteLn (Filename, ': This is not script ');
    Halt;
  End;
  ReadLn (F, Instr);
  Val (Copy (Instr, 1, Pos (' ', Instr) - 1), X, X);
  Delete (Instr, 1, Pos (' ', Instr) );
  Val (Copy (Instr, 1, Pos (' ', Instr) - 1), Y, Y);
  Delete (Instr, 1, Pos (' ', Instr) );
  Val (Copy (Instr, 1, Pos (' ', Instr) - 1), Count, Count);
  Delete (Instr, 1, Pos (' ', Instr) );
  Val (Copy (Instr, 1, Length (Instr) ), Mtype, Mtype);
  ReadLn (F, Namemenu);
  If Pos ('[', Namemenu) = 0 Then Begin WriteLn (Filename, '(3): The name a 
menu must begin "[ "'); Halt; End;
  If Pos (']', Namemenu) = 0 Then Begin WriteLn (Filename, '(3): The name a 
menu must end " ]"'); Halt; End;
  Namemenu:= Copy (Namemenu, Pos ('[', Namemenu) + 1, Pos (']', Namemenu) - 2);
  For H:= 1 To Count Do ReadLn (F, Topicsname [H] );
Begin
  ClrScr;
  Choice := 1;
  Menu_Set (M);
  With M Do
  Begin
    Topleftxy [1] := X;
    Topleftxy [2] := Y;
    Heading1 := Namemenu;
    For H:= 1 To Count Do
      Topic [H]  := Topicsname [H];
    Totalpicks := Count;
    Boxtype:= Mtype;
  End;
  Displaymenu (M, True, Choice, Retcode);
End;
End;
End.
-=[ € âãâ for_scrp.pas ࢠ­ã« ­  ªã᪨  ]=-

             _/*[BloodHound Gang - RULEZ]*/_  _/#[Mortal Kombat BBS - too]#/_
          /[Mortal Kombat BBS - à ¡®â ¥â ­   ¢â®¬ â¥ á 7:30 ¤® 12:30]/
.... /Mortal Kombat BBS [13:00-22:00]/ *PRIVATE* - /á­ ç «  £®«®á®¬ [73-80-99]/
---
 * Origin:  ...Computers make very fast, very accurate mistakes (2:5005/40.113)

.