http://www.youtube.com/watch?v=ivHaMNBt_kkRook Zimbabwe wrote:Only 3 more years until the end of the world!!!
2009
- Kaeru Gaman
- Addict

- Posts: 4826
- Joined: Sun Mar 19, 2006 1:57 pm
- Location: Germany
-
DarkDragon
- Addict

- Posts: 2348
- Joined: Mon Jun 02, 2003 9:16 am
- Location: Germany
- Contact:
That was horribleKaeru Gaman wrote:http://www.youtube.com/watch?v=ivHaMNBt_kk
A sneak-peak on the end (not the lyrics, their singing...)
Buy more honey and save the bees. Good planAs Albert Einstein (4 years after the bees have died, this may just be approximately, so if 2008-2010 the bees die, the Mayas will get 50% more attention) and the Mayas (they always were right) said ...
-
DarkDragon
- Addict

- Posts: 2348
- Joined: Mon Jun 02, 2003 9:16 am
- Location: Germany
- Contact:
- Kaeru Gaman
- Addict

- Posts: 4826
- Joined: Sun Mar 19, 2006 1:57 pm
- Location: Germany
Just in time to save us from the year 2038 problemSFSxOI wrote:according to NASA a comet could possibly slam into the earth in April 2037, which will cause a "life extinction event"
quidquid Latine dictum sit altum videtur
@Idle,
Apparently the matrix has you...
Soz, I know this is code I have posted elsewhere years ago, but.... mention matrix & I just have no choice but to repost!!
Apparently the matrix has you...
Code: Select all
OpenConsole()
ConsoleTitle("C:\Programfiles\PureBasic\Compilers")
EnableGraphicalConsole(1)
PrintN("")
For a=1 To 50
Print("*")
Delay(1)
Next
PrintN("")
a$="PureBasic v4.30 <Windows - x86>"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(1)
Next
PrintN("")
For a=1 To 50
Print("*")
Delay(1)
Next
Delay(200)
PrintN("")
a$= "Compiling C:\Programfiles\PureBasic\Examples\Idle.pb"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(20)
Next
Delay(500)
PrintN("")
a$="Loading external libraries..."
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(10)
Next
PrintN("")
Delay(500)
PrintN("Starting compilation...")
Delay(1500)
PrintN("38 lines processed")
Delay(500)
a$= "Creating executable."
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
PrintN("")
Delay(1000)
PrintN("")
a$="- Feel the ..PuRe.. Power -"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(100)
Next
Delay(2000)
PrintN("")
a$="C:\Programfiles\PureBasic\Compilers "
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
Delay(1000)
PrintN("")
a$="exe complete, please press enter to test"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
Input()
ConsoleColor(10,0)
Delay(100)
ClearConsole()
a$="Wake up Idle"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(Random(400))
Next
Delay(3000)
PrintN("")
a$="The Matrix has you"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(Random(400))
Next
Delay(4000)
ClearConsole()
a$="Follow the white rabbit"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(Random(400))
Next
Delay(2000)
ClearConsole()
ConsoleColor(15,0)
PrintN(" (\(\")
PrintN(" ( ';')")
PrintN(" o(^)(^)")
ConsoleColor(10,0)
PrintN(" --------------------------------->")
Print(" He went that way...")
Delay(4000)
ClearConsole()
ConsoleColor(15,0)
PrintN("Test complete, press enter to finish")
Input()
CloseConsole()Soz, I know this is code I have posted elsewhere years ago, but.... mention matrix & I just have no choice but to repost!!
- Rook Zimbabwe
- Addict

- Posts: 4322
- Joined: Tue Jan 02, 2007 8:16 pm
- Location: Cypress TX
- Contact:




