Jump to content

This program is devoted to niteKram


Achilles
 Share

Recommended Posts

Hey, having watched niteKram signature for a while I decided to write this:

#Include <Misc.au3>
#noTrayIcon
Opt("GUICloseOnESC", 1) 
Dim $comment[13]
$comment[1] = "Smash forehead against keyboard to continue."
$comment[2] = "Close your eyes and press escape three times."
$comment[3] = "Press any key except... no, No, NO, NOT THAT ONE!"
$comment[4] = "Runtime error 399461 - Incompitent user"
$comment[5] = "This will end your windows session - Do you want to play another game?" 
$comment[6] = "You hard drive has been scanned and all stolen software titles have" & @CRLF & "been deleted. The police are on the way." 
$comment[7] = "Bad command or file name - Go stand in the corner." 
$comment[8] = "Press any key to continue or any other key to quit." 
$comment[9] = "BREAKFAST.SYS halted - Cereal port not responding."
$comment[10] = "User error - Replace user."
$comment[11] = "Press Ctrl + Alt + Del for IQ test."
$comment[12] = "Enter any 11 digit prime number to continue."
$old = -1

AdlibEnable("CheckExit", 100)

While 1 
    Sleep(Random(60 * 1000, 300 * 1000, 1))
    Do 
        $temp = Random(1,12,1)
    Until $temp <> $old
    Msgbox(16, "ERROR", $comment[$temp])
    $old = $temp
Wend

Func CheckExit() 
    If BitAnd(_IsPressed("11"), _IsPressed("51")) then Exit
EndFunc

Exit is Ctrl + Q...

My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites

This is cool...How can I turn it into a GIF file after compiling?

The best way would be to use something like IrfanView so you can capture the user window.

Save each as a gif file. If you want to use them in a sig then use a Gif animator to add each file into the animation.

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...