Igre Qbasic, enostavne za izdelavo
BASIC, kar pomeni Beginner's All-Purpose Symbolic Instruction Code, je še vedno najbolj znan programski jezik za absolutne začetnike, QBasic pa je preprost tolmač zanj, prek katerega lahko pišete in izvajate programe. Še vedno obstaja precejšnja skupnost ljubiteljev QBasic in učenje izdelave iger QBasic vas nauči osnov programiranja in je zelo zabavno.
Kako začeti s QBasic
Če v sistemu nimate QBasic, lahko prenesete izvirno različico na Petovem spletnem mestu QB (glejte Viri) ali novejšo različico, imenovano QB64, ki je zasnovana tako, da je združljiva z izvirnikom. Ko ga odprete, se vam prikaže modri zaslon. Vnesite naslednje:
CLS PRINT "Pozdravljen, svet!" INPUT "Kako ti je ime?"; ime$ PRINT "Pozdravljeni, "; ime$; "!" KONEC
Nato pritisnite Shift + F5, da zaženete program. Dogaja se naslednje:
"CLS" pomeni "clear screen" in poskrbi, da se vaš program zažene s praznim zaslonom; sicer boste videli ostanke prejšnjega programa.
"PRINT" preprosto natisne niz besedila na zaslon. Če samo tiskate številko, ne potrebujete narekovajev.
"INPUT" je način, da vprašate uporabnika za vnos. Konec vrstice, "name$", je spremenljivka:tam bo shranjen uporabnikov odgovor. Lahko ga imenujete kakor koli želite; spremenljivke, ki vsebujejo besedilo, se morajo končati z "$", spremenljivke, ki vsebujejo samo številke, pa z "%".
Druga vrstica "PRINT" natisne besedilo skupaj z vsem, kar je vnesel uporabnik.
"END", predvidljivo, konča program.
Igre ugibanja QBasic
Vnesite naslednjo kodo v QBasic:
CLS možnosti% =1 NAKLJUČNI ČASOVNIK številka% =INT(RND * 10) + 1 PRINT "Razmišljam o številu od 1 do 10. Imate tri možnosti, da ga dobite pravilno."
DO WHILE možnosti% <4 PRINT PRINT "Imate priložnost #"; možnosti %; "." PRINT INPUT "Ugani število"; guess% IF guess% =number% THEN GOTO youwin ELSEIF guess%
PRINT PRINT "Zmanjkalo vam je možnosti! Oprostite!" KONEC
youwin:PRINT PRINT "Uganili ste številko! Številka je bila"; število%; "!" KONEC
V tej igri program ustvari naključno število od 1 do 10 in vam ponudi tri možnosti, da se pravilno odločite, pri čemer vam po prvih dveh namigih ponudi namige. Vključuje veliko konceptov programiranja.
Ko počistite zaslon, "chances% =1" ustvari številsko spremenljivko in jo nastavi na 1. To bo spremljalo vse možnosti, ki jih ima igralec, da ugane številko.
Naslednji dve vrstici ustvarita naključno število. "NAKLJUČNI ČASOVNIK" je preprosto metoda, ki jo QBasic uporablja za pripravo naključnega številčenja. Naslednja vrstica, "number% =INT(RND * 10) + 1", ustvari naključno število od 1 do 10 in ga shrani v spremenljivko number%. Videti je zapleteno, a v bistvu samo pravi "Naj bo eno od prvih desetih pozitivnih celih števil." "+ 1" na koncu zagotavlja, da bo številka od 1 do 10 in ne od 0 do 9.
Vrstica "DO WHILE ..." ustvari zanko. Whenever you see a line that starts with "DO," scroll down a bit until you find a line that says "LOOP." Everything in between that line will continue to loop over and over again until a certain condition is met--in this case, until chances% is no longer less than four (or "<4" in programming-speak).
The program then asks for a guess with the INPUT command, stores it in guess%, and proceeds to process it with the "IF...THEN...ELSE" method. As you can see, it works logically:"IF a statement is true, THEN do this; ELSEIF another statement is true, then do this; ELSE anything else is true, then do this."
The only extra aspect is the GOTO command. In this case, if the number is correct, the program goes to the section of the document labeled "youwin".
Right before the end of the loop, there's the "chances% =chances% + 1" line. That's to assure the loop only runs three times.
If the loop runs three times and the player has never been sent to the "youwin" section, the player loses, so right after the loop is a line informing the player of the loss. Below it is the "youwin" section, declared just by writing the name of the section with a colon.
More Game Ideas
With PRINT, INPUT, IF...THEN...ELSE, and GOTO, you have everything you need to create an easy-to-make text adventure. Here's some sample code:
house:INPUT "You're standing in a house. What would you like to do"; choice$ IF choice$ ="go upstairs" THEN GOTO upstairs ELSE GOTO house
Try to make it as complex as you can based on what you know. And for more inspiration, the web offers plenty of free QBasic game downloads. Play them and examine the code behind them to learn new techniques and get ideas.