fun progje maken, 1 probleempje...

[secretman8o]

hoi helpmij leden.

ik ben bezig met een fun programma aan het maken, maar ik kom ergens niet uit...
ik heb een soort gelijke vraag al een keer gesteld bij deze categorie.
maar wat ik wil is dat tussen een paar msgboxjes een spel komt, maar ik wil dan dat als het spel klaar is dat ie weer verder gaat met een paar msgboxjes. nu sluit hij dat programma. ( logisch want er staat WScript.quit ) en die WScript.quit moet verandert worden, maar ik weet die code niet... hier komt een stukie van het progje :

WScript.sleep 5000
msgbox"OHHH...finaly i have repaired the problem...",4096 + 64,"STINKY CHEESE"
msgbox"well...",4096 + 64,"STINKY CHEESE" 
if msgbox("should we foret this problem please...",4096 + 32 + vbYesNo,"STINKY CHEESE") =vbYes then msgbox"ohh, thank you ^^",4096 + 64,"STINKY CHEESE" else msgbox"oohh pleaseeeee, i told you i am sorry...",4096 + 48,"STINKY CHEESE" end if
msgbox"well...",4096 + 64,"STINKY CHEESE"
if msgbox("would you like to play a game with me ?",4096 + 32 + vbYesNo,"STINKY CHEESE") = vbYes then msgbox" OHH, you do !, well ok ^^",4096 + 64,"STINKY CHEESE" else msgbox"NO, ohh to bad, but i want to play, and while i got the power to do what I want..., we will play a game xD",4096 + 48,"STINKY CHEESE"

Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)
 
do
antwoord = inputbox ("spel HOGER /\ LAGER 1 tot 20")
if (antwoord) = cancel then msgbox"no, play it now...",4096 + 16,"STINKY CHEESE"
 
 
if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"
if int(antwoord) =mijngetal then WScript.quit
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop

msgbox"THAT was fun to, i think.",4096 + 64,"STINKY CHEESE"
msgbox"hmmm...",4096 + 64,"STINKY CHEESE"

ik hoop dat het zo duidelijk genoeg is.
en bedankt voor de moeite ^^
mvg: secretman8o
( btw: als het programma klaar is, dan zet ik het op internet, link komt dus als het klaar is !!! )

 

[MrPsycho]

ik zou die "if int(antwoord) =mijngetal then WScript.quit" wegdoen, maar de "if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"" zou ik dan eerst als laatste optie zetten, dus na die "te hoog", dat venster laten sluiten (in zelfde command!) en tegelijk (dus nog steeds in zelfde command) de commands geven om die laatste vensters te openen.

(als ik verkeerd ben, plz zeg het dan, want ik ben nog n beetje een leek in vbscripting, ik ken alleen de grote basis)

 

[secretman8o]

hey top voor het zosnel reageren.
ik ben zelf ook nog een "milde" beginner ^^
maar het probleem is dat er nog ongeveer 50 nieuwe regels moeten komen ^^
als het er nou 5 waren ok, maar boven de 50+ is wel teveel, + er moet nog wat andere efecten komen...
ik heb het nu zo gedaan, maar dat helpt ook niet...:

if msgbox("should we foret this problem please...",4096 + 32 + vbYesNo,"STINKY CHEESE") =vbYes then msgbox"ohh, thank you ^^",4096 + 64,"STINKY CHEESE" else msgbox"oohh pleaseeeee, i told you i am sorry...",4096 + 48,"STINKY CHEESE" end if
msgbox"well...",4096 + 64,"STINKY CHEESE"
if msgbox("would you like to play a game with me ?",4096 + 32 + vbYesNo,"STINKY CHEESE") = vbYes then msgbox" OHH, you do !, well ok ^^",4096 + 64,"STINKY CHEESE" else msgbox"NO, ohh to bad, but i want to play, and while i got the power to do what I want..., we will play a game xD",4096 + 48,"STINKY CHEESE"

Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

do
antwoord = inputbox ("spel HOGER /\ LAGER 1 tot 20")
if (antwoord) = cancel then msgbox"no, play it now...",4096 + 16,"STINKY CHEESE"


if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden" end if

msgbox"THAT was fun to, i think.",4096 + 64,"STINKY CHEESE"
msgbox"hmmm...",4096 + 64,"STINKY CHEESE"

is dit wat je bedoelde ?
--------------------------------------------------------------------------------------------------------------------------
ik heb het ook al gedaan met :
if int(antwoord) =mijngetal then go to x

x = msgbox"THAT was fun to, i think.",4096 + 64,"STINKY CHEESE"

IK WEET HET ZELF OOK NIET MEER... HELP ME PLZZZZ

 

[MrPsycho]

is er ook niet iets als endloop?
zoiets als dit:
if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden" then endloop

*de rest van de functies*

 

[secretman8o]

nee, helaas...

ohhhh... ik kan er niet tegen, slechts die ene zin houd mij weg van mijn succes xD
als dit klaar is wordt ik populair ( hopelijk in de goede weg dan... )

nouja, als IEMAND IETS weet, vertel het me dan alstublieft...
ik zal het zeker waarderen.

mvg. secretman8o ---> wenst jullie een gezonde jaarwisseling <---

 

[secretman8o]

HEEEEYYYY, fantastisch nieuws ^^
ik heb het probleem OPGELOST
yessssssssss xD
dit is wat ik gedaan heb:
-----------------------------------------------------------------------------------------------------------
msgbox"OHHH...finaly i have repaired the problem...",4096 + 64,"STINKY CHEESE"
msgbox"well...",4096 + 64,"STINKY CHEESE"
if msgbox("should we foret this problem please...",4096 + 32 + vbYesNo,"STINKY CHEESE") =vbYes then msgbox"ohh, thank you ^^",4096 + 64,"STINKY CHEESE" else msgbox"oohh pleaseeeee, i told you i am sorry...",4096 + 48,"STINKY CHEESE" end if
msgbox"well...",4096 + 64,"STINKY CHEESE"
if msgbox("would you like to play a game with me ?",4096 + 32 + vbYesNo,"STINKY CHEESE") = vbYes then msgbox" OHH, you do !, well ok ^^",4096 + 64,"STINKY CHEESE" else msgbox"NO, ohh to bad, but i want to play, and while i got the power to do what I want..., we will play a game xD",4096 + 48,"STINKY CHEESE"

Dim mijnGetal
Dim max,min
Randomize
max=20
min=1
mijnGetal = Int((max-min+1)*Rnd+min)

do until int(antwoord) =mijngetal
antwoord = inputbox ("spel HOGER /\ LAGER 1 tot 20")
if (antwoord) = cancel then msgbox"no, play it now...",4096 + 16,"STINKY CHEESE"


if int(antwoord) <mijngetal then msgbox "je nummer is te laag"
if int(antwoord) =mijngetal then msgbox "hoera, je hebt mijn getal gevonden"
if int(antwoord) >mijngetal then msgbox "je nummer is te hoog"
loop

msgbox"THAT was fun to, i think.",4096 + 64,"STINKY CHEESE"
msgbox"hmmm...",4096 + 64,"STINKY CHEESE"
----------------------------------------------------------------------------------------------------------------------------
dus wat ik eigenlik gedaan heb is de 4e zin van if (antwoord).... gewist,
en ik heb naast do ( van do > loop ) de volgende zin eraan geschreven : until int(antwoord) =mijngetal.
------------------------------------------------------------------------------------------------------------------------------
yes weer wat geleerd ^^, maar toch bedankt voor het bekijken en reageren op de vraag.
ik ga weer verder met mijn "STINKY CHEESE"
BB EN DE GROTE GROETJES VAN secretman8o
merry x-mas and a happy new yearrrrrrr.