home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_LC10.ZIP / LAST.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-08-03  |  4.7 KB  |  245 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   TSTRING006(7)
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.  
  38. ;------------------------------------------------------------------------------
  39.  
  40.     STRING003 = PcbNode()
  41.     Goto LABEL001
  42.     Print " DON'T FUCKING PLAY AROUND WITH MY CODE OR I'LL KILL YAH!"
  43.     :LABEL001
  44.     If (CurSec() <= 10) Then
  45.         End
  46.     Endif
  47.     If (Exist(PPEPath() + "LASTCALL.CNF")) Then
  48.         FOpen 1, PPEPath() + "LASTCALL.CNF", 2, 3
  49.         FGet 1, STRING013
  50.         FGet 1, STRING014
  51.         FGet 1, STRING015
  52.         FGet 1, STRING016
  53.         FGet 1, STRING017
  54.         FGet 1, STRING018
  55.         FGet 1, STRING008
  56.         FGet 1, STRING009
  57.         FGet 1, STRING010
  58.         FGet 1, STRING011
  59.         FGet 1, STRING012
  60.         FGet 1, STRING007
  61.         FClose 1
  62.     Endif
  63.     Select Case (STRING003)
  64.         Case "1"
  65.             STRING005 = "01"
  66.         Case "2"
  67.             STRING005 = "02"
  68.         Case "3"
  69.             STRING005 = "03"
  70.         Case "4"
  71.             STRING005 = "04"
  72.         Case "5"
  73.             STRING005 = "05"
  74.         Case "6"
  75.             STRING005 = "06"
  76.         Case "7"
  77.             STRING005 = "07"
  78.         Case "8"
  79.             STRING005 = "08"
  80.         Case "9"
  81.             STRING005 = "09"
  82.         Case "10"
  83.             STRING005 = "10"
  84.     End Select
  85.     GetUser
  86.     STRING001 = Left(String(Time()), 5)
  87.     STRING002 = U_LDir()
  88.     STRING004 = STRING013 + U_Name() + "@POS:24@" + STRING014 + U_City + "@POS:48@" + STRING015 + STRING001 + "@POS:56@" + STRING016 + "XX:XX" + "@POS:64@" + STRING017 + STRING005 + "@POS:69@" + STRING018 + "·" + STRING010 + "ONLINE!" + "@X07·"
  89.     If (Exist(PPEPath() + STRING003)) Then
  90.         Delete PPEPath() + STRING003
  91.     Endif
  92.     If (OnLocal() == "0") Goto LABEL002
  93.     Goto LABEL003
  94.     Goto LABEL003
  95.     :LABEL002
  96.     Goto LABEL004
  97.     :LABEL003
  98.     If (STRING007 == "Y") Then
  99.         Goto LABEL004
  100.     Else
  101.         Goto LABEL005
  102.     Endif
  103.     :LABEL004
  104.     FCreate 1, PPEPath() + STRING003, 1, 3
  105.     FPutLn 1, "" + U_Name()
  106.     FPutLn 1, "" + U_City
  107.     FPutLn 1, "" + STRING001
  108.     FPutLn 1, "" + U_Fdl()
  109.     FPutLn 1, "" + U_Ful()
  110.     FPutLn 1, "" + U_MsgWr()
  111.     FPutLn 1, "" + U_MsgRd()
  112.     FPutLn 1, "" + U_Stat(2)
  113.     FPutLn 1, "" + U_Stat(3)
  114.     FPutLn 1, "" + U_Stat(10)
  115.     FPutLn 1, "" + STRING002
  116.     FPutLn 1, "" + PcbNode()
  117.     FPutLn 1, STRING004
  118.     FClose 1
  119.     :LABEL005
  120.     If (Exist(PPEPath() + "CALL.DAT")) Then
  121.         FOpen 1, PPEPath() + "CALL.DAT", 2, 3
  122.         FGet 1, TSTRING006(1)
  123.         FGet 1, TSTRING006(2)
  124.         FGet 1, TSTRING006(3)
  125.         FGet 1, TSTRING006(4)
  126.         FGet 1, TSTRING006(5)
  127.         FGet 1, TSTRING006(6)
  128.         FGet 1, TSTRING006(7)
  129.         FGet 1, TSTRING006(8)
  130.         FClose 1
  131.     Endif
  132.     Print "@POFF@"
  133.     Cls
  134.     If (Exist(PPEPath() + "tOP.pcb")) DispFile PPEPath() + "TOP.pcb", 4 + 2 + 1
  135.     PrintLn STRING008 + "     Caller Name         Location/Group          Arr.    Dep.  Node   Actions"
  136.     PrintLn STRING008 + " ┌-[CALL CONVULSION FOR THE LATEST VERSION +46-8-55O16892/64385]----DUPRWCNHS-┐"
  137.     PrintLn STRING008 + " | " + STRING009 + TSTRING006(7) + STRING008 + "@POS:79@|"
  138.     PrintLn STRING008 + " : " + STRING009 + TSTRING006(6) + STRING008 + "@POS:79@|"
  139.     PrintLn STRING008 + "   " + STRING009 + TSTRING006(5) + STRING008 + "@POS:79@:"
  140.     PrintLn STRING008 + " : " + STRING009 + TSTRING006(4) + STRING008 + "@POS:79@:"
  141.     PrintLn STRING008 + " : " + STRING009 + TSTRING006(3)
  142.     PrintLn STRING008 + " | " + STRING009 + TSTRING006(2) + STRING008 + "@POS:79@:"
  143.     PrintLn STRING008 + " | " + STRING009 + TSTRING006(1) + STRING008 + "@POS:79@|"
  144.     PrintLn STRING008 + " └---[LAST CALLERS V1.OO (C)! CODE BY: CATONICA/ALF! ANSI BY: D-VIBE/REBELS!]-┘"
  145.     PrintLn STRING008 + " [" + STRING009 + "D" + STRING008 + "] - DOWNLOAD  [" + STRING009 + "U" + STRING008 + "] - UPLOAD  [" + STRING009 + "P" + STRING008 + "] - POSTED MEZZ  [" + STRING009 + "R" + STRING008 + "] - READ  [" + STRING009 + "W" + STRING008 + "] - WANTED CHAT"
  146.     PrintLn STRING008 + "            [" + STRING009 + "C" + STRING008 + "] - CHAT  [" + STRING009 + "N" + STRING008 + "] - NODE CHAT  [" + STRING009 + "H" + STRING008 + "] - HACKED  [" + STRING009 + "S" + STRING008 + "] - SCANNED"
  147.     If (OnLocal() == "0") Goto LABEL006
  148.     Goto LABEL007
  149.     Goto LABEL007
  150.     :LABEL006
  151.     Goto LABEL008
  152.     :LABEL007
  153.     If (STRING007 == "Y") Then
  154.         Goto LABEL008
  155.     Else
  156.         Goto LABEL009
  157.     Endif
  158.     :LABEL008
  159.     FCreate 1, PPEPath() + "CALL.DAT", 1, 3
  160.     FPutLn 1, STRING004
  161.     FPutLn 1, TSTRING006(1)
  162.     FPutLn 1, TSTRING006(2)
  163.     FPutLn 1, TSTRING006(3)
  164.     FPutLn 1, TSTRING006(4)
  165.     FPutLn 1, TSTRING006(5)
  166.     FPutLn 1, TSTRING006(6)
  167.     FClose 1
  168.     :LABEL009
  169.     Wait
  170.     If (STRING011 == "Y") Then
  171.         Call STRING012
  172.         Goto LABEL010
  173.     Endif
  174.     :LABEL010
  175.     End
  176.  
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Usage report (before postprocessing)
  180. ;
  181. ; ■ Statements used :
  182. ;
  183. ;    2       End
  184. ;    1       Cls
  185. ;    1       Wait
  186. ;    42      Goto 
  187. ;    14      Let 
  188. ;    2       Print 
  189. ;    12      PrintLn 
  190. ;    20      If 
  191. ;    1       DispFile 
  192. ;    2       FCreate 
  193. ;    2       FOpen 
  194. ;    4       FClose 
  195. ;    20      FGet 
  196. ;    20      FPutLn 
  197. ;    1       GetUser
  198. ;    1       Delete 
  199. ;    1       Call 
  200. ;
  201. ;
  202. ; ■ Functions used :
  203. ;
  204. ;    117     +
  205. ;    15      ==
  206. ;    1       <=
  207. ;    19      !
  208. ;    1       Left()
  209. ;    1       Time()
  210. ;    2       U_Name()
  211. ;    1       U_LDir()
  212. ;    1       U_Ful()
  213. ;    1       U_Fdl()
  214. ;    1       String()
  215. ;    10      PPEPath()
  216. ;    1       U_MsgRd()
  217. ;    1       U_MsgWr()
  218. ;    2       PcbNode()
  219. ;    2       OnLocal()
  220. ;    1       CurSec()
  221. ;    4       Exist()
  222. ;    3       U_Stat()
  223. ;
  224. ;------------------------------------------------------------------------------
  225. ;
  226. ; Analysis flags : C
  227. ;
  228. ; C - Call child PPE ■ 3
  229. ;     This is usually normal, but may be a tricky way to launch some
  230. ;     sysop-only commands.
  231. ;     ■ Search for : CALL
  232. ;
  233. ;------------------------------------------------------------------------------
  234. ;
  235. ; Postprocessing report
  236. ;
  237. ;    0       For/Next
  238. ;    0       While/EndWhile
  239. ;    7       If/Then or If/Then/Else
  240. ;    1       Select Case
  241. ;
  242. ;------------------------------------------------------------------------------
  243. ;                 AEGiS Corp - Break the routines, code against the machines!
  244. ;------------------------------------------------------------------------------
  245.