home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 February / PCO_0299.ISO / filesbbs / os2 / tor165gp.exe / TMISC.ZIP / REGEND.TR0 < prev    next >
Encoding:
Text File  |  1998-11-26  |  1.8 KB  |  73 lines
  1. // Åα¿¼Ñα ßµÑ¡áα¿∩ »α«ßΓÑ⌐ΦÑú« «»α«ß¡¿¬á ¡á óßΓα«Ñ¡¡«¼ ∩ºδ¬Ñ Tornado.
  2. // (c) Konstantin Klyagin, 1997
  3.  
  4. Variables
  5.   BBS1, BBS2, BBS3, Languages, Music, Job : String
  6.   B                                       : Logical
  7. End
  8.  
  9. Program
  10.   Clear
  11.  
  12.   WriteLn ("\14ä«»«½¡¿Γѽ∞¡á∩ αÑú¿ßΓαᵿ∩ ñáÑΓ éἠ󫺼«ª¡«ßΓ∞ »«ñ¡∩Γ∞")
  13.   WriteLn ("ßó«⌐ πα«óÑ¡∞ ñ«ßΓπ»á, «ΓóÑΓ¿ó ¡á ¡Ñ߬«½∞¬« ó«»α«ß«ó.")
  14.   WriteLn ()
  15.   WriteLn ("\12àñ¿¡ßΓóÑ¡¡«Ñ, τΓ« «Γ éáß ΓαÑíπÑΓß∩ - «ΓóÑτáΓ∞ »αáó¿½∞¡«.")
  16.   WriteLn ()
  17.   Write   ("\10éδ σ«Γ¿ΓÑ »α«⌐Γ¿ ñ«»«½¡¿Γѽ∞¡πε αÑú¿ßΓαᵿε?")
  18.  
  19.   YesNo (B)
  20.  
  21.   If Not B
  22.     Exit
  23.   End
  24.  
  25.   WriteLn
  26.   WriteLn ("\15ìẫó¿ΓÑ Γα¿ ßá¼δσ ½εí¿¼δσ éἿ BBS")
  27.   Write   ("\151: \03") ; ReadVar (BBS1, 40)
  28.   Write   ("\152: \03") ; ReadVar (BBS2, 40)
  29.   Write   ("\153: \03") ; ReadVar (BBS3, 40)
  30.   WriteLn ()
  31.  
  32.   Write ("\15䫽ª¡«ßΓ∞ (Ñß½¿ αáí«ΓáÑΓÑ) ¿½¿ Σá¬π½∞ΓÑΓ/¬παß (Ñß½¿ πτ¿ΓÑß∞): \03")
  33.   ReadVar (Job, 27)
  34.   WriteLn ()
  35.  
  36.   Write ("\15éδ ºá¡¿¼áÑΓÑß∞ »α«úαá¼¼¿α«ó᡿Ѽ?") ; YesNo (B)
  37.  
  38.   If B
  39.     Write ("\15ìᠬᬿσ ∩ºδ¬áσ éδ »α«úαá¼¼¿απÑΓÑ? \03")
  40.     ReadVar (Languages, 40)
  41.     WriteLn ()
  42.   End
  43.  
  44.   Write   ("\15èá¬πε ¼πºδ¬π óδ ½εí¿ΓÑ ß½πΦáΓ∞? \03")
  45.   ReadVar (Music, 40)
  46.  
  47.   FileAppend (1, "quest.txt")
  48.   FileWriteString (1, "")
  49.   FileWriteString (1, "ê¼∩ »«½∞º«óáΓѽ∩: " + $NAME)
  50.   FileWriteString (1, "")
  51.  
  52.   FileWriteString (1, "ïεí¿¼δÑ BBS:")
  53.   FileWriteString (1, "1) " + BBS1)
  54.   FileWriteString (1, "2) " + BBS2)
  55.   FileWriteString (1, "3) " + BBS3)
  56.  
  57.   FileWriteString (1, "䫽ª¡«ßΓ∞ ¿½¿ öá¬π½∞ΓÑΓ/¬παß: " + Job)
  58.  
  59.   If B
  60.     FileWriteString (1, "Åα«úαá¼¼¿απÑΓ ¡á: " + Languages)
  61.   End
  62.  
  63.   FileWriteString (1, "îπºδ¬á: " + Music)
  64.  
  65.   FileClose (1)
  66.  
  67.   If $SECR < 2
  68.     $SECR = 2
  69.     WriteLn ()
  70.     Message ("\10æ»áß¿í« ºá «ΓóÑΓδ. éáΦ πα«óÑ¡∞ ñ«ßΓπ»á »«ñ¡∩Γ ñ« 2.")
  71.   End
  72.  
  73. End