home *** CD-ROM | disk | FTP | other *** search
/ Quick & Easy 4-Pack / QNE-PAK.iso / QNE-IEX / RUN / FRONT.QC < prev    next >
Text File  |  1996-09-10  |  8KB  |  207 lines
  1. strip "main" ;
  2. frame "" ;
  3. incl "runtime.qh" ;
  4. caption "Learn Internet Explorer Quick & Easy" ;
  5. if $_skip == 1 ;
  6. jump "main1" ;
  7. endif ;
  8. gcfg "_skip" 1 ;
  9. loadcur "null" $idc_arrow ;
  10. filexis "isit" $_cddir . "\\audio\\intro.wav" ;
  11. if $isit == 0 ;
  12. trect "key1" 170 125 300 130 "You must have the correct Quick & Easy CD properly installed in your CDROM drive before you can run this course. Please do this now./n//n/Click to continue." $_trecttextcolor $_trectlspace $_trectlmargin $_trectrmargin $_trec $ttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor $_trectborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  13. any $mkLeftBtn | $mkAnyKey ;
  14. killk "key1" ;
  15. jump "main1" ;
  16. endif ;
  17. status "" 1 ;
  18. gcfg "_idxfile" "course.ndx" ;
  19. gcfg "_idxlabel" "doindex" ;
  20. gcfg "_goframe" 0 ;
  21. gcfg "_gostrip" "main" ;
  22. sysinfo "colors" 3 ;
  23. if $colors < 256 ;
  24. trect "key1" 132 171 377 138 "The video mode that you are currently running displays less than 256 colors. /n//n/You will enjoy our courses a lot more if you change your video mode so that it supports at least 256 colors!/n//n/Click your mouse to continue..." $_trecttextcolor $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor $_tre $ctborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  25. any 9 ;
  26. endif ;
  27. dnow ;
  28. cfg "_eftrancolor" ( - 1 ) ;
  29. cfg "_efdelay" 0 ;
  30. cfg "_efblocksize" 6 ;
  31. bitmap "k1" 72 139 497 202 "splash.bmp" "SPLASH3" $_bitmapscaling $_bitmapfastdisplay 2 ;
  32. sleep 200 ;
  33. label "main1" ;
  34. bitmap "key12" 0 0 640 480 "mainmenu.bmp" "" $_bitmapscaling $_bitmapfastdisplay $_bitmapeffect ;
  35. mapmouse "key4" 23 97 394 45 $mkLeftBtn "howto" ;
  36. mapcur "key6" 23 97 380 45 "explorer.dll" 310 ;
  37. mapmouse "key7" 12 142 389 46 $mkLeftBtn "lesson1" ;
  38. mapcur "key8" 12 142 394 46 "explorer.dll" 310 ;
  39. mapmouse "key10" 29 194 356 45 $mkLeftBtn "lesson2" ;
  40. mapcur "key8a" 29 194 560 45 "explorer.dll" 310 ;
  41. mapmouse "key11" 37 239 311 36 $mkLeftBtn "lesson3" ;
  42. mapcur "key8b" 37 239 377 36 "explorer.dll" 310 ;
  43. mapmouse "key12" 63 279 369 35 $mkLeftBtn "lesson4" ;
  44. mapcur "key8c" 63 279 379 35 "explorer.dll" 310 ;
  45. index "hello '' there" ;
  46. mapmouse "key13" 76 318 369 35 $mkLeftBtn "lesson5" ;
  47. mapcur "key8d" 76 318 369 35 "explorer.dll" 310 ;
  48. mapmouse "key14" 111 356 56 48 $mkLeftBtn "lesson6" ;
  49. mapcur "key8e" 111 356 56 48 "explorer.dll" 310 ;
  50. mapmouse "key15" 165 353 329 20 $mkLeftBtn "lesson6" ;
  51. mapcur "key8f" 165 353 329 20 "explorer.dll" 310 ;
  52. mapmouse "key16" 141 404 45 37 $mkLeftBtn "lesson7" ;
  53. mapcur "key8g" 141 404 45 37 "explorer.dll" 310 ;
  54. mapmouse "key17" 188 387 346 19 $mkLeftBtn "lesson7" ;
  55. mapcur "key8h" 188 387 346 19 "explorer.dll" 310 ;
  56. mapcur "key8i" 188 416 24 47 "explorer.dll" 310 ;
  57. mapmouse "key18" 188 416 24 47 $mkLeftBtn "lesson8" ;
  58. mapmouse "key19" 216 422 196 22 $mkLeftBtn "lesson8" ;
  59. mapcur "key8j" 216 422 196 22 "explorer.dll" 310 ;
  60. mapmouse "key2" 541 246 92 80 $mkLeftBtn "gohelp" ;
  61. mapcur "key8j" 541 246 92 80 "explorer.dll" 310 ;
  62. mapmouse "key3" 553 332 81 77 $mkLeftBtn "pf_course" ;
  63. mapcur "key8" 553 332 81 77 "explorer.dll" 310 ;
  64. mapcur "key8" 563 414 63 53 "explorer.dll" 310 ;
  65. mapmouse "key4" 563 414 63 53 $mkLeftBtn "goexit" ;
  66. playsnd $_cddir . "\\audio\\intro.wav" $soProceed ;
  67. label "start" ;
  68. frame "" ;
  69. nop ;
  70. frame "" ;
  71. label "howto" ;
  72. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  73. gcfg "_lesson" 0 ;
  74. jump "dolesson" ;
  75. frame "" ;
  76. label "lesson1" ;
  77. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  78. gcfg "_lesson" 1 ;
  79. jump "dolesson" ;
  80. frame "" ;
  81. label "lesson2" ;
  82. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  83. gcfg "_lesson" 2 ;
  84. jump "dolesson" ;
  85. frame "" ;
  86. label "lesson3" ;
  87. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  88. gcfg "_lesson" 3 ;
  89. jump "dolesson" ;
  90. frame "" ;
  91. label "lesson4" ;
  92. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  93. gcfg "_lesson" 4 ;
  94. jump "dolesson" ;
  95. frame "" ;
  96. label "lesson5" ;
  97. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  98. gcfg "_lesson" 5 ;
  99. jump "dolesson" ;
  100. frame "" ;
  101. label "lesson6" ;
  102. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  103. gcfg "_lesson" 6 ;
  104. jump "dolesson" ;
  105. frame "" ;
  106. label "lesson7" ;
  107. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  108. gcfg "_lesson" 7 ;
  109. jump "dolesson" ;
  110. frame "" ;
  111. label "lesson8" ;
  112. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  113. gcfg "_lesson" 8 ;
  114. jump "dolesson" ;
  115. frame "" ;
  116. label "gohelp" ;
  117. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  118. winhelp "quicknea.hlp" $hcContents 0 ;
  119. jump "start" ;
  120. frame "" ;
  121. label "goindex" ;
  122. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  123. clnjump "pf_course" ;
  124. trect "key20" 154 190 257 122 "The Index is not implemented. Press a key to continue" $_trecttextcolor $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_t $rectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor $_trectborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  125. any $mkAnyKey ;
  126. killk "key20" ;
  127. jump "start" ;
  128. frame "" ;
  129. label "goexit" ;
  130. playsnd $_cddir . "\\audio\\intro.wav" $soStop ;
  131. trect "exb1" 204 10 212 91 "Are you sure you want to exit Learn Internet Explorer Quick & Easy?" 0 $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent "MS Sans Serif" 10 400 0 0 0 $_trectcolor $_trectltcolor $_trectdkc $olor 5 $_trectlnthick $_trectcenter $_trectshadow ;
  132. button "ex1" 250 70 50 20 "yes.bmp" "none" "bye" $boJump "" ;
  133. button "ex2" 340 70 50 20 "no.bmp" "none" "exitno" $boJump "" ;
  134. frame "" ;
  135. label "bye" ;
  136. clr ;
  137. killbut "all" ;
  138. dnow ;
  139. clnjump "pf_exit" ;
  140. frame "" ;
  141. label "exitno" ;
  142. killk "exb1" ;
  143. killbut "ex1" ;
  144. killbut "ex2" ;
  145. jump "start" ;
  146. frame "" ;
  147. nop ;
  148. end ;
  149. strip "dolesson" ;
  150. frame "" ;
  151. rmmap "all" ;
  152. rmmapcur "all" ;
  153. clr ;
  154. filexis "exists" "l" . $_lesson . ".lck" ;
  155. if $exists == 1 ;
  156. jump "ready" ;
  157. endif ;
  158. filexis "existsa" "files.lst" ;
  159. if $existsa == 1 ;
  160. filedel "files.lst" $_wrkdir 1 ;
  161. endif ;
  162. filecopy $_cddir . "\\lesson" . $_lesson . "\\files.lst" $_cddir . "\\lesson" . $_lesson $_wrkdir 3 ;
  163. if $_error != 0 ;
  164. gcfg "_cperror" $_error ;
  165. jump "copyerr" ;
  166. endif ;
  167. label "ready" ;
  168. status "" 2 ;
  169. if $_lesson == 0 ;
  170. gcfg "_lessonindextitle" "Howto Lesson - Topics Menu" ;
  171. endif ;
  172. if $_lesson != 0 ;
  173. gcfg "_lessonindextitle" "Lesson " . $_lesson . " - Topics Menu" ;
  174. endif ;
  175. chain "l" . $_lesson . ".qc" $_gostrip $_goframe ;
  176. frame "" ;
  177. nop ;
  178. end ;
  179. strip "progexit" ;
  180. frame "" ;
  181. filedel "files.lst" $_wrkdir 1 ;
  182. filedel "files.lst" $_wrkdir 0 ;
  183. filedel "wintutor.gid" $_wrkdir 0 ;
  184. filedel "wintutor.fts" $_wrkdir 0 ;
  185. end ;
  186. strip "doindex" ;
  187. frame "" ;
  188. gcfg "_lesson" $_idxvarfile ;
  189. gcfg "_gostrip" $_idxvarstrip ;
  190. gcfg "_goframe" $_idxvarframe ;
  191. jump "dolesson" ;
  192. end ;
  193. strip "copyerr" ;
  194. frame "" ;
  195. if $_cperror == 2 ;
  196. trect "m1" 170 140 300 200 "You do not have enough disk space to run this lesson. /n//n/12MB of free disk space may be required to run this lesson. /n//n/Your should exit Quick & Easy, free up some disk space, then re-execute Quick & Easy. /n//n/Click your mouse to continue..." $_trecttextcolor $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $ $_trectdkcolor $_trectborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  197. endif ;
  198. if $_cperror == 1 ;
  199. trect "m2" 170 140 300 200 "Unknown disk error occured when we tried to copy files off our CD. Verify that our CD is installed properly in your CDROM drive, and choose a lesson again. /n//n/Click your mouse to continue..." $_trecttextcolor $_trectlspace $ $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor $_trectborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  200. endif ;
  201. loadcur "null" $idc_arrow ;
  202. any 9 ;
  203. clr ;
  204. loadcur "null" $idc_wait ;
  205. jump "main1" ;
  206. end ;
  207.