MS Office week
Pouze tento týden sleva až 80 % na e-learning týkající se MS Office
50 % bodů zdarma na online výuku díky naší Slevové akci!

Generátor náhodných rýmov v GML Ranslogen

Jednoduchý generátor náhodných rýmov RANSLOGEN je kompletne napísaný v GML a do jeho kódu môžete pokojne nahliadnuť stiahnutím súboru nižšie. Ak však nemáte Game Maker, nevadí, v archíve je zabalený aj skompilovaný .exe súbor.

Základ RANSLOGENu vyzerá takto:

Tento výukový obsah pomáhajú rozvíjať nasledujúce firmy, ktoré možno hľadajú práve teba!

1.inicializace

a[0]="pozná";
a[1]="nezná";
a[2]="nemá";
a[3]="hledá";

b[0]="chybu";
b[1]="rybu";
b[2]="slávu";
b[3]="hlavu";
b[4]="krávu";
b[5]="mámu";
b[6]="kávu";

d[0]="mýdlo";
d[1]="sídlo";
d[2]="jídlo";
d[3]="šídlo";

e[0]="chválí";
e[1]="pálí";
e[2]="krájí";
e[3]="hájí";

2. Hlavný skript script0 (umiestnený v eventoch Create a Alarm 0)

if floor(random(2))=1{
aa=a[floor(random(4))];
az=a[floor(random(4))];
}
else {
aa=e[floor(random(4))];
az=e[floor(random(4))];
}
if floor(random(2))=1{
bb=b[floor(random(7))];
bz=b[floor(random(7))];
}
else{
bb=d[floor(random(4))];
bz=d[floor(random(4))];
}
if (aa==az||bb==bz) then script0();
alarm[0]=100;

3. Vypísanie nádchu (event Draw)

draw_text(30,100,"Kdo "+string(aa)+" "+string(bb)+", ten "+string(az)+" "+string(bz)+".");

Ak by boli nejaké nejasnosti ohľadom kódu, pokojne píšte do komentárov!


Galéria


 

Stiahnuť

Stiahnuté 255x (1.21 MB)
Aplikácia je vrátane zdrojových kódov v jazyku GameMaker

 

Všetky články v sekcii
Game maker - GML
Program pre vás napísal Martin Bednář (xbedm01)
Avatar
Ako sa ti páči článok?
Ešte nikto nehodnotil, buď prvý!
Autor se momentálně věnuje nejvíce jazykům PHP,JavaScript,HTML a CSS. Také tvoří hry v Game Makeru.
Aktivity (1)

 

 

Komentáre

Avatar
Davemal
Člen
Avatar
Davemal:2.7.2013 13:43

Nevím přesto choose to asi nezládnu protože totálně nevím jak to udělat, asi to budu muset udělat přes if.

 
Odpovedať
2.7.2013 13:43
Avatar
TomBen
Redaktor
Avatar
Odpovedá na Davemal
TomBen:2.7.2013 22:58

choose je jednodušší než celé ty ify. Prostě ti dává jednu z položek,
náhodně kterou. Musel bys napsat, čemu na tom nerozumíš.

Odpovedať
2.7.2013 22:58
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Davemal
Člen
Avatar
Odpovedá na TomBen
Davemal:3.7.2013 8:48

No prostě nevím jak mám napsat ten kod přes choose.

 
Odpovedať
3.7.2013 8:48
Avatar
TomBen
Redaktor
Avatar
Odpovedá na Davemal
TomBen:3.7.2013 10:56

Já asi tuším....nemáš náhodou problém číst základní strukturu gml?
Co je funkce, co parametr a co proměnná? Případně přiřazení vs porovnání?
Pokud ano, tak to nepiš ani těma if..else, protože na tom porodíš ježky.
Zkus nejprve nějaké snazší cvičení a počti si něco o funkcích obecně.
Taky můžeš procházet postupně moje tutoriály označené jako seriál TBA.
Přibývají pomalu, ale provedou tě od začátků ke složitým věcem postupně.

Odpovedať
3.7.2013 10:56
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Davemal
Člen
Avatar
Odpovedá na TomBen
Davemal:3.7.2013 11:51

Tak dobrá pročtu ty tvé tutoriály, ale dofám že budou vycházet častěji.

 
Odpovedať
3.7.2013 11:51
Tento výukový obsah pomáhajú rozvíjať nasledujúce firmy, ktoré možno hľadajú práve teba!
Avatar
TomBen
Redaktor
Avatar
Odpovedá na Davemal
TomBen:3.7.2013 12:05

Častěji ani netřeba, pokud je bereš vážně a zkoušíš si věci co tam jsou. Počítám tam s tím, že si věci vyzkoušíš i sám a vzorové programy si zkusíš upravit a předělat po svém. Nemá smysl, abys uměl udělat moje programy. Přijetí informace do vlastního způsobu chápání je nejdůležitější.

Odpovedať
3.7.2013 12:05
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Davemal
Člen
Avatar
Odpovedá na TomBen
Davemal:3.7.2013 12:11

Já si myslím že všechno chce nějaký čas, třeba něčemu nerozumíš zamyslíš se pořádně nad tím a pak tomu třeba rozumíš, ale není to takhle vždy občas se hold musíš zeptat různých lídí aby ti pomohly.

 
Odpovedať
3.7.2013 12:11
Avatar
Davemal
Člen
Avatar
Odpovedá na TomBen
Davemal:3.7.2013 13:18

Už jsem to proštudoval a mohu se zeptat, kdy se v tvých tutoriálech začne objevovat GML.

 
Odpovedať
3.7.2013 13:18
Avatar
TomBen
Redaktor
Avatar
Odpovedá na Davemal
TomBen:3.7.2013 13:24

:-) Ikony a gml jsou ve skutečnosti totéž.

Ale abych odpověděl: nejbližší článek ještě bude v ikonách a další už
bude mít gml. ( pokud nezjistím, že jsem zapomněl něco důležitého vysvětlit )

Teď už mizím a budu až večer..

Odpovedať
3.7.2013 13:24
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Davemal
Člen
Avatar
Odpovedá na TomBen
Davemal:3.7.2013 13:26

Tak zatim čau.

 
Odpovedať
3.7.2013 13:26
Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zatiaľ nikto nevložil komentár - buď prvý!