0 Mitglieder und 1 Gast betrachten dieses Thema.
Da ich eine kleine Idee für ein Atari Spiel habe, wollte ich fragen, wie ich die Ausgabe in ein GEM Fenster bekomme, so dass das Ganze auch auf der Firebee läuft.
OPENW #1,100,100,200,200PRINT "test"LINE 5,5,150,150So etwas müsste doch das neue GBE-Basic für den Firebee auch machen?
' ** window.lst'DEFFILL 1,2,4PBOX 0,19,639,399DEFFILL 1,0'DIM message_buffer%(3) ! 16 Byteadr_mes%=V:message_buffer%(0)'ABSOLUTE word0&,adr_mes%ABSOLUTE x&,adr_mes%+8ABSOLUTE y&,adr_mes%+10ABSOLUTE w&,adr_mes%+12ABSOLUTE h&,adr_mes%+14'handle&=WIND_CREATE(&X101111,0,19,639,380)'titel$="Window"adr_tit%=V:titel$~WIND_SET(handle&,2,CARD(SWAP(adr_tit%)),CARD(adr_tit%),0,0)~WIND_OPEN(handle&,100,100,200,100)~WIND_GET(handle&,4,wx&,wy&,ww&,wh&)PBOX wx&,wy&,wx&+ww&,wy&+wh&'raus!=FALSEREPEAT ~EVNT_MULTI(&X110000,0,0,0,0,0,0,0,0,0,0,0,0,0,adr_mes%,100,d%,d%,d%,d%,d%,d%) SELECT word0& CASE 22 ! WM_CLOSED raus!=TRUE CASE 23 ! WM_FULLED ~WIND_SET(handle&,5,1,19,638,380) ~WIND_GET(handle&,4,wx&,wy&,ww&,wh&) PBOX wx&,wy&,wx&+ww&,wy&+wh& word0&=0 CASE 27,28 ! WM_SIZED, WM_MOVED IF w&<100 w&=100 ENDIF IF h&<80 h&=80 ENDIF ~WIND_SET(handle&,5,x&,y&,w&,h&) ~WIND_GET(handle&,4,wx&,wy&,ww&,wh&) PBOX wx&,wy&,wx&+ww&,wy&+wh& word0&=0 ENDSELECTUNTIL raus!~WIND_CLOSE(handle&)~WIND_DELETE(handle&)
[…]Heute hab ich ein GFA-Script gefunden (GFA-Basic 3.6 TT), das könnte sehr hilfreich sein wenn man sich da reingearbeitet hat.Zitat' ** window.lst'DEFFILL 1,2,4PBOX 0,19,639,399DEFFILL 1,0[…]
' ** window.lst'DEFFILL 1,2,4PBOX 0,19,639,399DEFFILL 1,0[…]