[HELP] Losowa odpowiedź

[TheAlsenPL]

Otóż mam zamiar napisać program z zagadkami. Ma on na celu po nacisnieciu odpowiedniego przycisku otworzyc okienko (komunikat) z zagadka a nastepnie kolejny komunikat z odpowiedzia, po czym wyslac nastepna zagadke itd.

I mam taki problem, zapomnialem komendy na komunikat oraz jak zrobić aby program losowo wybierał zagadkę i ją wysyłał?

[M4niak]

Dim $pytania[3] = ["Gdzie się urodziłeś?", "Jak masz na imię?", "Dokąd idziesz?"]

While 1
 MsgBox(0, "Pytanie nr 1", $pytania[Random(0, 2, 1)])
 ; itd, itd, dopisz sobie co tam chcesz 
WEnd

[TheAlsenPL]

A jak dodac do tego zeby wysylal rowniez odpowiedzi ?

[M4niak]

Tzn?

Rozwiń swoją myśl..

[TheAlsenPL]

Ze gdy wysle juz komunikat z zagadka, po nacisnieciu ok wyslal komunikat z odpowiedzia

[M4niak]

Kurwa, no to myśl logicznie, chyba, że masz 5 lat i 0 znajomość angielskiego...

Dim $pytania[3] = ["Gdzie się urodziłeś?", "Jak masz na imię?", "Dokąd idziesz?"]
Dim $odpowiedzi[3] = ["W szpitalu", "Anonymous", "Przed siebie"]

While 1
 $random = Random(0, 2, 1)
 MsgBox(0, "Pytanie nr 1", $pytania[$random])
 Sleep(200)
 MsgBox(0, "Odpowiedź nr 1", $odpowiedzi[$random])
 ; itd, itd, dopisz sobie co tam chcesz 
WEnd

Takie trudne?

Jak nie ogarniasz kodu to odsyłam do tutków..

[TheAlsenPL]

A nie czekaj.

 

Kod który pokazałeś mówi, że odpowiedzi i pytania nie będą do siebie pasowały.

[M4niak]

Kombinuj.

[Phoenix_PL]

Człowieku... "Zapomniałem komendy na okienko z informacją"... odpal SciTE i kliknij F1... Help wita!

Po drugie: Przeczytaj tutka jeszcze raz, tym razem dokładnie

Po trzecie: To proste operacje logiczne, więc weź to na zdrowy umysł i pomyśl jak to może wyglądać zanim napiszesz byleco...