Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|565\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Retro Stuff -> Amstrad Stuff... Finally...
Sat, 26 Aug 2017, 10:54
Dabz	Amstrad Stuff... Finally... I've managed to land a few things on Ebay I've been after for donkeys... First off, reference books for Z80 assembly, there is quite a bit on the net, but I like books, and I've managed to land these... i.ebayimg.com/images/g/UvsAAOSwSplZidNW/s-l1600.jpg Thats a fine haul... And, something I thought I'd never see... i.ebayimg.com/images/g/dAAAAOSw7bpZi3NE/s-l1600.jpg A disk copy of Maxam!!! \o/ Gerrrr innnnnnn I'm one happy little bunny... Only snag is I've got to drive to preston tomorrow to pick them up... But I'll be honest, it's worth it for the catch! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Sat, 26 Aug 2017, 11:44
rockford	Those books (and softwares) are a fine haul indeed I had all three of the software suites BITD - LASER COMPILER (had LASER BASIC too), GAC and MAXAM. I made a fair few games in all of them too, especially GAC. Having to constantly swap tapes with LASER COMPILER was a bit of a bastard, but the end results were worth it. LASER BASIC came with a manual printed on dark blue paper that stated at the front that it could not be photocopied - well, I took that as a challenge and found that it was indeed photocopyable!).
Sat, 26 Aug 2017, 11:49
Jayenkai	Mmmmmmmm... ...drools
Sun, 27 Aug 2017, 07:17
Dabz	LASER BASIC came with a manual printed on dark blue paper that stated at the front that it could not be photocopied - well, I took that as a challenge and found that it was indeed photocopyable!). Me see it! BTW... The thumbnail is upside down, but opens correctly!?! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Sun, 27 Aug 2017, 07:27
Jayenkai	The thumbnail is upside down for piracy protection!!! \|edit\| need to fix that. Stupid exif data!! \|edit\| -=-=- ''Load, Next List!''
Sun, 27 Aug 2017, 07:31
Jayenkai	.. Which reminds me. I downloaded CPCtelera the other week, and made a very simple start, but then got sidetracked with SmileBasic instead. I should get back to that.. -=-=- ''Load, Next List!''
Fri, 01 Sep 2017, 11:27
Dabz	I've just ordered one of these bad boys:- View on YouTube www.cpcwiki.eu/forum/amstrad-cpc-hardware/amstrad-cpc-wifi/ I have a USB floppy emulator... But I'm a sucker for Amstrad shenanigans! 4-5 weeks lead in for it, which, is fine by me, its his hobby thing and makes them himself, so, cannot grumble! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Fri, 01 Sep 2017, 11:32
Jayenkai	Oooh, fancy
Sat, 02 Sep 2017, 11:21
Dabz	WARNING.... RETRO ALERT... WARNING... RETRO ALERT... 100 ' Setup Inks and Screen Mode 110 INK 0,0 120 INK 1,26 130 INK 2,20 140 INK 3,18 150 BORDER 11 160 PAPER 0 170 PEN 1 180 MODE 1 200 ' Define Characters & Objects 210 DEFINT a-z 220 s$=CHR$(143) 230 a$="@" 240 b$="-" 250 x=1 260 y=1 270 DIM bx(2) 280 DIM by(2) 290 b=1 300 t=0 310 sc=0 320 ay=1+INT(RND23) 330 ax=37 340 GOSUB 810 ' Print Ship 350 GOSUB 1010 ' Print Alien 360 LOCATE 1,25 370 PRINT"Score:" 400 ' Main Loop 410 WHILE 1 420 IF INKEY(1)<>-1 AND x<30 THEN GOSUB 910:x=x+1:GOSUB 810 430 IF INKEY(8)<>-1 AND x>1 THEN GOSUB 910:x=x-1:GOSUB 810 440 IF INKEY(0)<>-1 AND y>1 THEN GOSUB 910:y=y-1:GOSUB 810 450 IF INKEY(2)<>-1 AND y<24 THEN GOSUB 910:y=y+1:GOSUB 810 460 GOSUB 710 470 GOSUB 1140 : GOSUB 1010 ' Delete & Reprint Alien 480 IF INKEY(47)<>-1 AND t<>2 THEN t=t+1:bx(t)=x+1:by(t)=y 490 IF t<>0 THEN GOSUB 1210 500 WEND 600 ' Has bullet or alien collided? 610 IF ((bx(1)=ax) AND (by(1)=ay)) OR ((bx(2)=ax) AND (by(2)=ay)) THEN GOSUB 1410 620 RETURN 700 ' Has Alien Collided with Ship? 710 IF (x=ax) AND (y=ay) THEN GOSUB 1410:LOCATE 15,12:PRINT"You're Dead!":END 720 RETURN 800 ' Display Ship 810 LOCATE x,y 820 PEN 1 830 PRINT s$; 840 RETURN 900 ' Delete Ship 910 LOCATE x,y 920 PRINT" "; 930 RETURN 1000 ' Display and Move Alien 1010 LOCATE ax,ay 1020 PEN 2 1030 PRINT a$; 1040 ax=ax-1 1050 GOSUB 710 1060 WHILE ax=0 1070 LOCATE 1,ay 1080 PRINT" "; 1090 ax=37 1100 ay=1+INT(RND23) 1110 WEND 1120 GOSUB 610 1130 RETURN 1140 LOCATE ax+1,ay 1150 PRINT" "; 1160 RETURN 1200 ' Routine to Move Shots Fired 1210 FOR n=b TO t 1220 LOCATE bx(n),by(n) 1230 PRINT" "; 1240 PEN 3 1250 bx(n)=bx(n)+1 1260 LOCATE bx(n),by(n) 1270 PRINT b$; 1280 IF bx(n)=38 THEN LOCATE 38,by(n):PRINT" ";:b=b+1 1290 NEXT n 1300 IF bx(n-1)=38 AND b=3 THEN GOSUB 1590 1310 GOSUB 610 1320 RETURN 1400 ' Death Sequence for Alien or Ship should they Collide 1410 LOCATE ax,ay 1420 PRINT" ";CHR$(238); 1430 sc=sc+20 1440 LOCATE 8,25 1450 PRINT sc; 1460 ax=39 1470 ay=1+INT(RND23) 1480 FOR v=15 TO 0 STEP -1 1490 BORDER 6 1500 SOUND 1,0,3,v,,,31 1510 BORDER 11 1520 SOUND 2,1000,3,v,,,31 1530 NEXT v 1540 FOR c=1 TO t 1550 LOCATE bx(c),by(c) 1560 PRINT" "; 1570 bx(c)=0:by(c)=0 1580 NEXT c 1590 b=1:t=0 1600 RETURN --v Quite cute that! To get the code into WinApe, just copy the code (Inc line numbers), then go to File>AutoType, Press CTRL+V, then hit the Ok button. Dabz Taken from here: www.cpcwiki.eu/forum/programming/basic-shoot-em-up-engine * -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Sat, 02 Sep 2017, 12:09
Jayenkai	You can tell that's been written in the modern age. Back in the day, we'd never have wasted 8 lines for colour and mode settings. Those would all be on one line with : separations! And who starts at 100? You're supposed to start at 10! -=-=- ''Load, Next List!''
Sat, 02 Sep 2017, 12:23
Dabz	It was a 10 liner, but slightly broken, so someone fixed it up and improved it! I used to increment in hundreds when it game to different sections of the code, just found it easier when using Gosub:- 10 'Setup .... 100 'Title Screen .... 500 'Main Loop .... 1000 'Logic .... 1500 'Draw stuff .... 2000 'Game over .... etc etc It got me going until I needed a RENUM, then everything was increments of 10, which was bearable because by this time the chunk of code was in! Everything still ran like shite though! lol Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit

Amstrad Stuff... Finally...