Hej.
Jeg har downloadet Liberty BASIC v4.01 på internettet.
Nu er jeg gået i gang med at lave et spil (mit første), hvor man skal gætte et tal.
Jeg har lavet koden, så der kommer en pop-up boks op, med en menu, samt en texteditor (texteditoren er inde i pop-up boksen".
Koden ser således ud:
'No main window
nomainwin
'Set the size of our Window.
WindowWidth = 350
WindowHeight = 254
'Set up the controls and open the window.
groupbox #main, "Menu", 191, 70, 134, 140
TEXTEDITOR #main.ext, 15, 10, 160, 200
statictext #main.statictext3, "Jeg har valgt et tilfældigt tal mellem 1 og 100, og jeg vil have dig til at gætte, hvilket tal det er...", 191, 10, 128, 60
button #main, "Nyt spil", [nytspil], UL, 207, 88, 102, 20
button #main, "Instruktioner", [instruktioner], UL, 207, 118, 102, 20
button #main, "Faq", [Faq], UL, 207, 148, 102, 20
button #main, "Quit", [quit], UL, 207, 178, 102, 20
open "Gæt et tal" for dialog as #main
[mainLoop] 'wait here for user input
wait
[quit] 'exit the program
close #main
end
[Faq] ' ==ENTER NEW LEAD OR EDIT AN EXISTING LEAD=================
' This section of code opens a dialog box
' for either entering a new lead
' record, or for editing an existing one.
' There are a couple of subroutines
' in this section to share common code for
' the new lead and edit lead parts.
[newSalesLead] 'Open a window for creating a new lead record.
gosub [setupCommonControls]
button #leadInfo.button20, "Luk", [cancelLeadInfo], UL, 200, 95, 64, 25
open "Faq" for dialog_modal as #leadInfo
goto [mainLoop]
[cancelLeadInfo] 'Close the lead info window. Don't save info
close #leadInfo
[editSalesLead] 'open a window for editing a lead record
goto [mainLoop]
[setupCommonControls]
WindowWidth = 280
WindowHeight = 160
statictext #leadInfo.statictext3, "Ofte stillede spørgsmål:", 10, 10, 200, 20
statictext #leadInfo.statictext4, "Hvilket program er brugt til at lave spillet?", 10, 30, 200, 15
statictext #leadInfo.statictext5, "Liberty BASIC version 4.01", 10, 45, 200, 15
statictext #leadInfo.statictext6, "Hvem har lavet spillet?", 10, 60, 200, 15
statictext #leadInfo.statictext7, "Det har Lasse Grubbe.", 10, 75, 200, 15
statictext #leadInfo.statictext8, "Kan man komme i kontakt med ham?", 10, 90, 180, 15
statictext #leadInfo.statictext9, "Ja. E-mail: lasse.grubbe@jubii.dk", 10, 105, 170, 15
return
[instruktioner]
' ==ENTER NEW LEAD OR EDIT AN EXISTING LEAD=================
' This section of code opens a dialog box
' for either entering a new lead
' record, or for editing an existing one.
' There are a couple of subroutines
' in this section to share common code for
' the new lead and edit lead parts.
[newSalesLead1] 'Open a window for creating a new lead record.
gosub [setupCommonControls1]
button #leadInfo.button20, "Luk", [cancelLeadInfo1], UL, 230, 95, 64, 25
open "Instruktioner" for dialog_modal as #leadInfo
goto [mainLoop]
[cancelLeadInfo1] 'Close the lead info window. Don't save info
close #leadInfo
[editSalesLead1] 'open a window for editing a lead record
goto [mainLoop]
[setupCommonControls1]
WindowWidth = 320
WindowHeight = 160
statictext #leadInfo.statictext3, "Jeg har valgt et tilfældigt tal mellem 1 og 100.", 10, 10, 250, 17
statictext #leadInfo.statictext4, "Din opgave er nu at gætte hvilket tal det er.", 10, 25, 250, 15
statictext #leadInfo.statictext5, "Indtast det tal du vil gætte på i boksen til venstre ", 10, 40, 250, 15
statictext #leadInfo.statictext6, "og tryk på enter. Derefter vil jeg fortælle dig om du", 10, 55, 250, 15
statictext #leadInfo.statictext7, "skal gætte højere eller lavere.", 10, 70, 250, 17
statictext #leadInfo.statictext8, "Når du har fundet det tal jeg valgte, vil jeg ", 10, 85, 200, 15
statictext #leadInfo.statictext9, "fortælle dig, hvor mange gæt du brugte.", 10, 100, 190, 15
return
Koden er nu slut!
Inde i texteditoren vil jeg godt have dette spil til at være, således at man skrive det tal man vil gætte på inde i boksen osv...
Koden til spillet kommer her:
[start]
guessMe = int(rnd(1)*100) + 1
cls
print "Jeg har valgt et nummer mellem 1 og 100, og jeg vil have dig til at gætte"
print "hvilket nummer det er. Jeg vil fortælle dig om du skal gætte højere eller"
print "lavere. Derudover vil jeg tælle det antal gæt du bruger, får at ramme det"
print "rigtige nummer."
print
[ask]
'Ask the user to guess the number and tally the guess
input "Hvilket tal gætter du på? "; guess
'Now add one to the count variable to count the guesses
let count = count + 1
'check to see if the guess is right
if guess = guessMe then goto [win]
'check to see if the guess is too low
if guess < guessMe then print "Gæt på et højere tal."
'check to see if the guess is too high
if guess > guessMe then print "Gæt på et lavere tal."
'go back and ask again
goto [ask]
[win]
'beep once and tell how many guesses it took to win
beep
print "Du vandt! Du brugte "; count; " gæt."
'ask to play again
input "Vil du spille igen? (tryk Y for ja og N for nej)"; play$
if instr("YESyes", play$) > 0 then goto [start]
print "Tryk ALT-F4 for at lukke dette vindue."
end
[quit]
'display all the entered names
print
print "Higscoreliste:"
print "------------------------------------"
print "Mads"
print "Rie"
for index = 0 to highestSlot
if names$(index) <> "" then print names$(index)
next index
end
Koden er nu slut!
Er det muligt at få dette spil til at være inde i TEXTEDITOREN?
SKal det eventuelt være en anden box såsom textbox for at spillet virker?
I det hele taget. Hvordan gør man?
HJÆÆÆÆÆLP!
På forhånd tak.
Hilsen Lasse.
PS. Jeg er NYBEGYNDER, så hvis i vil være søde at forklare det på et "baby-sprog" :-)