Post by stig on Mar 29, 2023 19:54:24 GMT -5
I just signed up, 25 buckaroo money each month, and I asked the monster to write up a text adventure game in Microsoft
Basic 1.0, wich it completed in less than a second, with some sexy details added to the the code.. So the future looks bright,
and I will grab its tail and never let go. It was a very scary wakeup call, and a nice one, not bad, considered a first try, I didn't
pester it, but I think you get the point, as I did in a second. The world has changed:
10 PRINT "Welcome to the world of Winter and Summer"
20 PRINT "You find yourself in a strange land, where the seasons alternate between winter and summer."
30 PRINT "Your goal is to explore this world, find treasures, and survive the changing seasons."
40 PRINT "Type 'HELP' at any time for a list of commands."
50
60 DIM INVENTORY$(5)
70 WINTER = 1
80 LOCATION = 1
90
100 REM -- ROOMS --
110 DATA "You are in a clearing in the forest."
120 DATA "You are on the edge of a frozen lake."
130 DATA "You are at the entrance to a dark cave."
140 DATA "You are in a lush green field."
150 DATA "You are on a sandy beach."
160
170 REM -- ITEMS --
180 DATA "A shiny silver key."
190 DATA "A warm winter coat."
200 DATA "A cool summer hat."
210 DATA "A compass."
220
230 REM -- ACTIONS --
240 DATA "GO NORTH", "GO SOUTH", "GO EAST", "GO WEST"
250 DATA "LOOK"
260 DATA "TAKE"
270 DATA "INVENTORY"
280
290 REM -- MAIN LOOP --
300 PRINT "You are standing in a clearing in the forest."
310 GOSUB 1000
320 INPUT "What do you want to do? ", COMMAND$
330 GOSUB 2000
340 GOTO 310
350
1000 REM -- ROOMS SUBROUTINE --
1010 READ ROOM$
1020 PRINT ROOM$
1030 IF WINTER = 1 THEN PRINT "It's winter."
1040 IF WINTER = 0 THEN PRINT "It's summer."
1050 RETURN
1060
2000 REM -- ACTIONS SUBROUTINE --
2010 IF COMMAND$ = "HELP" THEN GOSUB 3000: RETURN
2020 IF COMMAND$ = "INVENTORY" THEN GOSUB 4000: RETURN
2030 IF COMMAND$ = "LOOK" THEN GOSUB 5000: RETURN
2040 IF LEFT$(COMMAND$, 3) = "GO " THEN GOSUB 6000: RETURN
2050 IF LEFT$(COMMAND$, 4) = "TAKE" THEN GOSUB 7000: RETURN
2060 PRINT "I don't understand that command."
2070 RETURN
2080
3000 REM -- HELP SUBROUTINE --
3010 PRINT "Commands: "
3020 READ ACTION$
3030 IF ACTION$ = "" THEN RETURN
3040 PRINT ACTION$
3050 GOTO 3020
3060
4000 REM -- INVENTORY SUBROUTINE --
4010 IF INVENTORY$(1) = "" THEN PRINT "You have nothing in your inventory.": RETURN
4020 PRINT "You have the following items in your inventory:"
4030 FOR I = 1 TO 5
4040 IF INVENTORY$(I) = "" THEN RETURN
4050 PRINT INVENTORY$(I)
4060 NEXT I
4070 RETURN
4080
5000 REM -- LOOK SUBROUTINE --
5010 PRINT "You look around and see:"
5020 READ ITEM$
5030 IF ITEM$ = "" THEN RETURN
5040 PRINT ITEM$
5050 GOTO 5020
5060
6000 REM -- GO SUBROUTINE --
6010 IF WINTER = 1 THEN PRINT "It's too cold to go that way.": RETURN
6020 IF WINTER = 0 THEN PRINT "It's too hot to go that way.": RETURN
6030 READ DIRECTION$
604
Basic 1.0, wich it completed in less than a second, with some sexy details added to the the code.. So the future looks bright,
and I will grab its tail and never let go. It was a very scary wakeup call, and a nice one, not bad, considered a first try, I didn't
pester it, but I think you get the point, as I did in a second. The world has changed:
10 PRINT "Welcome to the world of Winter and Summer"
20 PRINT "You find yourself in a strange land, where the seasons alternate between winter and summer."
30 PRINT "Your goal is to explore this world, find treasures, and survive the changing seasons."
40 PRINT "Type 'HELP' at any time for a list of commands."
50
60 DIM INVENTORY$(5)
70 WINTER = 1
80 LOCATION = 1
90
100 REM -- ROOMS --
110 DATA "You are in a clearing in the forest."
120 DATA "You are on the edge of a frozen lake."
130 DATA "You are at the entrance to a dark cave."
140 DATA "You are in a lush green field."
150 DATA "You are on a sandy beach."
160
170 REM -- ITEMS --
180 DATA "A shiny silver key."
190 DATA "A warm winter coat."
200 DATA "A cool summer hat."
210 DATA "A compass."
220
230 REM -- ACTIONS --
240 DATA "GO NORTH", "GO SOUTH", "GO EAST", "GO WEST"
250 DATA "LOOK"
260 DATA "TAKE"
270 DATA "INVENTORY"
280
290 REM -- MAIN LOOP --
300 PRINT "You are standing in a clearing in the forest."
310 GOSUB 1000
320 INPUT "What do you want to do? ", COMMAND$
330 GOSUB 2000
340 GOTO 310
350
1000 REM -- ROOMS SUBROUTINE --
1010 READ ROOM$
1020 PRINT ROOM$
1030 IF WINTER = 1 THEN PRINT "It's winter."
1040 IF WINTER = 0 THEN PRINT "It's summer."
1050 RETURN
1060
2000 REM -- ACTIONS SUBROUTINE --
2010 IF COMMAND$ = "HELP" THEN GOSUB 3000: RETURN
2020 IF COMMAND$ = "INVENTORY" THEN GOSUB 4000: RETURN
2030 IF COMMAND$ = "LOOK" THEN GOSUB 5000: RETURN
2040 IF LEFT$(COMMAND$, 3) = "GO " THEN GOSUB 6000: RETURN
2050 IF LEFT$(COMMAND$, 4) = "TAKE" THEN GOSUB 7000: RETURN
2060 PRINT "I don't understand that command."
2070 RETURN
2080
3000 REM -- HELP SUBROUTINE --
3010 PRINT "Commands: "
3020 READ ACTION$
3030 IF ACTION$ = "" THEN RETURN
3040 PRINT ACTION$
3050 GOTO 3020
3060
4000 REM -- INVENTORY SUBROUTINE --
4010 IF INVENTORY$(1) = "" THEN PRINT "You have nothing in your inventory.": RETURN
4020 PRINT "You have the following items in your inventory:"
4030 FOR I = 1 TO 5
4040 IF INVENTORY$(I) = "" THEN RETURN
4050 PRINT INVENTORY$(I)
4060 NEXT I
4070 RETURN
4080
5000 REM -- LOOK SUBROUTINE --
5010 PRINT "You look around and see:"
5020 READ ITEM$
5030 IF ITEM$ = "" THEN RETURN
5040 PRINT ITEM$
5050 GOTO 5020
5060
6000 REM -- GO SUBROUTINE --
6010 IF WINTER = 1 THEN PRINT "It's too cold to go that way.": RETURN
6020 IF WINTER = 0 THEN PRINT "It's too hot to go that way.": RETURN
6030 READ DIRECTION$
604