1 / 305

;-----------------------------------------------------------PowerPPL v2.22---

;-----------------------------------------------------------PowerPPL v2.22---. ; File : PR-TOP.PPS. ; Original by : FLUX PSYCHIC on 05/06/1997 at 1:20:45. ; Last update by : FLUX PSYCHIC on 05/15/1997 at 16:39:46. ; Title : Sordo Top Up/Down-loaders.

netis
Télécharger la présentation

;-----------------------------------------------------------PowerPPL v2.22---

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;-----------------------------------------------------------PowerPPL v2.22---

  2. ; File : PR-TOP.PPS

  3. ; Original by : FLUX PSYCHIC on 05/06/1997 at 1:20:45

  4. ; Last update by : FLUX PSYCHIC on 05/15/1997 at 16:39:46

  5. ; Title : Sordo Top Up/Down-loaders

  6. ; Version : 1.00

  7. ; Description : Makes a bulletin of the best uploaders on the board

  8. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  9. Declare Function exc(string s) boolean

  10. Declare Procedure checkusers()

  11. Declare Procedure checkscreen()

  12. Declare Procedure fixfile(string f, string f2, string mac, integer bytes)

  13. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  14. String usrnr(999)

  15. String name(999)

  16. String city(999)

  17. String lastd(999)

  18. String lastt(999)

  19. Integer ton(999)

  20. Integer bup(999)

  21. Integer bdn(999)

  22. Integer fup(999)

  23. Integer fdn(999)

  24. Integer upointer(999)

  25. Integer dpointer(999)

  26. Integer idx, idx2, idx3, y

  27. Integer maxusers, maxuls, tul, tdl

  28. Boolean quiet

  29. String cfgfile, topfile(2), botfile(2), midfile, ubull, dbull, tmpfile, excfile, tmpfile2, tmpfile3

  30. String midline(2)

  31. BigStr tmpline

  32. String bakline(9)

  33. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  34. Let cfgfile = PpePath() + PpeName() + ".CFG"

  35. Let topfile(1) = PpePath() + PpeName() + ".TUP"

  36. Let topfile(2) = PpePath() + PpeName() + ".TDN"

  37. Let botfile(1) = PpePath() + PpeName() + ".BUP"

  38. Let botfile(2) = PpePath() + PpeName() + ".BDN"

  39. Let midfile = PpePath() + PpeName() + ".MID"

  40. Let tmpfile = PpePath() + PpeName() + ".$$1"

  41. Let tmpfile2 = PpePath() + PpeName() + ".$$2"

  42. Let tmpfile3 = PpePath() + PpeName() + ".$$3"

  43. Let excfile = PpePath() + PpeName() + ".EXC"

  44. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  45. Begin

  46. If (Upper(ReadLine(cfgfile, 3)) = "YES") Then Let quiet = True

  47. Else Let quiet = False

  48. EndIf

  49. If (!quiet) Then

  50. SaveScrn

More Related