Graphics 640,480,16,2




   Locate 0,0
   name$ = Input("wie ist dein name ")
   Print "ahh dein name ist also " +name
   WaitKey()
   Cls
   
   
   Locate 0,0
   nachname$ = Input("wie ist dein nachname " )
   Print "Ah grüß gott herr " + nachname + " " + name
   WaitKey()
   Cls

Graphics 640,480,0,2
SetBuffer BackBuffer()
Dim Textarray$(1000)
Datei=ReadFile("blubb.txt")
i=1
readed$=""
Repeat
   readed$=ReadLine(Datei)
   Textarray(i)=readed$   ;Text der Datei auslesen
   i=i+1
   If Eof(Datei) Then Exit
Forever
Textarray(i-1)=""
CloseFile(Datei)
scrolled%=1
zeilen%=0
While Not KeyDown(1)
   zeilen=0   ;Die gemalten Zeilen wieder auf 0 setzen.
   scrolled=scrolled-MouseZSpeed()   
   If scrolled<1 Then scrolled=1
   maxscroll=scrolled*53   ;Bis zum Bildschirmrand
   While maxscroll>1000
      maxscroll=maxscroll-1   ;Darauf achten, dass man nicht aus dem Array gelangt!
   Wend
   For i=scrolled To maxscroll
      zeilen=zeilen+1      ;Gemalter Zeilenwert.
      Text 0,zeilen*12,Textarray(i)   ;Malen
   Next
   Text 400,0,scrolled
   Flip
   Cls
Wend

Function Region1()
Print "Du befindest dich im Wald des Lebens"
Print "Im Dickicht erkennt ihr einen Wolf. Er ist alleine. Greift ihr ihn an?
r1w1$ = Input()
If r1w1 = "ja" Then
 wolf1.feind = New feind
 wolf1\name$="Wolf"
 wolf1\schaden%=3
 wolf1\leben3%=5
ElseIf r1w1 = "nein" Then
 Print "Als ihr euch vorbeischleichen wollt wird er durch seine geschärften Sinne auf euch aufmerksam!"
 Print "Wegrennen bringt nichts. Ihr müsst kämpfen!"
 wolf1.feind = New feind
 wolf1\name$="Wolf"
 wolf1\schaden%=3
 wolf1\leben3%=5
EndIf
If wolf1\leben3%= 5 Then
 wolf1\leben3%= - schaden1 - schaden2 - mana2
 leben1% = leben1 - schaden
 leben2% = leben2 - schaden
EndIf
If wolf1\leben3>0 Then
 Print "Der Wolf ist nicht tot. Rennt weg!!"
 r1w4$ = Input()
EndIf
If r1w4 = "ja" Then
 Print "Ihr entkommt in dem ihr einen Wasser fall herunterspringt!"
EndIf
If wolf1\leben3<1 Then
 Print "Der Wolf ist tot. Wollt ihr abreisen?"
 r1w2$ = Input()
EndIf
If r1w4 = "nein" And wolf1\leben3<1 Then
 Print "Der Wolf ist tot- und welch Wunder- hatte 50 Goldstücke dabei."
 Gold% =Gold + 50
EndIf
If r1w2 = "nein" Then
 Print "Als ihr noch länger herumstreift findet ihr eine Höhle mit einem Schatz."
 Gold% =Gold + 100
 Print "Nun müsst ihr aber abreisen."
EndIf
If r1w4 = "nein" Then
 Print "Also gut."
 wolf1\leben3%= - schaden1 - schaden2 - mana2
 leben1% = leben1 - schaden
 leben2% = leben2 - schaden
EndIf
Print "Du hast die Möglichkeit nach Osten oder nach Süden zu gehen. Im Osten hast du gestartet und im Süden erkennt ihr die Türme einer Stadt."
Print "Schreibe ost oder süd."
r1$ = Input()
If r1 = "ost" Then
 Region2
ElseIf r1 = "süd" Then
 Region5
EndIf
End Function

;GUI
Type Tbutton
   Field name$
   Field x
   Field y
   Field width
   Field height
   Field tooltip$
   Field mark
   Field textx
   Field texty
End Type
Global mouse_X,mouse_Y
Global gui_Tbutton.Tbutton,button$
Global gui_width=GraphicsWidth(),gui_height=GraphicsHeight()
;GUI ENDE

;Beispielprogramm
Graphics 800, 600,0,2
SetBuffer BackBuffer()
; Schriftart
Global Schrift
Schrift=LoadFont("Arial",14)
SetFont Schrift
frametimer=CreateTimer(60)
;Buttons erstellen
new_button("Start",450,270,"Alienshooter Spielen",1,90,20)
new_button("Laden",445,295,"Gespeichertes Spiel laden",0,90,20)
new_button("Optionen",440,320,"Einstellungen bearbeiten",0,90,20)
new_button("Anleitung",435,345,"Steuerung, Hindergrundstory und mehr",0,90,20)
new_button("Beenden",430,370,"Alienshooter beenden",1,90,20)

While KeyDown(184)=False And KeyDown(62)=False
   If timer=False Then WaitTimer (frametimer)
   Cls
   ;flushs
   FlushKeys
   FlushMouse
   mouse_X=MouseX()
   mouse_Y=MouseY()
   
   draw_button()
   
   ;buttonover
   button$=check_button$()
   ;buttonhit   
   If MouseDown(1)
      If button$="Beenden"
         Goto ende
      ElseIf button$="Start"
         del_button("Start")
         del_button("Laden")
         del_button("Optionen")
         del_button("Anleitung")
         del_button("Beenden")
         Goto game
      EndIf
   EndIf
   Flip
Wend

.game

.ende
End

;GUI FUNKTIONEN
Function new_button(name$,x,y,tooltip$=False,mark=True,width=False,height=False)
   gui_Tbutton.Tbutton=New Tbutton
   If height=False
      height=FontHeight()
      If (height Mod 2)<>0
         height=height+1
      EndIf
      height=height+2
   EndIf
   If width=False
      width=StringWidth(name$)+10
   EndIf
   gui_Tbutton\name$=name$
   gui_Tbutton\x=x
   gui_Tbutton\y=y
   gui_Tbutton\width=width
   gui_Tbutton\height=height
   gui_Tbutton\tooltip$=tooltip$
   gui_Tbutton\mark=mark
   gui_Tbutton\textx=x+(width/2)
   gui_Tbutton\texty=y+(height/2)
End Function
Function draw_button()
   Local textx,texty
   For gui_Tbutton.Tbutton=Each Tbutton
      Color 255,255,255
      Rect gui_Tbutton\x,gui_Tbutton\y,gui_Tbutton\width,gui_Tbutton\height,0
      Text gui_Tbutton\textx,gui_Tbutton\texty,gui_Tbutton\name$,1,1
   Next
End Function
Function check_button$()
   Local returnvalue$,breite,hoehe=FontHeight(),textx
   If (hoehe Mod 2)<>0
      hoehe=hoehe+1
   EndIf
   hoehe=hoehe+2 ; rand
   For gui_Tbutton.Tbutton=Each Tbutton
      If mouse_X>=gui_Tbutton\x And mouse_X<=(gui_Tbutton\x+gui_Tbutton\width) And mouse_Y>=gui_Tbutton\y And mouse_Y<=(gui_Tbutton\y+gui_Tbutton\height)
         returnvalue$=gui_Tbutton\name$
         If gui_Tbutton\mark=True
            Color 105,105,0
            Rect gui_Tbutton\x,gui_Tbutton\y,gui_Tbutton\width,gui_Tbutton\height,1
            Color 255,255,255
            Rect gui_Tbutton\x,gui_Tbutton\y,gui_Tbutton\width,gui_Tbutton\height,0
            Local xx,yy
            Color 0,0,0
            For yy = -1 To 1
               For xx = -1 To 1
                  Text gui_Tbutton\textx+xx,gui_Tbutton\texty+yy,gui_Tbutton\name$,1,1
               Next
            Next
            Color 255,255,255
            Text gui_Tbutton\textx,gui_Tbutton\texty,gui_Tbutton\name$,1,1
         EndIf
         If gui_Tbutton\tooltip <> False
            breite=StringWidth (gui_Tbutton\tooltip$)
            If (mouse_X+breite+15)>gui_width
               textx=mouse_X-breite-5
            Else
               textx=mouse_X+11
            EndIf
            Color 0,0,0
            Rect textx-2,mouse_Y-hoehe/2,breite+4,hoehe
            Color 255,255,255
            Rect textx-2,mouse_Y-hoehe/2,breite+4,hoehe,0
            Text textx,mouse_Y,gui_Tbutton\tooltip,0,1
         EndIf
         Exit
      EndIf
   Next
   Return returnvalue$
End Function
Function del_button(name$)
   For gui_Tbutton.Tbutton=Each Tbutton
      If gui_Tbutton\name$=name$
         Delete gui_Tbutton.Tbutton
         Exit
      EndIf
   Next
End Function

Graphics 800,600,0,2       ;Bildschirm öffnen
SetBuffer BackBuffer()     ;Setzt einen 2ten Buffer, auf einen zeichnet man, der andere wird angezeigt
timer=CreateTimer(60)      ;Setzt einen timer, damit die Prozessorlast niedrig gehalten wird und das "Spiel" nicht zu schnell läuft

While Not KeyDown(1)       ;Hauptschleife
   WaitTimer(timer)        ;Bremst das Spiel, sieht zeile 3
   Cls                     ;löscht den bilsschirm
   
   Text 0,5,"Ein text"     ;schreibt den text "Ein text" an die Position 0,5
   
   a=a+5                   ;erhöht a
   If a>GraphicsWidth()      ;wenn a größer ala die Breite des bildschirms ist
      a=a-GraphicsWidth()  ;wird die bildschirmbreite abgezogen
   EndIf
   Rect a,200,10,10        ;zeichnet ein rechteck mit der x-Koordinate a und er größe 10x10
   Flip                    ;tauscht die buffer aus
Wend
End