Dieses schöne Spiel wurde mit amiblitz in einer winuae Umgebung erstellt.
Es sollte auch auf einem echten Amiga mit einer Grafikkarte laufen - wurde von Bluke aber nicht ausprobiert.
Blitz Nano ist ein sehr früher experimenteller AmiBlitz-Syntaxparser für den Nano-Editor.
Er kann auch nur zum Betrachten von AmiBlitz-Dateien verwendet werden.
In diesem Stadium sind keine OS-Funktionen implementiert.
Es könnte möglich sein dies mit einer Art Muster zu erreichen. z.B. " #?_"
Profeta ist eine Studio-Lotto-Software für die italienische Lotterie.
Das Programm läuft auf AmigaOS 3.9 (68k), RTG-Grafikkarte und 16 MB schnellem Ram.
Profeta ist in der Entwicklung und kann in einigen Teilen unvollständig sein.
Das Programm wurde mit Amiblitz 3.61 geschrieben und nur in italienischer Sprache vorhanden.
Carlos Peris hat hier ein kleines Programm zum Senden über die serielle Schnittstelle an ein WiModem erstellt.
Mit diesem Befehl läst sich die Baudrate einstellen.
Zum Beispiel: WiReady AT*B19200
Weist das Modem an, mit 19200 Baud zu arbeiten.
Sie können einen zweiten Parameter angeben, mit der anfänglichen Geschwindigkeit für die Verbindung, für den
Fall von WiModem sind es 300 Baud:
Zum Beispiel: WiReady AT*B19200 300
Der Code stammt aus der Amiblitz-Verteilung, und wurde mit Amiblitz2 kompiliert,
deshalb denke ich, dass er eine FPU benötigt, um ihn auszuführen.
Dieses Archiv enthält die AmigaOS3-Binary, sowie die Blitzbasic- und AmiBlitz-Versionen.
Diese Versionen befinden sich im Ordner "Deserted House" und sind für Verwendung auf älteren und Low-End-Amigas. Bitte beachten Sie die separate Readme-Datei für diese Versionen.
Geschichte:
Zunächst war dies ein Selbstlernprojekt, um etwas Blitz Basic/AmiBlitz zu lernen. Also war es zunächst nur ein einfaches Text-Adventure. Später wuchs das Projekt und es wurde eine GUI hinzugefügt, später auch einige Grafiken. Die Blitz-Version wurde zusammen mit dem AmiKitXE-Release veröffentlicht. Damals mit dem Titel "Abandoned House".
Später wurde das Spiel nach Hollywood portiert, und einige weitere Grafiken wurden hinzugefügt.
Jetzt ist es für alle Amiga-Systeme verfügbar, sowie für Android.
Stefano Maria Regattin hat hier einen noch nicht voll funktionsfähigen MIDI- und Sample-Sequenzer erstellt. Der in Textformat umgewandelte Quellcode dieses Programms läst sich mit Blitz2 (Blitz Basic 2) oder auch AmiBlitz2 oder besser AmiBlitz3, selbst modifizieren. Mit AmiBlitz2 läuft das Ganze nur mit einem mathematischen Koprozessor (FPU). Mehr informationen findet Ihr unter dem Titellink.
Case#cut
While Joyb(0)>0
wx=WMouseX:wy=WMouseY
WJam3
drawrect{oldx,oldy,wx,wy,drawcol}
VWait:drawrect{oldx,oldy,wx,wy,drawcol}
Wend
WJam0
If wx<oldx Then Exchange wx,oldx
If wy<oldy Then Exchange wy,oldy
If wx=oldx OR wy=oldy Then Goto cute
GetaShape0,oldx,oldy,wx-oldx,wy-oldy
MakeCookie0
sw=ShapeWidth(0)
sh=ShapeHeight(0)
rx=sw/2:ry=sh/2
Handle0,rx,ry
frontpen=-1
cute:
End Select
Return
.
.intuicodes
Select ev
._mbut
Case$8
If EventWindow=#palwin
res=palhit{WMouseX,WMouseY}
If res>-1
drawcol=res
status{"col="+Str$(drawcol),1}
Use Window #palwin
EndIf
EndIf
Case$40
._gads
Select GadgetHit
Case #up
Case #down
Case #left
Case #right
Case #tobuffer
Case #frombuffer
Case #insertframe
Case #deleteframe
Case #playanim
Case #save
Case #load :Gosub loadpic
Case #freihand :drawmod=#freihand
Case #bogen
Case #linie :drawmod=#linie
Case #rechteck :drawmod=#rechteck
Case #ellipse :drawmod=#ellipse
Case #text
Case #lupe:If GadgetStatus(0,#lupe)Then Gosub openlup Else Gosub closelup
Case #cut :drawmod=#cut
Case #rotier
Case #flipx
Case #flipy
Case #clear
;Use BitMap0:Cls backcol
Use Window #picwin:WCls
Case #undo
Case #info
End Select
drwstatus{drawmod}
Case$400
._keys
ev$=LCase$(Inkey$)
Select ev$
Case Chr$(27):exit=1 ;QUIT
Case "p"
If palstatus=0
uwin=Used Window
openpal{}
drawpal{}
Activate #picwin: Use Window #picwin
Else
CloseWindow #palwin:palstatus=0
Use Window uwin
EndIf
; status{"Palette not implemented",7}
; Delay_50
; drwstatus{drawmod}
End Select
End Select
Return
.
.loadpic
FindScreen0,"board"
g$=ASLFileRequest$("name of picture to load",pa$,fi$,pat$)
If g$<>""
If ILBMInfo(g$)
FlushEvents$400000
VWait12
CloseWindow #picwin
VWait12
Free BitMap0
VWait12
CloseScreen #picwin
VWait12
newscreen{ILBMWidth,ILBMHeight,ILBMDepth,ILBMViewMode}
LoadBitMap0,g$,#picwin:ShowPalette #picwin
EndIf
EndIf
Return
.
.openlup
Use Screen #picwin
Window #zoomwin,w/2,14,w/2,h-14-45,$800,"",0,0
WCls 1
; BitMap 1,320,256,d
; BitMap 2,320,256,d
Return
.updatelup:
; Use BitMap 1: BitMapOutput1 ;do actual zooming!
; x=xm-azoom3 : y=ym-bzoom3 ;subtract zoom width/height
; If x<0 Then x=0 ;check for off screen
; If y<0 Then y=0
; If x>w-azoom Then x=w-azoom
; If y>h-bzoom Then y=h-bzoom
; Use BitMap0
; Scroll x,y,azoom,bzoom,0,0,0 ;grab the block
; azoom2.w=azoom+8 ;increase to make
; If azoom>320 Then azoom=320 ; sure window will be full
; ????? 1,2,0,0,azoom2,bzoom ;do X4
; Use Window 0
; BitMaptoWindow 2,2,0,0,0,0,windwmod,windh ;copy zoom into window
; windw.w=w/2
; windh.w=h
; windwmod.w=windw-(windw MOD zoom)
; azoom.w=(windw)/4
; bzoom.w=(windh)/4
; azoom3=azoom ASR 1
; bzoom3=bzoom ASR 1
Return
