home *** CD-ROM | disk | FTP | other *** search
/ Program Metropolis - Software Boutique 95 / SOFTWARECD.iso / camipro3 / macros.cmz / GAME.SMM < prev    next >
Encoding:
INI File  |  1994-08-14  |  22.5 KB  |  1,174 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     CHINESEBIG5 (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PCL / HP LaserJet
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     MacroMindBlaster ā•£Cā””ā••
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     CallBacks, GlobalVars
  22.     noautorun
  23.     773102915
  24.     26
  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@<:#293,10080>    EXIT FUNCTION
  296.  
  297. @Body Single@<:#284,10080>ENDIF
  298.  
  299. @Body Single@<:#284,10080>IF id<;>130 AND id<<137 THEN '            Keep ANSWER buttons turned off
  300.  
  301. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,id,0)
  302.  
  303. @Function@<:#293,10080>    EXIT FUNCTION
  304.  
  305. @Body Single@<:#284,10080>ENDIF
  306.  
  307. @Body Single@<:#284,10080>IF id<<<;>60 THEN '                    Check guess buttons
  308.  
  309. @Body Single@<:#284,10080>    curset=GetGlobalArray$("MK",id)
  310.  
  311. @Body Single@<:#284,10080>    IF id<<(level+10) OR id<;>(level+15) THEN '    Allow toggle if button is in
  312.  
  313. @Body Single@<:#284,10080>        curset=curset '            the current guessing row
  314.  
  315. @Body Single@<:#284,10080>    ELSE
  316.  
  317. @Body Single@<:#284,10080>        curset=(curset*ch) + 1
  318.  
  319. @Body Single@<:#284,10080>    ENDIF
  320.  
  321. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,id,curset)
  322.  
  323. @Body Single@<:#284,10080>    SetGlobalArray("MK",id,curset)
  324.  
  325. @Function@<:#293,10080>    EXIT FUNCTION
  326.  
  327. @Body Single@<:#284,10080>ENDIF
  328.  
  329. @Body Single@<:#284,10080>place=0 '                        Evaluate guess here
  330.  
  331. @Body Single@<:#284,10080>curans=0
  332.  
  333. @Body Single@<:#284,10080>level=level+10
  334.  
  335. @Body Single@<:#284,10080>FOR x=level TO level+5
  336.  
  337. @Body Single@<:#284,10080>place=place+1
  338.  
  339. @Body Single@<:#284,10080>curpeg=GetGlobalArray$("PG",place)
  340.  
  341. @Body Single@<:#284,10080>curguess=GetDlgItemText(hDlg,x)
  342.  
  343. @Body Single@<:#284,10080>IF curpeg=curguess THEN
  344.  
  345. @Body Single@<:#284,10080>    curans=curans+1
  346.  
  347. @Body Single@<:#284,10080>ENDIF
  348.  
  349. @Body Single@<:#284,10080>NEXT
  350.  
  351. @Body Single@<:#284,10080>ret="{curans} right"
  352.  
  353. @Body Single@<:#284,10080>IF curans=6 THEN '                Check to see if guess is correct
  354.  
  355. @Body Single@<:#284,10080>    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@<:#293,10080>    EXIT FUNCTION
  400.  
  401. @Body Single@<:#284,10080>ELSEIF GetDlgItemText(hDlg,8127)<<<;>"" THEN '    Check to see if out of guesses
  402.  
  403. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,8127,"YOU LOST")
  404.  
  405. @Body Single@<:#284,10080>    SetDlgItemText(hDlg,8137,"Better luck next time!")
  406.  
  407. @Body Single@<:#284,10080>    FOR ans=131 TO 136
  408.  
  409. @Body Single@<:#284,10080>        SetDlgItemText(hDlg,ans,(GetGlobalArray$("PG",(ans - 130))))
  410.  
  411. @Body Single@<:#284,10080>    NEXT
  412.  
  413. @Body Single@<:#284,10080>    loop2:
  414.  
  415. @Function@<:#293,10080>    EXIT FUNCTION
  416.  
  417. @Body Single@<:#284,10080>ENDIF
  418.  
  419. @Body Single@<:#284,10080>SetDlgItemText(hDlg,(level+8006),ret)
  420.  
  421. @Body Single@<:#284,10080>SetDlgItemText(hDlg,(level+8016),"<<--GUESS")
  422.  
  423. @Body Single@<:#284,10080>SetGlobalVar("BN",level)
  424.  
  425. @Function@<:#293,10080>END FUNCTION
  426.  
  427. @Body Single@<:#284,10080>
  428.  
  429. @Function@<:#293,10080>FUNCTION helpme(hDlg,id,value) '        Display help box here
  430.  
  431. <: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 GetWindowSize()    DllCall("user,GetWindowRect,HHN",%1,%2)
  432.  
  433. <:R><:#284,10080>DIM rect(4)
  434.  
  435. <:#284,10080>GetWindowSize(hDlg,&rect)
  436.  
  437. @Body Single@<:#284,10080>AllocGlobalVar("MV",4)
  438.  
  439. @Body Single@<:#284,10080>For x=1 TO 4
  440.  
  441. @Body Single@<:#284,10080>    SetGlobalArray("MV",x,rect(x))
  442.  
  443. @Body Single@<:#284,10080>NEXT
  444.  
  445. @Body Single@<:#284,10080>SetDlgCallBack(0,"MOVEIT")
  446.  
  447. @Body Single@<:#284,10080>FillEdit(31,1)
  448.  
  449. @Body Single@<:#284,10080>box2=DialogBox(".","MMINSTR")
  450.  
  451. @Body Single@<:#284,10080>IF box2=5 THEN
  452.  
  453. @Function@<:#293,10080>    EXIT FUNCTION
  454.  
  455. @Body Single@<:#284,10080>ENDIF
  456.  
  457. @Function@<:#240,10080>END FUNCTION
  458.  
  459. <:#284,10080>
  460.  
  461. @Function@<:#293,10080>FUNCTION moveit(hDlg,id,value)
  462.  
  463. <: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)
  464.  
  465. <:R><:#284,10080>DIM rect(4)
  466.  
  467. <:#284,10080>x=GetGlobalArray$("MV",1)
  468.  
  469. <:#284,10080>y=GetGlobalArray$("MV",2)
  470.  
  471. <:#284,10080>xl=GetGlobalArray$("MV",3)
  472.  
  473. <:#284,10080>yl=GetGlobalArray$("MV",4)
  474.  
  475. <:#284,10080>MoveWindow(hDlg,x,y,xl-x,yl-y)
  476.  
  477. @Function@<:#293,10080>END FUNCTION
  478.  
  479. @Body Single@<:#284,10080>___________________________________________________________________________________
  480.  
  481. @Body Single@<:#284,10080>
  482.  
  483. <:#240,10080>DIALOG MSTRMIND
  484.  
  485. <:#240,10080>-2134376448 68 130 88 160 108 "" "" "Mind Blaster"
  486.  
  487. <:#240,10080>FONT 6 "Helv"
  488.  
  489. <:#240,10080>115 4 40 14 60 1342242817 "button" "&Guess ?" 0 
  490.  
  491. <:#240,10080>115 52 40 14 2 1342242816 "button" "&Quit" 0 
  492.  
  493. <:#240,10080>115 20 40 14 70 1342242816 "button" "&New" 0 
  494.  
  495. <:#284,10080>115 36 40 14 25 1342242816 "button" "&Help" 0 
  496.  
  497. <:#240,10080>5 95 8 9 51 1342308361 "button" "" 0 
  498.  
  499. <:#240,10080>15 95 8 9 52 1342308361 "button" "" 0 
  500.  
  501. <:#240,10080>25 95 8 9 53 1342308361 "button" "" 0 
  502.  
  503. <:#240,10080>35 95 8 9 54 1342308361 "button" "" 0 
  504.  
  505. <:#240,10080>45 95 8 9 55 1342308361 "button" "" 0 
  506.  
  507. <:#240,10080>55 95 8 9 56 1342308361 "button" "" 0 
  508.  
  509. <:#240,10080>5 85 8 9 61 1342308361 "button" "" 0 
  510.  
  511. <:#240,10080>15 85 8 9 62 1342308361 "button" "" 0 
  512.  
  513. <:#240,10080>25 85 8 9 63 1342308361 "button" "" 0 
  514.  
  515. <:#240,10080>35 85 8 9 64 1342308361 "button" "" 0 
  516.  
  517. <:#240,10080>45 85 8 9 65 1342308361 "button" "" 0 
  518.  
  519. <:#240,10080>55 85 8 9 66 1342308361 "button" "" 0 
  520.  
  521. <:#240,10080>5 75 8 9 71 1342308361 "button" "" 0 
  522.  
  523. <:#240,10080>15 75 8 9 72 1342308361 "button" "" 0 
  524.  
  525. <:#240,10080>25 75 8 9 73 1342308361 "button" "" 0 
  526.  
  527. <:#240,10080>35 75 8 9 74 1342308361 "button" "" 0 
  528.  
  529. <:#240,10080>45 75 8 9 75 1342308361 "button" "" 0 
  530.  
  531. <:#240,10080>55 75 8 9 76 1342308361 "button" "" 0 
  532.  
  533. <:#240,10080>5 65 8 9 81 1342308361 "button" "" 0 
  534.  
  535. <:#240,10080>15 65 8 9 82 1342308361 "button" "" 0 
  536.  
  537. <:#240,10080>25 65 8 9 83 1342308361 "button" "" 0 
  538.  
  539. <:#240,10080>35 65 8 9 84 1342308361 "button" "" 0 
  540.  
  541. <:#240,10080>45 65 8 9 85 1342308361 "button" "" 0 
  542.  
  543. <:#240,10080>55 65 8 9 86 1342308361 "button" "" 0 
  544.  
  545. <:#240,10080>5 55 8 9 91 1342308361 "button" "" 0 
  546.  
  547. <:#240,10080>15 55 8 9 92 1342308361 "button" "" 0 
  548.  
  549. <:#240,10080>25 55 8 9 93 1342308361 "button" "" 0 
  550.  
  551. <:#240,10080>35 55 8 9 94 1342308361 "button" "" 0 
  552.  
  553. <:#240,10080>45 55 8 9 95 1342308361 "button" "" 0 
  554.  
  555. <:#284,10080>55 55 8 9 96 1342308361 "button" "" 0 
  556.  
  557. <:#284,10080>5 45 8 9 101 1342308361 "button" "" 0 
  558.  
  559. <:#284,10080>15 45 8 9 102 1342308361 "button" "" 0 
  560.  
  561. <:#240,10080>25 45 8 9 103 1342308361 "button" "" 0 
  562.  
  563. <:#240,10080>35 45 8 9 104 1342308361 "button" "" 0 
  564.  
  565. <:#240,10080>45 45 8 9 105 1342308361 "button" "" 0 
  566.  
  567. <:#240,10080>55 45 8 9 106 1342308361 "button" "" 0 
  568.  
  569. <:#240,10080>5 35 8 9 111 1342308361 "button" "" 0 
  570.  
  571. <:#240,10080>15 35 8 9 112 1342308361 "button" "" 0 
  572.  
  573. <:#240,10080>25 35 8 9 113 1342308361 "button" "" 0 
  574.  
  575. <:#240,10080>35 35 8 9 114 1342308361 "button" "" 0 
  576.  
  577. <:#240,10080>45 35 8 9 115 1342308361 "button" "" 0 
  578.  
  579. <:#240,10080>55 35 8 9 116 1342308361 "button" "" 0 
  580.  
  581. <:#240,10080>5 25 8 9 121 1342308361 "button" "" 0 
  582.  
  583. <:#240,10080>15 25 8 9 122 1342308361 "button" "" 0 
  584.  
  585. <:#240,10080>25 25 8 9 123 1342308361 "button" "" 0 
  586.  
  587. <:#240,10080>35 25 8 9 124 1342308361 "button" "" 0 
  588.  
  589. <:#240,10080>45 25 8 9 125 1342308361 "button" "" 0 
  590.  
  591. <:#240,10080>55 25 8 9 126 1342308361 "button" "" 0 
  592.  
  593. <:#240,10080>5 5 8 9 131 1342308361 "button" "" 0 
  594.  
  595. <:#240,10080>15 5 8 9 132 1342308361 "button" "" 0 
  596.  
  597. <:#240,10080>25 5 8 9 133 1342308361 "button" "" 0 
  598.  
  599. <:#240,10080>35 5 8 9 134 1342308361 "button" "" 0 
  600.  
  601. <:#240,10080>45 5 8 9 135 1342308361 "button" "" 0 
  602.  
  603. <:#240,10080>55 5 8 9 136 1342308361 "button" "" 0 
  604.  
  605. <:#240,10080>66 95 45 10 8057 1342177280 "static" "" 0 
  606.  
  607. <:#284,10080>66 85 45 10 8067 1342177280 "static" "" 0 
  608.  
  609. <:#284,10080>66 75 45 10 8077 1342177280 "static" "" 0 
  610.  
  611. <:#240,10080>66 65 45 10 8087 1342177280 "static" "" 0 
  612.  
  613. <:#240,10080>66 55 45 10 8097 1342177280 "static" "" 0 
  614.  
  615. <:#240,10080>66 45 45 10 8107 1342177280 "static" "" 0 
  616.  
  617. <:#240,10080>66 35 45 10 8117 1342177280 "static" "" 0 
  618.  
  619. <:#240,10080>66 25 45 10 8127 1342177280 "static" "" 0 
  620.  
  621. <:#240,10080>66 5 35 10 1008 1342177280 "static" "ANSWER" 0 
  622.  
  623. <:#240,10080>2 15 110 9 8137 1342177281 "static" "" 0 
  624.  
  625. <:#240,10080>END DIALOG
  626.  
  627. @Body Single@<:#284,10080>___________________________________________________________________________________
  628.  
  629. @Body Single@<:#284,10080>
  630.  
  631. @Function@<:#240,10080>DIALOG MMINSTR
  632.  
  633. @Body Single@<:#284,10080>-2134376448 9 126 88 160 108 "" "" "Mind Blaster Help"
  634.  
  635. @Body Single@<:#284,10080>FONT 6 "Helv"
  636.  
  637. @Body Single@<:#284,10080>115 4 40 14 5 1342242817 "button" "Return" 0 
  638.  
  639. @Body Single@<:#284,10080>5 3 105 101 10 1342242823 "button" "INSTRUCTIONS" 0 
  640.  
  641. @Body Single@<:#284,10080>9 14 100 17 1001 1342177280 "static" "The object of Mind Blaster is to determine the pattern of" 0 
  642.  
  643. @Body Single@<:#284,10080>9 30 95 17 1000 1342177280 "static" "pegs that the computer has generated.  Each time you" 0 
  644.  
  645. @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 
  646.  
  647. @Body Single@<:#284,10080>9 70 98 9 1004 1342177280 "static" "You only have 8 guesses." 0 
  648.  
  649. @Body Single@<:#284,10080>9 78 24 9 1003 1342177280 "static" "Enjoy!" 0 
  650.  
  651. @Body Single@<:#284,10080>9 90 47 9 32 1342177289 "button" "White peg." 0 
  652.  
  653. @Body Single@<:#284,10080>60 90 45 9 31 1342177289 "button" "Black peg." 0 
  654.  
  655. @Function@<:#293,10080>END DIALOG
  656.  
  657. >
  658.  
  659. [Embedded]
  660. 00015332
  661. >
  662. [macsum] 8
  663. mindblaster 0 0 1 2
  664. blasterstart 61 0 6 7
  665. playblaster 530 0 4 33
  666. calbk 835 3 13 47
  667. helpme 3287 3 4 127
  668. moveit 3609 3 6 143
  669. MSTRMIND 3830 0 -1 154
  670. MMINSTR 6721 0 -1 228
  671. [macse]
  672. 14 mindblaster
  673. 16 blasterstart
  674. 16 playblaster
  675. 6 0
  676. 15
  677. 9
  678. 14 blasterstart
  679. 5 0
  680. 8 1
  681. 0 266 "BN"
  682. 0 266 "MK"
  683. 0 271 "PG" 6
  684. 0 271 "MK" 136
  685. 0 772
  686. 13
  687. 8 2
  688. 0 16 "a" "{2}"
  689. 13
  690. 8 3
  691. 0 807 "{3}" 2
  692. 13
  693. 8 1
  694. 6 1
  695. 5 63
  696. 18 3
  697. 11 00000197
  698. 6 1
  699. 5 36
  700. 3 1
  701. 8 1
  702. 5 32
  703. 8 4
  704. 5 1
  705. 8 5
  706. 5 6
  707. 6 5
  708. 18 2
  709. 12 00000293
  710. 10 00000428
  711. 5 1
  712. 6 5
  713. 3 0
  714. 8 5
  715. 10 00000218
  716. 6 1
  717. 6 4
  718. 18 2
  719. 11 00000375
  720. 0 272 "PG" "{5}" 1
  721. 6 1
  722. 6 4
  723. 3 1
  724. 8 1
  725. 10 00000395
  726. 0 272 "PG" "{5}" 0
  727. 6 4
  728. 5 2
  729. 4 1
  730. 8 4
  731. 10 00000260
  732. 0 271 "BN" 1
  733. 0 264 "BN" 41
  734. 6 0
  735. 15
  736. 9
  737. 14 playblaster
  738. 0 802
  739. 13
  740. 8 1
  741. 5 51
  742. 8 2
  743. 5 136
  744. 6 2
  745. 18 2
  746. 12 00000120
  747. 10 00000177
  748. 5 1
  749. 6 2
  750. 3 0
  751. 8 2
  752. 10 00000043
  753. 0 272 "MK" "{2}" 0
  754. 0 41 "{2}" "{1}!calbk"
  755. 10 00000087
  756. 0 41 25 "{1}!helpme"
  757. 0 31 8057 "<<--GUESS"
  758. 0 26 "." "MSTRMIND"
  759. 13
  760. 8 3
  761. 6 3
  762. 5 2
  763. 18 0
  764. 11 00000293
  765. 6 0
  766. 15
  767. 9
  768. 6 0
  769. 15
  770. 9
  771. 14 calbk
  772. 5 0
  773. 5 1
  774. 3 1
  775. 8 4
  776. 0 265 "BN"
  777. 13
  778. 8 5
  779. 6 1
  780. 5 70
  781. 18 0
  782. 11 00000426
  783. 5 51
  784. 8 6
  785. 5 131
  786. 6 6
  787. 18 2
  788. 12 00000170
  789. 10 00000368
  790. 5 10
  791. 6 6
  792. 3 0
  793. 8 6
  794. 10 00000092
  795. 6 6
  796. 5 8006
  797. 3 0
  798. 0 43 "{0}" [X] ""
  799. 6 6
  800. 8 7
  801. 6 6
  802. 5 5
  803. 3 0
  804. 6 7
  805. 18 2
  806. 12 00000302
  807. 10 00000355
  808. 5 1
  809. 6 7
  810. 3 0
  811. 8 7
  812. 10 00000217
  813. 0 272 "MK" "{7}" 0
  814. 0 43 "{0}" "{7}" 0
  815. 10 00000269
  816. 10 00000136
  817. 0 43 "{0}" 8057 "<<--GUESS"
  818. 16 blasterstart
  819. 6 3
  820. 15
  821. 9
  822. 6 1
  823. 5 130
  824. 18 3
  825. 6 1
  826. 5 137
  827. 18 5
  828. 1 1
  829. 11 00000512
  830. 0 43 "{0}" "{1}" 0
  831. 6 3
  832. 15
  833. 9
  834. 6 1
  835. 5 60
  836. 18 1
  837. 11 00000754
  838. 0 273 "MK" "{1}"
  839. 13
  840. 8 8
  841. 6 1
  842. 6 5
  843. 5 10
  844. 3 0
  845. 18 5
  846. 6 1
  847. 6 5
  848. 5 15
  849. 3 0
  850. 18 3
  851. 1 2
  852. 11 00000664
  853. 6 8
  854. 8 8
  855. 10 00000694
  856. 6 8
  857. 6 4
  858. 4 0
  859. 5 1
  860. 3 0
  861. 8 8
  862. 0 43 "{0}" "{1}" "{8}"
  863. 0 272 "MK" "{1}" "{8}"
  864. 6 3
  865. 15
  866. 9
  867. 5 0
  868. 8 9
  869. 5 0
  870. 8 10
  871. 6 5
  872. 5 10
  873. 3 0
  874. 8 5
  875. 6 5
  876. 8 11
  877. 6 5
  878. 5 5
  879. 3 0
  880. 6 11
  881. 18 2
  882. 12 00000895
  883. 10 00001038
  884. 5 1
  885. 6 11
  886. 3 0
  887. 8 11
  888. 10 00000807
  889. 6 9
  890. 5 1
  891. 3 0
  892. 8 9
  893. 0 273 "PG" "{9}"
  894. 13
  895. 8 12
  896. 0 42 "{0}" "{11}"
  897. 13
  898. 8 13
  899. 6 12
  900. 6 13
  901. 18 0
  902. 11 00001025
  903. 6 10
  904. 5 1
  905. 3 0
  906. 8 10
  907. 10 00000860
  908. 7 "{10} right"
  909. 8 14
  910. 6 10
  911. 5 6
  912. 18 0
  913. 11 00002040
  914. 5 131
  915. 8 15
  916. 5 136
  917. 6 15
  918. 18 2
  919. 12 00001183
  920. 10 00001257
  921. 5 1
  922. 6 15
  923. 3 0
  924. 8 15
  925. 10 00001103
  926. 6 15
  927. 5 130
  928. 3 1
  929. 0 273 "PG" [X]
  930. 13
  931. 0 43 "{0}" "{15}" [X]
  932. 10 00001148
  933. 6 5
  934. 5 8006
  935. 3 0
  936. 0 43 "{0}" [X] "YOU WIN!"
  937. 5 51
  938. 6 5
  939. 18 0
  940. 11 00001396
  941. 0 43 "{0}" 8137 "1 guess - You must be Einstein!"
  942. 10 00002015
  943. 5 61
  944. 6 5
  945. 18 0
  946. 11 00001489
  947. 0 43 "{0}" 8137 "2 guesses - That's incredible!"
  948. 10 00002015
  949. 5 71
  950. 6 5
  951. 18 0
  952. 11 00001581
  953. 0 43 "{0}" 8137 "3 guesses - You're an expert!"
  954. 10 00002015
  955. 5 81
  956. 6 5
  957. 18 0
  958. 11 00001667
  959. 0 43 "{0}" 8137 "4 guesses - Great game!"
  960. 10 00002015
  961. 5 91
  962. 6 5
  963. 18 0
  964. 11 00001752
  965. 0 43 "{0}" 8137 "5 guesses - Good game!"
  966. 10 00002015
  967. 5 101
  968. 6 5
  969. 18 0
  970. 11 00001842
  971. 0 43 "{0}" 8137 "6 guesses - Average player"
  972. 10 00002015
  973. 5 111
  974. 6 5
  975. 18 0
  976. 11 00001934
  977. 0 43 "{0}" 8137 "7 guesses - Keep practicing!"
  978. 10 00002015
  979. 5 121
  980. 6 5
  981. 18 0
  982. 11 00002015
  983. 0 43 "{0}" 8137 "8 guesses - You can do better!"
  984. 6 3
  985. 15
  986. 9
  987. 10 00002335
  988. 0 42 "{0}" 8127
  989. 13
  990. 7 ""
  991. 18 1
  992. 11 00002335
  993. 0 43 "{0}" 8127 "YOU LOST"
  994. 0 43 "{0}" 8137 "Better luck next time!"
  995. 5 131
  996. 8 15
  997. 5 136
  998. 6 15
  999. 18 2
  1000. 12 00002249
  1001. 10 00002323
  1002. 5 1
  1003. 6 15
  1004. 3 0
  1005. 8 15
  1006. 10 00002169
  1007. 6 15
  1008. 5 130
  1009. 3 1
  1010. 0 273 "PG" [X]
  1011. 13
  1012. 0 43 "{0}" "{15}" [X]
  1013. 10 00002214
  1014. 6 3
  1015. 15
  1016. 9
  1017. 6 5
  1018. 5 8006
  1019. 3 0
  1020. 0 43 "{0}" [X] "{14}"
  1021. 6 5
  1022. 5 8016
  1023. 3 0
  1024. 0 43 "{0}" [X] "<<--GUESS"
  1025. 0 264 "BN" "{5}"
  1026. 6 3
  1027. 15
  1028. 9
  1029. 14 helpme
  1030. 5 4
  1031. 21 4 [X]
  1032. 0 284 "user,GetWindowRect,HHN" "{0}" &4
  1033. 0 271 "MV" 4
  1034. 5 1
  1035. 8 5
  1036. 5 4
  1037. 6 5
  1038. 18 2
  1039. 12 00000166
  1040. 10 00000212
  1041. 5 1
  1042. 6 5
  1043. 3 0
  1044. 8 5
  1045. 10 00000091
  1046. 6 5
  1047. 22 4
  1048. 0 272 "MV" "{5}" [X]
  1049. 10 00000133
  1050. 0 41 0 "MOVEIT"
  1051. 0 31 31 1
  1052. 0 26 "." "MMINSTR"
  1053. 13
  1054. 8 6
  1055. 6 6
  1056. 5 5
  1057. 18 0
  1058. 11 00000310
  1059. 6 3
  1060. 15
  1061. 9
  1062. 6 3
  1063. 15
  1064. 9
  1065. 14 moveit
  1066. 5 4
  1067. 21 4 [X]
  1068. 0 273 "MV" 1
  1069. 13
  1070. 8 5
  1071. 0 273 "MV" 2
  1072. 13
  1073. 8 6
  1074. 0 273 "MV" 3
  1075. 13
  1076. 8 7
  1077. 0 273 "MV" 4
  1078. 13
  1079. 8 8
  1080. 6 7
  1081. 6 5
  1082. 3 1
  1083. 6 8
  1084. 6 6
  1085. 3 1
  1086. 0 284 "user,MoveWindow,HHHHHHH" "{0}" "{5}" "{6}" [X] [X] 1
  1087. 6 3
  1088. 15
  1089. 9
  1090. DIALOG MSTRMIND
  1091. -2134376448 68 130 88 160 108 "" "" "Mind Blaster" 
  1092. FONT 6 "Helv" 
  1093. 115 4 40 14 60 1342242817 "button" "&Guess ?" 0 
  1094. 115 52 40 14 2 1342242816 "button" "&Quit" 0 
  1095. 115 20 40 14 70 1342242816 "button" "&New" 0 
  1096. 115 36 40 14 25 1342242816 "button" "&Help" 0 
  1097. 5 95 8 9 51 1342308361 "button" "" 0 
  1098. 15 95 8 9 52 1342308361 "button" "" 0 
  1099. 25 95 8 9 53 1342308361 "button" "" 0 
  1100. 35 95 8 9 54 1342308361 "button" "" 0 
  1101. 45 95 8 9 55 1342308361 "button" "" 0 
  1102. 55 95 8 9 56 1342308361 "button" "" 0 
  1103. 5 85 8 9 61 1342308361 "button" "" 0 
  1104. 15 85 8 9 62 1342308361 "button" "" 0 
  1105. 25 85 8 9 63 1342308361 "button" "" 0 
  1106. 35 85 8 9 64 1342308361 "button" "" 0 
  1107. 45 85 8 9 65 1342308361 "button" "" 0 
  1108. 55 85 8 9 66 1342308361 "button" "" 0 
  1109. 5 75 8 9 71 1342308361 "button" "" 0 
  1110. 15 75 8 9 72 1342308361 "button" "" 0 
  1111. 25 75 8 9 73 1342308361 "button" "" 0 
  1112. 35 75 8 9 74 1342308361 "button" "" 0 
  1113. 45 75 8 9 75 1342308361 "button" "" 0 
  1114. 55 75 8 9 76 1342308361 "button" "" 0 
  1115. 5 65 8 9 81 1342308361 "button" "" 0 
  1116. 15 65 8 9 82 1342308361 "button" "" 0 
  1117. 25 65 8 9 83 1342308361 "button" "" 0 
  1118. 35 65 8 9 84 1342308361 "button" "" 0 
  1119. 45 65 8 9 85 1342308361 "button" "" 0 
  1120. 55 65 8 9 86 1342308361 "button" "" 0 
  1121. 5 55 8 9 91 1342308361 "button" "" 0 
  1122. 15 55 8 9 92 1342308361 "button" "" 0 
  1123. 25 55 8 9 93 1342308361 "button" "" 0 
  1124. 35 55 8 9 94 1342308361 "button" "" 0 
  1125. 45 55 8 9 95 1342308361 "button" "" 0 
  1126. 55 55 8 9 96 1342308361 "button" "" 0 
  1127. 5 45 8 9 101 1342308361 "button" "" 0 
  1128. 15 45 8 9 102 1342308361 "button" "" 0 
  1129. 25 45 8 9 103 1342308361 "button" "" 0 
  1130. 35 45 8 9 104 1342308361 "button" "" 0 
  1131. 45 45 8 9 105 1342308361 "button" "" 0 
  1132. 55 45 8 9 106 1342308361 "button" "" 0 
  1133. 5 35 8 9 111 1342308361 "button" "" 0 
  1134. 15 35 8 9 112 1342308361 "button" "" 0 
  1135. 25 35 8 9 113 1342308361 "button" "" 0 
  1136. 35 35 8 9 114 1342308361 "button" "" 0 
  1137. 45 35 8 9 115 1342308361 "button" "" 0 
  1138. 55 35 8 9 116 1342308361 "button" "" 0 
  1139. 5 25 8 9 121 1342308361 "button" "" 0 
  1140. 15 25 8 9 122 1342308361 "button" "" 0 
  1141. 25 25 8 9 123 1342308361 "button" "" 0 
  1142. 35 25 8 9 124 1342308361 "button" "" 0 
  1143. 45 25 8 9 125 1342308361 "button" "" 0 
  1144. 55 25 8 9 126 1342308361 "button" "" 0 
  1145. 5 5 8 9 131 1342308361 "button" "" 0 
  1146. 15 5 8 9 132 1342308361 "button" "" 0 
  1147. 25 5 8 9 133 1342308361 "button" "" 0 
  1148. 35 5 8 9 134 1342308361 "button" "" 0 
  1149. 45 5 8 9 135 1342308361 "button" "" 0 
  1150. 55 5 8 9 136 1342308361 "button" "" 0 
  1151. 66 95 45 10 8057 1342177280 "static" "" 0 
  1152. 66 85 45 10 8067 1342177280 "static" "" 0 
  1153. 66 75 45 10 8077 1342177280 "static" "" 0 
  1154. 66 65 45 10 8087 1342177280 "static" "" 0 
  1155. 66 55 45 10 8097 1342177280 "static" "" 0 
  1156. 66 45 45 10 8107 1342177280 "static" "" 0 
  1157. 66 35 45 10 8117 1342177280 "static" "" 0 
  1158. 66 25 45 10 8127 1342177280 "static" "" 0 
  1159. 66 5 35 10 1008 1342177280 "static" "ANSWER" 0 
  1160. 2 15 110 9 8137 1342177281 "static" "" 0 
  1161. DIALOG MMINSTR
  1162. -2134376448 9 126 88 160 108 "" "" "Mind Blaster Help" 
  1163. FONT 6 "Helv" 
  1164. 115 4 40 14 5 1342242817 "button" "Return" 0 
  1165. 5 3 105 101 10 1342242823 "button" "INSTRUCTIONS" 0 
  1166. 9 14 100 17 1001 1342177280 "static" "The object of Mind Blaster is to determine the pattern of" 0 
  1167. 9 30 95 17 1000 1342177280 "static" "pegs that the computer has generated.  Each time you" 0 
  1168. 9 46 93 25 1002 1342177280 "static" "guess, the computer lets you know how many pegs are in the correct position." 0 
  1169. 9 70 98 9 1004 1342177280 "static" "You only have 8 guesses." 0 
  1170. 9 78 24 9 1003 1342177280 "static" "Enjoy!" 0 
  1171. 9 90 47 9 32 1342177289 "button" "White peg." 0 
  1172. 60 90 45 9 31 1342177289 "button" "Black peg." 0 
  1173. 00015357
  1174.