; English forum:
; Author: GPI (updated for PB4.00 by blbltheworm)
; Date: 22. September 2003
; OS: Windows
; Demo: Yes

Global Dim col(320,200) 
Global Dim hotspot(320,200) 

If InitSprite() 
  If InitKeyboard() 
    If OpenScreen(320,200,8,"PureFire") 
      If InitPalette() 
        If InitMouse() 
          MouseLocate(160,100) 
      
CreatePalette(0) 
For i=0 To 63 
  SetPaletteColor(0,i,RGB(i*4,0,0)) 
Next 
For i=0 To 63 
  SetPaletteColor(0,i+64,RGB(255,i*4,0)) 
Next 
For i=0 To 63 
  SetPaletteColor(0,i+64+64,RGB(255,255,i*4)) 
Next 
SetPaletteColor(0,255,RGB(255,255,255)) 


DisplayPalette(0) 

LoadFont(0,"Arial",30) 
StartDrawing(ScreenOutput()) 

text$="Set on Fire by GPI" 
DrawingFont(FontID(0)) 
DrawingMode(1) 
FrontColor(RGB(255,255,255)) 
DrawText((320-TextWidth(text$))>>1,199-60,text$) 

LineXY(0,199,319,199) 


For y=0 To 199 
  For x=0 To 319 
    If Point(x,y)>0 
      hotspot(x,y)=1 
    EndIf 
  Next 
Next 
StopDrawing() 
FreeFont(0) 

;For y=195 To 199 
;  For x=0 To 319 
;    hotspot(x,y)=random(2) 
;  Next 
;Next 
      

dodown=0:dodownmax=1 
Repeat 
  dodown+1:If dodown=dodownmax:dodown=0:EndIf 
  For y=0 To 199 
    For x=0 To 319 
      If hotspot(x,y) 
        col(x,y)=Random(255) 
      EndIf 
    Next 
  Next 
  
  ;mouse 
  hotspot(MouseX(),MouseY())=1 
  
  For NY=1 To 199 
    nym1=ny-1:If nym1<0:nym1=0:EndIf 
    nyp1=ny+1:If nyp1>199:nyp1=199:EndIf 
    For NX=0 To 319 
      nxm1=nx-1:If nxm1<0:nxm1=0:EndIf 
      nxp1=nx+1:If nxp1>319:nxp1=319:EndIf 
      
      A=col(NXp1,NY) 
      B=col(NXm1,NY) 
      C=col(NX,NYp1) 
      D=col(NX,NYm1) 
      
      E=col(NXm1,NYm1) 
      F=col(NXp1,NYm1) 
      G=col(NXm1,NYp1) 
      H=col(NXp1,NYp1) 
    
      i=(A+B+C+D+E+F+G+H)>>3 
      If dodown=0 
        i-Random(1) 
      EndIf 
      If i<0:i=0:EndIf 
      If i>191:i=191:EndIf 
      
      col(nx,ny-1)=i 
      
    Next 
  Next 
    
  StartDrawing(ScreenOutput()) 
  adr=DrawingBuffer() 
  add=DrawingBufferPitch() 
  For y=0 To 199 
    adr2=adr 
    For x=0 To 319 
      If hotspot(x,y) 
        PokeB(adr2,100):adr2+1 
      Else 
        PokeB(adr2,col(x,y)):adr2+1 
      EndIf 
    Next 
    adr+add 
  Next 
  StopDrawing() 
  ExamineMouse()  
  ExamineKeyboard() 
  FlipBuffers() 
Until KeyboardPushed(#PB_Key_All) 

        EndIf 
      EndIf 
    EndIf 
  EndIf 
EndIf 

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; Executable = C:\Programming\FireEffect.exe
; DisableDebugger