For everything that's not in any way related to PureBasic. General chat etc...
jack
Addict
Posts: 1358 Joined: Fri Apr 25, 2003 11:10 pm
Post
by jack » Fri Jul 01, 2005 1:47 am
from
http://board.win32asmcommunity.net/inde ... ;topicseen
[quote author=QvasiModo link=topic=21380.msg161586#msg161586 date=1120065955]
Some funny code found on the net, it's supposed to really compile and work (haven't tried though):
Code: Select all
char*lie;
double time, me= !0XFACE,
not; int rested, get, out;
main(ly, die) char ly, **die ;{
signed char lotte,
dear; (char)lotte--;
for(get= !me;; not){
1 - out & out ;lie;{
char lotte, my= dear,
**let= !!me *!not+ ++die;
(char*)(lie=
"The gloves are OFF this time, I detest you, snot\n\0sed GEEK!");
do {not= *lie++ & 0xF00L* !me;
#define love (char*)lie -
love 1s *!(not= atoi(let
[get -me?
(char)lotte-
(char)lotte: my- *love -
'I' - *love - 'U' -
'I' - (long) - 4 - 'U' ])- !!
(time =out= 'a'));} while( my - dear
&& 'I'-1l -get- 'a'); break;}}
(char)*lie++;
(char)*lie++, (char)*lie++; hell:0, (char)*lie;
get *out* (short)ly -0-'R'- get- 'a'^rested;
do {auto*eroticism,
that; puts(*( out
- 'c'
-('P'-'S') +die+ -2 ));}while(!"you're at it");
for (*((char*)&lotte)^=
(char)lotte; (love ly) [(char)++lotte+
!!0xBABE];){ if ('I' -lie[ 2 +(char)lotte]){ 'I'-1l ***die; }
else{ if ('I' * get *out* ('I'-1l **die[ 2 ])) *((char*)&lotte) -=
'4' - ('I'-1l); not; for(get=!
get; !out; (char)*lie & 0xD0- !not) return!!
(char)lotte;}
(char)lotte;
do{ not* putchar(lie [out
*!not* !!me +(char)lotte]);
not; for(;!'a';);}while(
love (char*)lie);{
register this; switch( (char)lie
[(char)lotte] -1s *!out) {
char*les, get= 0xFF, my; case' ':
*((char*)&lotte) += 15; !not +(char)*lie*'s';
this +1s+ not; default: 0xF +(char*)lie;}}}
get - !out;
if (not--)
goto hell;
exit( (char)lotte);}
[/quote]
Dare2
Moderator
Posts: 3321 Joined: Sat Dec 27, 2003 3:55 am
Location: Great Southern Land
Post
by Dare2 » Fri Jul 01, 2005 2:18 am
@}--`--,-- A rose by any other name ..
xgp
Enthusiast
Posts: 128 Joined: Mon Jun 13, 2005 6:03 pm
Post
by xgp » Fri Jul 01, 2005 11:30 am
How about this one:
Code: Select all
/* Source Code Windows 2000 */
#include "win31.h"
#include "win95.h"
#include "win98.h"
#include "workst~1.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#include "monopoly.h"
#include "backdoor.h"
#define INSTALL = HARD
char make_prog_look_big(16000000);
void main()
{
while(!CRASHED)
{
display_copyright_message();
display_bill_rules_message();
do_nothing_loop();
if (first_time_installation)
{
make_100_megabyte_swapfile();
do_nothing_loop();
totally_screw_up_HPFS_file_system();
search_and_destroy_the_rest_of-OS2();
make_futile_attempt_to_damage_Linux();
disable_Netscape();
disable_RealPlayer();
disable_Lotus_Products();
hang_system();
} //if
write_something(anything);
display_copyright_message();
do_nothing_loop();
do_some_stuff();
if (still_not_crashed)
{
display_copyright_message();
do_nothing_loop();
basically_run_windows_31();
do_nothing_loop();
} // if
} //while
if (detect_cache())
disable_cache();
if (fast_cpu())
{
set_wait_states(lots);
set_mouse(speed,very_slow);
set_mouse(action,jumpy);
set_mouse(reaction,sometimes);
} //if
/* printf("Welcome to Windows 3.1"); */
/* printf("Welcome to Windows 3.11"); */
/* printf("Welcome to Windows 95"); */
/* printf("Welcome to Windows NT 3.0"); */
/* printf("Welcome to Windows 98"); */
/* printf("Welcome to Windows NT 4.0"); */
printf("Welcome to Windows 2000");
if (system_ok())
crash(to_dos_prompt)
else
system_memory = open("a:\swp0001.swp",O_CREATE);
while(something)
{
sleep(5);
get_user_input();
sleep(5);
act_on_user_input();
sleep(5);
} // while
create_general_protection_fault();
} // main
tinman
PureBasic Expert
Posts: 1102 Joined: Sat Apr 26, 2003 4:56 pm
Location: Level 5 of Robot Hell
Contact:
Post
by tinman » Fri Jul 01, 2005 11:44 am
xgp wrote: How about this one:
Code: Select all
char make_prog_look_big(16000000);
:wink:
You obviously got some beta code there, since that line won't compile. Sure this isn't Longhorn? ;p
If you paint your butt blue and glue the hole shut you just themed your ass but lost the functionality.
(WinXPhSP3 PB5.20b14)
sec
Enthusiast
Posts: 792 Joined: Sat Aug 09, 2003 3:13 am
Location: 90-61-92 // EU or ASIA
Contact:
Post
by sec » Sat Jul 02, 2005 10:20 am
Code: Select all
auto accident;
register voters;
static electricity;
struct by_lightning;
void *where_prohibited;
char broiled;
short circuit;
short changed;
long johns;
unsigned long letter;
double entendre;
double trouble;
union organizer;
union jack;
float valve;
short pants;
union station;
void check; unsigned check;
struct dumb by[sizeof member];
union onion; /*submitted by srp*/
/*if GCC extensions are allowed -- Dave Gilbert */
long long ago; /* in a galaxy far far away */
/* Submitted by James Buchanan */
const ipated;
case closed:
double or_nothing;
short sighted;
void if_removed; /* warranty */
volatile buggy_code;
unsigned anonymous;
int erbreed; /* duelling banjos */
/* Borland's additional C keywords */:
huge penis;
interrupt ed;
near sighted;
far out;
men()
{
goto pub;
pub:
return pissed;
}
women()
{
goto bathroom;
bathroom:
while (1) ;
}
http://www.gnu.org/fun/jokes/declarations.html
dagcrack
Addict
Posts: 1868 Joined: Sun Mar 07, 2004 8:47 am
Location: Argentina
Contact:
Post
by dagcrack » Sat Jul 02, 2005 10:54 pm
Don't you guys have something to do?
- Where do you get all that spare time from????!!!!????!!!!???!!!! and even more "!!!!!!!!???!!!!"!!!!
! Black holes are where God divided by zero !
My little blog!
(Not for the faint hearted!)
Tommeh
Enthusiast
Posts: 149 Joined: Sun Aug 29, 2004 2:25 pm
Location: United Kingdom
Post
by Tommeh » Mon Jul 04, 2005 9:03 pm
Here you go guys, some PB code for it
And it does execute just fine
Code: Select all
Global YouAre
!PureBasic equ
Procedure Clueless()
!go equ
YouAre = 1
!forums equ
ProcedureReturn 0
EndProcedure
Procedure A_PureBasic_User()
!the equ
!Then equ
YouAre = 0
!on equ
ProcedureReturn 1
EndProcedure
If You = ClueLess() And YouAre = A_PureBasic_User()
! Then go on the PureBasic forums
EndIf