Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
schere stein Papier
| Uploader: |  Key_Frogger |
| Datum/Zeit: | 02.10.2009 15:05:02 |
DIM AS INTEGER breite, hoehe
SCREENINFO breite, hoehe
SCREENRES breite, hoehe,32,2,16
Dim x as integer
Dim y as integer
Dim buttons as integer
Dim User as String
Dim SchereW as string
Dim PapierW as string
Dim SteinW as string
Dim loose as string
Dim win as string
Dim Same as string
Dim CKI as String
Dim As Any Ptr Schere
Schere = ImageCreate(90,140)
BLoad "Schere.bmp", Schere
Dim As Any Ptr Papier
Papier = ImageCreate(90,140)
BLoad "Papier.bmp", Papier
Dim As Any Ptr Stein
Stein = ImageCreate(90,140)
BLoad "Stein.bmp", Stein
LINE (0,0)-(breite-1,hoehe-1),&hffff00ff,bf
put (1,30), Schere, pset
put (1,190), Papier, pset
put (1,350), Stein, pset
do
GetMouse (x, y, , buttons)
IF (x >= 1) AND (x <= 89) AND (y >= 30) AND (y <= 110) AND buttons=1 Then
User = SchereW
sleep
exit do
end if
do
GetMouse (x, y, , buttons)
IF (x >= 1) AND (x <= 89) AND (y >= 140) AND (y <= 210) AND buttons=1 Then
User = PapierW
sleep
exit do
end if
do
GetMouse (x, y, , buttons)
IF (x >= 1) AND (x <= 89) AND (y >= 140) AND (y <= 190) AND buttons=1 Then
User = SteinW
sleep
exit do
end if
RANDOMIZE TIMER
CKI = INT(RND * 3) + 1
IF CKI = 1 then SchereC
IF CKI = 2 then PapierC
IF CKI = 3 then SteinC
SLEEP
IF PapierW And SchereC Then Loose
IF PapierW And SteinC Then Win
IF PapierW And PapierC Then Same
IF SchereW And PapierC Then Win
IF SchereW And SteinC Then Loose
IF SchereW And SchereC Then Same
IF SteinW And PapierC Then Loose
IF SteinW And SchereC Then Win
IF SteinW And SteinC Then Same
If Same then Print "you have choose the same weapon"
If Win then Print "you have won!"
IF Loose then Print " you have Loose!"
sleep