I'll see if I can start on something today or tomorrow, but I've been bogged down with school and haven't had much time to code.
Here's v1 of the dialogue editor(very simple - will be added on to)
DIALOGUE CREATOR
` Dialogue Editor
` Quirkyjim
set text opaque
` Title Screen
Print "Press any key to start..."
wait key
` Init Info
Input "Filename? ",file$
Input "Image Number / Character Number: ",num$
Input "Dialogue: ",dial$
cls
` Specials?
Repeat
text 5,5,"Specials? y/n"
Until lower$( Inkey$() ) = "y" or lower$( inkey$() ) = "n"
` Yes|No?
If lower$( inkey$() ) = "y"
gosub Spec
specials$ = "1"
endif
If lower$( inkey$() ) = "n"
specials$ = "0"
spec = 0
endif
` Saving Process
Print "Saving..."
Open to write 1,file$
` Specials|No?
write string 1,specials$
` Header Info
write string 1,"---------------"
write string 1,"|"+file$+"|"
write string 1,"| Dialogue File |"
write string 1,"---------------"
` Actual File
write string 1,num$
write string 1,dial$
write string 1,str$(spec)
` Close file when done
close file 1
Print "Done!"
Print "Press any key to exit..."
wait key
end
` Specials
spec:
cls
Print "Which combo would you like?"
Print "Add up the numbers of these:"
Input "1 = Boss Color 2 = Player Color, 4 = NPC Color",spec
return
SMALL TEST
` Read Dialogue
` Quirkyjim
` Title Screen
center text 320,240,"DarkNOOBS Project 3: Adventure Game"
center text 320,400,"Press any key to begin!"
wait key
cls
` Pos Vars
px = 5
py = 5
npcx = 200
npcy = 200
do
` Drawing
circle px,py,5
circle npcx,npcy,2
` Movement
if upkey() = 1 and py > 5 then dec py,2
if downkey() = 1 and py < 475 then inc py,2
if rightkey() = 1 and px < 635 then inc px,2
if leftkey() = 1 and px > 5 then dec px,2
` Skip Movement: go to debug
if returnkey() = 1 then dialogue("Test.dia",1,npcx,npcy)
` Check distance to be close enough to npc to communicate
if distance(px,px,npcx,npcy) < 50 then dialogue("Test3.dia",1,npcx,npcy)
sync
loop
function distance(x1,y1,x2,y2)
`Find the dist
dist = sqrt((x1-x2)^2+(y1-y2)^2)
endfunction dist
function dialogue(filename$,filenum,x,y)
open to read filenum,filename$
` Specials?
read string 1,specials$
` Header Info
read string 1,null$
read string 1,null$
read string 1,null$
read string 1,null$
` Image number (Coming Soon!)
read string 1,imgnum$
` The Actual dialogue
read string 1,dialogue$
` If specials, what are they?
if val(specials$) = 1 then read string 1,spec$
` Draw all the text
text x,y,dialogue$
if val(specials$) = 1 then yes$ = "yes" else yes$ = "no"
text 5,200,"Specials? "+yes$
text 5,250,"Image Number: "+imgnum$
if val(specials$) = 1 then text 5,300,"Specials: "+spec$
` Close the file when done (fro the benefit of time, can be skipped, with an "if file open(filenum) = 1")
close file 1
endfunction
INSTRUCTIONS:
Run the creator, making a file called "Test.dia" in the same folder as the small test. Then run the test!
~QJ
