Show your l33t skills

[Fear345]

10 print "Toms a Quaker ";
20 goto 10

Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker Toms a Quaker

[BertRoot]

Fucking loon.

[tombott]

Buhahahahaha, you crazy bugger

[tombott]

I'll show you l33t

        5 REM Pangolins
	10 LET nq=100: REM number of questions and animals
	15 DIM q$(nq,50): DIM a(nq,2): DIM r$(1)
	20 LET qf=8
	30 FOR n=1 TO qf/2 1
	40 READ q$(n): READ a(n,1): READ a(n,2)
	50 NEXT n
	60 FOR n=n TO qf-1
	70 READ q$(n): NEXT n
	100 REM start playing
	110 PRINT "Think of an animal.","Press any key to continue."
	120 PAUSE 0
	130 LET c=1: REM start with 1st question
	140 IF a(c,1)=0 THEN GO TO 300
	150 LET p$=q$(c): GO SUB 910
	160 PRINT "?": GO SUB 1000
	170 LET in=1: IF r$="y" THEN GO TO 210
	180 IF r$="Y" THEN GO TO 210
	190 LET in=2: IF r$="n" THEN GO TO 210
	200 IF r$<>"N" THEN GO TO 150
	210 LET c=a(c,in): GO TO 140
	300 REM animal
	310 PRINT "Are you thinking of"
	320 LET P$=q$(c): GO SUB 900: PRINT "?"
	330 GO SUB 1000
	340 IF r$="y" THEN GO TO 400
	350 IF r$="Y" THEN GO TO 400
	360 IF r$="n" THEN GO TO 500
	370 IF r$="N" THEN GO TO 500
	380 PRINT "Answer me properly when I'm","talking to you.": GO TO 300
	400 REM guessed it
	410 PRINT "I thought as much.": GO TO 800
	500 REM new animal 
	510 IF qf>nq-1 THEN PRINT "I'm sure your animal is very", "interesting, 
	         but I don't have","room for it just now.": GO TO 800 
	520 LET q$(qf)=q$(c): REM move old animal 
	530 PRINT "What is it, then?": INPUT q$(qf+1) 
	540 PRINT "Tell me a question which dist ","inguishes between " 
	550 LET p$=q$(qf): GO SUB 900: PRINT " and" 
	560 LET p$=q$(qf+1): GO SUB 900: PRINT " " 
	570 INPUT s$: LET b=LEN s$ 
	580 IF s$(b)="?" THEN LET b=b-1 
	590 LET q$(c)=s$(TO b): REM insert question 
	600 PRINT "What is the answer for" 
	610 LET p$=q$(qf+1): GO SUB 900: PRINT "?" 
	620 GO SUB 1000 
	630 LET in=1: LET io=2: REM answers for new and old animals 
	640 IF r$="y" THEN GO T0 700 
	650 IF r$="Y" THEN GO TO 700 
	660 LET in=2: LET io=1 
	670 IF r$="n" THEN GO TO 700 
	680 IF r$="N" THEN GO TO 700
	690 PRINT "That's no good. ": GO TO 600
	700 REM update answers 
	710 LET a(c,in)=qf+1: LET a(c,io)=qf 
	720 LET qf=qf+2: REM next free animal space 
	730 PRINT "That fooled me."
	800 REM again?
	810 PRINT "Do you want another go?": GO SUB 1000
	820 IF r$="y" THEN GO TO 100
	830 IF r$="Y" THEN GO TO 100
	840 STOP
	900 REM print without trailing spaces
	905 PRINT " ";
	910 FOR n=50 TO 1 STEP -1
	920 IF p$(n)<>" " THEN GO TO 940
	930 NEXT n
	940 PRINT p$(TO n);: RETURN
	1000 REM get reply
	1010 INPUT r$: IF r$="" THEN RETURN
	1020 LET r$=r$(1): RETURN
	2000 REM initial animals
	2010 DATA "Does it live in the sea",4,2
	2020 DATA "Is it scaly",3,5
	2030 DATA "Does it eat ants",6,7
	2040 DATA "a whale", "a blancmange", "a pangolin", "an ant"

[Fear345]

Bollocks you copy and pasted that out of crash mines my own work.

[beerman]

#include <iostream>

using namespace std;

int main()
{
	cout << "Toms a Quaker" << endl;
	return 0;
}

Btw who is Tom?

[Fear345]

Btw who is Tom?

A Quaker

[tombott]

Bollocks you copy and pasted that out of crash mines my own work.

Ask drjnet about the game we wrote, and what happened when we played it

10 BORDER 0: PAPER 0: INK 7: CLS
20 PRINT "Fear345 is fat and smelly";
30 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
40 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
50 BEEP 1,3: BEEP 1,5: BEEP 2,7
60 BEEP 1,3: BEEP 1,5: BEEP 2,7
70 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5:BEEP .5,3: BEEP.5,2: BEEP 1,0
80 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5: BEEP .5,3: BEEP .5,2: BEEP 1,0
90 BEEP 1,0: BEEP 1,-5: BEEP 2,0
100 BEEP l,0: BEEP 1,-5: BEEP 2,0
110 GO TO 20

[Fear345]

Ask drjnet about the game we wrote, and what happened when we played it

Your sexually capers are best left a secret m8.

[FireBlade]

erm i dont get it?

[FireBlade]

that goto 10 thing in basic we used to the do in school on the BBC B but i did have a rubber keyed speccy too used to drive me mad crazy typing in code lists from Crash magazine ;-)

[Soulassassin]

Ahhh the memories..............

[wakadoo]

Ahhh the memories..............

yeah the memories of a syntax error you tried to solve for fookin hours only to be greeted by an apology 1 month later in the magazine for a printing error....

or your mum unplugging the computer to hoover up the bedroom after you left it on cos you had no way of saving owt ...start typing it in again....bah.

[drjnet]

Ask drjnet about the game we wrote, and what happened when we played it

10 BORDER 0: PAPER 0: INK 7: CLS
20 PRINT "Fear345 is fat and smelly";
30 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
40 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
50 BEEP 1,3: BEEP 1,5: BEEP 2,7
60 BEEP 1,3: BEEP 1,5: BEEP 2,7
70 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5:BEEP .5,3: BEEP.5,2: BEEP 1,0
80 BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5: BEEP .5,3: BEEP .5,2: BEEP 1,0
90 BEEP 1,0: BEEP 1,-5: BEEP 2,0
100 BEEP l,0: BEEP 1,-5: BEEP 2,0
110 GO TO 10

You should have done that with an array and a loop, haven't you heard of code re-factoring?
You are a giddy goat

[drjnet]

You should have done that with an array and a loop, haven't you heard of code re-factoring?
You are a giddy goat

Ok so im a sad cunt i tried your code, it dont work...

[tombott]

What you try it in?
A spectrum emulator?

[mysterym]

I'll show you l33t

        5 REM Pangolins
    10 LET nq=100: REM number of questions and animals
    15 DIM q$(nq,50): DIM a(nq,2): DIM r$(1)
    20 LET qf=8
    30 FOR n=1 TO qf/2 1
    40 READ q$(n): READ a(n,1): READ a(n,2)
    50 NEXT n
    60 FOR n=n TO qf-1
    70 READ q$(n): NEXT n
    100 REM start playing
    110 PRINT "Think of an animal.","Press any key to continue."
    120 PAUSE 0
    130 LET c=1: REM start with 1st question
    140 IF a(c,1)=0 THEN GO TO 300
    150 LET p$=q$(c): GO SUB 910
    160 PRINT "?": GO SUB 1000
    170 LET in=1: IF r$="y" THEN GO TO 210
    180 IF r$="Y" THEN GO TO 210
    190 LET in=2: IF r$="n" THEN GO TO 210
    200 IF r$<>"N" THEN GO TO 150
    210 LET c=a(c,in): GO TO 140
    300 REM animal
    310 PRINT "Are you thinking of"
    320 LET P$=q$(c): GO SUB 900: PRINT "?"
    330 GO SUB 1000
    340 IF r$="y" THEN GO TO 400
    350 IF r$="Y" THEN GO TO 400
    360 IF r$="n" THEN GO TO 500
    370 IF r$="N" THEN GO TO 500
    380 PRINT "Answer me properly when I'm","talking to you.": GO TO 300
    400 REM guessed it
    410 PRINT "I thought as much.": GO TO 800
    500 REM new animal 
    510 IF qf>nq-1 THEN PRINT "I'm sure your animal is very", "interesting, 
             but I don't have","room for it just now.": GO TO 800 
    520 LET q$(qf)=q$(c): REM move old animal 
    530 PRINT "What is it, then?": INPUT q$(qf+1) 
    540 PRINT "Tell me a question which dist ","inguishes between " 
    550 LET p$=q$(qf): GO SUB 900: PRINT " and" 
    560 LET p$=q$(qf+1): GO SUB 900: PRINT " " 
    570 INPUT s$: LET b=LEN s$ 
    580 IF s$(b)="?" THEN LET b=b-1 
    590 LET q$(c)=s$(TO b): REM insert question 
    600 PRINT "What is the answer for" 
    610 LET p$=q$(qf+1): GO SUB 900: PRINT "?" 
    620 GO SUB 1000 
    630 LET in=1: LET io=2: REM answers for new and old animals 
    640 IF r$="y" THEN GO T0 700 
    650 IF r$="Y" THEN GO TO 700 
    660 LET in=2: LET io=1 
    670 IF r$="n" THEN GO TO 700 
    680 IF r$="N" THEN GO TO 700
    690 PRINT "That's no good. ": GO TO 600
    700 REM update answers 
    710 LET a(c,in)=qf+1: LET a(c,io)=qf 
    720 LET qf=qf+2: REM next free animal space 
    730 PRINT "That fooled me."
    800 REM again?
    810 PRINT "Do you want another go?": GO SUB 1000
    820 IF r$="y" THEN GO TO 100
    830 IF r$="Y" THEN GO TO 100
    840 STOP
    900 REM print without trailing spaces
    905 PRINT " ";
    910 FOR n=50 TO 1 STEP -1
    920 IF p$(n)<>" " THEN GO TO 940
    930 NEXT n
    940 PRINT p$(TO n);: RETURN
    1000 REM get reply
    1010 INPUT r$: IF r$="" THEN RETURN
    1020 LET r$=r$(1): RETURN
    2000 REM initial animals
    2010 DATA "Does it live in the sea",4,2
    2020 DATA "Is it scaly",3,5
    2030 DATA "Does it eat ants",6,7
    2040 DATA "a whale", "a blancmange", "a pangolin", "an ant"

You need to load that up on a spectrum 128 and type in renumber 10

That rem on line 5 looks messy

[tombott]

Ok so im a sad cnut i tried your code, it dont work...

Well it does, I did it in a speccy emu but I should have put line 110 as

110 GO TO 20

not 110 GO TO 10

[drjnet]

fucking dont, try it on speculator

[tombott]

fcuk me this is sad, I've saved it as a .tap file for you....


Here

And some screenshots

Spoiler:

Spoiler:

Spoiler: