1 / 173

; Simple Main Prompt v1.O

; Simple Main Prompt v1.O. ; Source code by Odin of Providence. ; Idea and help by Cuminous Of Providence. ;. ; Compiled and working with PPLC 3.01. ;. ; Most of the code should be self-explaining. ; Please use it as you like, improve it or something,.

teneil
Télécharger la présentation

; Simple Main Prompt v1.O

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. ; Simple Main Prompt v1.O

  2. ; Source code by Odin of Providence

  3. ; Idea and help by Cuminous Of Providence

  4. ;

  5. ; Compiled and working with PPLC 3.01

  6. ;

  7. ; Most of the code should be self-explaining.

  8. ; Please use it as you like, improve it or something,

  9. ; but please don't release it in your name. Get my

  10. ; permission first.

  11. ;$USEFUNCS

  12. String prompt(2)

  13. String usexy

  14. String commands(21)

  15. String doskey

  16. String tangent

  17. String kbdstring

  18. String colors

  19. string col(1)

  20. Byte i

  21. Byte spaces

  22. Byte time

  23. Byte num

  24. Byte y

  25. Byte xcord

  26. Byte ycord

  27. Declare Procedure wprompt()

  28. Declare Procedure enterpr()

  29. Declare Procedure readdat()

  30. Declare Procedure endppe (String choice)

  31. Declare Procedure change (Byte key)

  32. Begin

  33. Let commands(0)=""

  34. Let num = 0

  35. If (!Exist(PPEPATH()+"\DATA\"+U_NAME()+".dat")) Then

  36. FCreate 1,PPEPATH()+"\DATA\"+U_NAME()+".dat",O_WR,DEFS

  37. FClose 1

  38. End If

  39. If (!Exist(PPEPATH()+"mprompt.cfg")) Then

  40. PrintLn "Please inform sysop that no .cfg file exists for Simple Main Prompt v1.O."

  41. PrintLn "Using default values..."

  42. Let prompt(0)="Õþ[@BOARDNAME@]þ[@SYSTIME@]þù¯"

  43. Let prompt(1)="Ôþ[@TIMELEFT@ MiN LEFT]þ[ @INCONF@]þù¯"

  44. Let prompt(2)="-"

  45. Let usexy="NO"

  46. Let doskey="YES"

  47. Let colors="NO"

  48. Let spaces=15

  49. Else

  50. FOpen 1,PPEPath()+"mprompt.cfg",O_RD,DEFS

More Related