[adrian09_01]

Tytuł: Paper RPG 2

Gatunek: RPG z elementami losowości
Język: QBasic

Autor: adrian09_01
Grafika: Taka jak zawsze (LINE, COLOR, PRINT)
Dźwięk: Wciąż prymitywny, PC Speaker
Muzyka: Europe - Final Countdown (cover na głośniczku PC Speaker adrian09_01)

Opis:
Cytuję:
Nie jest to nic więcej, jak lekkie rozszerzenie Paper RPG. Dodane zostało 5 nowych klas: Duch, Frania, Developer, Chuck Norris, Ty i ulepszona Klasa Własna. Teraz można już nazywać swoje klasy i ataki specjalne. Klasa Ty (Yourself) dziedziczy ataki specjalne, ich moce, ilość HP, nazwę klasy i imię po tobie. Gra wciąż odbywa się na tych samych zasadach co część pierwsza. W menu jest moja wersja piosenki Final Countdown zespołu Europe na głośniczku systemowym. Można ją pominąć wciskając N przy starcie gry.

Zrzuty ekranu:
http://tropicgames.manifo.com/paper-rpg-2---qbasic

Download:
http://tropicgames.manifo...42679afb2988dd1

Uwagi:
Kod gry:

Spoiler:

--- TU START KODU ---
'Wartosci:
'Nazwa$ - imie gracza
'Klasa$ - klasa gracza
'KlasaWrog$ - nazwa klasy wlasnej dla wroga
'GameMode - tryb gry (1 kampania, 2 szybka gra)
'ATAKSILA - sila ataku pdst.
'UNIKSILA - sila uniku
'ATAK1SILA - sila 1. specjala
'ATAK2SILA - sila 2. specjala
'ATAK3SILA - sila 3. specjala
'ATAKXNAZWA - nazwa ataku specjalnego X
'ATAK1USE - l. uzyc 1. specjala
'ATAK2USE - l. uzyc 2. specjala
'ATAK3USE - l. uzyc 3. specjala
'HP - zycie gracza
'WybranyAtak - wybrany atak:
'1 - atak
'2 - unik
'3 - 1. specjal
'4 - 2. specjal
'5 - 3. specjal
'TURN - kolejka
'KOSC - rzut koscia'
'Wartosci dla gracza maja dopisek GRACZ np.
'ATAKSILAGRACZ'

'Initializacja gry'
10 CLS
RANDOMIZE TIMER
INPUT Czy chcesz obejrzec intro? (Y/N), Cutscene$
CLS
LOCATE 7, 15
PRINT -----------------------------------------
LOCATE 8, 15
PRINT |Paper RPG 2: The Story of Wolf and Man|
LOCATE 9, 15
PRINT -----------------------------------------
LOCATE 10, 15
PRINT | (C) 2014 by Tropic Games |
LOCATE 12, 15
PRINT -----------------------------------------
SELECT CASE Cutscene$
CASE N
CASE Nie
CASE No
CASE NIE
CASE NO
CASE ELSE
PLAY mb C32 D32 E32 F32 G32 A32 B4
PLAY mb C32 D32 E32 F32 G32 A32 B4
PLAY mb L16 ed L4 e P64 L4 <a P4 > L16 fe L32 f P8 e P8 L4 d P4
PLAY mb L16 ed L4 e P64 L4 <ga P4 > c L17 ede L32 d P8 ed P8 L4 c P4
PLAY mb L16 ed L4 e P64 L4 <a P4 > L16 fe L32 f P8 e P8 L4 d P4
PLAY mb L16 ed L4 e P64 L4 <ga P4 > c L17 ede L32 d P8 ed P8 L4 c P4
PLAY a16 F#16 A4 G12 G#4 F#3 MF
END SELECT
LOCATE 11, 15
PRINT | Aby rozpoczac gre, wcisnij Enter! |
LOCATE 20, 15
COLOR 4, 0
INPUT Wpisz nazwe gracza: , Nazwa$
COLOR 7, 0
PLAY mf
CLS
LOCATE 10, 25
PRINT Wybierz tryb gry
COLOR 1, 0
LOCATE 11, 25
PRINT 1 - Kampania
COLOR 2, 0
LOCATE 12, 25
PRINT 2 - Szybka gra
COLOR 3, 0
LOCATE 13, 25
COLOR 7, 0
PRINT ? - twoj wybor
LOCATE 13, 24
INPUT , GameMode
IF GameMode < 3 THEN
ELSE
PRINT TTTT
PRINT TTTT
PRINT TT RAFIL CI SIE CHYBA JAKIS ERROR!
PRINT TT
PRINT Paper RPG 2 OWM nie moze odczytac danych tego trybu gry!
END IF
CLS
SELECT CASE GameMode
CASE 1
LOCATE 3, 25
PRINT Wybierz startowa klase CPU
CASE ELSE
LOCATE 3, 25
PRINT Wybierz klase CPU
END SELECT
LOCATE 5, 25
COLOR 1, 0
PRINT 1 - robot
LOCATE 6, 25
COLOR 2, 0
PRINT 2 - kosmita
COLOR 3, 0
LOCATE 7, 25
PRINT 3 - czlowiek
LOCATE 8, 25
COLOR 4, 0
LOCATE 9, 25
PRINT 4 - duch
COLOR 5, 0
LOCATE 10, 25
PRINT 5 - Frania
COLOR 6, 0
LOCATE 11, 25
PRINT 6 - Developer
COLOR 7, 0
LOCATE 12, 25
PRINT 7 - Chuck Norris
COLOR 8, 0
LOCATE 13, 25
PRINT 8 - Ty
COLOR 9, 0
SELECT CASE GameMode
CASE 1
CASE ELSE
LOCATE 14, 25
PRINT 9 - Klasa Wlasna
END SELECT
LOCATE 15, 25
COLOR 7, 0
PRINT ? - twoj wybor
LOCATE 15, 24
INPUT , Klasa
PLAY C
SELECT CASE GameMode
CASE 1
IF Klasa = 9 THEN
Klasa = 8
END IF
CASE ELSE
IF Klasa = 9 THEN
CLS
INPUT Podaj nazwe klasy: , NazwaKlasy$
PLAY C
INPUT Podaj sile ataku podstawowego: , ATAKSILA
PLAY C
COLOR 4, 0
PRINT Sila uniku 0 grozi zgon... nie, to po prostu psuje gre
COLOR 7, 0
INPUT Podaj sile uniku: , UNIKSILA
PLAY C
INPUT Podaj sile ataku specjalnego 1: , ATAK1SILA
PLAY C
INPUT Podaj nazwe ataku specjalnego 1: , ATAK1NAZWA$
PLAY C
INPUT Podaj sile ataku specjalnego 2: , ATAK2SILA
PLAY C
INPUT Podaj nazwe ataku specjalnego 2: , ATAK2NAZWA$
PLAY C
INPUT Podaj sile ataku specjalnego 3: , ATAK3SILA
PLAY C
INPUT Podaj nazwe ataku specjalnego 3: , ATAK3NAZWA$
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 1: , ATAK1USE
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 2: , ATAK2USE
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 3: , ATAK3USE
PLAY C
COLOR 4, 0
PRINT Radzilbym wybrac ci wartosc powyzej 1000 dla HP
COLOR 5, 0
INPUT Podaj zycie CPU: , HP
PLAY C
END IF
END SELECT
CLS
PRINT Teraz podaj wartosci dla gracza
SLEEP 3
INPUT Podaj nazwe klasy: , NazwaKlasyGRACZ$
PLAY C
INPUT Podaj sile ataku podstawowego: , ATAKSILAGRACZ
PLAY C
COLOR 4, 0
PRINT Sila uniku 0 grozi zgon... nie, to po prostu psuje gre
COLOR 7, 0
INPUT Podaj sile uniku: , UNIKSILAGRACZ
PLAY C
INPUT Podaj sile ataku specjalnego 1: , ATAK1SILAGRACZ
PLAY C
INPUT Podaj nazwe ataku specjalnego 1: , ATAK1NAZWAGRACZ$
PLAY C
INPUT Podaj sile ataku specjalnego 2: , ATAK2SILAGRACZ
PLAY C
INPUT Podaj nazwe ataku specjalnego 2: , ATAK2NAZWAGRACZ$
PLAY C
INPUT Podaj sile ataku specjalnego 3: , ATAK3SILAGRACZ
PLAY C
INPUT Podaj nazwe ataku specjalnego 3: , ATAK3NAZWAGRACZ$
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 1: , ATAK1USEGRACZ
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 2: , ATAK2USEGRACZ
PLAY C
INPUT Podaj liczbe uzyc ataku specjalnego 3: , ATAK3USEGRACZ
PLAY C
COLOR 4, 0
PRINT Radzilbym wybrac ci wartosc powyzej 1000 dla HP
COLOR 7, 0
INPUT Podaj zycie gracza: , HPGRACZ
PLAY C
TURN = 0
'Gra wlasciwa (od DO... LOOP)
30 IF Klasa = 1 THEN
ATAKSILA = 1
UNIKSILA = 2
ATAK1SILA = 2
ATAK2SILA = 2
ATAK3SILA = 3
ATAK1USE = 3
ATAK2USE = 2
ATAK3USE = 2
HP = 1150
END IF
IF Klasa = 2 THEN
ATAKSILA = 1
UNIKSILA = 3
ATAK1SILA = 3
ATAK2SILA = 2
ATAK3SILA = 2
ATAK1USE = 2
ATAK2USE = 4
ATAK3USE = 2
HP = 1250
END IF
IF Klasa = 3 THEN
ATAKSILA = 2
UNIKSILA = 2
ATAK1SILA = 1
ATAK2SILA = 3
ATAK3SILA = 3
ATAK1USE = 3
ATAK2USE = 2
ATAK3USE = 1
HP = 1000
END IF
IF Klasa = 4 THEN
ATAKSILA = 3
UNIKSILA = 2
ATAK1SILA = 4
ATAK2SILA = 4
ATAK3SILA = 5
ATAK1USE = 3
ATAK2USE = 3
ATAK3USE = 2
HP = 1600
END IF
IF Klasa = 5 THEN
ATAKSILA = 3
UNIKSILA = 2
ATAK1SILA = 3
ATAK2SILA = 3
ATAK3SILA = 5
ATAK1USE = 3
ATAK2USE = 3
ATAK3USE = 2
HP = 2000
END IF
IF Klasa = 6 THEN
ATAKSILA = 4
UNIKSILA = 3
ATAK1SILA = 3
ATAK2SILA = 4
ATAK3SILA = 3
ATAK1USE = 2
ATAK2USE = 3
ATAK3USE = 2
HP = 2950
END IF
IF Klasa = 7 THEN
ATAKSILA = 4
UNIKSILA = 4
ATAK1SILA = 4
ATAK2SILA = 4
ATAK3SILA = 4
ATAK1USE = 4
ATAK2USE = 4
ATAK3USE = 4
HP = 3500
END IF
IF Klasa = 8 THEN
ATAKSILA = ATAKSILAGRACZ
UNIKSILA = ATAKSILAGRACZ
ATAK1SILA = ATAK1SILAGRACZ
ATAK2SILA = ATAK2SILAGRACZ
ATAK3SILA = ATAK3SILAGRACZ
ATAK1USE = ATAK1SILAGRACZ / 3
ATAK2USE = ATAK2SILAGRACZ / 3
ATAK3USE = ATAK3SILAGRACZ / 3
HP = HPGRACZ
END IF
DO
CLS
SELECT CASE Klasa
CASE 1
PRINT Robcio - Robot
PRINT Atak --- 1
PRINT Unik --- 2
PRINT Laser -- 2;
PRINT ATAK1USE
PRINT Rakieta 2;
PRINT ATAK2USE
PRINT Bomba -- 3;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 2
PRINT Koma - Kosmita
PRINT Atak --- 1
PRINT Unik --- 3
PRINT Zap ---- 3;
PRINT ATAK1USE
PRINT Banka -- 2;
PRINT ATAK2USE
PRINT Ogien -- 2;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 3
PRINT Chief - Czlowiek
PRINT Atak --- 2
PRINT Unik --- 2
PRINT Shotgun 1;
PRINT ATAK1USE
PRINT Granat - 3;
PRINT ATAK2USE
PRINT Maszynow 3;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 4
PRINT Buu - Duch
PRINT Atak --- 3
PRINT Unik --- 2
PRINT Strach - 4;
PRINT ATAK1USE
PRINT DKwiaty 4;
PRINT ATAK2USE
PRINT SPiesn - 5;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 5
PRINT Frania - Babcia
PRINT Atak --- 3
PRINT Unik --- 2
PRINT ChldStop 3;
PRINT ATAK1USE
PRINT ChngDir 3;
PRINT ATAK2USE
PRINT Skladnik 5;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 6
PRINT adrian09_01 - Developer
PRINT Atak --- 4
PRINT Unik --- 3
PRINT QBasic - 3;
PRINT ATAK1USE
PRINT MMF2 --- 4;
PRINT ATAK2USE
PRINT TGF ---- 3;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 7
PRINT Chuck Norris
PRINT Atak --- 4
PRINT Unik --- 4
PRINT Kop ---- 4;
PRINT ATAK1USE
PRINT Pistolet 4;
PRINT ATAK2USE
PRINT Gadka -- 4;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 9
PRINT ???;
PRINT - ;
PRINT NazwaKlasy$
PRINT Atak --- ;
PRINT ATAKSILA
PRINT Unik --- ;
PRINT UNIKSILA
PRINT ATAK1NAZWA$;
PRINT -- ;
PRINT ATAK1SILA;
PRINT ;
PRINT ATAK1USE
PRINT ATAK2NAZWA$;
PRINT -- ;
PRINT ATAK2SILA;
PRINT ;
PRINT ATAK2USE
PRINT ATAK3NAZWA$;
PRINT -- ;
PRINT ATAK3SILA;
PRINT ;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE 8
PRINT Nazwa$;
PRINT - ;
PRINT NazwaKlasyGRACZ$
PRINT Atak --- ;
PRINT ATAKSILAGRACZ
PRINT Unik --- ;
PRINT UNIKSILAGRACZ
PRINT ATAK1NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK1SILAGRACZ;
PRINT ;
PRINT ATAK1USE
PRINT ATAK2NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK2SILAGRACZ;
PRINT ;
PRINT ATAK2USE
PRINT ATAK3NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK3SILAGRACZ;
PRINT ;
PRINT ATAK3USE
PRINT
COLOR 4, 0
PRINT HP
COLOR 7, 0
CASE ELSE
PLAY ML C16 E4
PRINT TTTT
PRINT TTTT
PRINT TT RAFIL CI SIE CHYBA JAKIS ERROR!
PRINT TT
PRINT TT
PRINT Paper RPG 2 OWM nie moze odczytac danych klasy;
PRINT Klasa;
PRINT !
END
END SELECT
PRINT
PRINT VS.
PRINT
PRINT Nazwa$;
PRINT - ;
PRINT NazwaKlasyGRACZ$
PRINT Atak --- ;
PRINT ATAKSILAGRACZ
PRINT Unik --- ;
PRINT UNIKSILAGRACZ
PRINT ATAK1NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK1SILAGRACZ;
PRINT ;
PRINT ATAK1USEGRACZ
PRINT ATAK2NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK2SILAGRACZ;
PRINT ;
PRINT ATAK2USEGRACZ
PRINT ATAK3NAZWAGRACZ$;
PRINT -- ;
PRINT ATAK3SILAGRACZ;
PRINT ;
PRINT ATAK3USEGRACZ
PRINT
COLOR 4, 0
PRINT HPGRACZ
COLOR 7, 0
SLEEP
LOCATE
KOSC = INT(RND * 6 + 1)
SELECT CASE TURN
CASE 0
LOCATE 17, 55
PRINT Wartosc Kosci: ; KOSC
LOCATE 18, 55
INPUT Wybierz atak (1-5), WybranyAtakGRACZ
SELECT CASE WybranyAtakGRACZ
CASE 1
PLAY C16 D16 C4
LOCATE 19, 55
COLOR 4, 7
CLS
PRINT Atakujesz - Atak!
HP = HP - (ATAKSILAGRACZ * KOSC)
SLEEP 2
COLOR 7, 0
CLS
CASE 2
PLAY C16 D16 E16
LOCATE 19, 55
COLOR 2, 7
CLS
PRINT Unikasz!
HPGRACZ = HPGRACZ + (UNIKSILAGRACZ * KOSC)
SLEEP 2
COLOR 7, 0
CLS
CASE 3
IF ATAK1USEGRACZ > 0 THEN
PLAY C16 D16 C4
LOCATE 19, 55
COLOR 5, 7
CLS
PRINT Uzywasz Ataku 1!
HP = HP - (ATAK1SILAGRACZ * KOSC)
ATAK1USEGRACZ = ATAK1USEGRACZ - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
CASE 4
IF ATAK2USEGRACZ > 0 THEN
PLAY C16 D16 C4
LOCATE 19, 55
COLOR 5, 7
CLS
PRINT Uzywasz Ataku 2!
HP = HP - (ATAK2SILAGRACZ * KOSC)
ATAK2USEGRACZ = ATAK2USEGRACZ - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
CASE 5
IF ATAK3USEGRACZ > 0 THEN
PLAY C16 D16 C4
LOCATE 19, 55
COLOR 5, 0
CLS
PRINT Uzywasz Ataku 3!
HP = HP - (ATAK3SILAGRACZ * KOSC)
ATAK3USEGRACZ = ATAK3USEGRACZ - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
SLEEP
END SELECT
TURN = 1
CASE 1
WybranyAtak = INT(RND * 5 + 1)
SELECT CASE WybranyAtak
CASE 1
PLAY C16 D16 C4
LOCATE 6, 55
COLOR 4, 7
CLS
PRINT Wrog Atakuje - Atak!
HPGRACZ = HPGRACZ - (ATAKSILA * KOSC)
SLEEP 2
COLOR 7, 0
CLS
CASE 2
PLAY C16 D16 E16
LOCATE 6, 55
COLOR 2, 7
PRINT Wrog Unika!
HP = HP + (UNIKSILA * KOSC)
SLEEP 2
COLOR 7, 0
CLS
CASE 3
IF ATAK1USE > 0 THEN
PLAY C16 D16 C4
LOCATE 6, 55
COLOR 5, 7
PRINT Wrog Uzywa Ataku 1!
HPGRACZ = HPGRACZ - (ATAK1SILA * KOSC)
ATAK1USE = ATAK1USE - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
CASE 4
IF ATAK2USE > 0 THEN
PLAY C16 D16 C4
LOCATE 6, 55
COLOR 5, 7
PRINT Wrog Uzywa Ataku 2!
HPGRACZ = HPGRACZ - (ATAK2SILA * KOSC)
ATAK2USE = ATAK2USE - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
CASE 5
IF ATAK3USE > 0 THEN
PLAY C16 D16 C4
LOCATE 6, 55
COLOR 5, 0
PRINT Wrog Uzywa Ataku 3!
HPGRACZ = HPGRACZ - (ATAK3SILA * KOSC)
ATAK3USE = ATAK3USE - 1
SLEEP 2
COLOR 7, 0
CLS
END IF
SLEEP
END SELECT
TURN = 0
END SELECT
IF HPGRACZ < 0 THEN
CLS
COLOR 4, 0
PRINT Przegrales. Sprobuj jeszcze raz...
PLAY C < B > C
COLOR 7, 0
PRINT
PRINT Wcisnij dowolny klawisz...
SLEEP
GOTO 10
END IF
IF HP < 0 THEN
CLS
COLOR 2, 0
PRINT Wygrales! Sprobuj wygrac z trudniejszym przeciwnikiem!
PLAY E4E4F4G4G4F4E4D4C4C4D4D4E4D4C4C4
COLOR 7, 0
PRINT
PRINT Wcisnij dowolny klawisz...
IF GameMode = 1 THEN
Klasa = Klasa + 1
HPGRACZ = HPGRACZ + 1000
ATAKSILAGRACZ = ATAKSILAGRACZ + 1
UNIKSILAGRACZ = UNIKSILAGRACZ + 1
ATAK1USEGRACZ = ATAK1USEGRACZ + 5
ATAK2USEGRACZ = ATAK2USEGRACZ + 5
ATAK3USEGRACZ = ATAK3USEGRACZ + 5
SELECT CASE Klasa
CASE 2
PRINT Pozegnaj sie z zyciem, idioto! Nadchodzi Koma!
CASE 3
PRINT Co, ciolku? Chief przyszedl!
CASE 4
PRINT Buu! Uuu! Duszek Buu jest za toba!
CASE 5
PRINT To ja! Frania i moje moce!
CASE 6
PRINT PRINT ''GOT SO FAR''
PRINT PRINT ''GOODBYE''
PRINT PRINT ''I WILL KILL YOU''
PRINT GOTO BATTLE
CASE 7
PRINT Zalatwic cie kopem z polobrotu?
CASE 8
PRINT To ja! Moja identyczna kopia! Zabije cie, glupi klonie!
CASE 9
PLAY C E C C < A > C C D E E F C < B > C C C C
PRINT PAPER RPG 2 STAFF
PRINT Game Designer:
PRINT Adrian Orzech
PRINT
PRINT Programmer:
PRINT Adrian Orzech
PRINT
PRINT Music and Sound:
PRINT Adrian Orzech, MicroTrip
PRINT
PRINT SEE YOU AGAIN
PRINT IN PAPER RPG 3
SLEEP
GOTO 10
END SELECT
END IF
SLEEP
IF GameMode = 1 THEN
GOTO 30
END IF
GOTO 10
END IF
LOOP
--- TU KONIEC KODU ---

- Poprawiono download pierwszego Paper RPG.

[ Dodano: 22-02-2014, 10:52 ]
Odkopuję temat.

[ Dodano: 23-02-2014, 12:31 ]
Even more odkop!

[ Dodano: 24-02-2014, 17:26 ]
Odkopuję. Ktoś niech to w końcu skomentuje.

[MariQ]

Jak tak bardzo ci zależy to skomentuję. W to się nie da grać.