[DBP] Hiding Effect - GameCreators Forum

developer forums

Code Snippets / [DBP] Hiding Effect

Author

Message

MummyKillerSLO

Years of Service

User Offline

Joined: 5th Jul 2009

Location: Object Position Y(ObjChair)

Posted: 11th Jul 2009 21:15

Link

Hi all!

I just copy a code from old project to new and delete something and then i saw that i made like one hiding effect

+ Code Snippet

WindowWidth# = 200
WindowHeight# = 300
PosX# = 100
PosY# = 100
FOR a = 0 to 200
ax = rnd(640)
bx = rnd(480)
center text ax,bx,"DarkBASIC Professional"
next a
DO
Mx# = MOUSEX()
My# = MOUSEY()
LOCK PIXELS
FOR x# = PosX# TO WindowWidth#
FOR y# = PosY# TO WindowHeight#
DotX# = Mx# + x# - WindowWidth# / 2
DotY# = My# + y# - WindowHeight# / 2
PointColor = POINT(DotX#,DotY#)
Red = RGBR(PointColor) - 40
Green = RGBG(PointColor) - 40
Blue = RGBB(PointColor) - 40
IF Red > 255 THEN Red = 255
IF Green > 255 THEN Green = 255
IF Blue > 255 THEN Blue = 255
IF Red < 0 THEN Red = 0
IF Green < 0 THEN Green = 0
IF Blue < 0 THEN Blue = 0
DOT DotX#,DotY#,RGB(Red,Green,Blue)
NEXT x#
NEXT y#
UNLOCK PIXELS
LOOP

I have software and now I am ready to make DLL files

Profile PM Website

Sixty Squares

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 14th Jul 2009 03:45

Link

Pretty cool it's like an eraser

<-- Spell based team dueling game!

Profile PM Email

Server time is: 2024-05-18 18:30:14
Your offset time is: 2024-05-18 18:30:14

Sorry your browser is not supported!

Code Snippets / [DBP] Hiding Effect