home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / graphic / show55a / games.exe / SHOWFLAG.SHW < prev    next >
Text File  |  1995-02-01  |  5KB  |  188 lines
  1. ;*********************************************************************;
  2. ; Scriptname.:  FLAGS.SHW                                             ;
  3. ; Revision...:  Feb. 1995, by RMP DATA.                               ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. ;********************************************************************
  8. ;Make sure support files are there
  9. ;********************************************************************
  10. IF NOT FILE "flag1.pcx" DO JUMPMARK fileerror
  11. IF NOT FILE "flag2.pcx" DO JUMPMARK fileerror
  12. IF NOT FILE "flag3.pcx" DO JUMPMARK fileerror
  13. IF NOT FILE "flag4.pcx" DO JUMPMARK fileerror
  14. IF NOT FILE "flag5.pcx" DO JUMPMARK fileerror
  15. IF NOT FILE "flag6.pcx" DO JUMPMARK fileerror
  16. IF NOT FILE "happy.snd" DO JUMPMARK fileerror
  17. JUMPMARK initall
  18.  
  19. ;********************************************************************
  20. ;Commands if support files are not found
  21. ;********************************************************************
  22. MARK fileerror
  23. SCREEN CLEAR
  24. GOXY 10 08 DRAW BOX 62 6
  25. GOXY 11 09
  26. WRITE "With this flag game, some files are expected:                "
  27. GOXY 11 10
  28. WRITE "flag1.pcx - flag6.pcx, happy.snd, ...                        "
  29. GOXY 11 11
  30. WRITE "Unfortunately they cannot be found in the current directory. "
  31. GOXY 11 12
  32. WRITE "Try to correct the problem, and then run this game again.    "
  33. GOXY 11 13
  34. WAIT "-- Press any key --"
  35. QUIT
  36.  
  37. ;********************************************************************
  38. ;Here the fun can begin
  39. ;********************************************************************
  40. MARK initall
  41. VARIABLE CREATE fcountry TYPE STRING ""
  42. VARIABLE CREATE fcapitol TYPE STRING ""
  43. VARIABLE CREATE acountry TYPE STRING ""
  44. VARIABLE CREATE acapitol TYPE STRING ""
  45. VARIABLE CREATE answer TYPE STRING ""
  46.  
  47. SET GRAPHICS EGA1
  48.  
  49. COLOR BACKGROUND 1
  50. SCREEN CLEAR
  51.  
  52. EFFECT TEXTTYPE 0 2
  53. SET SHADOW 4
  54.  
  55. SET DELAYFACTOR 3
  56. COLOR FOREGROUND 2
  57. GOXY 30 2 WRITE "Wellcome to"
  58.  
  59. WAIT 1
  60. EFFECT TEXTTYPE 0 5
  61.  
  62. SET DELAYFACTOR 0
  63. COLOR FOREGROUND 10
  64. GOXY 4 5 WRITE "Guess a Country!"
  65.  
  66. WAIT 1
  67. EFFECT TEXTTYPE 0 2
  68.  
  69. COLOR FOREGROUND 2
  70. GOXY 39 12 WRITE "By"
  71.  
  72. EFFECT TEXTTYPE 3 8
  73.  
  74. COLOR FOREGROUND 10
  75. GOXY 12 13 WRITE "RMP Data!"
  76.  
  77. EFFECT TEXTTYPE 0 1
  78. GOXY 35 25 WRITE "Using DataShow"
  79.  
  80. WAIT 3
  81.  
  82. COLOR FOREGROUND 0
  83. SCREEN WIPE UP
  84. COLOR FOREGROUND 3
  85.  
  86. WAIT 1
  87.  
  88. ;Create control variables
  89. VARIABLE CREATE flagno TYPE NUMBER 1
  90. VARIABLE CREATE okval TYPE NUMBER 0
  91.  
  92. COLOR BACKGROUND 0
  93.  
  94. MARK beginning
  95.  
  96. SHOW SCREEN "FLAG"+flagno+".PCX" PCX
  97.  
  98. EFFECT TEXTTYPE 0 1
  99. GOXY 1 2 WRITE "Guess a Country, By RMP Data, Using DataShow!"
  100.  
  101. ;Give correct answers to variables
  102. IF flagno EQ 1 DO
  103.    VARIABLE VALUE acountry "JAPAN"
  104.    VARIABLE VALUE acapitol "TOKYO"
  105. END
  106. IF flagno EQ 2 DO
  107.    VARIABLE VALUE acountry "USA"
  108.    VARIABLE VALUE acapitol "WASHINGTON"
  109. END
  110. IF flagno EQ 3 DO
  111.    VARIABLE VALUE acountry "FRANCE"
  112.    VARIABLE VALUE acapitol "PARIS"
  113. END
  114. IF flagno EQ 4 DO
  115.    VARIABLE VALUE acountry "DENMARK"
  116.    VARIABLE VALUE acapitol "COPENHAGEN"
  117. END
  118. IF flagno EQ 5 DO
  119.    VARIABLE VALUE acountry "SWEDEN"
  120.    VARIABLE VALUE acapitol "STOCKHOLM"
  121. END
  122. IF flagno EQ 6 DO
  123.    VARIABLE VALUE acountry "FINLAND"
  124.    VARIABLE VALUE acapitol "HELSINKI"
  125. END
  126. ;************************************************************
  127. ;* Here you can add new countries... Just draw the flag and *
  128. ;* remember to set the below flagmax to appropriate value.  *
  129. ;************************************************************
  130. VARIABLE CREATE flagmax TYPE NUMBER 6
  131.  
  132. ;Ask questions to user
  133. GOXY 12 17 WRITE "Which country is this?"
  134. GOXY 12 20 WRITE "What is the name of the capitol?"
  135. ;Read answers from user
  136. GOXY 52 17 READ STRING UPPER fcountry 12
  137. GOXY 52 20 READ STRING UPPER fcapitol 12
  138.  
  139. ;Check for correct answer
  140. VARIABLE VALUE okval 0
  141. CASE STRING fcountry acountry DO MATH okval = okval + 1
  142. CASE STRING fcapitol acapitol DO MATH okval = okval + 1
  143.  
  144. ;Answer was ok
  145. IF okval EQ 2 DO
  146.    GOXY 12 23 WRITE "Congratulation. CORRECT ANSWER!"
  147.    MUSIC PROCESS "HAPPY.SND" SND
  148. END
  149. IF okval EQ 2 DO JUMPMARK nextflag
  150.  
  151. ;If we get to here, answer was not ok
  152. VARIABLE VALUE answer "N"
  153. IF flagno LE 6 DO
  154.    VARIABLE VALUE answer "Y"
  155.    GOXY 12 23 WRITE "Wrong answer, try this flag again (Y/N)?"
  156.    MUSIC SOUND A 2 300
  157.    GOXY 59 22 READ STRING UPPER answer 1
  158. END
  159. CASE STRING answer "Y" DO JUMPMARK beginning
  160.  
  161. GOXY 50 8 WRITE "The right answer was:"
  162. GOXY 52 10 WRITE acountry+", "+acapitol
  163.  
  164. ;Move on to next flag
  165. MARK nextflag
  166.  
  167. MATH flagno = flagno+1
  168.  
  169. VARIABLE VALUE answer "N"
  170. IF flagno LE flagmax DO
  171.    VARIABLE VALUE answer "Y"
  172.    GOXY 12 25 WRITE "Continue with next flag (Y/N):"
  173.    GOXY 47 24 READ STRING UPPER answer 1
  174. END
  175.  
  176. VARIABLE VALUE fcountry ""
  177. VARIABLE VALUE fcapitol ""
  178.  
  179. CASE STRING answer "Y" DO JUMPMARK beginning
  180.  
  181. ;The end
  182. SCREEN WIPE SPLIT
  183. WAIT 1
  184.  
  185. SET GRAPHICS OFF
  186.  
  187. WRITE "That's all folks, Thanks for using SHOWFLAG!"
  188.