I have a source code I am working in AMOS but I am finding very difficult to do my thing on it...and I am wondering how can I convert it from AMOS to AmiBlitz code?

'
' These need to be global as they're referenced within
' a couple of procedures:
'
' Flag indicating a valid hit:
Global FH
' Countdown timer for the "Invalid Action!" display:
Global DC

' Hide everything until we've finished drawing:
Auto View Off
Screen Open 0,320,200,32,Lowres
Curs Off
Flash Off
Colour 0,$0 : Rem Screen Background
Colour 1,$FFF : Rem Dot
Colour 2,$F00 : Rem Dat after it's been hit
' This colour represents your background IFF pic, just don't use colours
' 0 thru 2 in the picture!
Colour 3,$FF0
Colour 4,$FFF : Rem Border (so you can't select it as a dot)
Cls 0
' Centres your rectangular play area:
XO=(320-256)/2

Ink 4
Box XO+0,0 To XO+255,167
' This bar represents your background pic:
Ink 3
Bar XO+1,1 To XO+254,166

For X=0 To 31
For Y=0 To 20
X1=X*8+4+XO
Y1=Y*8+4
Ink 1
Bar X1-1,Y1-1 To X1+1,Y1+1
Ink 0
Box X1-2,Y1-2 To X1+2,Y1+2
Next Y
Next X
Auto View On
Screen Show 0
' There MUST be a Wait Vbl before you use Limit Mouse!
Wait Vbl
Limit Mouse X Hard(XO+0),Y Hard(0) To X Hard(XO+255),Y Hard(167)
Paper 0
Pen 1
Ink 2
DC=-1
FD=True : Rem Flag for First Dot hit
Repeat
Wait Vbl
If DC=0
Locate 10,23
Print Chr$(7);
Dec DC
Else If DC>0
Dec DC
End If
MC=Mouse Click

If MC=%1 : Rem left mouse click
X=X Screen(X Mouse)
Y=Y Screen(Y Mouse)
CP=Point(X,Y)
If CP=1
FH=False
If FD
' First dot to be hit, so no fancy checks needed:
Bell 80
Paint X,Y,2
FH=True
FD=False
Else
X1=X-8
Y1=Y
If X1>XO : Proc _CHECK_HIT[X,Y,X1,Y1] : End If
If Not FH
X1=X
Y1=Y-8
If Y1>0 : Proc _CHECK_HIT[X,Y,X1,Y1] : End If
End If
If Not FH
X1=X+8
Y1=Y
If X1<XO+255 : Proc _CHECK_HIT[X,Y,X1,Y1] : End If
End If
If Not FH
X1=X
Y1=Y+8
If Y1<167 : Proc _CHECK_HIT[X,Y,X1,Y1] : End If
End If
If Not FH
' Right colour but no adjacent hit dots:
Proc _MISS
End If
End If
Else If CP=2
' Dot already hit
Proc _MISS
End If
End If
'
' Simple right-click to exit for this demo:
'
Until MC=%10

Procedure _CHECK_HIT[X,Y,X1,Y1]
'
' Check if the dot at X1,Y1 has been hit
' If it has, we're OK to set the one at X,Y
If Point(X1,Y1)=2
Bell 80
Paint X,Y,2
' Set the hit flag to indicate no more checking is necessary
' Without this, you'd get a trill of bells!
FH=True
End If
End Proc

Procedure _MISS
' Chr$(7) clears to end of line
Locate 10,23
Print "Invalid Action!";Chr$(7);
DC=50 : Rem Set the Countdown Timer for 1 second
Boom
End Proc

Edit

Die nächste Version von AmigaMonkey steht in den Startlöchern. Es gibt in dieser Version keine nennenswerten Änderungen an den Modulen, es ging hier eher um die Anpassung an die aktuellste Monkey Version und die Möglichkeit Compiler Optionen zu definieren. Wer also gerne explizit Code für einen 68000 erzeugen möchte darf dies demnächst tun.

Sollten wir das Forum nicht Englisch machen? Das hat viele an Amiforce gestört. Ich denke so viel English kann wohl jeder, dass er die Seite navigieren kann. Die meisten Begirffe sind sowieso schon Englisch (News, Off-Topic etc.)

Ich habe hier noch einen SQL Dump von Joomla rumliegen aus dem ich die Tutorials von Blackbird extrahieren konnte. Zwar habe ich das HTML etwas aufgeräumt, aber inhaltlich scheint mir die Sache nicht mehr wirklich aktuell zu sein. Vielleicht kann ja mal jemand mit zuviel Zeit drüber schauen und eventuell sogar korrigieren:

<!-- m --><a class="postlink" href="http://www.amiblitz.de/index.php?page=/tutorials/blackbird/index.html">http://www.amiblitz.de/index.php?page=/ ... index.html</a><!-- m -->

Das Teil ist noch nicht offiziell verlinkt.

Wenn ihr einen neuen Beitrag erstellt, oder einen Beitrag bearbeitet, findet ihr über dem Editor-Fenster in der Button-Leiste ganz rechts nun den Knopf "ab3". Dieser erstellt ein BBCode Konstrukt welches euch die Eingabe von AmiBlitz Source ermöglicht welcher dann im Beitrag highlighted wird.

Beispiel:
[ab3]Statement InitDisplay{}
SHARED base.BaseData

If Used Window = 0 Then CloseWindow 0 ; close the splash screen

ylog{"> ... try " + Str$(base.BaseData\width) + "x" + Str$(base.BaseData\height) + "x" + Str$(base.BaseData\colordepth)}

; mode setting
mode.l = #dbl_scr_BestModeID
If base.BaseData\windowed = 1 Then mode = #dbl_scr_Window

If dbl_Init{"Holla die Waldfee", mode, base.BaseData\width, base.BaseData\height, base.BaseData\colordepth}
ylog{" OK!"} : ylog{" "}
Else
err.s = "cant initialize display width " + Str$(base.BaseData\width) + "x" + Str$(base.BaseData\height) + "x" + Str$(base.BaseData\colordepth)
ylog{" !Error: " + err}
error{err}

End
EndIf
End Statement[/ab3]

Beachte:

• Das Highlighting basiert auf JavaScript ... ohne JavaScript kein Highlighting
  
• Der Highlighter ist case-sensitive. Ein "wbstartup" wird nicht highlighted, ein "WBStartup" schon.
  
• Es sind erst sehr wenige Keywords eingetragen, ich trage aber permanent neue Keywords nach.
  
• AmiBlitz³ Keywords sind in diesem Style blau, TK-Include Funktionen sind orange und Chipset-abhängige Funktionen sind rot.

Ab sofort werden die letzten 3 Posts aus diesem Forum auf der Website unter der Navigationsleiste angezeigt.

Hallo,

hat jemand einen Vorschlag, wie man BB2 das Rechnen mit 64 Bit beibringt? Ich hatte so etwas schonmal irgendwo gesehen, glaube ich.
Im Prinzip müßte man sich nur einen neuen 8Byte Type bauen. Aber wie geht es weiter? Als ASM-Funktion wäre das schon optimal, aber da würde man ja ständig gegen Mauern laufen, oder? Gäbe sicher ständig Überläufe bei 32Bit-Grenze.

Leider ist Amiforce.de noch immer offline und CJ-Stroker scheint auch nicht erreichbar zu sein. Also habe ich ein Forum auf dieser Domain neben der offiziellen AmiBlitz Seite eingerichtet.

Dieser Server ist seit 5 Jahren störungsfrei gelaufen und ich denke dass er dies auch in Zukunft tun wird.

Ich wünsche allen Blitzbasic Fans viel Glück mit ihren Projekten und gute Diskussionen in diesem Board.