No real programmer would ever use PHP - GoFuckYourself.com

jcsike · 06-09-2009, 01:08 PM

Top 10 Ways to Provoke a Geek Argument
http://www.wired.com/geekdad/2009/06...geek-argument/

10. ?No real programmer would ever use PHP.? - This won?t work for every geek, of course, but for those it works on, it should work really well.

9. ?Comic books are just for kids!? - I?m sure you?ve heard this one before?I know I certainly heard it often enough in high school, and even though it?s even less true now than it was then, I?m sure comic book afficionados still hear it today.

8. ?Role-playing games are just for people who can?t deal with real life.? - There are, sadly, still a lot of people who think anyone who plays D&D must live in his parents? basement and bathe once a month. Such people must be put straight, and immediately!

7. ?The Pirates of the Caribbean movies are so realistic!? - I doubt many people actually believe this, but there are an awful lot of misconceptions about pirates out there, so you never know.

6. ?Yeah, I got an Xbox 360 so my daughter could play Hello Kitty games. Is it really good for anything else?? - We?ve hit the ones that are hard for me even to type, now?

5. ?Mac, Windows, or Linux? Does it really make a difference?? - An argument so old its original form was probably first written down in hieroglyphs, I know, but I don?t know a single geek it wouldn?t work on?myself included.

4. ?The Ewoks were the best thing about the original Star Wars trilogy.? / ?Greedo shot first!? - I couldn?t decide between the two. If one doesn?t work, I?ll bet the other one would.

3. ?Tolkien? Ehhh, I prefer Terry Brooks!? - I almost feel like I should argue with myself just for writing that. I?m going to let the top two stand for themselves.

2. ?Joss Whedon is a hack!?

1. ?I don?t see what?s so bad about DRM!?

art914 · 06-09-2009, 01:13 PM

Quote:

Originally Posted by jcsike

Top 10 Ways to Provoke a Geek Argument
http://www.wired.com/geekdad/2009/06...geek-argument/

10. ?No real programmer would ever use PHP.? - This won?t work for every geek, of course, but for those it works on, it should work really well.

9. ?Comic books are just for kids!? - I?m sure you?ve heard this one before?I know I certainly heard it often enough in high school, and even though it?s even less true now than it was then, I?m sure comic book afficionados still hear it today.

8. ?Role-playing games are just for people who can?t deal with real life.? - There are, sadly, still a lot of people who think anyone who plays D&D must live in his parents? basement and bathe once a month. Such people must be put straight, and immediately!

7. ?The Pirates of the Caribbean movies are so realistic!? - I doubt many people actually believe this, but there are an awful lot of misconceptions about pirates out there, so you never know.

6. ?Yeah, I got an Xbox 360 so my daughter could play Hello Kitty games. Is it really good for anything else?? - We?ve hit the ones that are hard for me even to type, now?

5. ?Mac, Windows, or Linux? Does it really make a difference?? - An argument so old its original form was probably first written down in hieroglyphs, I know, but I don?t know a single geek it wouldn?t work on?myself included.

4. ?The Ewoks were the best thing about the original Star Wars trilogy.? / ?Greedo shot first!? - I couldn?t decide between the two. If one doesn?t work, I?ll bet the other one would.

3. ?Tolkien? Ehhh, I prefer Terry Brooks!? - I almost feel like I should argue with myself just for writing that. I?m going to let the top two stand for themselves.

2. ?Joss Whedon is a hack!?

1. ?I don?t see what?s so bad about DRM!?

u-Bob · 06-09-2009, 01:14 PM

had to google "Joss Whedon"

06-09-2009, 01:21 PM

You got me, I saw the thread title and got out my sword and shield ready for battle.

JamesK · 06-09-2009, 01:24 PM

Quote:

Originally Posted by Killswitch

You got me, I saw the thread title and got out my sword and shield ready for battle.

qxm · 06-09-2009, 01:24 PM

I use them sexy C++ n C# YO ... ... php is just .... skanky!

HomerSimpson · 06-09-2009, 01:31 PM

10 easy ways to start up a geek fight with just one sentence.

woj · 06-09-2009, 02:19 PM

nice thread title

EuroRevenueUSA · 06-09-2009, 02:35 PM

Awesome, that is fucking hilarious

06-09-2009, 03:18 PM

Quote:

Originally Posted by JamesK

I got PHP's back until the end yo.

GrouchyAdmin · 06-09-2009, 03:52 PM

Pie is better than cake.

$5 submissions · 06-09-2009, 03:53 PM

Thread title got me to click

brassmonkey · 06-09-2009, 03:57 PM

well ok then

sysk · 06-09-2009, 04:01 PM

my blood is boiling

sysk · 06-09-2009, 04:11 PM

I would include:
- Ruby on Rails doesn't scale
- Why would I use CSS and when I can use tables...
- I hired a social media guru with over 10 yrs experience
- Open source is not secure
- I will switch back from FF to IE8

CunningStunt · 06-09-2009, 04:15 PM

Lmfao, that PHP one is going to get a few people's backs up.

CrkMStanz · 06-09-2009, 06:02 PM

Quote:

Originally Posted by jcsike

2. ?Joss Whedon is a hack!?

WTF!!!??!?!

blasphemous heathen

dems fightin' words

u and me - out back - 10 minutes.... grrrrrrr

gornyhuy · 06-09-2009, 06:12 PM

Awesome list...

mikesouth · 06-09-2009, 08:58 PM

Thats genius

MediaGuy · 06-09-2009, 09:50 PM

Quote:

Originally Posted by sysk

I would include:
- Ruby on Rails doesn't scale
- Why would I use CSS and when I can use tables...
- I hired a social media guru with over 10 yrs experience
- Open source is not secure
- I will switch back from FF to IE8

Except the FF/IE8 thing.... Chrome will destroy you all...

:D

Iron Fist · 06-09-2009, 10:50 PM

"Online chatrooms are for pedophiles"

Serious business.

jcsike · 06-10-2009, 07:55 AM

Quote:

Originally Posted by woj

nice thread title

thanks man

nation-x · 06-10-2009, 08:03 AM

Quote:

Originally Posted by Killswitch

I got PHP's back until the end yo.

milambur · 06-21-2009, 12:34 PM

Yeah, php is for pussies, here is some simple GEEK code I wrote when I was in highschool:

Code:

PROGRAM MandelBrot;
USES Crt,Dos;
CONST
  VGASegment = $0A000;
  xres = 160;
  yres = 100;
VAR
 i,x,y   : Integer;
 ch      : Char;
 a,b,ao,
 bo,abs  : Real;

PROCEDURE InitGraph(k : Byte);         {Inits Graph/Textmode}
VAR
  g : Byte;
BEGIN
  CASE k OF
    1 : g := $03;     {Inits 80x25 Textmode}
    2 : g := $13;     {Inits 320x200x256 Graphmode}
    3 : g := $12;     {Inits 640x480x16 Graphmode}
  END;

  ASM
    MOV AH,$00
    MOV AL,g
    INT $10           {Inits new mode}
  END;
END;

PROCEDURE PutPixel(x,y : Word; col : Byte);
VAR
  Mempos : Word;
BEGIN
  Mempos := (y-1)*320 + (x-1);
  Mem[VGASegment:Mempos] := col; {Givs memory position mempos the value of col}
END;


{PROCEDURE PutPixel(x,y : Word; col : Byte);
BEGIN
  ASM
    MOV AH,$0C
    MOV AL,col
    MOV CX,x
    MOV DX,y
    INT $10
  END;
END;}

BEGIN
{  ASM
    MOV AX,$4F02
    MOV BX,$101
    INT $10
  END;}
  InitGraph(2);
  FOR x := -xres TO xres DO
    FOR y := -yres TO 0 DO BEGIN
      a := x/50;
      b := y/50;
      i := 1;
      REPEAT
        abs := a*a+b*b;
        IF abs > 4 THEN BEGIN
          PutPixel(x+xres,y+yres,i+16);
          PutPixel(x+xres,yres-y,i+16);
        END
        ELSE BEGIN
          ao := a;
          bo := b;
          a := ao*ao-bo*bo+x/50;
          b := 2*ao*bo+y/50;
          Inc(i);
        END;
      UNTIL  (i = 100) OR (abs > 4);
    END;
  ch := ReadKey;
END.

Code:

code   SEGMENT para PUBLIC 'code'
       ASSUME cs:code
       LOCALS
       .386

       JMP Main

InitG  PROC NEAR

       INT  10

       RET
       ENDP

Random PROC NEAR
       MOV  EAX,1107030247
       MOV  EBX,DS:seed
       MUL  EBX
       ADD  EAX,97177
       MOV  DS:seed,EAX
       SHR  EAX,15
       AND  AX,8191
       RET
       ENDP

StartV PROC NEAR
       MOV  CX,70

pix1:  CALL Random
       MOV  BX,41
       DIV  BX
       MOV  SI,CX
       ADD  SI,100
       MOV  DS:[SI],AX
       LOOP pix1

       MOV  CX,70
pix2:  CALL Random
       MOV  BX,26
       DIV  BX
       MOV  SI,CX
       ADD  SI,200
       MOV  DS:[SI],AX
       LOOP pix2

       RET
       ENDP

Scroll PROC NEAR
       MOV  CX,70
Ppix:  MOV  SI,CX
       MOV  AX,DS:[SI+100]
       INC  AX
       MOV  DS:[SI],AX
       DEC  AX
       MOV  BX,DS:[SI+200]
       INC  BX
       MOV  DS:[SI],BX
       DEC  BX
       MUL  BX
       MOV  SI,AX
       MOV  BX,15
       MOV  0A000h:[SI],BX
       LOOP Ppix


       RET
       ENDP

Main   PROC NEAR
       MOV  AH,13h
       CALL InitG
       CALL StartV
       CALL Ppix
       MOV  AH,06h
       MOV  DL,0FFh
       INT  21h
       MOV  AH,3
       CALL InitG
       ENDP

seed   dd  0

code   ENDS
       END

Code:

CONST
  VGASegment = $0A000;

VAR
  x,y : Integer;

PROCEDURE SetColor(color,R,G,B:Byte);
BEGIN
	Port[$3C8] := color;
	Port[$3C9] := R;
	Port[$3C9] := G;
	Port[$3C9] := B;
END;

PROCEDURE InitGraph(k : Byte);         {Inits Graph/Textmode}
VAR
  g : Byte;
BEGIN
  CASE k OF
    1 : g := $03;     {Inits 80x25 Textmode}
    2 : g := $13;     {Inits 320x200x256 Graphmode}
    3 : g := $12;     {Inits 640x480x16 Graphmode}
  END;

  ASM
    MOV AH,$00
    MOV AL,g
    INT $10           {Inits new mode}
  END;
END;

PROCEDURE InitVESAGraph(k : Byte);
VAR
  g : Word;
BEGIN
  CASE k OF
    1 : g := $100;              {640*400*256}
    2 : g := $101;              {640*480*256}
    3 : g := $102;              {800*600*16}
    4 : g := $103;              {800*600*256}
    5 : g := $104;              {1024*768*16}
    6 : g := $105;              {1024*768*256}
    7 : g := $106;              {1280*1024*16}
    8 : g := $107;              {1280*1024*256}
  END;
  ASM
    MOV AX,$4F02
    MOV BX,g
    MOV CX,0
    MOV DX,0
    INT $10
    MOV g,AX
  END;
  Write(g);
END;

PROCEDURE PutPixel(x,y : Word; col : Byte);
VAR
  Mempos : Word;
BEGIN
  IF (x > 1) AND (x < 321) AND (y > 1) AND (y < 201) THEN BEGIN
    Mempos := (y-1)*320 + (x-1);
    Mem[VGASegment:Mempos] := col; {Givs memory position mempos the value of col}
  END;
END;

PROCEDURE PutPixelAG(x,y : Word; Col : Byte);
BEGIN
  ASM
    MOV AH,$0C
    MOV AL,Col
    MOV CX,x
    MOV DX,y
    INT $10
  END;
END;

PROCEDURE PutPixelVESA(x,y : Word; col : Byte);
BEGIN

END;

PROCEDURE ClearScr;
BEGIN
  FOR i := 1 TO 64000 DO
    Mem[$A000:i] := 0;
END;

FUNCTION GetPixelAG(x,y : Word) : Byte;
VAR
  g : Byte;
BEGIN
  ASM
    MOV AH,$0D
    MOV CX,x
    MOV DX,y
    INT $10
    MOV g,AL
  END;
  GetPixelAG := g;
END;

FUNCTION GetPixel(x,y : Word) : Byte;
VAR
  Mempos : Word;
BEGIN
  IF (x > 1) AND (x < 321) AND (y > 1) AND (y < 201) THEN BEGIN
    Mempos := (y-1)*320 + (x-1);
    GetPixel := Mem[VGASegment:Mempos]; {Givs memory position mempos the value of col}
  END
  ELSE
    GetPixel := 0;
END;

PROCEDURE WriteString(x,y : Byte; col : Byte; s : STRING; bi : Boolean);
VAR
  g : Byte;
BEGIN
  ASM
    MOV AH,$02
    MOV DH,y
    MOV DL,x
    MOV BH,$0
    INT $10
  END;
  FOR i := 1 TO Length(s) DO BEGIN
    g := Ord(s[i]);
    ASM
      MOV AH,$0E
      MOV AL,g
      MOV BL,col
      INT $10
    END;
    IF bi THEN BEGIN
    {  Sound(1000);
      Delay(15);
      NoSound;
      Delay(30);}
    END;
  END;
END;

PROCEDURE LoadImage(s : STRING);
VAR
  pix   : FILE;
  R,G,B : Byte;
  ext   : Word;

BEGIN
  Assign(pix,s);
  Reset(pix,1);
  FOR i := 1 TO 10 DO
    BlockRead(pix,ch,SizeOf(ch));

  FOR i := 0 TO 255 DO BEGIN
    BlockRead(pix,ch,SizeOf(ch));
    R := Ord(ch);
    BlockRead(pix,ch,SizeOf(ch));
    G := Ord(ch);
    BlockRead(pix,ch,SizeOf(ch));
    B := Ord(ch);
    SetColor(i,R,G,B);
  END;

  BlockRead(pix,Mem[$A000:0],$FA00);
 { Move(Mem[$9000:0],Mem[$A000:0],$FA00);

  ext := EMBGetMem(64);
  MoveToEMB(Mem[$A000:0],ext,$FA00);
  ClearScr;
  ch := ReadKey;
  MoveFromEMB(ext,Mem[$A000:0],$FA00);}
END;

PROCEDURE ReadPCX(s : String);
VAR
  image   : ARRAY[1..64000] OF Byte;
  pic     : FILE;
  n       : Integer;
  k,R,G,B : Byte;

BEGIN
  Assign(pic,s);
  Reset(pic,1);

  FOR i := 0 TO 255 DO
    SetColor(i,0,0,0);

  FOR i := 1 TO 128 DO
    BlockRead(pic,k,SizeOf(k));

  i:=0;
    REPEAT
      Blockread(pic,k,SizeOf(k));
        k := k AND $FF;
        IF (k AND $C0) = $C0 THEN BEGIN
          n := k AND $3F;
          Blockread(pic,k,SizeOf(k));
          FOR R := 1 TO n DO BEGIN
            Mem[$A000:(y-1)*320+x] := k;
            Inc(x);
          END;
        END
        ELSE BEGIN
          Mem[$A000:(y-1)*320+x] := k;
          Inc(x);
        END;
    UNTIL x>=64000 ;

    BlockRead(pic,ch,SizeOf(ch));

  FOR i := 0 TO 255 DO BEGIN
    BlockRead(pic,R,SizeOf(R));
    R := R SHR 2;
    BlockRead(pic,G,SizeOf(G));
    G := G SHR 2;
    BlockRead(pic,B,SizeOf(B));
    B := B SHR 2;
    SetColor(i,R,G,B);
  END;
{  Move(Mem[$9000:0],Mem[$A000:0],$FA00);}

  Close(pic);
END;

AdultSoftwareSolutions · 06-21-2009, 03:56 PM

A real programmer creates his own programming languages specific to the job he needs to get done. Having created several programming languages I would have to say PHP is one of the worst I have ever come across.

MakesYouClick · 06-21-2009, 05:45 PM

Intriguing title

psili · 06-21-2009, 06:07 PM

Pft... that's ghey. Here's the real shizznit.

Code:

repeat 4 [forward 50 right 90]

Turtle FTW!

Quote:

Originally Posted by milambur

Yeah, php is for pussies, here is some simple GEEK code I wrote when I was in highschool:

Code:

PROGRAM MandelBrot;
USES Crt,Dos;
CONST
  VGASegment = $0A000;
  xres = 160;
  yres = 100;
VAR
 i,x,y   : Integer;
 ch      : Char;
 a,b,ao,
 bo,abs  : Real;

PROCEDURE InitGraph(k : Byte);         {Inits Graph/Textmode}
VAR
  g : Byte;
BEGIN
  CASE k OF
    1 : g := $03;     {Inits 80x25 Textmode}
    2 : g := $13;     {Inits 320x200x256 Graphmode}
    3 : g := $12;     {Inits 640x480x16 Graphmode}
  END;

  ASM
    MOV AH,$00
    MOV AL,g
    INT $10           {Inits new mode}
  END;
END;

PROCEDURE PutPixel(x,y : Word; col : Byte);
VAR
  Mempos : Word;
BEGIN
  Mempos := (y-1)*320 + (x-1);
  Mem[VGASegment:Mempos] := col; {Givs memory position mempos the value of col}
END;


{PROCEDURE PutPixel(x,y : Word; col : Byte);
BEGIN
  ASM
    MOV AH,$0C
    MOV AL,col
    MOV CX,x
    MOV DX,y
    INT $10
  END;
END;}

BEGIN
{  ASM
    MOV AX,$4F02
    MOV BX,$101
    INT $10
  END;}
  InitGraph(2);
  FOR x := -xres TO xres DO
    FOR y := -yres TO 0 DO BEGIN
      a := x/50;
      b := y/50;
      i := 1;
      REPEAT
        abs := a*a+b*b;
        IF abs > 4 THEN BEGIN
          PutPixel(x+xres,y+yres,i+16);
          PutPixel(x+xres,yres-y,i+16);
        END
        ELSE BEGIN
          ao := a;
          bo := b;
          a := ao*ao-bo*bo+x/50;
          b := 2*ao*bo+y/50;
          Inc(i);
        END;
      UNTIL  (i = 100) OR (abs > 4);
    END;
  ch := ReadKey;
END.

Code:

code   SEGMENT para PUBLIC 'code'
       ASSUME cs:code
       LOCALS
       .386

       JMP Main

InitG  PROC NEAR

       INT  10

       RET
       ENDP

Random PROC NEAR
       MOV  EAX,1107030247
       MOV  EBX,DS:seed
       MUL  EBX
       ADD  EAX,97177
       MOV  DS:seed,EAX
       SHR  EAX,15
       AND  AX,8191
       RET
       ENDP

StartV PROC NEAR
       MOV  CX,70

pix1:  CALL Random
       MOV  BX,41
       DIV  BX
       MOV  SI,CX
       ADD  SI,100
       MOV  DS:[SI],AX
       LOOP pix1

       MOV  CX,70
pix2:  CALL Random
       MOV  BX,26
       DIV  BX
       MOV  SI,CX
       ADD  SI,200
       MOV  DS:[SI],AX
       LOOP pix2

       RET
       ENDP

Scroll PROC NEAR
       MOV  CX,70
Ppix:  MOV  SI,CX
       MOV  AX,DS:[SI+100]
       INC  AX
       MOV  DS:[SI],AX
       DEC  AX
       MOV  BX,DS:[SI+200]
       INC  BX
       MOV  DS:[SI],BX
       DEC  BX
       MUL  BX
       MOV  SI,AX
       MOV  BX,15
       MOV  0A000h:[SI],BX
       LOOP Ppix


       RET
       ENDP

Main   PROC NEAR
       MOV  AH,13h
       CALL InitG
       CALL StartV
       CALL Ppix
       MOV  AH,06h
       MOV  DL,0FFh
       INT  21h
       MOV  AH,3
       CALL InitG
       ENDP

seed   dd  0

code   ENDS
       END

Code:

CONST
  VGASegment = $0A000;

VAR
  x,y : Integer;

PROCEDURE SetColor(color,R,G,B:Byte);
BEGIN
	Port[$3C8] := color;
	Port[$3C9] := R;
	Port[$3C9] := G;
	Port[$3C9] := B;
END;

PROCEDURE InitGraph(k : Byte);         {Inits Graph/Textmode}
VAR
  g : Byte;
BEGIN
  CASE k OF
    1 : g := $03;     {Inits 80x25 Textmode}
    2 : g := $13;     {Inits 320x200x256 Graphmode}
    3 : g := $12;     {Inits 640x480x16 Graphmode}
  END;

  ASM
    MOV AH,$00
    MOV AL,g
    INT $10           {Inits new mode}
  END;
END;

PROCEDURE InitVESAGraph(k : Byte);
VAR
  g : Word;
BEGIN
  CASE k OF
    1 : g := $100;              {640*400*256}
    2 : g := $101;              {640*480*256}
    3 : g := $102;              {800*600*16}
    4 : g := $103;              {800*600*256}
    5 : g := $104;              {1024*768*16}
    6 : g := $105;              {1024*768*256}
    7 : g := $106;              {1280*1024*16}
    8 : g := $107;              {1280*1024*256}
  END;
  ASM
    MOV AX,$4F02
    MOV BX,g
    MOV CX,0
    MOV DX,0
    INT $10
    MOV g,AX
  END;
  Write(g);
END;

PROCEDURE PutPixel(x,y : Word; col : Byte);
VAR
  Mempos : Word;
BEGIN
  IF (x > 1) AND (x < 321) AND (y > 1) AND (y < 201) THEN BEGIN
    Mempos := (y-1)*320 + (x-1);
    Mem[VGASegment:Mempos] := col; {Givs memory position mempos the value of col}
  END;
END;

PROCEDURE PutPixelAG(x,y : Word; Col : Byte);
BEGIN
  ASM
    MOV AH,$0C
    MOV AL,Col
    MOV CX,x
    MOV DX,y
    INT $10
  END;
END;

PROCEDURE PutPixelVESA(x,y : Word; col : Byte);
BEGIN

END;

PROCEDURE ClearScr;
BEGIN
  FOR i := 1 TO 64000 DO
    Mem[$A000:i] := 0;
END;

FUNCTION GetPixelAG(x,y : Word) : Byte;
VAR
  g : Byte;
BEGIN
  ASM
    MOV AH,$0D
    MOV CX,x
    MOV DX,y
    INT $10
    MOV g,AL
  END;
  GetPixelAG := g;
END;

FUNCTION GetPixel(x,y : Word) : Byte;
VAR
  Mempos : Word;
BEGIN
  IF (x > 1) AND (x < 321) AND (y > 1) AND (y < 201) THEN BEGIN
    Mempos := (y-1)*320 + (x-1);
    GetPixel := Mem[VGASegment:Mempos]; {Givs memory position mempos the value of col}
  END
  ELSE
    GetPixel := 0;
END;

PROCEDURE WriteString(x,y : Byte; col : Byte; s : STRING; bi : Boolean);
VAR
  g : Byte;
BEGIN
  ASM
    MOV AH,$02
    MOV DH,y
    MOV DL,x
    MOV BH,$0
    INT $10
  END;
  FOR i := 1 TO Length(s) DO BEGIN
    g := Ord(s[i]);
    ASM
      MOV AH,$0E
      MOV AL,g
      MOV BL,col
      INT $10
    END;
    IF bi THEN BEGIN
    {  Sound(1000);
      Delay(15);
      NoSound;
      Delay(30);}
    END;
  END;
END;

PROCEDURE LoadImage(s : STRING);
VAR
  pix   : FILE;
  R,G,B : Byte;
  ext   : Word;

BEGIN
  Assign(pix,s);
  Reset(pix,1);
  FOR i := 1 TO 10 DO
    BlockRead(pix,ch,SizeOf(ch));

  FOR i := 0 TO 255 DO BEGIN
    BlockRead(pix,ch,SizeOf(ch));
    R := Ord(ch);
    BlockRead(pix,ch,SizeOf(ch));
    G := Ord(ch);
    BlockRead(pix,ch,SizeOf(ch));
    B := Ord(ch);
    SetColor(i,R,G,B);
  END;

  BlockRead(pix,Mem[$A000:0],$FA00);
 { Move(Mem[$9000:0],Mem[$A000:0],$FA00);

  ext := EMBGetMem(64);
  MoveToEMB(Mem[$A000:0],ext,$FA00);
  ClearScr;
  ch := ReadKey;
  MoveFromEMB(ext,Mem[$A000:0],$FA00);}
END;

PROCEDURE ReadPCX(s : String);
VAR
  image   : ARRAY[1..64000] OF Byte;
  pic     : FILE;
  n       : Integer;
  k,R,G,B : Byte;

BEGIN
  Assign(pic,s);
  Reset(pic,1);

  FOR i := 0 TO 255 DO
    SetColor(i,0,0,0);

  FOR i := 1 TO 128 DO
    BlockRead(pic,k,SizeOf(k));

  i:=0;
    REPEAT
      Blockread(pic,k,SizeOf(k));
        k := k AND $FF;
        IF (k AND $C0) = $C0 THEN BEGIN
          n := k AND $3F;
          Blockread(pic,k,SizeOf(k));
          FOR R := 1 TO n DO BEGIN
            Mem[$A000:(y-1)*320+x] := k;
            Inc(x);
          END;
        END
        ELSE BEGIN
          Mem[$A000:(y-1)*320+x] := k;
          Inc(x);
        END;
    UNTIL x>=64000 ;

    BlockRead(pic,ch,SizeOf(ch));

  FOR i := 0 TO 255 DO BEGIN
    BlockRead(pic,R,SizeOf(R));
    R := R SHR 2;
    BlockRead(pic,G,SizeOf(G));
    G := G SHR 2;
    BlockRead(pic,B,SizeOf(B));
    B := B SHR 2;
    SetColor(i,R,G,B);
  END;
{  Move(Mem[$9000:0],Mem[$A000:0],$FA00);}

  Close(pic);
END;

06-21-2009, 06:54 PM

Quote:

Originally Posted by AdultSoftwareSolutions

A real programmer creates his own programming languages specific to the job he needs to get done. Having created several programming languages I would have to say PHP is one of the worst I have ever come across.

So then why is it the most popular? Why is one of the worlds biggest sites based on it? Why does it have such a following? Also... Why haven't you made a better one? Oh one more... Why isn't yours blowing up and being named the best out there?

PHP walks, you talk.

psili · 06-21-2009, 07:49 PM

Quote:

Originally Posted by AdultSoftwareSolutions

A real programmer creates his own programming languages specific to the job he needs to get done. Having created several programming languages I would have to say PHP is one of the worst I have ever come across.

Best post ever, ASS. -- fuck, even your nick's awesome.
------------
I would love to hire you for a project. I need to print the following statement to a intertube page: "It's common to scratch and sniff one's own butt hole."

How much is that, and can you itemize the prices for the following:
- New programming language
- Naming new language
- Writing compiler for new language (it must work with my custom Windows ME server)
- Actual programming to print statement to web page.
- Anything else you want to throw in

Thanks.
My ICQ is: 1234567

milambur · 06-22-2009, 05:41 AM

Quote:

Originally Posted by psili

Pft... that's ghey. Here's the real shizznit.

Code:

repeat 4 [forward 50 right 90]

Turtle FTW!

Impressive!

06-09-2009, 01:08 PM	#1
jcsike Confirmed User Industry Role: Join Date: Jan 2006 Posts: 689	No real programmer would ever use PHP Top 10 Ways to Provoke a Geek Argument http://www.wired.com/geekdad/2009/06...geek-argument/ 10. ?No real programmer would ever use PHP.? - This won?t work for every geek, of course, but for those it works on, it should work really well. 9. ?Comic books are just for kids!? - I?m sure you?ve heard this one before?I know I certainly heard it often enough in high school, and even though it?s even less true now than it was then, I?m sure comic book afficionados still hear it today. 8. ?Role-playing games are just for people who can?t deal with real life.? - There are, sadly, still a lot of people who think anyone who plays D&D must live in his parents? basement and bathe once a month. Such people must be put straight, and immediately! 7. ?The Pirates of the Caribbean movies are so realistic!? - I doubt many people actually believe this, but there are an awful lot of misconceptions about pirates out there, so you never know. 6. ?Yeah, I got an Xbox 360 so my daughter could play Hello Kitty games. Is it really good for anything else?? - We?ve hit the ones that are hard for me even to type, now? 5. ?Mac, Windows, or Linux? Does it really make a difference?? - An argument so old its original form was probably first written down in hieroglyphs, I know, but I don?t know a single geek it wouldn?t work on?myself included. 4. ?The Ewoks were the best thing about the original Star Wars trilogy.? / ?Greedo shot first!? - I couldn?t decide between the two. If one doesn?t work, I?ll bet the other one would. 3. ?Tolkien? Ehhh, I prefer Terry Brooks!? - I almost feel like I should argue with myself just for writing that. I?m going to let the top two stand for themselves. 2. ?Joss Whedon is a hack!? 1. ?I don?t see what?s so bad about DRM!? __________________

06-09-2009, 01:24 PM	#6
qxm Confirmed User Join Date: Jul 2006 Location: NoHo Posts: 5,970	I use them sexy C++ n C# YO ... ... php is just .... skanky! __________________ ICQ: 266990876

06-09-2009, 01:31 PM	#7
HomerSimpson Too lazy to set a custom title Industry Role: Join Date: Sep 2005 Location: Springfield Posts: 13,826	10 easy ways to start up a geek fight with just one sentence. __________________ Make a bank with Chaturbate - the best selling webcam program Ads that can't be block with AdBlockers !!! /// Best paying popup program (Bitcoin payouts) !!! PHP, MySql, Smarty, CodeIgniter, Laravel, WordPress, NATS... fixing stuff, server migrations & optimizations... My ICQ: 27429884 \| Email:

06-09-2009, 02:19 PM	#8
woj <&(©¿©)&> Industry Role: Join Date: Jul 2002 Location: Chicago Posts: 47,882	nice thread title __________________ Custom Software Development, email: woj#at#wojfun#.#com to discuss details or skype: wojl2000 or gchat: wojfun or telegram: wojl2000 Affiliate program tools: Hosted Galleries Manager Banner Manager Video Manager Wordpress Affiliate Plugin Pic/Movie of the Day Fansign Generator Zip Manager

06-09-2009, 02:35 PM	#9
EuroRevenueUSA Registered User Join Date: Mar 2009 Location: LA bebe!! Posts: 91	Awesome, that is fucking hilarious __________________ New Sites: HardcoreMax.com \| CockForTwo.com \| Fetish360.com\| WebcamPortal.com NEW: 40$ per Trial & Up to 75% RevShare at EuroRevenue ICQ - 10-731-020

06-09-2009, 01:14 PM	#3
u-Bob there's no $$$ in porn Industry Role: Join Date: Jul 2005 Location: icq: 195./568.-230 (btw: not getting offline msgs) Posts: 33,063	had to google "Joss Whedon"

06-09-2009, 01:21 PM	#4
Killswitch - BANNED FOR LIFE Guest Posts: n/a	You got me, I saw the thread title and got out my sword and shield ready for battle.

06-09-2009, 03:52 PM	#11
GrouchyAdmin Now choke yourself! Industry Role: Join Date: Apr 2006 Posts: 12,085	Pie is better than cake. __________________ AIM: GrouchyGfy

06-09-2009, 03:53 PM	#12
$5 submissions I help you SUCCEED Industry Role: Join Date: Nov 2003 Location: The Pearl of the Orient Seas Posts: 32,195	Thread title got me to click __________________ Need a NON-ADULT income stream? We build your YOUTUBE CHANNEL for only $20 per video! For Hire: $3/hour or $400 per month Marketing Specialist Virtual Assistants

06-09-2009, 03:57 PM	#13
brassmonkey Pay It Forward Industry Role: Join Date: Sep 2005 Location: Yo Mama House Posts: 77,141	well ok then __________________ TRUMP 2025 KEKAW!!! - The Laken Riley Act Is Law! DACA ENDED - SUPPORT AZ HCR 2060 52R - email: brassballz-at-techie.com

06-09-2009, 04:01 PM	#14
sysk Confirmed User Industry Role: Join Date: Aug 2007 Location: Montreal Posts: 1,005	my blood is boiling __________________ icq: 612510168 / email: [email protected] / php ninja 4 hire

06-09-2009, 04:11 PM	#15
sysk Confirmed User Industry Role: Join Date: Aug 2007 Location: Montreal Posts: 1,005	I would include: - Ruby on Rails doesn't scale - Why would I use CSS and when I can use tables... - I hired a social media guru with over 10 yrs experience - Open source is not secure - I will switch back from FF to IE8 __________________ icq: 612510168 / email: [email protected] / php ninja 4 hire

06-09-2009, 04:15 PM	#16
CunningStunt Confirmed User Industry Role: Join Date: Aug 2006 Posts: 5,594	Lmfao, that PHP one is going to get a few people's backs up.

06-09-2009, 06:12 PM	#18
gornyhuy Chafed. Join Date: May 2002 Location: Face Down in Pussy Posts: 18,041	Awesome list... __________________ icq:159548293

06-09-2009, 08:58 PM	#19
mikesouth Confirmed User Industry Role: Join Date: Jun 2003 Location: My High Horse Posts: 6,334	Thats genius __________________ Mike South It's No wonder I took up drugs and alcohol, it's the only way I could dumb myself down enough to cope with the morons in this biz.

06-09-2009, 10:50 PM	#21
Iron Fist Too lazy to set a custom title Join Date: Dec 2006 Posts: 23,400	"Online chatrooms are for pedophiles" Serious business. __________________ i like waffles

06-21-2009, 03:56 PM	#25
AdultSoftwareSolutions Confirmed User Join Date: Mar 2009 Posts: 193	A real programmer creates his own programming languages specific to the job he needs to get done. Having created several programming languages I would have to say PHP is one of the worst I have ever come across. __________________ Adult Software Solutions (ICQ 559884738) PHP, MySQL, Flash, Actionscript, Java, Wowza, CMS, Tube, VOD, CRM, Dating, Social Networks, Paysites, TGPs, Directories and more. If you can think it I can build it.

06-21-2009, 05:45 PM	#26
MakesYouClick Registered User Join Date: Aug 2008 Posts: 49	Intriguing title __________________ RCams - The cams affiliate site script \| Link Exchange and Traffic Trade Database