Messages

Thank you very much to every one who has supported this forum.
I may not participate much in the forums but still read it from time to time (when i get some free time). I'm very grateful to those keeping the forums up as i've learnt so much from this forum.   

I found KAV to be the best one by far..though i don't use it
I never liked AVG, it never worked properly for me..
I don't have any on my (already slow) system but i'm fairly aware of what i download/use to avoid virus. ;p

Tried HijackThis?
Use it to create a log and look for some suspicious files or post it here.. someone might be able to help you out. If it really is a virus, it looks like some sort of malware or spyware. Usually, Antiviri don't detect them.

ps: HijackThis is one of the way to find this out... there may still be virus/*ware even if there is nothing suspicious in it's logs.

Cool idea! had fun watching that

i agree with jim! 

Stronger Better Faster!

runs smooth on my xp sp2 and exits fine

cool scroller there!

cool game
reminded me of me playing this game for hours

good work dude
runs smooth even on my sad excuse of a pc

The game looks simple and has a odd sense of style ..
but the game play is good.. I don't play much BH but i liked this one.. (too much madness )
I like the way those "cells" rotate on hit.
maybe some blur effect would help with the visual part
Music is awesome.. i love it.

Keep up the good work! 

Thanks man!
I really have been wanting to do more with C++ and this is just perfect!   

great videos!

The LucidTouch one is really an intuitive idea!

That's really bad (and sounds very excruciating) man =[
Hope you get well soon
Good luck for the operation!
See ya at christmas!

Geany is linux thingy XD 
though it has a GTK based windows version..
It's good for linux... though i'd prefer Kate
and if you want a general code editor, Notepad++ seems best choice 

I've used Fbide and FBEdit both
and personally, I liked simplicity of Fbide and Functionality of FBEdit

FBEdit has all the stuff i need and is updated regularly..
Fbide hasn't been updated regularly..Though a new one is under progress
Till then I'll keep using FBEdit..

Kudos!
Rose curves?

damn i'm late! (effing exams)

Happy belated birthday Jim!
hope you had rocker of a party

what rbz said  

yeah, A greenhouse of entries probably

Cool stuff!

here's revision of the code for those who have latest Fb compiler version

Code Select Expand

'
' Plasma Mk1.
'
#Include Once "TinyPtc_Ext.bi"

Const XRES=640
Const YRES=480

Const ARES=XRES*YRES
Const PI As Single = 3.14159

'
' Globals.
'
Dim Shared ScreenBuffer(ARES) as integer
Dim Shared Pal(256) as integer
Dim Shared  as integer x,y,inc
Dim Shared ARGB  as integer
Dim Shared Key As String

'
' Subroutines.
'
Declare Sub FeedPixels( Buffer() as integer, ByVal x As Integer, ByVal y As Integer, ByVal col As Integer)

Declare Sub GeneratePalette(    ByVal Val1 As Integer,_
                                ByVal Val2 As Integer,_
                                ByVal Val3 As Integer )
'
' Setup.
'
PTC_SetDialog(0,"",0,0)
PTC_Open("Plasma Mk1",XRES,YRES)

GeneratePalette(16,128,0)

'
' Main Loop.
'
While Key<>chr(27)
   
    For x = 0 To XRES-1
        For y = 0 To YRES-1
       
        ARGB=    int(  128.0 + (128.0 * sin(x / 16.0))_
            + 128.0 + (128.0 * sin(y / 32.0))_
            + 128.0 + (128.0 * sin(sqr(cdbl((x - XRES / 2.0)* (x - XRES / 2.0) + (y - YRES / 2.0) * (y - YRES / 2.0))) / 8.0))_
            + 128.0 + (128.0 * sin(sqr(cdbl(x * x + y * y)) / 8.0))) / 4
           
            FeedPixels(ScreenBuffer(),x, y, Pal(ARGB+inc and 255))
   
        Next
    Next
   
    inc=inc+16
   
    Ptc_Update @ScreenBuffer(0)
    Erase ScreenBuffer
    Key=Inkey()
   
Wend

'
' Shutdown.
'
PTC_Close()


Sub FeedPixels( Buffer() as integer, ByVal x As Integer, ByVal y As Integer, ByVal col As Integer)
       
    If X>0 And X<XRES-1 And Y>0 And Y<YRES-1 Then
        Buffer(Y * XRES + X) = col
    End If

End Sub


Sub GeneratePalette(    ByVal Val1 As Integer,_
                        ByVal Val2 As Integer,_
                        ByVal Val3 As Integer )
    '
    ' Local variables.
    '
    Dim as integer A,R,G,B
   
    For A=0 To 255
       
        R = int(128.0 + 128 * sin(PI * A / Val1))
        G = int(128.0 + 128 * sin(PI * A / Val2))
        B = int(128.0 + 128 * sin(PI * A / Val3))

        Pal( A ) = ( R Shl 16 ) Or ( G Shl 8 ) Or ( B Shl 0 )
   
    Next

End Sub