Sorry your browser is not supported!

IF win = 1
  text$ = "won the fight."
ELSE
  text$ = "lost the fight."
ENDIF

TEXT x,y,"So you "+text$

Open to read 1,"MyFile.txt"
Read string 1,Read$ : Y = Val(Read$)
Read string 1,Read$ : X = Val(Read$)

Sync on
Sync rate 0

If File exist("MyFile.txt")
   open to read 1,"MyFile.txt"
   Read string 1,Read$ : Integer = Val(Read$)
   Read string 1,String$
   Print "Heres the integer you entered> " + Str$(Integer)
   Print "Heres the String you Entered> " + String$
   close file 1
   delete file "MyFile.txt"
endif

Input "Input a Integer>> ", Integer
Input "Input a String>> ", String$

Open to write 1,"MyFile.txt"
Write string 1,Str$(INteger)
Write string 1,String$

end

 oldtime=timer()
 a=0
 timeleft=60
 timelef=timeleft
 lock=rnd(98)+1
 sync on
while timeleft>0
cls
 timey=timer()-oldtime
 time=timey/1000
 timeleft=timelef-time
 print "timeleft>" ;timeleft
 solve$=entry$
solve=val(solve$)
 if solve=lock then exit
 text x+10,y+20, str$(solve)
 sync
endwhile

Sync on
Sync rate 0

MyInput(100,100)

end

Function MyInput(X, Y)
   rem Clear out the Entry.
   clear entry buffer
   text$ = ""
   repeat
      rem Get the keyboard input
      Add$ = Entry$()
      rem if returnkey and backspace arn't pressed
      rem ascii for return is 13 and ascii for backspace 8
      if asc(add$)!13 and asc(add$)!8
         text$ = Text$ + add$
      endif
      rem if backspace take a character off.
      if asc(add$) = 8
         text$ = left$(Text$, len(text$)-1)
      endif
      rem YOU MUST CLEAR THE ENTRY BUFFER OR IT WILL KEEP ADDING
      rem THE SAME THING OVER AND OVER!
      clear entry buffer
      Rem print the text at the x,y specified.
      text x,y,text$
      sync
      cls
   until returnkey()=1
rem return the entered text
endfunction text$

`                        ################
`                        #~DayADVENTURE~#
`                        ################
`                        ~~~~04-11-09~~~~ 
rem (1-25)+100=boy (26-50)+100=girl (51-75)+100=man (76-100)+100=woman
`                 *START*
startover:

dim action(200)


 set text font "monotype corsiva"
 set text size 20
rem money                
action(102)=30
action(127)=20
action(152)=250
action(177=80
rem dad's pay
action(51)=15
load array  "array.txt",action(200)

`                 $text$ 
if action(76)=0 then txtfood$="eggs and biscits"
 if action(76)=1 then txtfood$="sausage and sweetrolls"
if action(101)=0 then txtboy$=""
 if action(101)=1 then txtboy$=",boy,"
if action(126)=0 then txtgirl$=""
 if action(126)=1 then txtgirl$=",girl,"
if action(151)=0 then txtfather$=""
 if action(151)=1 then txtfather$=",father,"
if action(176)=0 then txtmother$=""
 if action(176)=1 then txtmother$=",mother,"
`````````

 x=16
 y=16
`                 MENU
show mouse
 text x+210,y, "Welcome to DayAVENTURE"
  ink rgb(255,255,255),0
 box 280,200,360,240
box 280,250,360,290
 box 280,300,360,340
box 280,350,360,390
  ink 0,0
 box 284,204,356,236
  box 284,254,356,286
 box 284,304,356,336
box 284,354,356,386

 ink rgb(255,255,255),0

text 295,211, "START"
 text 293,261, "Controls"
text 287,311, "Minigames"
 text 299,361, "Extras"
while done=0

xm=mousex()
ym=mousey()

if mouseclick()=1
 if xm>280 and xm<360 and ym>200 and ym<240
  exit
 endif

 if xm>280 and xm<360 and ym>250 and ym<290
  gosub instructions
 endif

 if xm>280 and xm<360 and ym>300 and ym<340
  gosub minigames
 endif

if xm>280 and xm<360 and ym>350 and ym<390
 gosub extras
endif

endif

endwhile

sleep 50

hide mouse
cls


`                *QUESTIONS*
questions:
 text x,y, "Are you male or female?/(left-male,right-female)"
leftorright()
 if leftkey()=1 then male=1:wait()
 if rightkey()=1 then female=1:male=0:wait()
age:
 if age>0 and age<10 or age>15 and age<33 or age>48 then text x,y, "Please input a number 10-15 or 33-48.":sleep 1200:cls
 text x,y, "What is your age?(10-15,33-48,does not have to be your real age)"
input age
 if age<10 or age>15 and age<33 or age>48 then cls: goto age
 if age>20 
 old=1
else 
 young=1 
endif
cls

 if young=1 and male=1 
text x,y, "What is your name?"
input name1$
cls 
  if action(101)=1 then gosub reset1
  action(101)=1
  goto boy
 endif 

 if young=1 and female=1
text x,y, "What is your name?"
input name2$ 
cls
  if action(126)=1 then gosub reset2
  action(126)=1
  goto girl
 endif

 if old=1 and male=1 
text x,y, "What is your name?"
input name3$
cls 
  if action(151)=1 then gosub reset3
   action(151)=1 
   goto man
  endif

 if old=1 and female=1 
text x,y, "What is your name?"
input name4$ 
cls
  if action(176)=1 then gosub reset4 
   action(176)=1
   goto woman
  endif

`               *Boy*
BOY:
 text x,y, "Just wakeing up,you look out the window and see the sun just about to be in site.":mouse()
 text x+10,y+20, "(Go downstairs or go back to sleep?/)"
leftorright()
 if leftkey()=1 then action(1)=1:wait():goto downstairs
 if rightkey()=1 then wait(): goto sleep
sleep:
 text x,y, name1$+"- I think I'll rest for a little longer":mouse():cls
 text x,y, ".":sleep 500:text x+5,y, ".":sleep 500:text x+10,y, ".":sleep 500:text x+15,y, ".":sleep 500:cls
 text x,y, "The light from the window wakes you.":mouse()
 text x+10,y+20, "Boy- I guess it's time to go downstairs....":mouse():cls:goto downstair
downstairs:
  text x,y, "Mom-  Wow your up early!":suspend for mouse:cls
  text x,y, "Dad-  Good thing too,Son,I need you to store my tools in the shed I'm in a hurry.":mouse()
leftorright()
 if leftkey()=1 then wait():gosub shed:goto downstair
 if rightkey()=1 then action(2)=1:wait():text x,y, "Dad- Ok,I'll see if I can get your sister to do it.":mouse():cls 
downstair:
 text x,y, "Mom- Would you like some food?/(Yes,No)"
leftorright()
if leftkey()=1 then wait()
if rightkey()=1 then action(3)=1:goto skipbreakfast
 text x,y, "After eating the "+txtfood$+" you feel more energetic.":mouse():cls
 text x,y, "Mom- Hurry up and get ready for school now.":mouse():cls
skipbreakfast:
if action(3)=1 then text x,y, "Boy- No thanks,I'm not feeling so well.":mouse():cls
 text x,y, "You get your things together and walk out the door.":mouse():cls
 text x,y, "As you walk outside you see a small boy getting picked on by a larger boy.":mouse()
 text x+10,y+20, "Larger boy- Give me your money and I'll leave you alone!":mouse():cls
 text x,y, name1$+"- Hey! Get away from him.":mouse():cls
 text x,y, "Larger boy- What are you going to do about it.":mouse():cls
if action(3)=1 then text x,y, "Boy- Alright here's 5 gold,now go.":action(102)=action(102)-5:mouse():cls
if action(3)=1 then text x,y, "Larger boy- Ok,fine with me.":mouse():cls
if action(3)=0 then text x,y, "Boy- I'm going to teach you a lesson.":mouse():cls:gosub fight
if action(3)=0 then text x,y, "Larger boy- OK! leave me alone!":mouse()
if action(3)=0 then text x+10,y+20, "The boy runs off crying.":mouse():cls
 text x,y, "Small boy- Thanks,(sniff) he trys to take my money every monday.":mouse():cls 
 text x,y, name1$+"- No problem,I'm just on my way to school":mouse():cls
 text x,y, "Small boy- Me too,I'll go with you.":mouse():cls
 text x,y, name1$+"- Ok,whats your name?":mouse():cls
 text x,y, "Small boy- Billy,whats yours?....":mouse():cls
 text x,y, "On the way to school you see a sideways carage when....":mouse()
 text x+10,y+20, "Man- Hey,kids how about helping me pick up these crates,I'll give you a few gold pieces.(yes,no)"
leftorright()
if leftkey()=1 then wait():action(4)=1  
if rightkey()=1 then wait()
 if action(4)=0 then text x,y, name1$+"- Sorry,we've got to be at school in a little while.":mouse():cls 
 if action(4)=0 then text x,y, "Man- Alright,run on to school then.":mouse():cls
if action(4)=1 then text x,y, name1$+"- Sure,I'll help.":mouse():cls
if action(4)=1 then text x,y, "Billy- Sorry,I can't help I've been late too many times already."
if action(4)=1 then text x,y, "Man- Well kid just help me put these in the back of the carage and I'll pay ya.":mouse():cls
if action(4)=1 then text x,y, "(You start picking up crates....)":mouse()
if action(4)=1 then text x+10,y+20, "Man- Thanks,here's 15 gold pieces for working so hard.":mouse():cls:action(102)=action(102)+15
if action(4)=1 then text x,y, name1$+"- Well, I better run on to school,thank you.":mouse():cls
 if action(4)=0 then text x,y, "You and billy hurry too school ariveing just on time....":mouse():cls
 if action(4)=1 then text x,y, "You run the rest of the way to school ariving 15 minutes late....":mouse()
 if action(4)=0 then text x+10,y+20, "Miss Huffman- Good morning class.":mouse():cls 
 if action(4)=0 then text x,y, "Everyone- Good morning.":mouse():cls
 if action(4)=0 then text x,y, "hile siting next to Billy you see your sister across the room.":mouse():cls
 if action(4)=0 then text x,y, "You go threw the regerler schedurl when the teacher says....":mouse()
if action(4)=1 then text x+10,y+20, "Miss Huffman- Your late,I know this is your first time so I will omit it this time.":mouse():cls
if action(4)=1 then text x,y, name1$+"- Sorry it won't happen again.":mouse():cls
if action(4)=1 then text x,y, "While siting next to Billy you see your sister giveing you a mean look.":mouse():cls
 text x,y, "Miss Huffman- Today we will be holding a contest for who can answer the most questions corectly.":mouse()
 text x+10,y+20, "Miss Huffman- The first prize will be a discount card to the candy shop":mouse()
 text x+10,y+40, "Miss Huffman- and the second prize will be a free ice cream at the candy shop.":mouse():cls
gosub quiz
if action(5)=1 then text x,y, "Miss Huffman- Congradlations "+name1$+",you win first prize!":mouse():cls
if action(5)=1 then 1=1
if action(5)=1 then 1=1
if action(5)=1 then 1=1
if action(5)=1 then 1=1 
if action(5)=1 then 1=1
``````````````````````````````````
save array "array.txt",action(200)
end
`               *ENDboy*

`               *Girl*
GIRL:
 text x,y, "Some commotion from downstaris wakes you up.":mouse():cls
 text x,y, "Girl- That must be Dad!I better go downstairs....":mouse():cls
  text x,y, "Mom- Hey, would you like to have some "+txtfood$+" to eat?/(yes,no)"
leftorright()
if leftkey()=1 then wait():eat=eat+1
 if rightkey()=1 then wait():action(26)=1
if action(26)=0 then text x,y, "You quickly eat the "+txtfood$+".":mouse():cls
 if action(2)=1 then text x,y, "Dad- I need you too put my tools in the shed please.":mouse()
if action(2)=1 then text x+10,y+20, "Girl- Ok,sure":mouse():cls:gosub shed 
``````````````````````````````````
save array "array.txt",action(200)
end
`               *ENDgirl*

`               *Man*
MAN:
``````````````````````````````````
save array "array.txt",action(200)
end
`               *ENDman*

`               *Woman*
WOMAN:
 text x,y, "Mom,who was up before the sun had even risen,was looking for some food to fix.":mouse()
 text x+10,y+20, "Mom- I guess I'm goinging to the store to buy some food....":mouse():cls
  text x,y, "Barty- Good morning,what can I get for you?":mouse()
 text x+10,y+20, "Mom- Good morning,I'll just need somthing for breakfast.":mouse():cls
 text x,y, "(eggs and biscits or sausage and sweetrolls for 10gp more,?)"
leftorright()
 if leftkey()=1 then wait():action(177)=action(177)-30
 if rightkey()=1 then action(76)=1:wait():action(177)=action(177)-40
if action(76)=0 then text x,y, "Mom- I'll have some eggs and biscits please.":mouse():cls
if action(76)=1 then text x,y, "Mom- I'll have some sausage and sweetrolls please.":mouse():cls



``````````````````````````````````
save array "array.txt",action(200)
end
`               *ENDwoman*

`               ~~~~sub files~~~~
instructions:
cls
while mouseclick()=1
endwhile
  text x,y, "Use your mouse's click to go through the text.":mouse()
 text x+10,y+20, "If you are asked a '/'(one or the other)question":mouse()
  text x+10,y+40, "use the leftkey for the first and rightkey for the second choice.":mouse():cls
goto startover
return
`                minigames
minigames:
return
`                extras
extras:
return

`              shed minigame 
shed:
 text x,y, "Dad- Well,great here is "+str$(action(51))+" gold.":mouse():cls
if young=1 and male=1 then action(102)=action(102)+action(51)
if young=1 and female=1 then action(127)=action(127)+action(51)
 text x,y, "You walk towards to the shed carrying Dad's tool box.":mouse()
 text x+10,y+20, "When you arive you see a lock on the door!":mouse():cls
 if young=1 and male=1 then text x,y, "Boy- Dad forgot to tell me the combination!":mouse()
 if young=1 and female=1 then text x,y, "Girl- Dad forgot to tell me the combination!":mouse()
 text x+10,y+20, "I'll have too figure it out myself.":mouse():cls

 oldtime=timer()
 a=0
 timeleft=60
 timelef=timeleft
 lock=rnd(98)+1
 sync on
while timeleft>0
cls
 timey=timer()-oldtime
 time=timey/1000
 timeleft=timelef-time
 print "timeleft>" ;timeleft
 solve$=entry$
solve=val(solve$)
 if solve=lock then exit
 text x+10,y+20, str$(solve)
 sync
endwhile
if solve=lock then wahoo=2
return

`              Fight minigame

fight:
return

`              quiz minigame

quiz:
return

rem             RESET1
reset1:
 text x,y, "You have already played as the boy on this file":mouse()
 text x+10,y+20, "Do you want to reset the boy's progress?/(yes,no)"
leftorright()
 if rightkey()=1 then goto questions
 if leftkey()=1 then wait()
for n=1 to 25
 action(n)=0
next n
for n=101 to 125
 action(n)=0
next n
save array "array.txt",action(200)
 text x,y, "Your progress has been reset for the boy":mouse():cls
return
rem             RESET2
reset2:
 text x,y, "You have already played as the girl on this file":mouse()
 text x+10,y+20, "Do you want to reset the girl's progress?/(yes,no)"
leftorright()
 if rightkey()=1 then goto questions
 if leftkey()=1 then wait()
for n=26 to 50
 action(n)=0
next n
for n=126 to 150
 action(n)=0
next n
save array "array.txt",action(200)
 text x,y, "Your progress has been reset for the girl":mouse():cls
return
rem            RESET3
reset3:
 text x,y, "You have already played as the father on this file":mouse()
 text x+10,y+20, "Do you want to reset the father's progress?/(yes,no)"
leftorright()
 if rightkey()=1 then goto questions
 if leftkey()=1 then wait()
for n=51 to 75
 action(n)=0
next n
for n=151 to 175
 action(n)=0
next n
save array "array.txt",action(200)
 text x,y, "Your progress has been reset for the father":mouse():cls
return
rem            RESET4
reset4:
 text x,y, "You have already played as the mother on this file":mouse()
 text x+10,y+20, "Do you want to reset the mother's progress?/(yes,no)"
leftorright()
 if rightkey()=1 then goto questions
 if leftkey()=1 then wait()
for n=76 to 100
 action(n)=0
next n
for n=176 to 200
 action(n)=0
next n
save array "array.txt",action(200)
 text x,y, "Your progress has been reset for the mother":mouse():cls
return

function mouse()
suspend for mouse
endfunction

function leftorright()
 while leftkey()=0 and rightkey()=0
 endwhile
cls
endfunction

function wait()
repeat
until leftkey()=0 and rightkey()=0
endfunction

reset:
text x,y, "Are you sure this will erase any data done with charactors?/(left-yes,right-no)"
leftorright()
for x=0 to 200
action(x)=0
next x
save array "array.txt",action(200)
text x,y, "You have restared your data":mouse():cls
goto startover