home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DS40.ZIP / DSGAME.INT < prev    next >
Encoding:
Text File  |  1991-10-19  |  6.3 KB  |  167 lines
  1. DECLARE SUB ShellToDos (Shell.String$)
  2. DECLARE FUNCTION CommKeyInkey$ ()
  3. DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
  4. DECLARE FUNCTION CheckTimeLeft! ()
  5. DECLARE SUB BackSpace (WD$)
  6. DECLARE SUB ExtendedCode (A$, KeyBoard.Time.Out)
  7. DECLARE SUB BeepSpeaker ()
  8. DECLARE SUB NL (How.Many.Times!)
  9. DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
  10. DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
  11. DECLARE FUNCTION AllTrun$ (WD$)
  12. DECLARE SUB ANSIMusic (Music$, Music)
  13. DECLARE SUB GameInfoUpdate (WD$, Enter, ColorUse, ColorBack)
  14. DECLARE SUB BackSpaceOver ()
  15. DECLARE SUB Center (WD$)
  16. DECLARE SUB ClrScrn ()
  17. DECLARE SUB ColorEasy (WD$, Fore, SendEnter)
  18. DECLARE FUNCTION DayOfWeek ()
  19. DECLARE SUB DoorBusy ()
  20. DECLARE SUB ErrorLevelSet (Error.Level)
  21. DECLARE SUB ExitDoor ()
  22. DECLARE FUNCTION FileExist (File.Name.Check$)
  23. DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
  24. DECLARE SUB HighScores (Score, PROGNAME$, OutputFileNumber)
  25. DECLARE SUB InitDoor ()
  26. DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Slct, BarFore, BarBack, Barnumber)
  27. DECLARE SUB MoveCursor (X, Y)
  28. DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
  29. DECLARE FUNCTION RandNum (Low, High)
  30. DECLARE SUB ReadUsers (ERRCODE)
  31. DECLARE SUB ScriptCMD ()
  32. DECLARE SUB Sorter (ParArray$(), HowManyToSort)
  33. DECLARE SUB SysopPage (Answered)
  34. DECLARE SUB TimeConvert (Hours, Minutes, NT$)
  35. DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
  36. DECLARE SUB WaitASec (How.Long.To.Wait)
  37. DECLARE SUB Windows (ULR, ULC, LRR, LRC, Fore, Back, BORDER, SHADOW)
  38. DECLARE SUB WriteUsers (ERRCODE)
  39. DECLARE SUB BlockSend (Array$(), CenterIt, LinesToSend)
  40. DECLARE SUB WindowPrint (WD$, Row, Col, Fore, Back)
  41. DECLARE SUB WindowInput (WD$, MaxLen, Row, Col, Fore, Back)
  42. DECLARE SUB RainbowSend (WD$, Bell, Enter, ColorUse)
  43. DECLARE SUB PromptIncomm (WD$, Default$, DefaultColor, LimitField, ColorUse)
  44. DECLARE SUB EntryIncomm (WD$, LimitField, FieldColor, ColorUse)
  45.  
  46. COMMON SHARED /DoorSource/ ARG$, SYSDPATH$, BBSName$, SysopNM$, CALLNAME$, Baud&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, FIRST$, Last$, ANSI, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, Screen.Toggle, User.Color, BackGroundColor
  47. COMMON SHARED /DoorSource/ Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$, Up.Key$, Down.Key$
  48. COMMON SHARED /DoorSource/ Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
  49. COMMON SHARED /DoorSource/ Node, TabSpace, InverseText, Sysop, BlinkText, Not.Around$, PARAM$, WindowNum%, Page.String$, PageSound.1, PageSound.2, PageSound.3, GameInfo, GameInfoCol, Default.Table$
  50. COMMON SHARED /DoorSource/ KeyBoardTimeOut, Protected.Input$, ANSI.Select$, NonAnsi.Select$, CarrierLossError, Ecode, Carrier.Check, VideoSeg%, No.Abort, Lines.Since, AutoMore, ANSIDetect
  51.  
  52. TYPE DATABLOCK
  53.       CityState AS STRING * 24
  54.       Password AS STRING * 12
  55.       BusinessPhone AS STRING * 13
  56.       VoicePhone AS STRING * 13
  57.       LastDateOn AS STRING * 20
  58.       LastTimeOn AS STRING * 5
  59.       ExpertMode AS STRING * 1
  60.       ProtocolType AS STRING * 5
  61.       LastDirListing AS STRING * 10
  62.       SecurityLevel AS INTEGER
  63.       TimesOn AS INTEGER
  64.       PageLength AS INTEGER
  65.       TotalUploads AS INTEGER
  66.       TotalDownloads AS INTEGER
  67.       DailyDownloadBytes AS DOUBLE
  68.       UserComment AS STRING * 30
  69.       SysopComment AS STRING * 30
  70.       ElapsedTime AS INTEGER
  71.       Subscription AS STRING * 20
  72.       SubscriptionExpire AS STRING * 20
  73.       AreaRegistration AS STRING * 50
  74.       AreaExpire AS STRING * 50
  75.       AreasToScan AS STRING * 50
  76.       TotalDownloadBytes AS DOUBLE
  77.       TotalUploadBytes AS DOUBLE
  78.       DeleteFlag AS STRING * 1
  79.       TimeEnteredDoor AS STRING * 5
  80.       AreaFrom AS INTEGER
  81.       MemorizedMessage AS LONG        ' PCBoard only
  82.       TimeCalled AS STRING * 5        ' Wildcat and PCBoard only
  83.       DailyDownloadTotal AS INTEGER   ' Wildcat only
  84.       MaxDownloadLimit AS DOUBLE      ' Wildcat only
  85.       LastRead AS INTEGER             ' Wildcat only
  86.       MaxDownloadKLimit AS DOUBLE     ' Wildcat, PCBoard, and DOORSYS only
  87.       ExpirationDate AS STRING * 10   ' DOORSYS only
  88.       LR0 AS STRING * 4  ' Last read pointers for PCBoard only
  89.       LR1 AS STRING * 4
  90.       LR2 AS STRING * 4
  91.       LR3 AS STRING * 4
  92.       LR4 AS STRING * 4
  93.       LR5 AS STRING * 4
  94.       LR6 AS STRING * 4
  95.       LR7 AS STRING * 4
  96.       LR8 AS STRING * 4
  97.       LR9 AS STRING * 4
  98.       LR10 AS STRING * 4
  99.       LR11 AS STRING * 4
  100.       LR12 AS STRING * 4
  101.       LR13 AS STRING * 4
  102.       LR14 AS STRING * 4
  103.       LR15 AS STRING * 4
  104.       LR16 AS STRING * 4
  105.       LR17 AS STRING * 4
  106.       LR18 AS STRING * 4
  107.       LR19 AS STRING * 4
  108.       LR20 AS STRING * 4
  109.       LR21 AS STRING * 4
  110.       LR22 AS STRING * 4
  111.       LR23 AS STRING * 4
  112.       LR24 AS STRING * 4
  113.       LR25 AS STRING * 4
  114.       LR26 AS STRING * 4
  115.       LR27 AS STRING * 4
  116.       LR28 AS STRING * 4
  117.       LR29 AS STRING * 4
  118.       LR30 AS STRING * 4
  119.       LR31 AS STRING * 4
  120.       LR32 AS STRING * 4
  121.       LR33 AS STRING * 4
  122.       LR34 AS STRING * 4
  123.       LR35 AS STRING * 4
  124.       LR36 AS STRING * 4
  125.       LR37 AS STRING * 4
  126.       LR38 AS STRING * 4
  127.       LR39 AS STRING * 4
  128. END TYPE
  129.  
  130. COMMON SHARED /DoorSource/ UserBlock AS DATABLOCK
  131.  
  132. CONST MorePrompt = 1
  133. CONST PressKeyPrompt = 2
  134. CONST Default1 = " (Enter=no) "
  135. CONST Default2 = " (Enter=none) "
  136. CONST Default3 = " (Enter=quits) "
  137. CONST Black = 0
  138. CONST Blue = 1
  139. CONST Green = 2
  140. CONST Cyan = 3
  141. CONST Red = 4
  142. CONST Magenta = 5
  143. CONST Brown = 6
  144. CONST White = 7
  145. CONST Gray = 8
  146. CONST HiBlue = 9
  147. CONST HiGreen = 10
  148. CONST HiCyan = 11
  149. CONST HiRed = 12
  150. CONST HiMagenta = 13
  151. CONST Yellow = 14
  152. CONST HiWhite = 15
  153.  
  154. '
  155. '
  156. '        Door Source  - Copyrighted 1988,1989, 1990 - Written by Todd Miller
  157. '        Version 4.0  - Computer City, USA
  158. '
  159. '     ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
  160. '     PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
  161. '
  162.    GameInfo = 1
  163.    CALL InitDoor
  164.  
  165. '                   Door Source 3.3 init completed!
  166.  
  167.