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