Mir war in den Ferien fad und darum hab ich was geproggt.
Weil mir nichts bessers einfiel, hab ich es ColoredCircleTraffic (CCT) genannt. (Ich weiß, klingt blöde.
)Einfach probieren:
Code: Alles auswählen
; ColoredCircleTraffic V1.1
; by AndyX 2005
; Coded in half an hour... ( Mir war einfach fad... :D )
; ######################################################
; Alles Initen. ( Lustig... :D )
InitSprite()
InitKeyboard()
OpenScreen(800,600,32,"bla")
; Alle Variablen ( O_O Sooo viel... :D )
x = 10
y = 10
x2 = 100
y2 = 100
x3 = 200
y3 = 200
x4 = 250
y4 = 250
x5 = 15
y5 = 300
x6 = 400
y6 = 0
x7 = 100
y7 = -15
r = 255
g = 255
b = 255
r2 = 127
g2 = 127
b2 = 127
r3 = 63
g3 = 63
b3 = 63
r4 = 31
g4 = 31
b4 = 31
r5 = 170
g5 = 170
b5 = 170
r6 = 200
g6 = 200
b6 = 200
r7 = 255
g7 = 255
b7 = 255
; Hauptschleife. ( Jippieee... :D )
Repeat
ClearScreen(0,0,0)
ExamineKeyboard()
; Alle Berechnungen. ( Bewegung, Farbe ) Pffff... Sooo viel... :D
If y = 10 And x < 780
x + 10
r - 8
g - 8
ElseIf x = 780 And y < 580
y + 10
r + 6
g + 6
ElseIf y = 580 And x > 10
x - 10
g - 8
b - 8
ElseIf x = 10 And y > 10
y - 10
g + 6
b + 6
EndIf
If y2 = 100 And x2 < 700
x2 + 8
r2 - 6
g2 - 6
ElseIf x2 = 700 And y2 < 500
y2 + 8
r2 + 4
g2 + 4
ElseIf y2 = 500 And x2 > 100
x2 - 8
g2 - 6
b2 - 6
ElseIf x2 = 100 And y2 > 100
y2 - 8
g2 + 4
b2 + 4
EndIf
If y3 = 200 And x3 < 600
x3 + 5
r3 - 5
g3 - 5
ElseIf x3 = 600 And y3 < 400
y3 + 5
r3 + 3
g3 + 3
ElseIf y3 = 400 And x3 > 200
x3 - 5
g3 - 5
b3 - 5
ElseIf x3 = 200 And y3 > 200
y3 - 5
g3 + 3
b3 + 3
EndIf
If y4 = 250 And x4 < 650
x4 + 8
r4 - 4
g4 - 4
ElseIf x4 = 650 And y4 < 350
y4 + 5
r4 + 2
g4 + 2
ElseIf y4 = 350 And x4 > 250
x4 - 8
g4 - 4
b4 - 4
ElseIf x4 = 250 And y4 > 250
y4 - 10
g4 + 2
b4 + 2
EndIf
x5 + 10
If x5 > 850
x5 - 880
Else
r5 + 6
b5 + 2
g5 + 1
EndIf
y6 + 12
If y6 > 630
y6 - 650
Else
r6 + 7
b6 + 3
g6 + 2
EndIf
x7 + 7
y7 + 7
If y7 > 620
y7 = -15
x7 = 100
Else
r7 + 9
b7 + 5
g7 = 4
EndIf
; Alles Zeichnen ( Juhuuuu... Malen! :D )
StartDrawing(ScreenOutput())
Circle(x,y,10,RGB(r,g,b))
Circle(x2,y2,9,RGB(r2,g2,b2))
Circle(x3,y3,8,RGB(r3,g3,b3))
Circle(x4,y4,7,RGB(r4,g4,b4))
Circle(x5,y5,15,RGB(r5,g5,b5))
Circle(x6,y6,12,RGB(r6,g6,b6))
Circle(x7,y7,9,RGB(r7,g7,b7))
StopDrawing()
FlipBuffers()
; Schluss für heute... ( :( Bitte nicht... :D )
Until KeyboardPushed(1)AndyX
?
