Βυθίσατε το γλάρο!!!

Τα δικά μας προγράμματα!

Συντονιστής: Developers

Άβαταρ μέλους
Darth_Cotsos
ZX power
ZX power
Δημοσιεύσεις: 215
Εγγραφή: Κυρ Σεπ 06, 2009 9:28 pm

Βυθίσατε το γλάρο!!!

Μη αναγνωσμένη δημοσίευσηαπό Darth_Cotsos » Πέμ Δεκ 29, 2016 10:46 pm

Πρίν από μερικούς μήνες ο Alex76gr μου έδωσε ένα βιβλίο που αφορουσε τον ZX Spectrum με τίτλο: "BASIC παιχνίδια για SPECTRUM" του Ευάγγελου Αγγελίδη.
Είναι ένα καλογραμμένο βιβλίο που αφορά την Basic του ΖΧ Spectrum και εξαντλεί όλες της εντολές της παραθέτοντας στο τέλος αρκετά μικρά προγράμματα που δείχνουν τις δυνατότητες που έχει ο χρήστης με την Basic.
Ανάμεσα σε αργόριθμους ταξινόμισης και υπολογισμών υπάρχουν και κάποια παιχνιδάκια... Ενα από αυτά είναι το κυνήγι γλάρων!!!
Αν και σκοπός του έιναι να μάθουν τα μικρά παιδιά την προπαίδεια ανταμοιβωντάς τους με ένα mini game, αφαιρόντας το διδακτικό κομμάτι έχουμε ένα Glaros Invaders!!! :lol:

glaros.png


Κώδικας: Επιλογή όλων

10 REM ************************
20 REM *  BYTHISATE TO GLARO  *
30 REM *   BY RETROUNBOXERS   *
31 REM *  APO TO BIBLIO TOY   *
32 REM * EYAGGELOY AGGELIDH   *
40 REM * (c)2017 Darth_Cotsos *
50 REM ************************
60 PAPER 7: INK 1: BORDER 6
70 CLS
80 RANDOMIZE
90 LET x=0: LET y=0
100 FOR k=0 TO 23
110 READ b
120 POKE USR "A"+k,b
130 NEXT k
140 FOR k=2 TO 29 STEP 3
150 FOR n=6 TO 10 STEP 2
160 PRINT INK 4;AT n,k;CHR$ (144)+CHR$ (145)
170 NEXT n
180 NEXT k
190 LET c1=1: LET c2=1
200 BEEP 0.2,9
210 PRINT AT 17,8;"                           "
220 PRINT AT 20,c1;" "
230 LET c1=c1+c2
240 IF c1>30 OR c1<1 THEN LET c2=-c2
250 PRINT INK 2;AT 20,c1;CHR$ (146)
260 IF INKEY$<>"B" AND INKEY$<>"b" THEN GO TO 220
270 LET y=y+1
280 BEEP 0.2,1
290 FOR m=19 TO 5 STEP -1
300 BEEP 0.05,m/2
310 LET t=ATTR (m,c1)
320 IF t=60 THEN GO TO 420
330 PRINT AT m,c1;".";
340 PAUSE 3
350 PRINT AT m,c1;" ";
360 NEXT m
370 BEEP 0.6,-10
380 GO TO 440
390 FOR l=1 TO 10
400 BEEP 0.1,6
410 NEXT l
420 PRINT AT m,c1-1;"   "
430 LET x=x+1
440 PRINT INK 2;AT 1,4;"BOLES:  ";y;" EPITYXIES: ";x
450 PRINT AT 20,m;" "
460 IF x=30 THEN STOP
470 GO TO 190
900 DATA 192,48,24,12,6,3,1,1
910 DATA 3,12,24,48,96,192,128,128
920 DATA 0,24,24,60,255,255,255,255


Βάλτε το στον emulator και... διασκεδάστε, παίρνει βέβαια βελτιώσεις!!! :!! ::1
Καλή διασκέδαση και καλές γιορτές!!! zx-logo :xoreyw

GLAROS.tap
Δεν έχετε τα απαραίτητα δικαιώματα για να δείτε τα συνημμένα αρχεία σε αυτήν τη δημοσίευση.
You don't know the power of the 8bit side!!!

RetroUnboxers.gr

Άβαταρ μέλους
VincentGR
Amiganoid
Amiganoid
Δημοσιεύσεις: 1899
Εγγραφή: Τρί Απρ 03, 2012 1:18 pm
Τοποθεσία: Piraeus
Επικοινωνία:

Re: Βυθίσατε το γλάρο!!!

Μη αναγνωσμένη δημοσίευσηαπό VincentGR » Παρ Δεκ 30, 2016 12:16 am

ΕυχαριστΏ.

Υπάρχει και σε σκοτεινή αυτοκρατορεία?
Εικόνα FAN
http://partsfromthepast.blogspot.gr/
To blit, or not to blit?

Άβαταρ μέλους
tester
QDI
QDI
Δημοσιεύσεις: 8
Εγγραφή: Τρί Μάιος 06, 2014 1:41 am

Re: Βυθίσατε το γλάρο!!!

Μη αναγνωσμένη δημοσίευσηαπό tester » Παρ Δεκ 30, 2016 12:19 am

Και γ@μω τα παιχνιδια! :!! και δε τους παω τους κολογλάρους γιατι κουτσουλάνε την βαρκα μου!

Άβαταρ μέλους
arislab
Amstrad Plc. Owner
Amstrad Plc. Owner
Δημοσιεύσεις: 279
Εγγραφή: Τρί Μάιος 06, 2014 2:16 am

Re: Βυθίσατε το γλάρο!!!

Μη αναγνωσμένη δημοσίευσηαπό arislab » Παρ Δεκ 30, 2016 12:19 am

:lol: :lol: :lol: Τρελέ Σπεκτρουμά έγραψες!!! :D :!! s-wow

Άβαταρ μέλους
petsasjim
Μέλος
Μέλος
Δημοσιεύσεις: 1037
Εγγραφή: Τετ Ιούλ 10, 2013 12:18 pm

Re: Βυθίσατε το γλάρο!!!

Μη αναγνωσμένη δημοσίευσηαπό petsasjim » Παρ Δεκ 30, 2016 1:40 am

Darth_Cotsos το κατεβασα :!! ευχαριστω πολυ και με το καλο η Καινουρια Χρονια σε σενα και σε ολους

ανεβασα και ενα βιντεακι να δειτε τι ωραια παιζω (ναι! πως! :? )



Επιστροφή σε “* Home Micros programming *”



Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: 1 και 0 επισκέπτες