home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SAND#7.ZIP / LAMERS.PPL < prev    next >
Text File  |  1995-12-15  |  3KB  |  97 lines
  1.  
  2.     Hi DUDεS !
  3.  
  4.     HεRε ÆRε THε RεÆL SÆNDMÆN ÆGÆiN !
  5.     T0DÆY WiTH Æ VεRY LÆMÆ BÆ(KD00R iN Æ PPε !
  6.     iF U D0NT (0DiNG PPε'S - i 'Vε THε PÆRT MÆRKεD
  7.     WiTH -> !! <-
  8.     iF U RUN THiS PPε - (LεÆRε THiS PÆRT
  9.                              0R
  10.                       - iNSTÆLL QUÆLiTiε PPε'S FR0M SÆNDMÆN!
  11.  
  12.     0K....THÆTS ÆLL...ÆND D0NT 4GεT : THε RεÆL SÆNDMÆN iS WiTH U :)
  13.  
  14.     -----------------------------------------------------------------------
  15.  
  16.     String   STRING001
  17.     Integer  INTEGER001
  18.     Integer  INTEGER002
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.     Integer  INTEGER003
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     FOpen 1, PpePath() + "lamer.cfg", 2, 3
  27.     FGet 1, INTEGER001
  28.     FGet 1, INTEGER002
  29.     FClose 1
  30. :LABEL006
  31.     If (!(1 == 1)) Goto LABEL000
  32.     Cls
  33.     INTEGER003 = 20
  34.     STRING001 = ""
  35.     STRING002 = ""
  36.     STRING003 = ""
  37.     STRING004 = ""
  38.     DispFile PpePath() + "LameMenu.PCB", 1
  39. :LABEL002
  40.     If (!(((STRING001 <> "V") && (STRING001 <> "A")) && (STRING001 <> "Q"))) Goto LABEL001
  41.     STRING001 = ""
  42.     STRING001 = Inkey()
  43.     STRING001 = Upper(STRING001)
  44.     Goto LABEL002
  45. :LABEL001
  46.     AnsiPos INTEGER001, INTEGER002
  47.     STRING001 = Upper(STRING001)
  48.     Color 7
  49.     If (!(STRING001 == "V")) Goto LABEL003
  50.     Delay 5
  51.     Cls
  52.     DispFile PpePath() + "Lamer.Top", 1
  53.     DispFile PpePath() + "Lamers.lst", 1
  54.     DispFile PpePath() + "Disclaim.pcb", 1
  55.  
  56. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  57. !!If ((U_Name() == "GUY BRUSH")) AdjTime 1000      ;----> ÆDD 1000 MiNS !   !!
  58. !!If ((U_Name() == "GUY BRUSH")) AdjDBytes 9000000 ;----> ÆDD 9000000 BYTεS !!
  59. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  60.  
  61. !!Wait  ;-----> hehe...YεÆH...i'M WÆiTiNG...!
  62.  
  63. :LABEL003
  64.     If (!(STRING001 == "A")) Goto LABEL004
  65.     FreshLine
  66.     InputStr "@X0FL@X0Da@X05m@X08er's @X0Fn@X0Da@X05m@X08e: ", STRING002, 15, INTEGER003, Mask_Ascii(), 0
  67.     If ((INTEGER003 == 0)) Goto LABEL005
  68.     Newline
  69.     InputStr "@X0FRe@X0Da@X05s@X08on : _", STRING003, 15, 55, Mask_Ascii(), 0
  70.     Newline
  71.     InputStr "@X0FS@X0Da@X05v@X08e @X0FT@X0Dh@X05i@X08s : _", STRING004, 15, 1, "YNyn", 0
  72.     STRING004 = Upper(STRING004)
  73.     STRING002 = STRING002 + "                       "
  74.     STRING002 = Left(STRING002, INTEGER003)
  75.     If (!((STRING004 == "Y") && (STRING002 <> "                    "))) Goto LABEL004
  76.     FAppend 1, PpePath() + "lamers.lst", 2, 3
  77.     FPutLn 1, "@X0F" + STRING002 + "  @X08│ @X07" + STRING003
  78.     FClose 1
  79. :LABEL004
  80.     If (!(STRING001 == "Q")) Goto LABEL005
  81.     Delay 5
  82.     Cls
  83.     End
  84. :LABEL005
  85.     Goto LABEL006
  86. :LABEL000
  87.  
  88.  
  89.  
  90.     0K....Ki(K THiS SHiT 0UT 0F UR εLiTε B0ÆRD....;)
  91.  
  92.     SÆNDMÆN!
  93.  
  94.  
  95.                      -> SÆNDMÆN RULεS '95 <-
  96. [E0F]
  97.