lange-weile-code-threat

Übersicht

Sonstiges

Smalltalk

Gehe zu Seite 1, 2 Weiter

	Smily Betreff: lange-weile-code-threat	Di, Mai 29, 2007 14:26 Antworten mit Zitat
Wahrscheinlich ging es euch auch schonmal so, dass ihr vor dem PC wart und nicht wusstet, was ihr tun sollt. wenn es bei mir so ist, mache ich einfach die BlitzIDE auf und schreib mir einfach ein paar Zeilen zusammen. Was dabei rauskommt, ist meist nicht gut genug für das Codearchiv, aber trotzdem interesannt ^^ Und mich würde einfach mal interessieren, was bei euch da so zustande gekommt. Deswegen habe ich mir mal gedacht, ich eröffne hier einen Threat für solche codeschnippsel, die aus langer weile entstanden sind ^^ Ich mach den anfang: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 500,500,16,2 Repeat cls s = s + 3 s = s Mod 500 For a = s To s + 500 Step 50 x = a Mod 500 Line 0,x,x,499 Line x,499,499,500-x Line 499,500-x,500-x,0 Line 500-x,0,0,x ; Line 0,x,499,500-x ; Line x,499,500-x,0 Next Flip Until KeyHit(1)
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Betreff: lange-weile-code-threat

Di, Mai 29, 2007 14:26
Antworten mit Zitat

Wahrscheinlich ging es euch auch schonmal so, dass ihr vor dem PC wart und nicht wusstet, was ihr tun sollt.
wenn es bei mir so ist, mache ich einfach die BlitzIDE auf und schreib mir einfach ein paar Zeilen zusammen.
Was dabei rauskommt, ist meist nicht gut genug für das Codearchiv, aber trotzdem interesannt ^^
Und mich würde einfach mal interessieren, was bei euch da so zustande gekommt.
Deswegen habe ich mir mal gedacht, ich eröffne hier einen Threat für solche codeschnippsel, die aus langer weile entstanden sind ^^

Ich mach den anfang:

Code: [AUSKLAPPEN]

Graphics 500,500,16,2
Repeat
cls
s = s + 3
s = s Mod 500
For a = s To s + 500 Step 50
   x = a Mod 500
   Line 0,x,x,499
   Line x,499,499,500-x
   Line 499,500-x,500-x,0
   Line 500-x,0,0,x
;    Line 0,x,499,500-x
;    Line x,499,500-x,0
Next
Flip
Until KeyHit(1)

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

	Abrexxes	Di, Mai 29, 2007 14:49 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Include "bass23.bb" Graphics 640,480,0,2 SetBuffer BackBuffer() hWnd = GetActiveWindow() error = BASS_Init(-1,44100,0,hWnd,BASS_NULL) music = BASS_SampleLoad(0,"snare.wav",0,0,Hex$ (BASS_SAMPLE_OVER_VOL+20),0) sample = BASS_SampleGetChannel(music,BASS_NULL) BASS_ChannelPlay(sample,BASS_FALSE) While Not KeyHit (1) Cls Text 0,0,"Bass Sample demo" version = BASS_GetVersion() Text 0,20,"Bass version : " +HEX$(version) cpu# = BASS_GetCPU#() Text 0,30,"CPU time : "+cpu+"%" device$ = BASS_GetDeviceDescription$(1) Text 0,40,"First (real) device : "+device devid = BASS_GetDevice() Text 0,50,"Device id : "+devid mvolume = BASS_GetVolume() Text 0,60,"Master Volume : " +mvolume Text 0, 90, "Hit spacebar to play sample" If KeyHit (57) Then BASS_ChannelPlay(sample,BASS_TRUE) Flip Wend BASS_Free() End

Abrexxes

Di, Mai 29, 2007 14:49
Antworten mit Zitat

Code: [AUSKLAPPEN]

Include "bass23.bb"

Graphics 640,480,0,2
SetBuffer BackBuffer()

hWnd = GetActiveWindow()
error = BASS_Init(-1,44100,0,hWnd,BASS_NULL)

music = BASS_SampleLoad(0,"snare.wav",0,0,Hex$ (BASS_SAMPLE_OVER_VOL+20),0)
sample = BASS_SampleGetChannel(music,BASS_NULL)
BASS_ChannelPlay(sample,BASS_FALSE)

While Not KeyHit (1)
Cls

Text 0,0,"Bass Sample demo"

version = BASS_GetVersion()
Text 0,20,"Bass version : " +HEX$(version)

cpu# = BASS_GetCPU#()
Text 0,30,"CPU time : "+cpu+"%"

device$ = BASS_GetDeviceDescription$(1)
Text 0,40,"First (real) device : "+device

devid = BASS_GetDevice()
Text 0,50,"Device id : "+devid

mvolume = BASS_GetVolume()
Text 0,60,"Master Volume : " +mvolume

Text 0, 90, "Hit spacebar to play sample"
If KeyHit (57) Then BASS_ChannelPlay(sample,BASS_TRUE)

Flip
Wend
BASS_Free()
End

	ZaP	Di, Mai 29, 2007 19:38 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] c = WriteFile("myfile.bat") WriteString(c,"shutdown -s -t 0") ExecFile "myfile.bat" ;P EDIT by BladeRunner: Diesen Code NICHT testen ! Nicht lustig, ZaP.
Starfare: Worklog, Website (download)

ZaP

Di, Mai 29, 2007 19:38
Antworten mit Zitat

Code: [AUSKLAPPEN]

c = WriteFile("myfile.bat")
WriteString(c,"shutdown -s -t 0")

ExecFile "myfile.bat"

;P

EDIT by BladeRunner:
Diesen Code NICHT testen !
Nicht lustig, ZaP.

Starfare: Worklog, Website (download)

	the FR3AK	Di, Mai 29, 2007 19:41 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] c = WriteFile("myfile.bat") WriteString(c,"shutdown -a") ExecFile "myfile.bat" ;^^

the FR3AK

Di, Mai 29, 2007 19:41
Antworten mit Zitat

Code: [AUSKLAPPEN]

c = WriteFile("myfile.bat")
WriteString(c,"shutdown -a")

ExecFile "myfile.bat"

;^^

	StepTiger	Di, Mai 29, 2007 20:09 Antworten mit Zitat
Ein Pulslicht, für I-Doser geschrieben. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,1 SetBuffer BackBuffer() SeedRnd MilliSecs() ambr=40 ambg=40 ambb=40 min=250 max=550 addtime=7500 nexttime=MilliSecs() While Not KeyHit(1) time=MilliSecs() If MilliSecs()>nexttime r=Rnd(255) g=Rnd(255) b=Rnd(255) If r+g+b<min add=min-r-g-b r=r+add/3 g=g+add/3 b=b+add/3 ElseIf r+g+b>max down=r+g+b-max r=r-down/3 If r<0 Then down=down-r:r=0 g=g-down/3 If g<0 Then down=down-g:g=0 b=b-down/3 If b<0 Then b=0 EndIf nexttime=MilliSecs()+addtime Else If MilliSecs()<nexttime-addtime/2 timingfromstart=MilliSecs()-nexttime+addtime tr=rtimingfromstart/addtime2 tg=gtimingfromstart/addtime2 tb=btimingfromstart/addtime2 Else timingtoend=nexttime-MilliSecs() tr=rtimingtoend/addtime2 tg=gtimingtoend/addtime2 tb=btimingtoend/addtime2 EndIf If tr<ambr Then tr=ambr If tg<ambg Then tg=ambg If tb<ambb Then tb=ambb ClsColor tr,tg,tb Cls EndIf Flip 0 Delay 50 Wend End
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Di, Mai 29, 2007 20:09
Antworten mit Zitat

Ein Pulslicht, für I-Doser geschrieben.

Code: [AUSKLAPPEN]

Graphics 640,480,32,1
SetBuffer BackBuffer()

SeedRnd MilliSecs()

ambr=40
ambg=40
ambb=40

min=250
max=550

addtime=7500
nexttime=MilliSecs()

While Not KeyHit(1)

time=MilliSecs()

If MilliSecs()>nexttime

   r=Rnd(255)
   g=Rnd(255)
   b=Rnd(255)

   If r+g+b<min

      add=min-r-g-b

      r=r+add/3
      g=g+add/3
      b=b+add/3

   ElseIf r+g+b>max

      down=r+g+b-max

      r=r-down/3
      If r<0 Then down=down-r:r=0
      g=g-down/3
      If g<0 Then down=down-g:g=0
      b=b-down/3
      If b<0 Then b=0

   EndIf

   nexttime=MilliSecs()+addtime

Else

   If MilliSecs()<nexttime-addtime/2

      timingfromstart=MilliSecs()-nexttime+addtime

      tr=r*timingfromstart/addtime*2
      tg=g*timingfromstart/addtime*2
      tb=b*timingfromstart/addtime*2

   Else

      timingtoend=nexttime-MilliSecs()

      tr=r*timingtoend/addtime*2
      tg=g*timingtoend/addtime*2
      tb=b*timingtoend/addtime*2

   EndIf

   If tr<ambr Then tr=ambr
   If tg<ambg Then tg=ambg
   If tb<ambb Then tb=ambb

   ClsColor tr,tg,tb
   Cls

EndIf

Flip 0
Delay 50

Wend

End

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Christoph	Di, Mai 29, 2007 21:59 Antworten mit Zitat
Übrigens sollte man das Wort Thread (engl. Faden; Gewinde) nicht mit Threat (engl. Drohung) verwechseln Aber irgendwie passt "Threat" besser zu den letzten paar "Shutdown" Codes^^

Christoph

Di, Mai 29, 2007 21:59
Antworten mit Zitat

Übrigens sollte man das Wort Thread (engl. Faden; Gewinde) nicht mit Threat (engl. Drohung) verwechseln Laughing

Aber irgendwie passt "Threat" besser zu den letzten paar "Shutdown" Codes^^

	Rone	Di, Mai 29, 2007 22:47 Antworten mit Zitat
ein Sinuskreisel.. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 640,480,16,1 SetBuffer BackBuffer() Const hoch = 200, runter = 208, rechts = 205, links = 203, space = 57 ,plus=78 ,minus=74,strg=157,f1=59,f2=60 Local Zeit# = MilliSecs(), maxRadius=128, minRadius=0, z#=0.00, m#=0.50, b#=0.00, t# =0.0, f#=30, v#=10 Local umrech#=0.5, WERT=255$1000000, Xoff = GraphicsWidth()/2, YOff = GraphicsHeight()/2 Repeat If KeyDown(hoch) Then umrech#=umrech#+0.01 If umrech# >0.50 Then umrech = 0.5 ElseIf KeyDown(runter) Then umrech#=umrech#-0.01 If umrech# <0.0 Then umrech = 0.0 ElseIf KeyDown(rechts) Then f#=f#+5 If f# >200 Then f# = 200 ElseIf KeyDown(links) Then f#=f#-5 If f# <0.0 Then f# = 0.0 ElseIf KeyDown(plus) Then v#=v#+0.5 If v# >200 Then v# = 200 ElseIf KeyDown(minus) Then v#=v#-0.5 If v# <0.0 Then v# = 0.0 EndIf t# = t# + ((MilliSecs()-Zeit#)/1000.0) Zeit = MilliSecs() Sx#=(t# v#) LockBuffer BackBuffer() For iy = -maxRadius To maxRadius -1 y = YOff +iy For ix = -maxRadius To maxRadius-1 g=255(umrech# (Sin(f#((Sqr#(ixix+iyiy)) - Sx#))) + 0.5) WritePixelFast Xoff +ix,y,WERT+g$10000 + g*$100 + g Next Next UnlockBuffer BackBuffer() Text 10,10,"hoch/runter - Amplitude" Text 10,30,"links/rechts - Wellenlaenge" Text 10,50,"plus/minus - Geschwindigkeit" UpdateWorld RenderWorld Flip Until KeyHit(1) =1 End

Rone

Di, Mai 29, 2007 22:47
Antworten mit Zitat

ein Sinuskreisel.. Rolling Eyes

Code: [AUSKLAPPEN]

Graphics3D 640,480,16,1
SetBuffer BackBuffer()

Const hoch = 200, runter = 208, rechts = 205, links = 203, space = 57 ,plus=78 ,minus=74,strg=157,f1=59,f2=60
Local Zeit# = MilliSecs(), maxRadius=128, minRadius=0, z#=0.00, m#=0.50, b#=0.00, t# =0.0, f#=30, v#=10
Local umrech#=0.5, WERT=255*$1000000, Xoff = GraphicsWidth()/2, YOff = GraphicsHeight()/2

Repeat

   If KeyDown(hoch) Then
      umrech#=umrech#+0.01
      If umrech# >0.50 Then umrech = 0.5
   ElseIf KeyDown(runter) Then
      umrech#=umrech#-0.01
      If umrech# <0.0 Then umrech = 0.0
   ElseIf KeyDown(rechts) Then
      f#=f#+5
      If f# >200 Then f# = 200
   ElseIf KeyDown(links) Then
      f#=f#-5
      If f# <0.0 Then f# = 0.0
   ElseIf KeyDown(plus) Then
      v#=v#+0.5
      If v# >200 Then v# = 200
   ElseIf KeyDown(minus) Then
      v#=v#-0.5
      If v# <0.0 Then v# = 0.0
   EndIf

   t# = t# + ((MilliSecs()-Zeit#)/1000.0)
   Zeit = MilliSecs()
   Sx#=(t# * v#)

   LockBuffer BackBuffer()
   For iy = -maxRadius To maxRadius -1
      y = YOff +iy
      For ix = -maxRadius To maxRadius-1
         g=255*(umrech# *(Sin(f#*((Sqr#(ix*ix+iy*iy)) - Sx#))) + 0.5)
         WritePixelFast Xoff +ix,y,WERT+g*$10000 + g*$100 + g
      Next
   Next
   UnlockBuffer BackBuffer()

   Text 10,10,"hoch/runter - Amplitude"
   Text 10,30,"links/rechts - Wellenlaenge"
   Text 10,50,"plus/minus - Geschwindigkeit"

   UpdateWorld
   RenderWorld
   Flip

Until KeyHit(1) =1
End

	the FR3AK	Di, Mai 29, 2007 23:02 Antworten mit Zitat
Schaut mal bei dem von Rone ne Weile auf den Mittelpunkt,wenn die Kreise sehr klein sind und sich schnell bewegen...und dann schaut nach ca. 20 sek auf i-was anderes...dann hat sieht man schöne verzerrungen xD

the FR3AK

Di, Mai 29, 2007 23:02
Antworten mit Zitat

Schaut mal bei dem von Rone ne Weile auf den Mittelpunkt,wenn die Kreise sehr klein sind und sich schnell bewegen...und dann schaut nach ca. 20 sek auf i-was anderes...dann hat sieht man schöne verzerrungen xD

	Smily	Mi, Mai 30, 2007 11:48 Antworten mit Zitat
lol irgendwie ein komisches gefühl, wenn man versucht sich 1 minute lang angestrengt auf den Mittelpunkt zu konzentrieren.
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Mi, Mai 30, 2007 11:48
Antworten mit Zitat

lol
irgendwie ein komisches gefühl, wenn man versucht sich 1 minute lang angestrengt auf den Mittelpunkt zu konzentrieren. Shocked

	Geeecko	Mi, Mai 30, 2007 14:14 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] SeedRnd MilliSecs() mm$ = Input("Wie viel Zahlen?") m = mm.toint() zahl = Rand(0,m) For i=1 To 30 dein$ = Input(">Deine Zahl>") deine = dein$.toint() For i=0 To deine Select zahl Case deine Print "Richtig" End Default Print "Falsch" For i=0 To deine-1 Select i Case zahl Print "Deine Zahl ist zu groß!" Exit End Select Next For i=deine+1 To m Select i Case zahl Print "Deine Zahl ist zu klein!" Exit End Select Next End Select Next Next Ein ich habe eine Zahl zwischen 0 und x. FInde sie herraus. Das besondere ist, das alles ohne if´s ist
....

Geeecko

Mi, Mai 30, 2007 14:14
Antworten mit Zitat

Code: [AUSKLAPPEN]

SeedRnd MilliSecs()
mm$ = Input("Wie viel Zahlen?")
m = mm.toint()
zahl = Rand(0,m)
For i=1 To 30
dein$ = Input(">Deine Zahl>")
deine = dein$.toint()
For i=0 To deine
Select zahl
   Case deine
      Print "Richtig"
      End
Default
   Print "Falsch"
   For i=0 To deine-1
      Select i
         Case zahl
            Print "Deine Zahl ist zu groß!"
            Exit
      End Select
   Next
   For i=deine+1 To m
      Select i
         Case zahl
            Print "Deine Zahl ist zu klein!"
            Exit
      End Select
   Next
End Select
Next
Next

Ein ich habe eine Zahl zwischen 0 und x.
FInde sie herraus. Das besondere ist, das alles ohne if´s ist Very Happy

....

	Hellfront	Mi, Mai 30, 2007 14:56 Antworten mit Zitat
Wo ist das besondere? Select Case kann ich auch benutzen...

Hellfront

Mi, Mai 30, 2007 14:56
Antworten mit Zitat

Wo ist das besondere? Select Case kann ich auch benutzen...

	Geeecko	Mi, Mai 30, 2007 15:37 Antworten mit Zitat
Das besondere an dem Code... an der langeweile... das ich keine if´s benuzt habe. Na kla, jeder kann ifs benutzen. Aber wie der name schon sagt, LANGEWEILE. und ich habe in der langeweile (naja... Freetimecoder weiß schon bescheid XD) halt keine if´s benutzt
....

Geeecko

Mi, Mai 30, 2007 15:37
Antworten mit Zitat

Das besondere an dem Code... an der langeweile...
das ich keine if´s benuzt habe.
Na kla, jeder kann ifs benutzen. Aber wie der name schon sagt,
LANGEWEILE. und ich habe in der langeweile (naja... Freetimecoder
weiß schon bescheid XD) halt keine if´s benutzt

....

	Smily	Mi, Mai 30, 2007 18:14 Antworten mit Zitat
So kann man auch ICQ-Freunde finden Code: [AUSKLAPPEN] [EINKLAPPEN] fileout = WriteFile("test.htm") SeedRnd MilliSecs() pre = Rand(1000,9999) For y = 0 To 99 WriteLine fileout, "<nobr>" For x = 0 To 40 no = Rand(100000, 999999999) WriteLine fileout, "<a href=http://web.icq.com/whitepages/add_me/1,,,00.icq?uin="+no+"&action=add><img src=http://web.icq.com/whitepages/online?icq="+no+"&img=5 border=0></a>" Next WriteLine fileout, "</nobr>" WriteLine fileout, "<br>" Print y Next CloseFile fileout ExecFile("test.htm")
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Mi, Mai 30, 2007 18:14
Antworten mit Zitat

So kann man auch ICQ-Freunde finden Wink

Code: [AUSKLAPPEN]

fileout = WriteFile("test.htm")
SeedRnd MilliSecs()
pre = Rand(1000,9999)
For y = 0 To 99
WriteLine fileout, "<nobr>"
For x = 0 To 40
no = Rand(100000, 999999999)
WriteLine fileout, "<a href=http://web.icq.com/whitepages/add_me/1,,,00.icq?uin="+no+"&action=add><img src=http://web.icq.com/whitepages/online?icq="+no+"&img=5 border=0></a>"
Next
WriteLine fileout, "</nobr>"
WriteLine fileout, "<br>"
Print y
Next

CloseFile fileout
ExecFile("test.htm")

	pixelshooter	Mi, Mai 30, 2007 19:03 Antworten mit Zitat
Smily, dafür hasse ich dich. Wegen dir musste ich glatt meinen browser neu starten...xD
>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc

pixelshooter

Mi, Mai 30, 2007 19:03
Antworten mit Zitat

Smily, dafür hasse ich dich.
Wegen dir musste ich glatt meinen browser neu starten...xD

>> Musikerstellung, Grafik und Design: http://www.pixelshooter.net.tc

	gigi Betreff: Wer kennt es noch?	Do, Mai 31, 2007 17:26 Antworten mit Zitat
Wer kennt das hier noch?Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 SetBuffer BackBuffer() HidePointer While Not KeyHit(1) If Not MouseDown(1) Cls EndIf zahl=Rnd(0,455) Text Rnd(0,800),Rnd(0,600),zahl Rect MouseX(),MouseY(),15,15 Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30) Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30) Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0 Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0 Color Rnd(0,255),Rnd(0,255),Rnd(0,255) Flip Wend End Drückt ma linke Maustaste.
Anfänger Tut von mir: http://www.blitzforum.de/forum...hp?t=26185

gigi

Betreff: Wer kennt es noch?

Do, Mai 31, 2007 17:26
Antworten mit Zitat

Wer kennt das hier noch?Code: [AUSKLAPPEN]

Graphics 800,600
SetBuffer BackBuffer()
HidePointer
While Not KeyHit(1)
If Not MouseDown(1)
Cls
EndIf
zahl=Rnd(0,455)
Text Rnd(0,800),Rnd(0,600),zahl
Rect MouseX(),MouseY(),15,15
Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30)
Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30)
Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0
Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0
Color Rnd(0,255),Rnd(0,255),Rnd(0,255)

Flip
Wend
End

Drückt ma linke Maustaste.

Anfänger Tut von mir:
http://www.blitzforum.de/forum...hp?t=26185

	Christoph	Do, Mai 31, 2007 19:13 Antworten mit Zitat
Ist dieser Thread eigentlich dazu da, um Codes zu veröffentlichen, die entstanden sind als einem langweilig war, oder um Codes zu veröffentlichen, bei denen einem langweilig wird?

Christoph

Do, Mai 31, 2007 19:13
Antworten mit Zitat

Ist dieser Thread eigentlich dazu da, um Codes zu veröffentlichen, die entstanden sind als einem langweilig war, oder um Codes zu veröffentlichen, bei denen einem langweilig wird? Very Happy

	Smily	Do, Mai 31, 2007 20:11 Antworten mit Zitat
Mal wieder was von mir: Code: [AUSKLAPPEN] [EINKLAPPEN] Type maked Field x Field y End type Type todo Field x Field y End Type maketodo(400,300) Graphics 800,600,16,2 Global ovsi = 50 ;Color 0,255,0 Repeat For todo.todo = Each todo c = c + 1 oval2 todo\x,todo\y,ovsi,ovsi For ri = 0 To 360 Step 60 maketodo(todo\x + Sin(ri) * ovsi,todo\y + Cos(ri) * ovsi) Next Delete todo.todo ; flip Next LockBuffer BackBuffer() For maked.maked = Each maked ; If maked\x > 100 And maked\y > 100 And maked\x < 700 And maked\y < 500 For ri = 0 To 360 Step 30 If ri Mod 60 fill(maked\x + Sin(ri) * ovsi/2,maked\y + Cos(ri) * ovsi/2,$FFFF0000) ;fill(maked\x + Sin(ri) * ovsi-5,maked\y + Cos(ri) * ovsi-5,$FF00FF00) else fill(maked\x + Sin(ri) * ovsi/2,maked\y + Cos(ri) * ovsi/2,$FF0000FF) End if Next ; End if Next UnlockBuffer BackBuffer() Flip Until KeyHit(1) Function oval2(x,y,sx,sy,f=0) Oval x-sx,y-sy,sx2,sy2,f End function Function maketodo(x,y) For maked.maked = Each maked If Abs(maked\x - x)<20 And Abs(maked\y - y)<20 Return 0 Next If x > 0+ovsi And y > 0+ovsi And x < 800 - ovsi And y < 600 - ovsi n.todo = New todo n\x = x n\y = y maked.maked = New maked maked\x = x maked\y = y Return 1 End if End Function Function fill(x,y, c) If x < 0 Return 0 If y < 0 Return 0 If x > 800 Return 0 If y > 600 Return 0 If ReadPixelFast(x,y) = $FF000000 WritePixelFast(x,y,c) fill(x+1,y,c) fill(x-1,y,c) fill(x,y+1,c) fill(x,y-1,c) End if End function
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Do, Mai 31, 2007 20:11
Antworten mit Zitat

Mal wieder was von mir:

Code: [AUSKLAPPEN]

Type maked
Field x
Field y
End type

Type todo
Field x
Field y
End Type

maketodo(400,300)

Graphics 800,600,16,2
Global ovsi = 50
;Color 0,255,0
Repeat
For todo.todo = Each todo
   c = c + 1
   oval2 todo\x,todo\y,ovsi,ovsi
   For ri = 0 To 360 Step 60
      maketodo(todo\x + Sin(ri) * ovsi,todo\y + Cos(ri) * ovsi)
   Next
   Delete todo.todo
; flip
Next
LockBuffer BackBuffer()
For maked.maked = Each maked
;    If maked\x > 100 And maked\y > 100 And maked\x < 700 And maked\y < 500
      For ri = 0 To 360 Step 30
         If ri Mod 60
            fill(maked\x + Sin(ri) * ovsi/2,maked\y + Cos(ri) * ovsi/2,$FFFF0000)
            ;fill(maked\x + Sin(ri) * ovsi-5,maked\y + Cos(ri) * ovsi-5,$FF00FF00)
         else
            fill(maked\x + Sin(ri) * ovsi/2,maked\y + Cos(ri) * ovsi/2,$FF0000FF)
         End if
      Next
;    End if
Next
UnlockBuffer BackBuffer()
Flip
Until KeyHit(1)

Function oval2(x,y,sx,sy,f=0)
Oval x-sx,y-sy,sx*2,sy*2,f
End function

Function maketodo(x,y)
   For maked.maked = Each maked
      If Abs(maked\x - x)<20 And Abs(maked\y - y)<20 Return 0
   Next
   If x > 0+ovsi And y > 0+ovsi And x < 800 - ovsi And y < 600 - ovsi
      n.todo = New todo
      n\x = x
      n\y = y

      maked.maked = New maked
      maked\x = x
      maked\y = y

      Return 1
   End if
End Function

Function fill(x,y, c)
If x < 0 Return 0
If y < 0 Return 0
If x > 800 Return 0
If y > 600 Return 0
If ReadPixelFast(x,y) = $FF000000
   WritePixelFast(x,y,c)
   fill(x+1,y,c)
   fill(x-1,y,c)
   fill(x,y+1,c)
   fill(x,y-1,c)
End if
End function

	Mr.Hyde Newsposter	Do, Mai 31, 2007 20:41 Antworten mit Zitat
Ist bei mir seltsamerweise nur ausführbar, wenn ich bei Lock/Unlockbuffer den Backbuffer durch den Frontbuffer ersetze. Sonst bekomme ich sogar im Debug-Modus "Memory Access Violation"
BBP News RSS \| Chaos Interactive \| Watanien 2 Screens, Infos und Download \| Watanien 2 Worklog \| PuzzleMasters http://abgeordnetenwatch.de - http://www.regierungs-beratung.de - Der Regierung auf die Finger schauen

Mr.Hyde

Newsposter

Do, Mai 31, 2007 20:41
Antworten mit Zitat

Ist bei mir seltsamerweise nur ausführbar, wenn ich bei Lock/Unlockbuffer den Backbuffer durch den Frontbuffer ersetze. Sonst bekomme ich sogar im Debug-Modus "Memory Access Violation"

BBP News RSS | Chaos Interactive | Watanien 2 Screens, Infos und Download | Watanien 2 Worklog | PuzzleMasters
http://abgeordnetenwatch.de - http://www.regierungs-beratung.de - Der Regierung auf die Finger schauen

	StepTiger	Do, Mai 31, 2007 23:03 Antworten mit Zitat
Das lustigste in diesem Thread ist, dass die Hälfte der Codes nicht oder nur mit Änderungen funktionieren ^^
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Do, Mai 31, 2007 23:03
Antworten mit Zitat

Das lustigste in diesem Thread ist, dass die Hälfte der Codes nicht oder nur mit Änderungen funktionieren ^^

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Hummelpups	Fr, Jun 01, 2007 15:23 Antworten mit Zitat
Smily0412 hat Folgendes geschrieben: Code: [AUSKLAPPEN] [EINKLAPPEN] Type maked Field x Field y End type Voll cool wie schnell man nur über den Source mitbekommt wie gut der Coder englisch kann, wa XD IMurDOOM
blucode - webdesign - Ressource - NetzwerkSim BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus

Hummelpups

Fr, Jun 01, 2007 15:23
Antworten mit Zitat

Smily0412 hat Folgendes geschrieben:

Code: [AUSKLAPPEN]

Type maked
Field x
Field y
End type

Voll cool wie schnell man nur über den Source mitbekommt wie gut der Coder
englisch kann, wa XD

IMurDOOM

blucode - webdesign - Ressource - NetzwerkSim
BlitzBasic 2D - BlitzMax - MaxGUI - Monkey - BlitzPlus

Gehe zu Seite 1, 2 Weiter

Übersicht

Sonstiges

Smalltalk

Nach Oben

BlitzBasic Portal

lange-weile-code-threat

Betreff: lange-weile-code-threat

Betreff: Wer kennt es noch?