1 / 150

;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------. ; I've decided to start releasing my source codes with some releases, this is. ; due to the number of requests and number of people trying to learn ppl, you.

tamar
Download Presentation

;-----------------------------------------------------------------------------

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. ;-----------------------------------------------------------------------------;-----------------------------------------------------------------------------

  2. ; I've decided to start releasing my source codes with some releases, this is

  3. ; due to the number of requests and number of people trying to learn ppl, you

  4. ; can learn how to code ppl from decompiled ppe's, but you don't learn how

  5. ; to set them out properly. Just don't re-release them as your own or be lame

  6. ; forever like the faggot delta and his lame rip-group. Modify them all you

  7. ; want for your personal usage, but don't distribute the modified source. And

  8. ; give credit where credit is due for the original source.. --kraze

  9. ;-----------------------------------------------------------------------------;-----------------------------------------------------------------------------

  10. ;declare variables

  11. string act, temp, temp2, ack, c0, c1, c2, c3, c4

  12. boolean cont

  13. declare procedure status()

  14. ;initialize variables

  15. :init

  16. c0 = readline (ppepath() + "fd-who.cfg" ,1) ;max # nodes

  17. c1 = readline (ppepath() + "fd-who.cfg" ,2) ;column color

  18. c2 = readline (ppepath() + "fd-who.cfg" ,3) ;hilite color

  19. c3 = readline (ppepath() + "fd-who.cfg" ,4) ;non-hi color

  20. c4 = readline (ppepath() + "fd-who.cfg" ,5) ;input string

  21. inc c0

  22. temp = 1

  23. cont = 1

  24. ;start of actual code

  25. cls

  26. dispfile ppepath() + "header." , graph

  27. while (c0 <> temp) do

  28. rdunet temp

  29. status()

  30. println "@POS:1@" + c1 + "|@POS:3@" + c4 + temp + "@POS:6@" + c1 + "|@X07@POS:8@" + c4 + mixed(un_name()) + "@POS:30@" + c1 + "|@X07@POS:32@" + c4 + mid(un_city(), 1, 21) + "@POS:54@" + c1 + "|@X07@POS:56@" + c4 + act + "@POS:78@" + c1 + "|"

  31. inc temp

  32. endwhile

  33. dispfile ppepath() + "footer." , graph

  34. temp = 1

  35. cont = 1

  36. ack = "LEFT"

  37. while (!(ack == chr(13))) then

  38. if (ack == "RIGHT") then

  39. inc temp

  40. if (temp > 3) then

  41. temp = 3

  42. endif

  43. endif

  44. if (ack == "LEFT") then

  45. dec temp

  46. if (temp < 1) then

  47. temp = 1

  48. endif

  49. endif

  50. if (temp == 1) then

More Related