Screen freezer - GameCreators Forum

developer forums

The 20 Line Challenge / [LOCKED] Screen freezer

Author

Message

Jmahmood

Years of Service

User Offline

Joined: 3rd Apr 2007

Location: not sure

Posted: 26th Dec 2007 19:51

Link

Freeze you screen with my 16 lines.press ESC to escape

+ Code Snippet

Dim getpicture(100)
set display mode 1024,768,32:set window on:set window size 1,1:wait 100
If getpicture(003) = 000
     getpicture(003) = 001 : AppDir$ = Get Dir$()
FName$ = AppDir$ +\"\\screen\" + Str$(getpicture(0002)) + \".jpg\"
     If File Exist(FName$) = 001 Then Delete File FName$
     Save Bitmap FName$
     getpicture(002) = getpicture(002) + 001
 Else
     getpicture(003) = 000
  Endif:set window off:Hide mouse
do
load bitmap \"screen0.jpg\":sync
set text size 40:text 0,0,\"20 LINERS---------------------------------\"
sync
loop

http://eternity.freeweb7.com

Profile PM Email

whipped6

Years of Service

User Offline

Joined: 31st Aug 2006

Location:

Posted: 27th Dec 2007 18:31

Link

What is the point of frezzing your screen?

i could see if you made this a fake virus, but just freezing your screen that is kinda boring.

(((((Not trying to be rude)))))

good little programm for starters though

game creator

Profile PM

Server time is: 2025-05-13 13:56:49
Your offset time is: 2025-05-13 13:56:49

Sorry your browser is not supported!

The 20 Line Challenge / [LOCKED] Screen freezer