I am having trouble getting code to run on win 7. It will tell me that it will compile correctly but will not run when using the "compile and run" option. When I try to compile only, it will tell me "complete". I then try to run the executable and it gives an "incorrect parameter error". I have tried to change compatibility options, I have given exceptions to AVG. I have turned off DEP, I have tried diff resolutions and graphics modes in DBP. Nothing works. Any other ideas?
rem Fortune Teller project
rem this is a tutorial project.
cls rgb(255, 255, 255)
ink rgb(255, 255, 255), rgb(0, 0, 0) rem sets forground color to white and background color to black
set text font "arial" rem sets text font to arial
set text size 48
center text 320, 150, "Welcome to Darkbasic"
center text 320, 220, "Fortune Teller Game"
set text size 16
center text 320,380, "Press any key"
wait key rem waits for a key to be pressed before program continues to execute
cls
set text size 24
center text 320, 120, "You are in luck! The fortune teller is taking"
center text 320, 150, "visitors today. But be brief, her time is limited."
center text 320, 180, "Keep your questions short and only expect yes or"
center text 320, 210, "no answers."
center text 320, 270, "You may ask as many questions as you like. When"
center text 320, 300, "done, type quit to end the game."
set text size 16
center text 320, 380, "Press any key"
wait key
Do rem starts the main program loop
ink rgb(255, 255, 0), rgb(0, 0, 0)
set text size 24
text 0, 50, "What is your question? "
ink rgb(255, 255, 255), rgb(0, 0, 0)
print : print : print : print
input Question$ rem captures the player's input and stores it in a variable named Question$
if Question$ = "quit" or Question$ = "Quit" or Question$ = "QUIT"
exit rem exits the main program loop and continues execution after the next loop statement
endif
if Question$ <> ""
seed = timer()
randomize seed
answer = rnd(4) + 1
ink rgb(255, 255, 0), rgb(0, 0, 0)
text 0, 150, "Interesting question, let me think......."
wait 3000
text 330, 150, "Hmm....."
wait 3000
select answer
case 1
text 0, 190, "Let's see, Ah, its all clear now."
wait 2000
text 0, 230, "The answer to your question is yes."
endcase
case 2
text 0, 190, "Give me a moment to focus on your future."
wait 2000
text 0, 230, "It seems that the answer to your question is no."
endcase
case 3
text 0, 190, "This is very strange."
wait 2000
text 0, 230, "I can't predict an answer to that question."
endcase
case 4
text 0, 190, "You must be joking!"
wait 2000
text 0, 230, "Don't waste my time with that crap!"
endcase
case 5
text 0, 190, "Oh, yes, I am seeing clearly now."
wait 2000
text 0, 230, "The answer to your question is yes."
endcase
endselect
set text size 16
center text 320, 380, "press any key."
ink rgb(255, 255, 255), rgb(0, 0, 0)
wait key
cls
endif
loop rem end of the main program loop and returns to the DO line to repeat
cls
set text size 24
center text 320, 150, "So you have had enough. Very well, Time is money"
center text 320, 180, "and there are others waiting to meet with the"
center text 320, 210, "Fortune Teller. Off you go, But feel free to"
center text 320, 240, "return at any time."
set text size 16
center text 320, 380, "press any key."
wait key
cls
end
I also tried codesurge and have the exact same problem. Is it a compiler issue?
