home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / GAME.SMM < prev    next >
INI File  |  1992-06-12  |  22KB  |  1,173 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PCL / HP LaserJet
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     MacroMindBlaster game
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     CallBacks, GlobalVars
  22.     noautorun
  23.     708376735
  24.     25
  25.     679909151
  26.     514
  27.     5
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [lay]
  56.     Standard
  57.     513
  58.     [rght]
  59.         15840
  60.         12240
  61.         1
  62.         1080
  63.         1080
  64.         1
  65.         1080
  66.         1080
  67.         0
  68.         1
  69.         0
  70.         1
  71.         0
  72.         2
  73.         1
  74.         1080
  75.         11160
  76.         7
  77.         1
  78.         720
  79.         1
  80.         1440
  81.         1
  82.         2160
  83.         1
  84.         2880
  85.         1
  86.         3600
  87.         1
  88.         4305
  89.         3
  90.         10080
  91.     [hrght]
  92.     [lyfrm]
  93.         1
  94.         11200
  95.         0
  96.         0
  97.         12240
  98.         1080
  99.         0
  100.         1
  101.         3
  102.         1 0 0 0 0 0 0
  103.         0
  104.         0
  105.         1
  106.     [frmlay]
  107.         1080
  108.         12240
  109.         1
  110.         1080
  111.         144
  112.         1
  113.         720
  114.         1080
  115.         0
  116.         1
  117.         0
  118.         1
  119.         1
  120.         0
  121.         1
  122.         1080
  123.         11160
  124.         0
  125.     [txt]
  126. @Header@
  127. >
  128.     [frght]
  129.     [lyfrm]
  130.         1
  131.         13248
  132.         0
  133.         14760
  134.         12240
  135.         15840
  136.         0
  137.         1
  138.         3
  139.         1 0 0 0 0 0 0
  140.         0
  141.         0
  142.         2
  143.     [frmlay]
  144.         15840
  145.         12240
  146.         1
  147.         1440
  148.         792
  149.         1
  150.         14832
  151.         1440
  152.         0
  153.         1
  154.         0
  155.         1
  156.         1
  157.         0
  158.         1
  159.         1440
  160.         10800
  161.         0
  162.     [txt]
  163. >
  164. [elay]
  165. [l1]
  166.     0
  167. [pg]
  168.     5
  169.     45 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  170.     91 0 19 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  171.     139 0 14 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  172.     192 0 38 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  173.     241 0 10 1025 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  174. [edoc]
  175. @Function@<:#293,10080>
  176.  
  177. @Function@<:#293,10080>
  178.  
  179. @Function@<:#586,10080>FUNCTION mindblaster() '                Initial function to setup and start game
  180.  
  181. @Body Single@<:#284,10080>CALL blasterstart()
  182.  
  183. @Body Single@<:#284,10080>CALL playblaster()
  184.  
  185. @Function@<:#293,10080>END FUNCTION
  186.  
  187. @Body Single@<:#284,10080>
  188.  
  189. @Function@<:#586,10080>FUNCTION blasterstart() '                Resets variables and generates a new answer
  190.  
  191. @Body Single@<:#284,10080>rnd=0
  192.  
  193. @Body Single@<:#284,10080>FreeGlobalVar("BN")
  194.  
  195. @Body Single@<:#284,10080>FreeGlobalVar("MK")
  196.  
  197. @Body Single@<:#284,10080>AllocGlobalVar("PG",6)
  198.  
  199. @Body Single@<:#284,10080>AllocGlobalVar("MK",136)
  200.  
  201. @Body Single@<:#284,10080>tim=Now()
  202.  
  203. @Body Single@<:#284,10080>ran=strcat$("a",tim)
  204.  
  205. @Body Single@<:#284,10080>rnd=Right$(ran,2) '                Use current time value to generate random answer
  206.  
  207. @Body Single@<:#284,10080>IF rnd <;> 63 THEN
  208.  
  209. @Body Single@<:#284,10080>    rnd = rnd - 36
  210.  
  211. @Body Single@<:#284,10080>ENDIF
  212.  
  213. @Body Single@<:#284,10080>x=32
  214.  
  215. @Body Single@<:#284,10080>FOR pos=1 TO 6 '                    Load answer into an array
  216.  
  217. @Body Single@<:#284,10080>    IF rnd <;>= x THEN
  218.  
  219. @Body Single@<:#284,10080>        SetglobalArray("PG",pos,1)
  220.  
  221. @Body Single@<:#284,10080>        rnd=rnd-x
  222.  
  223. @Body Single@<:#284,10080>    ELSE
  224.  
  225. @Body Single@<:#284,10080>        SetglobalArray("PG",pos,0)
  226.  
  227. @Body Single@<:#284,10080>    ENDIF
  228.  
  229. @Body Single@<:#284,10080>    x=x/2
  230.  
  231. @Body Single@<:#284,10080>NEXT
  232.  
  233. @Body Single@<:#284,10080>AllocGlobalVar("BN",1) '                Reset guess level
  234.  
  235. @Body Single@<:#284,10080>SetGlobalVar("BN",41)
  236.  
  237. @Function@<:#293,10080>END FUNCTION
  238.  
  239. @Function@<:#293,10080>
  240.  
  241. @Function@<:#293,10080>FUNCTION playblaster() '                Calls the box to play the game
  242.  
  243. @Body Single@<:#284,10080>thisfile=GetRunningMacroFile$()
  244.  
  245. @Body Single@<:#284,10080>FOR btn=51 TO 136
  246.  
  247. @Body Single@<:#284,10080>    SetGlobalArray("MK",btn,0)
  248.  
  249. @Body Single@<:#284,10080>    SetDlgCallBack(btn,"{thisfile}!calbk")
  250.  
  251. @Body Single@<:#284,10080>NEXT
  252.  
  253. @Body Single@<:#284,10080>SetDlgCallBack(25,"{thisfile}!helpme")
  254.  
  255. @Body Single@<:#284,10080>FillEdit(8057,"<<--GUESS")
  256.  
  257. @Body Single@<:#284,10080>box=DialogBox(".","MSTRMIND")
  258.  
  259. @Body Single@<:#284,10080>IF box=2 THEN
  260.  
  261. @Function@<:#293,10080>    EXIT FUNCTION
  262.  
  263. @Body Single@<:#284,10080>ENDIF
  264.  
  265. @Function@<:#293,10080>END FUNCTION
  266.  
  267. @Body Single@<:#284,10080>
  268.  
  269. @Function@<:#586,10080>FUNCTION calbk(hDlg,id,value) '            The callback function starts here
  270.  
  271. @Body Single@<:#284,10080>ch= 0 - 1
  272.  
  273. @Body Single@<:#284,10080>level=GetGlobalVar$("BN")
  274.  
  275. @Body Single@<:#284,10080>IF id=70 THEN '                    Clear board and restart if NEW button is pressed
  276.  
  277. @Body Single@<:#284,10080>    FOR btn=51 TO 131 STEP 10
  278.  
  279. @Body Single@<:#284,10080>        SetDlgItemText(hDlg,(btn+8006),"")
  280.  
  281. @Body Single@<:#284,10080>        FOR butchg=btn TO (btn+5)
  282.  
  283. @Body Single@<:#284,10080>            SetGlobalArray("MK",butchg,0)
  284.  
  285. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,butchg,0)
  286.  
  287. @Body Single@<:#284,10080>        NEXT
  288.  
  289. @Body Single@<:#284,10080>    NEXT
  290.  
  291. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,8057,"<<--GUESS")
  292.  
  293. @Body Single@<:#284,10080>    CALL blasterstart()
  294.  
  295. @Function@    EXIT FUNCTION
  296.  
  297. @Body Single@ENDIF
  298.  
  299. @Body Single@IF id<;>130 AND id<<137 THEN '            Keep ANSWER buttons turned off
  300.  
  301. @Body Single@    SetDlgItemText(hDlg,id,0)
  302.  
  303. @Function@    EXIT FUNCTION
  304.  
  305. @Body Single@ENDIF
  306.  
  307. @Body Single@IF id<<<;>60 THEN '                    Check guess buttons
  308.  
  309. @Body Single@    curset=GetGlobalArray$("MK",id)
  310.  
  311. @Body Single@    IF id<<(level+10) OR id<;>(level+15) THEN '    Allow toggle if button is in
  312.  
  313. @Body Single@        curset=curset '            the current guessing row
  314.  
  315. @Body Single@    ELSE
  316.  
  317. @Body Single@        curset=(curset*ch) + 1
  318.  
  319. @Body Single@    ENDIF
  320.  
  321. @Body Single@    SetDlgItemText(hDlg,id,curset)
  322.  
  323. @Body Single@    SetGlobalArray("MK",id,curset)
  324.  
  325. @Function@    EXIT FUNCTION
  326.  
  327. @Body Single@ENDIF
  328.  
  329. @Body Single@place=0 '                        Evaluate guess here
  330.  
  331. @Body Single@curans=0
  332.  
  333. @Body Single@level=level+10
  334.  
  335. @Body Single@FOR x=level TO level+5
  336.  
  337. @Body Single@place=place+1
  338.  
  339. @Body Single@curpeg=GetGlobalArray$("PG",place)
  340.  
  341. @Body Single@curguess=GetDlgItemText(hDlg,x)
  342.  
  343. @Body Single@IF curpeg=curguess THEN
  344.  
  345. @Body Single@    curans=curans+1
  346.  
  347. @Body Single@ENDIF
  348.  
  349. @Body Single@NEXT
  350.  
  351. @Body Single@ret="{curans} right"
  352.  
  353. @Body Single@IF curans=6 THEN '                Check to see if guess is correct
  354.  
  355. @Body Single@    FOR ans=131 TO 136
  356.  
  357. @Body Single@<:#284,10080>        SetDlgItemText(hDlg,ans,(GetGlobalArray$("PG",(ans - 130))))
  358.  
  359. @Body Single@<:#284,10080>    NEXT
  360.  
  361. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,(level+8006),"YOU WIN!")
  362.  
  363. @Body Single@<:#284,10080>    SWITCH level
  364.  
  365. @Body Single@<:#284,10080>        CASE 51
  366.  
  367. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"1 guess - You must be Einstein!")
  368.  
  369. @Body Single@<:#284,10080>        CASE 61
  370.  
  371. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"2 guesses - That's incredible!")
  372.  
  373. @Body Single@<:#284,10080>        CASE 71
  374.  
  375. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"3 guesses - You're an expert!")
  376.  
  377. @Body Single@<:#284,10080>        CASE 81
  378.  
  379. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"4 guesses - Great game!")
  380.  
  381. @Body Single@<:#284,10080>        CASE 91
  382.  
  383. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"5 guesses - Good game!")
  384.  
  385. @Body Single@<:#284,10080>        CASE 101
  386.  
  387. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"6 guesses - Average player")
  388.  
  389. @Body Single@<:#284,10080>        CASE 111
  390.  
  391. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"7 guesses - Keep practicing!")
  392.  
  393. @Body Single@<:#284,10080>        CASE 121
  394.  
  395. @Body Single@<:#284,10080>            SetDlgItemText(hDlg,8137,"8 guesses - You can do better!")
  396.  
  397. @Body Single@<:#284,10080>    ENDSWITCH
  398.  
  399. @Function@    EXIT FUNCTION
  400.  
  401. @Body Single@ELSEIF GetDlgItemText(hDlg,8127)<<<;>"" THEN '    Check to see if out of guesses
  402.  
  403. @Body Single@    SetDlgItemText(hDlg,8127,"YOU LOST")
  404.  
  405. @Body Single@    SetDlgItemText(hDlg,8137,"Better luck next time!")
  406.  
  407. @Body Single@    FOR ans=131 TO 136
  408.  
  409. @Body Single@        SetDlgItemText(hDlg,ans,(GetGlobalArray$("PG",(ans - 130))))
  410.  
  411. @Body Single@    NEXT
  412.  
  413. @Body Single@    loop2:
  414.  
  415. @Function@    EXIT FUNCTION
  416.  
  417. @Body Single@ENDIF
  418.  
  419. @Body Single@SetDlgItemText(hDlg,(level+8006),ret)
  420.  
  421. @Body Single@SetDlgItemText(hDlg,(level+8016),"<<--GUESS")
  422.  
  423. @Body Single@SetGlobalVar("BN",level)
  424.  
  425. @Function@END FUNCTION
  426.  
  427. @Body Single@
  428. @Function@FUNCTION helpme(hDlg,id,value) '        Display help box here
  429.  
  430. <:R1,11,1,720,1,3420,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DEFINE GetWindowSize()    DllCall("user,GetWindowRect,HHN",%1,%2)
  431.  
  432. <:R>DIM rect(4)
  433.  
  434. GetWindowSize(hDlg,&rect)
  435.  
  436. @Body Single@AllocGlobalVar("MV",4)
  437.  
  438. @Body Single@For x=1 TO 4
  439.  
  440. @Body Single@    SetGlobalArray("MV",x,rect(x))
  441.  
  442. @Body Single@NEXT
  443.  
  444. @Body Single@SetDlgCallBack(0,"MOVEIT")
  445.  
  446. @Body Single@FillEdit(31,1)
  447.  
  448. @Body Single@box2=DialogBox(".","MMINSTR")
  449.  
  450. @Body Single@<:#284,10080>IF box2=5 THEN
  451.  
  452. @Function@<:#293,10080>    EXIT FUNCTION
  453.  
  454. @Body Single@<:#284,10080>ENDIF
  455.  
  456. @Function@<:#240,10080>END FUNCTION
  457.  
  458. <:#284,10080>
  459.  
  460. @Function@<:#293,10080>FUNCTION moveit(hDlg,id,value)
  461.  
  462. <:R1,11,1,720,1,3420,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,10080>DEFINE MoveWindow()    DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)
  463.  
  464. <:R><:#284,10080>DIM rect(4)
  465.  
  466. <:#284,10080>x=GetGlobalArray$("MV",1)
  467.  
  468. <:#284,10080>y=GetGlobalArray$("MV",2)
  469.  
  470. <:#284,10080>xl=GetGlobalArray$("MV",3)
  471.  
  472. <:#284,10080>yl=GetGlobalArray$("MV",4)
  473.  
  474. <:#284,10080>MoveWindow(hDlg,x,y,xl-x,yl-y)
  475.  
  476. @Function@<:#293,10080>END FUNCTION
  477.  
  478. @Body Single@<:#284,10080>___________________________________________________________________________________
  479.  
  480. @Body Single@<:#284,10080>
  481.  
  482. <:#240,10080>DIALOG MSTRMIND
  483.  
  484. <:#240,10080>-2134376448 68 130 88 160 108 "" "" "Mind Blaster"
  485.  
  486. <:#240,10080>FONT 6 "Helv"
  487.  
  488. <:#240,10080>115 4 40 14 60 1342242817 "button" "&Guess ?" 0 
  489.  
  490. <:#240,10080>115 52 40 14 2 1342242816 "button" "&Quit" 0 
  491.  
  492. <:#240,10080>115 20 40 14 70 1342242816 "button" "&New" 0 
  493.  
  494. <:#284,10080>115 36 40 14 25 1342242816 "button" "&Help" 0 
  495.  
  496. <:#240,10080>5 95 8 9 51 1342308361 "button" "" 0 
  497.  
  498. <:#240,10080>15 95 8 9 52 1342308361 "button" "" 0 
  499.  
  500. <:#240,10080>25 95 8 9 53 1342308361 "button" "" 0 
  501.  
  502. <:#240,10080>35 95 8 9 54 1342308361 "button" "" 0 
  503.  
  504. <:#240,10080>45 95 8 9 55 1342308361 "button" "" 0 
  505.  
  506. <:#240,10080>55 95 8 9 56 1342308361 "button" "" 0 
  507.  
  508. <:#240,10080>5 85 8 9 61 1342308361 "button" "" 0 
  509.  
  510. <:#240,10080>15 85 8 9 62 1342308361 "button" "" 0 
  511.  
  512. <:#240,10080>25 85 8 9 63 1342308361 "button" "" 0 
  513.  
  514. <:#240,10080>35 85 8 9 64 1342308361 "button" "" 0 
  515.  
  516. <:#240,10080>45 85 8 9 65 1342308361 "button" "" 0 
  517.  
  518. <:#240,10080>55 85 8 9 66 1342308361 "button" "" 0 
  519.  
  520. <:#240,10080>5 75 8 9 71 1342308361 "button" "" 0 
  521.  
  522. <:#240,10080>15 75 8 9 72 1342308361 "button" "" 0 
  523.  
  524. <:#240,10080>25 75 8 9 73 1342308361 "button" "" 0 
  525.  
  526. <:#240,10080>35 75 8 9 74 1342308361 "button" "" 0 
  527.  
  528. <:#240,10080>45 75 8 9 75 1342308361 "button" "" 0 
  529.  
  530. <:#240,10080>55 75 8 9 76 1342308361 "button" "" 0 
  531.  
  532. <:#240,10080>5 65 8 9 81 1342308361 "button" "" 0 
  533.  
  534. <:#240,10080>15 65 8 9 82 1342308361 "button" "" 0 
  535.  
  536. <:#240,10080>25 65 8 9 83 1342308361 "button" "" 0 
  537.  
  538. <:#240,10080>35 65 8 9 84 1342308361 "button" "" 0 
  539.  
  540. <:#240,10080>45 65 8 9 85 1342308361 "button" "" 0 
  541.  
  542. <:#240,10080>55 65 8 9 86 1342308361 "button" "" 0 
  543.  
  544. <:#240,10080>5 55 8 9 91 1342308361 "button" "" 0 
  545.  
  546. <:#240,10080>15 55 8 9 92 1342308361 "button" "" 0 
  547.  
  548. <:#240,10080>25 55 8 9 93 1342308361 "button" "" 0 
  549.  
  550. <:#240,10080>35 55 8 9 94 1342308361 "button" "" 0 
  551.  
  552. <:#240,10080>45 55 8 9 95 1342308361 "button" "" 0 
  553.  
  554. <:#284,10080>55 55 8 9 96 1342308361 "button" "" 0 
  555.  
  556. <:#284,10080>5 45 8 9 101 1342308361 "button" "" 0 
  557.  
  558. <:#284,10080>15 45 8 9 102 1342308361 "button" "" 0 
  559.  
  560. <:#240,10080>25 45 8 9 103 1342308361 "button" "" 0 
  561.  
  562. <:#240,10080>35 45 8 9 104 1342308361 "button" "" 0 
  563.  
  564. <:#240,10080>45 45 8 9 105 1342308361 "button" "" 0 
  565.  
  566. <:#240,10080>55 45 8 9 106 1342308361 "button" "" 0 
  567.  
  568. <:#240,10080>5 35 8 9 111 1342308361 "button" "" 0 
  569.  
  570. <:#240,10080>15 35 8 9 112 1342308361 "button" "" 0 
  571.  
  572. <:#240,10080>25 35 8 9 113 1342308361 "button" "" 0 
  573.  
  574. <:#240,10080>35 35 8 9 114 1342308361 "button" "" 0 
  575.  
  576. <:#240,10080>45 35 8 9 115 1342308361 "button" "" 0 
  577.  
  578. <:#240,10080>55 35 8 9 116 1342308361 "button" "" 0 
  579.  
  580. <:#240,10080>5 25 8 9 121 1342308361 "button" "" 0 
  581.  
  582. <:#240,10080>15 25 8 9 122 1342308361 "button" "" 0 
  583.  
  584. <:#240,10080>25 25 8 9 123 1342308361 "button" "" 0 
  585.  
  586. <:#240,10080>35 25 8 9 124 1342308361 "button" "" 0 
  587.  
  588. <:#240,10080>45 25 8 9 125 1342308361 "button" "" 0 
  589.  
  590. <:#240,10080>55 25 8 9 126 1342308361 "button" "" 0 
  591.  
  592. <:#240,10080>5 5 8 9 131 1342308361 "button" "" 0 
  593.  
  594. <:#240,10080>15 5 8 9 132 1342308361 "button" "" 0 
  595.  
  596. <:#240,10080>25 5 8 9 133 1342308361 "button" "" 0 
  597.  
  598. <:#240,10080>35 5 8 9 134 1342308361 "button" "" 0 
  599.  
  600. <:#240,10080>45 5 8 9 135 1342308361 "button" "" 0 
  601.  
  602. <:#240,10080>55 5 8 9 136 1342308361 "button" "" 0 
  603.  
  604. <:#240,10080>66 95 45 10 8057 1342177280 "static" "" 0 
  605.  
  606. <:#284,10080>66 85 45 10 8067 1342177280 "static" "" 0 
  607.  
  608. <:#284,10080>66 75 45 10 8077 1342177280 "static" "" 0 
  609.  
  610. <:#240,10080>66 65 45 10 8087 1342177280 "static" "" 0 
  611.  
  612. <:#240,10080>66 55 45 10 8097 1342177280 "static" "" 0 
  613.  
  614. <:#240,10080>66 45 45 10 8107 1342177280 "static" "" 0 
  615.  
  616. <:#240,10080>66 35 45 10 8117 1342177280 "static" "" 0 
  617.  
  618. <:#240,10080>66 25 45 10 8127 1342177280 "static" "" 0 
  619.  
  620. <:#240,10080>66 5 35 10 1008 1342177280 "static" "ANSWER" 0 
  621.  
  622. <:#240,10080>2 15 110 9 8137 1342177281 "static" "" 0 
  623.  
  624. <:#240,10080>END DIALOG
  625.  
  626. @Body Single@<:#284,10080>___________________________________________________________________________________
  627.  
  628. @Body Single@<:#284,10080>
  629.  
  630. @Function@<:#240,10080>DIALOG MMINSTR
  631.  
  632. @Body Single@<:#284,10080>-2134376448 9 126 88 160 108 "" "" "Mind Blaster Help"
  633.  
  634. @Body Single@<:#284,10080>FONT 6 "Helv"
  635.  
  636. @Body Single@<:#284,10080>115 4 40 14 5 1342242817 "button" "Return" 0 
  637.  
  638. @Body Single@<:#284,10080>5 3 105 101 10 1342242823 "button" "INSTRUCTIONS" 0 
  639.  
  640. @Body Single@<:#284,10080>9 14 100 17 1001 1342177280 "static" "The object of Mind Blaster is to determine the pattern of" 0 
  641.  
  642. @Body Single@<:#284,10080>9 30 95 17 1000 1342177280 "static" "pegs that the computer has generated.  Each time you" 0 
  643.  
  644. @Body Single@<:#568,10080>9 46 93 25 1002 1342177280 "static" "guess, the computer lets you know how many pegs are in the correct position." 0 
  645.  
  646. @Body Single@<:#284,10080>9 70 98 9 1004 1342177280 "static" "You only have 8 guesses." 0 
  647.  
  648. @Body Single@<:#284,10080>9 78 24 9 1003 1342177280 "static" "Enjoy!" 0 
  649.  
  650. @Body Single@<:#284,10080>9 90 47 9 32 1342177289 "button" "White peg." 0 
  651.  
  652. @Body Single@<:#284,10080>60 90 45 9 31 1342177289 "button" "Black peg." 0 
  653.  
  654. @Function@<:#293,10080>END DIALOG
  655.  
  656. >
  657.  
  658. [Embedded]
  659. 00014595
  660. >
  661. [macsum] 8
  662. mindblaster 0 0 1 2
  663. blasterstart 61 0 6 7
  664. playblaster 530 0 4 33
  665. calbk 835 3 13 47
  666. helpme 3287 3 4 127
  667. moveit 3609 3 6 143
  668. MSTRMIND 3830 0 -1 154
  669. MMINSTR 6721 0 -1 228
  670. [macse]
  671. 14 mindblaster
  672. 16 blasterstart
  673. 16 playblaster
  674. 6 0
  675. 15
  676. 9
  677. 14 blasterstart
  678. 5 0
  679. 8 1
  680. 0 266 "BN"
  681. 0 266 "MK"
  682. 0 271 "PG" 6
  683. 0 271 "MK" 136
  684. 0 772
  685. 13
  686. 8 2
  687. 0 16 "a" "{2}"
  688. 13
  689. 8 3
  690. 0 807 "{3}" 2
  691. 13
  692. 8 1
  693. 6 1
  694. 5 63
  695. 18 3
  696. 11 00000197
  697. 6 1
  698. 5 36
  699. 3 1
  700. 8 1
  701. 5 32
  702. 8 4
  703. 5 1
  704. 8 5
  705. 5 6
  706. 6 5
  707. 18 2
  708. 12 00000293
  709. 10 00000428
  710. 5 1
  711. 6 5
  712. 3 0
  713. 8 5
  714. 10 00000218
  715. 6 1
  716. 6 4
  717. 18 2
  718. 11 00000375
  719. 0 272 "PG" "{5}" 1
  720. 6 1
  721. 6 4
  722. 3 1
  723. 8 1
  724. 10 00000395
  725. 0 272 "PG" "{5}" 0
  726. 6 4
  727. 5 2
  728. 4 1
  729. 8 4
  730. 10 00000260
  731. 0 271 "BN" 1
  732. 0 264 "BN" 41
  733. 6 0
  734. 15
  735. 9
  736. 14 playblaster
  737. 0 802
  738. 13
  739. 8 1
  740. 5 51
  741. 8 2
  742. 5 136
  743. 6 2
  744. 18 2
  745. 12 00000120
  746. 10 00000177
  747. 5 1
  748. 6 2
  749. 3 0
  750. 8 2
  751. 10 00000043
  752. 0 272 "MK" "{2}" 0
  753. 0 41 "{2}" "{1}!calbk"
  754. 10 00000087
  755. 0 41 25 "{1}!helpme"
  756. 0 31 8057 "<<--GUESS"
  757. 0 26 "." "MSTRMIND"
  758. 13
  759. 8 3
  760. 6 3
  761. 5 2
  762. 18 0
  763. 11 00000293
  764. 6 0
  765. 15
  766. 9
  767. 6 0
  768. 15
  769. 9
  770. 14 calbk
  771. 5 0
  772. 5 1
  773. 3 1
  774. 8 4
  775. 0 265 "BN"
  776. 13
  777. 8 5
  778. 6 1
  779. 5 70
  780. 18 0
  781. 11 00000426
  782. 5 51
  783. 8 6
  784. 5 131
  785. 6 6
  786. 18 2
  787. 12 00000170
  788. 10 00000368
  789. 5 10
  790. 6 6
  791. 3 0
  792. 8 6
  793. 10 00000092
  794. 6 6
  795. 5 8006
  796. 3 0
  797. 0 43 "{0}" [X] ""
  798. 6 6
  799. 8 7
  800. 6 6
  801. 5 5
  802. 3 0
  803. 6 7
  804. 18 2
  805. 12 00000302
  806. 10 00000355
  807. 5 1
  808. 6 7
  809. 3 0
  810. 8 7
  811. 10 00000217
  812. 0 272 "MK" "{7}" 0
  813. 0 43 "{0}" "{7}" 0
  814. 10 00000269
  815. 10 00000136
  816. 0 43 "{0}" 8057 "<<--GUESS"
  817. 16 blasterstart
  818. 6 3
  819. 15
  820. 9
  821. 6 1
  822. 5 130
  823. 18 3
  824. 6 1
  825. 5 137
  826. 18 5
  827. 1 1
  828. 11 00000512
  829. 0 43 "{0}" "{1}" 0
  830. 6 3
  831. 15
  832. 9
  833. 6 1
  834. 5 60
  835. 18 1
  836. 11 00000754
  837. 0 273 "MK" "{1}"
  838. 13
  839. 8 8
  840. 6 1
  841. 6 5
  842. 5 10
  843. 3 0
  844. 18 5
  845. 6 1
  846. 6 5
  847. 5 15
  848. 3 0
  849. 18 3
  850. 1 2
  851. 11 00000664
  852. 6 8
  853. 8 8
  854. 10 00000694
  855. 6 8
  856. 6 4
  857. 4 0
  858. 5 1
  859. 3 0
  860. 8 8
  861. 0 43 "{0}" "{1}" "{8}"
  862. 0 272 "MK" "{1}" "{8}"
  863. 6 3
  864. 15
  865. 9
  866. 5 0
  867. 8 9
  868. 5 0
  869. 8 10
  870. 6 5
  871. 5 10
  872. 3 0
  873. 8 5
  874. 6 5
  875. 8 11
  876. 6 5
  877. 5 5
  878. 3 0
  879. 6 11
  880. 18 2
  881. 12 00000895
  882. 10 00001038
  883. 5 1
  884. 6 11
  885. 3 0
  886. 8 11
  887. 10 00000807
  888. 6 9
  889. 5 1
  890. 3 0
  891. 8 9
  892. 0 273 "PG" "{9}"
  893. 13
  894. 8 12
  895. 0 42 "{0}" "{11}"
  896. 13
  897. 8 13
  898. 6 12
  899. 6 13
  900. 18 0
  901. 11 00001025
  902. 6 10
  903. 5 1
  904. 3 0
  905. 8 10
  906. 10 00000860
  907. 7 "{10} right"
  908. 8 14
  909. 6 10
  910. 5 6
  911. 18 0
  912. 11 00002040
  913. 5 131
  914. 8 15
  915. 5 136
  916. 6 15
  917. 18 2
  918. 12 00001183
  919. 10 00001257
  920. 5 1
  921. 6 15
  922. 3 0
  923. 8 15
  924. 10 00001103
  925. 6 15
  926. 5 130
  927. 3 1
  928. 0 273 "PG" [X]
  929. 13
  930. 0 43 "{0}" "{15}" [X]
  931. 10 00001148
  932. 6 5
  933. 5 8006
  934. 3 0
  935. 0 43 "{0}" [X] "YOU WIN!"
  936. 5 51
  937. 6 5
  938. 18 0
  939. 11 00001396
  940. 0 43 "{0}" 8137 "1 guess - You must be Einstein!"
  941. 10 00002015
  942. 5 61
  943. 6 5
  944. 18 0
  945. 11 00001489
  946. 0 43 "{0}" 8137 "2 guesses - That's incredible!"
  947. 10 00002015
  948. 5 71
  949. 6 5
  950. 18 0
  951. 11 00001581
  952. 0 43 "{0}" 8137 "3 guesses - You're an expert!"
  953. 10 00002015
  954. 5 81
  955. 6 5
  956. 18 0
  957. 11 00001667
  958. 0 43 "{0}" 8137 "4 guesses - Great game!"
  959. 10 00002015
  960. 5 91
  961. 6 5
  962. 18 0
  963. 11 00001752
  964. 0 43 "{0}" 8137 "5 guesses - Good game!"
  965. 10 00002015
  966. 5 101
  967. 6 5
  968. 18 0
  969. 11 00001842
  970. 0 43 "{0}" 8137 "6 guesses - Average player"
  971. 10 00002015
  972. 5 111
  973. 6 5
  974. 18 0
  975. 11 00001934
  976. 0 43 "{0}" 8137 "7 guesses - Keep practicing!"
  977. 10 00002015
  978. 5 121
  979. 6 5
  980. 18 0
  981. 11 00002015
  982. 0 43 "{0}" 8137 "8 guesses - You can do better!"
  983. 6 3
  984. 15
  985. 9
  986. 10 00002335
  987. 0 42 "{0}" 8127
  988. 13
  989. 7 ""
  990. 18 1
  991. 11 00002335
  992. 0 43 "{0}" 8127 "YOU LOST"
  993. 0 43 "{0}" 8137 "Better luck next time!"
  994. 5 131
  995. 8 15
  996. 5 136
  997. 6 15
  998. 18 2
  999. 12 00002249
  1000. 10 00002323
  1001. 5 1
  1002. 6 15
  1003. 3 0
  1004. 8 15
  1005. 10 00002169
  1006. 6 15
  1007. 5 130
  1008. 3 1
  1009. 0 273 "PG" [X]
  1010. 13
  1011. 0 43 "{0}" "{15}" [X]
  1012. 10 00002214
  1013. 6 3
  1014. 15
  1015. 9
  1016. 6 5
  1017. 5 8006
  1018. 3 0
  1019. 0 43 "{0}" [X] "{14}"
  1020. 6 5
  1021. 5 8016
  1022. 3 0
  1023. 0 43 "{0}" [X] "<<--GUESS"
  1024. 0 264 "BN" "{5}"
  1025. 6 3
  1026. 15
  1027. 9
  1028. 14 helpme
  1029. 5 4
  1030. 21 4 [X]
  1031. 0 284 "user,GetWindowRect,HHN" "{0}" &4
  1032. 0 271 "MV" 4
  1033. 5 1
  1034. 8 5
  1035. 5 4
  1036. 6 5
  1037. 18 2
  1038. 12 00000166
  1039. 10 00000212
  1040. 5 1
  1041. 6 5
  1042. 3 0
  1043. 8 5
  1044. 10 00000091
  1045. 6 5
  1046. 22 4
  1047. 0 272 "MV" "{5}" [X]
  1048. 10 00000133
  1049. 0 41 0 "MOVEIT"
  1050. 0 31 31 1
  1051. 0 26 "." "MMINSTR"
  1052. 13
  1053. 8 6
  1054. 6 6
  1055. 5 5
  1056. 18 0
  1057. 11 00000310
  1058. 6 3
  1059. 15
  1060. 9
  1061. 6 3
  1062. 15
  1063. 9
  1064. 14 moveit
  1065. 5 4
  1066. 21 4 [X]
  1067. 0 273 "MV" 1
  1068. 13
  1069. 8 5
  1070. 0 273 "MV" 2
  1071. 13
  1072. 8 6
  1073. 0 273 "MV" 3
  1074. 13
  1075. 8 7
  1076. 0 273 "MV" 4
  1077. 13
  1078. 8 8
  1079. 6 7
  1080. 6 5
  1081. 3 1
  1082. 6 8
  1083. 6 6
  1084. 3 1
  1085. 0 284 "user,MoveWindow,HHHHHHH" "{0}" "{5}" "{6}" [X] [X] 1
  1086. 6 3
  1087. 15
  1088. 9
  1089. DIALOG MSTRMIND
  1090. -2134376448 68 130 88 160 108 "" "" "Mind Blaster" 
  1091. FONT 6 "Helv" 
  1092. 115 4 40 14 60 1342242817 "button" "&Guess ?" 0 
  1093. 115 52 40 14 2 1342242816 "button" "&Quit" 0 
  1094. 115 20 40 14 70 1342242816 "button" "&New" 0 
  1095. 115 36 40 14 25 1342242816 "button" "&Help" 0 
  1096. 5 95 8 9 51 1342308361 "button" "" 0 
  1097. 15 95 8 9 52 1342308361 "button" "" 0 
  1098. 25 95 8 9 53 1342308361 "button" "" 0 
  1099. 35 95 8 9 54 1342308361 "button" "" 0 
  1100. 45 95 8 9 55 1342308361 "button" "" 0 
  1101. 55 95 8 9 56 1342308361 "button" "" 0 
  1102. 5 85 8 9 61 1342308361 "button" "" 0 
  1103. 15 85 8 9 62 1342308361 "button" "" 0 
  1104. 25 85 8 9 63 1342308361 "button" "" 0 
  1105. 35 85 8 9 64 1342308361 "button" "" 0 
  1106. 45 85 8 9 65 1342308361 "button" "" 0 
  1107. 55 85 8 9 66 1342308361 "button" "" 0 
  1108. 5 75 8 9 71 1342308361 "button" "" 0 
  1109. 15 75 8 9 72 1342308361 "button" "" 0 
  1110. 25 75 8 9 73 1342308361 "button" "" 0 
  1111. 35 75 8 9 74 1342308361 "button" "" 0 
  1112. 45 75 8 9 75 1342308361 "button" "" 0 
  1113. 55 75 8 9 76 1342308361 "button" "" 0 
  1114. 5 65 8 9 81 1342308361 "button" "" 0 
  1115. 15 65 8 9 82 1342308361 "button" "" 0 
  1116. 25 65 8 9 83 1342308361 "button" "" 0 
  1117. 35 65 8 9 84 1342308361 "button" "" 0 
  1118. 45 65 8 9 85 1342308361 "button" "" 0 
  1119. 55 65 8 9 86 1342308361 "button" "" 0 
  1120. 5 55 8 9 91 1342308361 "button" "" 0 
  1121. 15 55 8 9 92 1342308361 "button" "" 0 
  1122. 25 55 8 9 93 1342308361 "button" "" 0 
  1123. 35 55 8 9 94 1342308361 "button" "" 0 
  1124. 45 55 8 9 95 1342308361 "button" "" 0 
  1125. 55 55 8 9 96 1342308361 "button" "" 0 
  1126. 5 45 8 9 101 1342308361 "button" "" 0 
  1127. 15 45 8 9 102 1342308361 "button" "" 0 
  1128. 25 45 8 9 103 1342308361 "button" "" 0 
  1129. 35 45 8 9 104 1342308361 "button" "" 0 
  1130. 45 45 8 9 105 1342308361 "button" "" 0 
  1131. 55 45 8 9 106 1342308361 "button" "" 0 
  1132. 5 35 8 9 111 1342308361 "button" "" 0 
  1133. 15 35 8 9 112 1342308361 "button" "" 0 
  1134. 25 35 8 9 113 1342308361 "button" "" 0 
  1135. 35 35 8 9 114 1342308361 "button" "" 0 
  1136. 45 35 8 9 115 1342308361 "button" "" 0 
  1137. 55 35 8 9 116 1342308361 "button" "" 0 
  1138. 5 25 8 9 121 1342308361 "button" "" 0 
  1139. 15 25 8 9 122 1342308361 "button" "" 0 
  1140. 25 25 8 9 123 1342308361 "button" "" 0 
  1141. 35 25 8 9 124 1342308361 "button" "" 0 
  1142. 45 25 8 9 125 1342308361 "button" "" 0 
  1143. 55 25 8 9 126 1342308361 "button" "" 0 
  1144. 5 5 8 9 131 1342308361 "button" "" 0 
  1145. 15 5 8 9 132 1342308361 "button" "" 0 
  1146. 25 5 8 9 133 1342308361 "button" "" 0 
  1147. 35 5 8 9 134 1342308361 "button" "" 0 
  1148. 45 5 8 9 135 1342308361 "button" "" 0 
  1149. 55 5 8 9 136 1342308361 "button" "" 0 
  1150. 66 95 45 10 8057 1342177280 "static" "" 0 
  1151. 66 85 45 10 8067 1342177280 "static" "" 0 
  1152. 66 75 45 10 8077 1342177280 "static" "" 0 
  1153. 66 65 45 10 8087 1342177280 "static" "" 0 
  1154. 66 55 45 10 8097 1342177280 "static" "" 0 
  1155. 66 45 45 10 8107 1342177280 "static" "" 0 
  1156. 66 35 45 10 8117 1342177280 "static" "" 0 
  1157. 66 25 45 10 8127 1342177280 "static" "" 0 
  1158. 66 5 35 10 1008 1342177280 "static" "ANSWER" 0 
  1159. 2 15 110 9 8137 1342177281 "static" "" 0 
  1160. DIALOG MMINSTR
  1161. -2134376448 9 126 88 160 108 "" "" "Mind Blaster Help" 
  1162. FONT 6 "Helv" 
  1163. 115 4 40 14 5 1342242817 "button" "Return" 0 
  1164. 5 3 105 101 10 1342242823 "button" "INSTRUCTIONS" 0 
  1165. 9 14 100 17 1001 1342177280 "static" "The object of Mind Blaster is to determine the pattern of" 0 
  1166. 9 30 95 17 1000 1342177280 "static" "pegs that the computer has generated.  Each time you" 0 
  1167. 9 46 93 25 1002 1342177280 "static" "guess, the computer lets you know how many pegs are in the correct position." 0 
  1168. 9 70 98 9 1004 1342177280 "static" "You only have 8 guesses." 0 
  1169. 9 78 24 9 1003 1342177280 "static" "Enjoy!" 0 
  1170. 9 90 47 9 32 1342177289 "button" "White peg." 0 
  1171. 60 90 45 9 31 1342177289 "button" "Black peg." 0 
  1172. 00014620
  1173.