;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;!!!!!!!!!!!!!! 2004 by Marcel Kröner !!!!!!!!!!!!!!!!
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!






;anfang
.start
Graphics 1024,768,32,2
AppTitle "Marcel´s Wörterbuch"

papier=LoadImage("data\papier2.data")
TileBlock papier

buch=LoadImage ("data\buch.data")
Color 255,255,255
Rect 0,0,800,100
Color 0,0,0
Locate 200,50 Print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Locate 200,65 Print"!!!!!!!!!!!!!! 2004 by Marcel Kröner !!!!!!!!!!!!!!!!"
Locate 200,80 Print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
DrawImage buch,650,10
DrawImage buch,20,10
Color 0,150,0
Text 745,5, "V.4.00"

font=LoadFont ("Verdana",48,1,0,1)
SetFont font
Color 0,100,255 Text 160,0, "Marcel´s Wörterbuch"
FreeFont font

Locate 0,150
Print ""
Print ""
Color 255,255,255
Print "Gib eine Wortgruppennummer an:"

Print "Zur auswahl stehen:"
Print ""
Print ""
Color 255,0,0
Print "Beleidigungswörter = 1"
Print "Natur = 2"
Color 255,255,255
Print ""
Print ""
auswahl$ = Input ("Gib eine Wortgruppennummer ein: ")
Select (auswahl$)
Case "1" beleidigungswoerter
Case "2" Natur
End Select





;Beleidigungswörter
Function beleidigungswoerter()
Print ""
Print ""
Print "Gib eine Wortnummer an."
Print "Zur Auswahl stehen:"
Print ""
Color 255,0,0
Print ""
Print "Arsch :-) = 1"
Print "Arschloch :-) = 2"
Print ""
Color 50,50,200
Rect 380,180,300,100,1

Color 0,200,0
Text 400,200, "Zu Risiken und Nebenwirkungen"
Text 400,215, "fressen sie die Packungsbeilage"
Text 400,230, "und sagen sie ihrem Artzt,"
Text 400,245, "er sei ein Apotheker."
Color 255,255,255
beleidigung$ = Input ("Gib eine Wortgruppennummer ein: ")
Select (beleidigung$)
Case "1" arsch
Case "2" arschloch

End Select



End Function


;Beleidigungen

Function arschloch()
Print ""
Print "Du brauchst einen Arschkriecher?"
Print "Tut mir echt leid, aber die sind schon ausverkauft:"
Print ""

SetBuffer BackBuffer()
movie=OpenMovie("data\Arschkriecher.data")

While Not KeyHit(1)
If MoviePlaying(movie)=0 Then
CloseMovie movie
movie=OpenMovie("data\Arschkriecher.data")
End If
Color 100,255,50 Text 250,520, "Drücke ESC..."

DrawMovie movie,30,460
Flip

Wend
CloseMovie movie




End Function





Function arsch()
Print ""
Print "Soll ich etwa deinen Arsch abputzen?"
Print ""
arschjn$ = Input ("Ja=1 / Nein=0 : ")
Select (arschjn$)
Case "1" geschissen
Case "0" Print "" : Color 0,255,0 : Print "" : Print "Gott sei Dank!":halleluja=LoadSound ("Data\halleluja.data"):PlaySound halleluja:Delay 5000
End Select
End Function
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Function geschissen()
Print ""
Print "Mach` ich nicht...       Du hast dir bestimmt in die Hose geschissen!  :-)"
fart1=LoadSound ("Data\fart1.data")
fart2=LoadSound ("Data\fart2.data")
PlaySound fart1
Delay 1000
PlaySound fart2
Print ""
Print ""
Delay 5000
End Function



Function Natur()
Print ""
Print ""
Print "Gib eine Wortnummer an."
Print "Zur Auswahl stehen:"
Print ""
Color 255,0,0
Print ""
Print "Tropenwald = 1"

Print ""
Color 255,255,255
beleidigung$ = Input ("Gib eine Wortnummer ein: ")
Select (beleidigung$)
Case "1" Tropenwald

End Select
End Function

Function Tropenwald()
Print ""
Print "In Tropenwäldern leben meist Kifferopas."
Print "Sie bauen gerne Hanf an und stellen sich dann Joints her."
Print ""
Print "Dies ist ein Typischer Kifferopa in seinem Lebensraum:"
Print ""

kiff=LoadImage("data\kiff.bmp")
DrawImage kiff,30,800

Delay 5000

End Function




.ende

EndGraphics:Cls:Goto start