2009

For everything that's not in any way related to PureBasic. General chat etc...
User avatar
Kaeru Gaman
Addict
Addict
Posts: 4826
Joined: Sun Mar 19, 2006 1:57 pm
Location: Germany

Post by Kaeru Gaman »

Rook Zimbabwe wrote:Only 3 more years until the end of the world!!!
http://www.youtube.com/watch?v=ivHaMNBt_kk
oh... and have a nice day.
DarkDragon
Addict
Addict
Posts: 2348
Joined: Mon Jun 02, 2003 9:16 am
Location: Germany
Contact:

Post by DarkDragon »

Rook Zimbabwe wrote:Only 3 more years until the end of the world!!!
As 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 ...
bye,
Daniel
thefool
Always Here
Always Here
Posts: 5875
Joined: Sat Aug 30, 2003 5:58 pm
Location: Denmark

Post by thefool »

That was horrible :shock:
A sneak-peak on the end (not the lyrics, their singing...)
As 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 ...
Buy more honey and save the bees. Good plan :)
DarkDragon
Addict
Addict
Posts: 2348
Joined: Mon Jun 02, 2003 9:16 am
Location: Germany
Contact:

Post by DarkDragon »

Hmm bees and maya:

Image
bye,
Daniel
SFSxOI
Addict
Addict
Posts: 2970
Joined: Sat Dec 31, 2005 5:24 pm
Location: Where ya would never look.....

Post by SFSxOI »

according to NASA a comet could possibly slam into the earth in April 2037, which will cause a "life extinction event"
User avatar
Kaeru Gaman
Addict
Addict
Posts: 4826
Joined: Sun Mar 19, 2006 1:57 pm
Location: Germany

Post by Kaeru Gaman »

it's an Asteroid and his name is "Apophis"...
and he passes earth's orbit every five years or so.
oh... and have a nice day.
Baldrick
Addict
Addict
Posts: 860
Joined: Fri Jul 02, 2004 6:49 pm
Location: Australia

Post by Baldrick »

Rook Zimbabwe wrote:Only 3 more years until the end of the world!!!
I think Rook you are wrong. I am sure M$ is planning to release Windows 7 before then!!! :twisted:
freak
PureBasic Team
PureBasic Team
Posts: 5958
Joined: Fri Apr 25, 2003 5:21 pm
Location: Germany

Post by freak »

SFSxOI wrote:according to NASA a comet could possibly slam into the earth in April 2037, which will cause a "life extinction event"
Just in time to save us from the year 2038 problem :D
quidquid Latine dictum sit altum videtur
User avatar
idle
Always Here
Always Here
Posts: 6187
Joined: Fri Sep 21, 2007 5:52 am
Location: New Zealand

Post by idle »

2037 will pass without a blip and at 03:14:08 UTC on 19 January 2038. Those of us born before 1st Jan 1970 will get to relive our childhoods or teens as the matrix resets. :lol:
Windows 11, Manjaro, Raspberry Pi OS
Image
Baldrick
Addict
Addict
Posts: 860
Joined: Fri Jul 02, 2004 6:49 pm
Location: Australia

Post by Baldrick »

@Idle,
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!! 8)
User avatar
idle
Always Here
Always Here
Posts: 6187
Joined: Fri Sep 21, 2007 5:52 am
Location: New Zealand

Post by idle »

Apparently the matrix has you...
:lol:

an old but good one

http://www.youtube.com/watch?v=yX8yrOAjfKM
Tipperton
Addict
Addict
Posts: 1286
Joined: Thu Jun 19, 2003 7:55 pm

Post by Tipperton »

Baldrick wrote:
Rook Zimbabwe wrote:Only 3 more years until the end of the world!!!
I think Rook you are wrong. I am sure M$ is planning to release Windows 7 before then!!! :twisted:
:lol:
User avatar
Rook Zimbabwe
Addict
Addict
Posts: 4322
Joined: Tue Jan 02, 2007 8:16 pm
Location: Cypress TX
Contact:

Post by Rook Zimbabwe »

Tipperton wrote:
Baldrick wrote:
Rook Zimbabwe wrote:Only 3 more years until the end of the world!!!
I think Rook you are wrong. I am sure M$ is planning to release Windows 7 before then!!! :twisted:
:lol:
+1 :lol:
Binarily speaking... it takes 10 to Tango!!!

Image
http://www.bluemesapc.com/
Post Reply