Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Geburtstagsfeuerwerk... xD
| Uploader: |  The_Muh |
| Datum/Zeit: | 01.10.2008 19:28:03 |
screenres 1024, 756,,,&H01
dim x as integer
dim y as integer
dim abw_x as integer
dim abw_y as integer
dim col as integer
SETMOUSE ,,0
randomize timer
sub watch()
dim key as string
dim mx as integer
dim my as integer
dim new_x as integer
dim new_y as integer
getmouse my, mx
do
sleep 10
getmouse new_y, new_x
if new_x <> mx then exit do
if new_y <> my then exit do
key = inkey
loop until key <> ""
end
end sub
sub text()
do
locate 48 - 5, 64 -13
print "# # ##### ##### ##### # #"
locate 48 - 4, 64 -13
print "# # # # # # # # # #"
locate 48 - 3, 64 -13
print "##### ##### ##### ##### #"
locate 48 - 2, 64 -13
print "# # # # # # #"
locate 48 - 1, 64 -13
print "# # # # # # #"
locate 48 + 1, 64 - 21
print "#### # #### ##### # # ### ##### # #"
locate 48 + 2, 64 - 21
print "# # # # # # # # # # # # # #"
locate 48 + 3, 64 - 21
print "#### # #### # ##### # # ##### #"
locate 48 + 4, 64 - 21
print "# # # # # # # # # # # # #"
locate 48 + 5, 64 - 21
print "#### # # # # # # ### # # #"
sleep 10500
cls
loop
end sub
Dim TH1 as Any Ptr = ThreadCreate(Cast(Any Ptr, @watch))
Dim TH2 as Any Ptr = ThreadCreate(Cast(Any Ptr, @text))
do
for i as integer = 1 to 21
col = rnd * 14 + 1
x = rnd * 923 + 50
y = rnd * 656 + 50
for i2 as integer = 1 to 75
abw_x = rnd*i2 +1 - i2/2
abw_y = rnd*i2 +1 - i2/2
pset(x + abw_x, y + abw_y), col
sleep 1
next i2
sleep 10
next i
loop