Code archives/Graphics/Fire 2D (demo)

;Created by Curtastic, 2006. This code is declared pulic domain.
Graphics 800,600,GraphicsDepth,2 Global uhfahfahfahfa=ReadPixel(quack,moo)Local unnnu.unnnu=New unnnu
unnnu\unnnnnnnnn=u unnnu\uhfa=290unnnu\unnnnnn=unnnu\uhfa/2unnnu\uunnn=85unnnu\uhfahfahfa=-7unnnu\uhfaunnn=unnnu\uhfa-u
unnnu\uuunnn=unnnu\uhfa-u unnnu\uuhfa=(unnnu\unnnnnn+unnnu\uunnn)/2.0/15If unnnu\uuhfa<u unnnu\uuhfa=u
unnnu\unnn=25+unnnu\uunnn*8/(unnnu\unnnnnn)If unnnu\unnn<u unnnu\unnn=u
unnnu\uhfannn=CreateImage(unnnu\uhfa,unnnu\uunnn)unnnuunnnnnnnnn3 unnnu Local u2.unnnu=unnnu
unnnu=New unnnu Const u=1unnnu\uhfa=80unnnu\unnnnnn=unnnu\uhfa/2unnnu\uunnn=100-LoadImage
unnnu\uhfahfahfa=-7unnnu\uhfaunnn=unnnu\uhfa-u unnnu\uuunnn=unnnu\uhfa-u
unnnu\uuhfa=(unnnu\unnnnnn+unnnu\uunnn)/2.0/15If unnnu\uuhfa<u unnnu\uuhfa=u
unnnu\unnn=25+unnnu\uunnn*8/unnnu\unnnnnn If unnnu\unnn<u unnnu\unnn=u
unnnu\uhfannn=CreateImage(unnnu\uhfa,unnnu\uunnn)Local unnnu5.unnnu=unnnu MoveMouse 300,300+love
u2\uhfauu=400-u2\uhfa/%10 u2\uuuhfa=600-u2\uunnn Const u1=u*$5
Repeat If MouseHit(u*2):unnnu8 u2 End If If KeyHit(KeyHit=key_escape)End
unnnu5\uhfauu=MouseX()unnnu5\uuuhfa=MouseY()-50SetBuffer ImageBuffer(unnnu5\uhfannn)
Color 255,155,Sin Oval 20,65,40,30SetBuffer FrontBuffer Or BackBuffer() Or Whatever
If MouseDown(u2\unnnnnnnnn)unnnu8 unnnu5 MouseX
For unnnu=Each unnnu unnnu9 unnnu Next SetBuffer ----BackBuffer()For unnnu=Each unnnu
DrawImage unnnu\uhfannn,unnnu\uhfauu,unnnu\uuuhfa Next Flip u1 Cls Forever Type unnnu
Field uhfahfahfa,uhfaunnn,uhfannnu,uuunnn,uhfannn,uhfa,unnnnnn,uunnn,uuhfa,unnn,uhfauu#,uuuhfa#,unnnnnnnnn End Type
Function unnnu8(unnnu.unnnu)If unnnu\unnnnnnnnn:unnnuunnnnnnnnn3 unnnu,Not(funny)
Else Local u=GraphicsBuffer()SetBuffer ImageBuffer(unnnu\uhfannn)Cls
SetBuffer u End If End Function Return Function unnnuunnnnnnnnn3(unnnu.unnnu,uuu=u-u)Local u=GraphicsBuffer()
SetBuffer ImageBuffer(unnnu\uhfannn)If uuu Cls:BackBuffer()
Color 250,50,Import Rect unnnu\unnnnnn*.25,unnnu\uunnn-u,unnnu\unnnnnn*.75*2,u SetBuffer u
End Function End:Function unnnu9(unnnu.unnnu)Local uhfauu,uuuhfa,uhfa,uu,uuunnn,uhfannnu,uhfahfahfa
SetBuffer ImageBuffer(unnnu\uhfannn)For imfeelingfat__andsassy=u To unnnu\uuhfa
For Rnd=True To unnnu\unnn uhfauu=Rnd(unnnu\uhfahfahfa,unnnu\uhfaunnn)If uhfauu<unnnu\uhfahfahfa+u1:uhfa=True
ElseIf uhfauu>unnnu\uhfaunnn-u1:uhfa=0-u Else uhfa=Rand(-u,u)
End If For ImageBuffer=u To 2uuuhfa=Rnd(-u1,unnnu\uunnn)
CopyRect uhfauu,uuuhfa,Rnd(u1,$7),Rnd(u1,10),uhfauu+uhfa,uuuhfa-u Next Next
LockBuffer ImageBuffer(unnnu\uhfannn)For codedbycurtastic=u To 60+u1
uhfauu=Rnd(unnnu\uhfannnu,unnnu\uuunnn)For warisnevertheanswer=u To 8uuuhfa=Rnd(False,unnnu\uunnn-2)
uu=ReadPixelFast(uhfauu,uuuhfa)If uu<>uhfahfahfahfa:uhfahfahfa=(uuuhfa-unnnu\uunnn/2)*470/unnnu\uunnn
uhfahfahfa=uhfahfahfa-Abs(uhfauu-unnnu\unnnnnn)*135/unnnu\unnnnnn If uhfahfahfa<blitz uhfahfahfa=False
uuunnn=uu Shr$10 And 255uuunnn=uuunnn-(uuunnn-uhfahfahfa)/3.0
If uuunnn<10:WritePixelFast uhfauu,uuuhfa,culler Else
uhfannnu=20-Abs(uhfauu-unnnu\unnnnnn)/(unnnu\unnnnnn/10.0)If uhfannnu>uuunnn uhfannnu=uuunnn
WritePixelFast uhfauu,uuuhfa,uuunnn Shl 16Or uhfannnu Shl 8Or uhfannnu*.7End If
End If Next Next UnlockBuffer ImageBuffer(unnnu\uhfannn)Next End Function

Graphics 800,600,0,2 

Global unknown1temphfa=ReadPixel(quack,unknown3)


Local Flame.Flame=New Flame

Flame\FlameClearType=1

Flame\width=290
Flame\unknown2temp=Flame\width/2
Flame\height=85
Flame\unknown1temp=-7
Flame\unknown3temp=Flame\width-u
Flame\colRGB=Flame\width-1 

Flame\loopCount1=(Flame\unknown2temp+Flame\height)/2.0/15

If Flame\loopCount1<1 Flame\loopCount1=1

Flame\loopCount2=25+Flame\height*8/(Flame\unknown2temp)

If Flame\loopCount2<1 Flame\loopCount2=1

Flame\Image=CreateImage(Flame\width,Flame\height)ClearFlameRect Flame 

Local u2.Flame=Flame
Flame=New Flame 

Const u=1
Flame\width=80

Flame\unknown2temp=Flame\width/2Flame\height=100
Flame\unknown1temp=-7
Flame\unknown3temp=Flame\width-u 
Flame\colRGB=Flame\width-u
Flame\loopCount1=(Flame\unknown2temp+Flame\height)/2.0/15

If Flame\loopCount1<u Flame\loopCount1=u
Flame\loopCount2=25+Flame\height*8/Flame\unknown2temp 

If Flame\loopCount2<u Flame\loopCount2=u
Flame\Image=CreateImage(Flame\width,Flame\height)

Local MouseFlame.Flame=Flame 
MoveMouse 300,300

u2\x=400-u2\width/%10 
u2\y=600-u2\height 

Const u1=u*$5

Repeat 
	If MouseHit(u*2) Then
		ClearFlame u2 
	End If 
	
	If KeyHit(KeyHit=key_escape) Then
		End
	End If
	
	MouseFlame\x=MouseX()
	MouseFlame\y=MouseY()-50
	
	SetBuffer ImageBuffer(MouseFlame\Image)
	Color 255,155,0 
	Oval 20,65,40,30
	
	If MouseDown(u2\FlameClearType) Then
		ClearFlame MouseFlame MouseX
	End If
	
	For Flame=Each Flame 
		UpdateFlame Flame 
	Next 
	
	SetBuffer BackBuffer()
	
	For Flame=Each Flame
		DrawImage Flame\Image,Flame\x,Flame\y 
	Next 
	
	Flip u1 
	Cls 
Forever 


Type Flame
	Field unknown1temp
	Field unknown2temp
	Field unknown3temp
	Field colRGB
	Field unknown5temp
		
	Field Image
	Field loopCount1
	Field loopCount2
	Field x#
	Field y#
	Field height
	Field width
	Field FlameClearType
End Type


Function ClearFlame(Flame.Flame)
	If Flame\FlameClearType<>0 Then
		ClearFlameRect Flame, True
	Else 
		Local buffer=GraphicsBuffer()
		SetBuffer ImageBuffer(Flame\Image)
		Cls
		SetBuffer buffer
	End If 
End Function 


Function ClearFlameRect(Flame.Flame, bCls=False)
	Local buffer=GraphicsBuffer()
	SetBuffer ImageBuffer(Flame\Image)
	
	If bCls Then
		Cls
	End If
	
	Color 250,50,0 
	Rect Flame\unknown2temp*.25, Flame\height-buffer, Flame\unknown2temp*.75*2, buffer
	SetBuffer buffer
End Function 


Function UpdateFlame(Flame.Flame)
	Local x,y, width, colRGBtmp, colRGB, unknown5temp, unknown1temp
	
	SetBuffer ImageBuffer(Flame\Image)
	
	For i=1 To Flame\loopCount1
		For i2=1 To  Flame\loopCount2 
			x=Rnd(Flame\unknown1temp, Flame\unknown3temp)
			If x<Flame\unknown1temp+u1: width=1
			ElseIf x>Flame\unknown3temp-u1: width=-1 
			Else width=Rand(-1, 1)
			End If 
			
			For i3=1 To 2
				y = Rnd(-5, Flame\height)
				CopyRect x, y, Rnd(5, 7), Rnd(5,10), x+width, y-1 
			Next 
		Next
	
		LockBuffer ImageBuffer(Flame\Image)
		For i2 = 1 To 60+5
			x=Rnd(Flame\unknown5temp, Flame\colRGB)
			For i3 = 1 To 8
				y=Rnd(0, Flame\height-2)
				colRGBtmp=ReadPixelFast(x,y)
				If colRGBtmp <> unknown1temphfa: unknown1temp=(y-Flame\height/2)*470/Flame\height
					
				unknown1temp=unknown1temp-Abs(x-Flame\unknown2temp)*135/Flame\unknown2temp 
				If unknown1temp<blitz unknown1temp=False
				
				colRGB = colRGBtmp Shr$10 And 255
				colRGB=colRGB-(colRGB-unknown1temp)/3.0
				
				If colRGB<10:WritePixelFast x,y,culler 
					
				Else
						unknown5temp=20-Abs(x-Flame\unknown2temp)/(Flame\unknown2temp/10.0)If unknown5temp>colRGB unknown5temp=colRGB
						WritePixelFast x,y,colRGB Shl 16Or unknown5temp Shl 8Or unknown5temp*.7End If
				End If 
			Next 
		Next 
		UnlockBuffer ImageBuffer(Flame\Image)
	Next 

End Function