Am 03.01.20 um 10:10 schrieb Tobias Fröschle via Ql-Users:
In case you missed it:

The Magnetic Scrolls Adventurs are now available for _all_ QL platforms -

hello Tobias
thanks for you work
looks good on the Mist/mister (Minerva.rom,896 kb)
with -c -t  but some lines are to long

can you change the cursor before loading graphics
so you get a hint what's going on

Greeting from Switzerland
and all the best for 2020               
                
                Markus

here is a simple boot program

100 MODE 8
110 bd$="win5_"
120 :
130 DIM a$(7,10),b$(7,20)
140 a$(1)="pawn"
150 a$(2)="jinxter"
160 a$(3)="fish"
170 a$(4)="wonder"
180 a$(5)="guild"
190 a$(6)="corrupt"
200 a$(7)="myth"
205 :
210 b$(1)="The pawn"
220 b$(2)="Jinxter"
230 b$(3)="Fish"
240 b$(4)="Wonderland"
250 b$(5)="The Guild of Thieves"
260 b$(6)="Corruption"
270 b$(7)="Myth"
280 :
290 WINDOW#1,512,200,0,16
295 BORDER #1,1,4
300 CLS
310 CSIZE 2,0
315 PRINT
320 PRINT "   The Magnetic Scrolls"
330 PRINT "     Text Adventures  "
340 PRINT
350 FOR a= 1 TO 7
360 PRINT " "&a&" "&b$(a)
370 NEXT a
375 PRINT
377 PRINT " please select a number to play"
380  b=INKEY$(-1)
390 SELect ON b
400 = 1,2,3,4,5,6,7 : do_it a$(b)
410 = REMAINDER
420 END SELect
430 STOP
432 :
435 REMark -e enlarge graphics x2
437 REMark -c condensed font
438 REMark -t tv mode
439 REMark for QPC2 -e
445 REMark for Mist/er -c -t
447 :
450 DEFine PROCedure do_it (z$)
480 c$="-e "&bd$&z$&"_mag "&bd$&z$&"_gfx"
500   EW bd$&"magnetic_exe";c$
510 END DEFine
515 :
520 DEFine PROCedure sa
530 DELETE win1_mgboot
550 SAVE   win1_mgboot
570 END DEFine


_______________________________________________
QL-Users Mailing List

Reply via email to