Sorry your browser is not supported!

Rem Project: parser
Rem Created: 03/06/2005 17:24:34

Rem ***** Main Source File *****

`set number of stored words as an array
numberofwords=5
dim word$(numberofwords)

`read the words from the word bank into the array
for n=1 to numberofwords
  read word$(n)
next n

do

`ask for user input
input input$

`reset number of words recognised to 0
wordsrecognised=0

`repeat for all stored words
for n=1 to numberofwords

  `get length of input and length of stored word
  lengthofinput=len(input$)
  lengthofword=len(word$(n))

  `check the characters in the input in blocks equal to word length,
  `starting from the left and scrolling one character at a time to the
  `right.
  for character=lengthofword to lengthofinput
    test$=right$(left$(input$,character),lengthofword)
    `check against stored word, and notify if it's the same
    if test$=word$(n)
      print "I recognised the word ",test$
      `add to the number of words recognised
      inc wordsrecognised
      `if a word is found, stop checking for that word and move
      `onto the next one.
      exit
    endif
  next character

next n

`notify if no words recognised
if wordsrecognised=0
  print "Not recognised"
endif

loop

`word bank
data "hello","how","are","you","today"

robo cat!

Phaelax

Global delimiter$ as string
Global string$ as string
Global token$ as string
Global stringLength as integer
Global startingPosition as integer
Global delimiterLength as integer
delimiter$= " "
startingPosition = 1
delimiterLength = len(delimiter$)

string$ = "if ( thing = true ) then"
token$ = ""
stringLength = len(string$)


dim arrayA$(0)
dim arrayB$(0)
dim symbols$(0)

restore array1
read a$
while a$ <> "."
   array insert at top arrayA$()
   arrayA$(0) = a$
   read a$
endwhile

restore array2
read a$
while a$ <> "."
   array insert at top arrayB$()
   arrayB$(0) = a$
   read a$
endwhile

restore symbols
read a$
while a$ <> "."
   array insert at top symbols$()
   symbols$(0) = a$
   read a$
endwhile



rem text file to display
filename$ = "c:parseExample.txt"
rem array list to hold text from file
dim words$(0) as string

rem check to see if file specified is a text file
if lower$(right$(filename$, 4)) = ".txt"
  rem check if file exists
  if file exist(filename$)
      rem open file for reading
      open to read 1, filename$
      rem add text from file to array list
      while file end(1) = 0
        read string 1, temp$
        array insert at bottom words$(0)
        words$(array count(words$(0))) = temp$
      endwhile
  endif
endif
rem close the file
close file 1


   parse()
repeat
until spacekey()


function parse()
   for t = 1 to array count(words$())
      parseString(t*14,words$(t))
   next t


endfunction


function parseString(v,txt$)
   token$ = ""
   startingPosition = 1
   string$ = txt$
   stringLength = len(string$)

   color as dword
   x = 10
   y = v
   width = 0

   while hasMoreTokens() = 1
      color = rgb(255,255,255)
      word$ = nextToken$()
      flag = 0
      for i=0 to array count(arrayA$())
         if arrayA$(i) = word$
            color = rgb(255,0,0)
            flag = 1
            exit
         endif
      next i

      if flag = 0
         for i=0 to array count(arrayB$())
            if arrayB$(i) = word$
               color = rgb(205,180,0)
               flag = 1
               exit
            endif
         next i
      endif

      if flag = 0
         for i=0 to array count(symbols$())
            if symbols$(i) = word$
               color = rgb(120,0,210)
               flag = 1
               exit
            endif
         next i
      endif

      ink color,0
      text x+width,y,word$+" "

      width = width + text width(word$+" ")

   endwhile

endfunction




REM Returns the next token from the string
function nextToken$()
  flag = 0

  if delimiter$ = ""
      startingPosition = stringLength
      token$ = string$
  endif

  for i = startingPosition to stringLength-1
      for x = 1 to delimiterLength
        if mid$(delimiter$,x) = mid$(string$,i)
            token$ = subString(string$, startingPosition-1, i-1)
            startingPosition = i+1
            flag = 1
            sp = startingPosition
            repeat
               hit = 0
               for x = 1 to delimiterLength
                  if mid$(delimiter$,x) = mid$(string$,sp) then hit = 1
               next x
               if hit = 1 then inc sp, 1
            until hit = 0
            startingPosition = sp
            exit
        endif
        if (i = stringLength-1)
            token$ = subString(string$, startingPosition-1, i+1)
            startingPosition = i+1
            flag = 1
        endif
      next x

      if flag = 1 then exit
  next i
endfunction token$



REM Returns true(1) if the string has more tokens left
function hasMoreTokens()
  if startingPosition <= stringLength-1 then exitfunction 1
endfunction 0



REM Returns a chunk of a whole string
REM starp - is the starting position of the substring that
REM        you want to be returned. The character at that
REM        position is not included in the returned result.
REM endp - is the position of the last character in the string
REM        you want to be returned.
function subString(s$ as string, startp as integer, endp as integer)
  l = len(s$)
  s$ = right$(s$,l-startp)
  s$ = left$(s$, endp-startp)
endfunction s$






array1:
data "if","else","then","endif","while","endwhile","type","endtype","integer","float","dword","."

array2:
data """","(",")","as","."

symbols:
data "+","-","*","/","<>","=","<",">","."

print "You have 20 seconds to type as many words as you can."
print "You gain a point if is correct, but lose a point if it's wrong."
print "Press any key to start."
wait key

numberofwords=16
dim wordbank$(numberofwords)

for n=1 to numberofwords
  read wordbank$(n)
next n

restart:
score=0
starttime=timer()

do

time=timer()-starttime
countdown=(20000-time)/1000
cls

text 0,0,"Timer: "+str$(countdown)
text 100,0,"Score: "+str$(score)

randomword$=wordbank$(rnd(numberofwords-1)+1)

text 0,30,"Type the word: "+randomword$
set cursor 0,50
input input$
if input$=randomword$
  text 0,70,"Correct":wait 300
  inc score,1
else
  text 0,70,"Incorrect":wait 300
  dec score,1
endif

if countdown<=0
  text 0,90,"Time's up.  You scored "+str$(score)
  text 0,110,"Press any key to restart."
  wait key
  goto restart
endif

loop

data "this","is","the","most","splendid","touch","typing","game","ever","written","in","the","history","of","the","universe"

Type Character
   Health as Integer
   Str as Integer
   Sta as Integer
   Agi as Integer
   Name as string
Endtype
Type Combat
   atk as integer
   def as integer
   dmg as integer
Endtype
Global Player as Character
Global Enemy as Character
Global Pl as Combat
Global En as Combat
Global PStyle as string
Global EStyle as string
Global typtxt as string
Global tmptxt as string
Global lstkey as string
typtxt="":tmptxt=""

`Rules
Do
   Set Cursor 0,0
   Print "This game is a typing combat game."
   Print "The faster you type the appropriate words,"
   Print "the better you will do."
   Print
   Print "Press anykey to continue"
   t$=inkey$()
   if t$<>""
      lstkey=t$
      Exit
   Endif
   Sync
Loop
Cls
Do
   cls
   Set Cursor 0,0
   Print "You are not being timed now. But you will in a moment."
   Print "You will begin your character by typing your character's name."
   Print "When you finish typing your character's name - press [Enter]."
   Print "When you press [Enter], a new screen will come up."
   Print "Type the words on that screen as fast as you can and press [Enter]."
   Print "Continue until the character is completed and receive more instructions."
   Print "If you make a mistake, press [Backspace] to delete the last letter or"
   Print "Press [Enter] and start again. There is no additional penalties for"
   Print "mistakes other than lost time."
   Print
   Print "Type your character's name:"
   Typing()
   Print tmptxt
   If typtxt<>""
      Exit
   Endif
   Sync
Loop
Player.name=typtxt
typtxt=""
Wait 250

`Health
t1=Timer()
Do
   cls
   Set Cursor 0,0
   Print Player.name
   Print "You are now being timed for health!"
   Print "Type: ";
   Ink Rgb(50,50,255),0
   Print ""An apple a day keeps the doctor away""
   Ink Rgb(255,255,255),0
   Print Timer()-t1
   Print
   Typing()
   Print tmptxt
   If typtxt<>""
      if lower$(typtxt)="an apple a day keeps the doctor away"
         t2=timer()
         exit
      endif
      typtxt=""
   Endif
   Sync
Loop
h#=t2-t1
h#=40*((20000-h#)/20000)
If h#<5 then h#=5
Player.health=h#
Print
Print "Your health is ";Player.health
Print
Print "Next is strength."
Print "Press any key."
Wait key
t1=Timer()
Do
   cls
   Print Player.name
   Print "You are now being timed for strength!"
   Print "Type: ";
   Ink Rgb(50,50,255),0
   Print ""I am as strong as an ox""
   Ink Rgb(255,255,255),0
   Print Timer()-t1
   Print
   Typing()
   Print tmptxt
   If typtxt<>""
      if lower$(typtxt)="i am as strong as an ox"
         t2=timer()
         exit
      endif
      typtxt=""
   Endif
   Sync
Loop
s#=t2-t1
s#=40*((20000-s#)/20000)
If s#<5 then s#=5
Player.str=s#
Print
Print "Your health is ";Player.health
Print "Your strength is ";Player.str
Print
Print "Next is stamina."
Print "Press any key."
Wait key
t1=Timer()
Do
   cls
   Print Player.name
   Print "You are now being timed for stamina!"
   Print "Type: ";
   Ink Rgb(50,50,255),0
   Print ""I am solid like a rock""
   Ink Rgb(255,255,255),0
   Print Timer()-t1
   Print
   Typing()
   Print tmptxt
   If typtxt<>""
      if lower$(typtxt)="i am solid like a rock"
         t2=timer()
         exit
      endif
      typtxt=""
   Endif
   Sync
Loop
s#=t2-t1
s#=40*((20000-s#)/20000)
If s#<5 then s#=5
Player.sta=s#
Print
Print "Your health is ";Player.health
Print "Your strength is ";Player.str
Print "Your stamina is ";Player.sta
Print
Print "Next is agility."
Print "Press any key."
Wait key
t1=Timer()
Do
   cls
   Print Player.name
   Print "You are now being timed for agilty!"
   Print "Type: ";
   Ink Rgb(50,50,255),0
   Print ""I am agile like a tiger""
   Ink Rgb(255,255,255),0
   Print Timer()-t1
   Print
   Typing()
   Print tmptxt
   If typtxt<>""
      if lower$(typtxt)="i am agile like a tiger"
         t2=timer()
         exit
      endif
      typtxt=""
   Endif
   Sync
Loop
a#=t2-t1
a#=40*((20000-s#)/20000)
If a#<5 then a#=5
Player.agi=a#
Print
Print "Your health is ";Player.health
Print "Your strength is ";Player.str
Print "Your stamina is ";Player.sta
Print "Your agility is ";Player.agi
Print
Print "Prepare for combat."
Print "Press any key."
Wait key
Print "When combat begins, you will see a list of combat words."
Print "Type in the words as fast as you can. Each word changes"
Print "your character's attack, defense, and damage."















Function Typing()
   If ReturnKey() And tmptxt<>""
      typtxt=tmptxt
      tmptxt=""
      Exitfunction
   Endif
   If Keystate(14) And tmptxt<>"" and asc(lstkey)<>14
      tmptxt=left$(tmptxt,len(tmptxt)-1)
      lstkey=chr$(14)
      ExitFunction
   Endif
   t$=inkey$()
   if t$<>lstkey
      tmptxt=tmptxt+t$
   endif
   lstkey=t$
Endfunction

Function Attack()
   pa$="":Off=0:Def=0:Dmg=0
   Restore attacks
   Do
      Read pa$
      If pa$="end99" then Exit
      Read Off,Def,Dmg
      If pa$=PStyle Then Exit
   Loop
   if pa$<>"end99"
      Pl.atk=Rnd(Off+((Player.str+Player.agi)/2))
      Pl.def=Rnd(Def+Player.agi)
      Pl.dmg=Rnd(Dmg+Player.str)-Enemy.sta
      If pl.dmg<0 Then pl.dmg=0
   Endif
   ea$="":Off=0:Def=0:Dmg=0
   Restore attacks
   Do
      Read ea$
      If ea$="end99" then Exit
      Read Off,Def,Dmg
      If ea$=EStyle Then Exit
   Loop
   if ea$<>"end99"
      En.atk=Rnd(Off+((Enemy.str+Enemy.agi)/2))
      En.def=Rnd(Def+Enemy.agi)
      En.dmg=Rnd(Dmg+Player.str)-Player.sta
      If En.dmg<0 Then En.dmg=0
   Endif
EndFunction




attacks:
Rem  Word  , Offense , Defense , Damage
Data "hack", 8,8,14
Data "slash", 10,10,10
Data "thrust", 12,10,8
Data "kick", 14,8,8
Data "dodge", 5,20,5
Data "slam", 5,5,20
Data "parry", 10,15,5
Data "heal spell",0,5,0
Data "end99",0,0,0

` coding challenge : touch typing game
` bob saunders

` enemies come at you from a distance.
` fire your guns by typing the letter corresponding to the proper gun.
` try it you'll see...

set display mode 800,600,32
autocam off
sync on
sync rate 0
sync
randomize timer()

create bitmap 1,20,20
set text size 22
for t=65 to 90
 box 0,0,19,19,0,0,0,0
 center text 9,0,chr$(t)
 get image t,0,0,19,19
next t

box 0,0,19,19,0,0,0,0
for t=1 to 100
 dot rnd(19),rnd(19)
next t
get image 10,0,0,19,19

box 0,0,19,19,100,1100,11100,111100
get image 11,0,0,19,19

box 0,0,19,19,33100,331100,3311100,33111100
get image 12,0,0,19,19

delete bitmap 1

make object cube 99,1000
set object cull 99,0
set object light 99,0
set object collision off 99
texture object 99,12

type enemy
x
lif
spd
endtype

dim rock(20) as enemy
dim key(5)
dim b#(50) as float

for t=1 to 5
 make object cube t,5
 position object t,(t-3)*10,0,10
 assign_key(t,0)
next t

for t=10 to 20
 make object sphere t,5
 texture object t,10
 position_rock(t)
 hide object t
next t

for t=30 to 50
 make object cube t,2
 texture object t,11
 hide object t
next t

for t=101 to 190
 make object sphere t,1
 hide object t
 texture object t,10
 set object collision off t
next t

global life
global score
global gs#

nme=13
life=5
score=0

position camera 0,10,-30

`````````````````````````````````````````````````````````````````
t1#=timer()
do
GS#=(TIMER()-T1#)*0.010
T1#=TIMER()
`````````````````````````````````````````````````````````````````

` CONTROL ENEMIES
for t=10 to nme
 show object t
 move object t,rock(t).spd*gs#/2.0

` this will check to see if this rock has hit you:
if object position z(t)<10
 ` you've been hit
 dec life
 position_rock(t)
endif

next t

` CHECK FOR KEY-GUN-FIRING
for t=1 to 5
 x=key(t)
 a=asc(UPPER$(inkey$()))
 if a=x
  ` you have pushed one of the keys to fire
  ` shoot a bullet...:
  shoot_bullet(t)
   ` choose a new letter to fire this gun:
  assign_key(t,x)
 endif
next t

` DEAL WITH YOUR BULLETS:
for t=30 to 50
 dec b#(t),gs#
 if b#(t)>0.0
  ` b#(t) is a timer...if the bullet is active, it's >0
  move object t,5*gs#
  b=object collision(t,0)
  if b>9 and b<21
   ` bullet has hit a rock
   b#(t)=0
   inc score
   dec rock(b).lif
    if rock(b).lif<1
     score=score+10+rock(b).spd
     explode_rock(b)
     position_rock(b)

     ` this make the game get harder (adds more rocks)
      if score>100 then nme=15
      if score>300 then nme=16
      if score>500 then nme=17
      if score>700 then nme=18
      if score>1000 then nme=19
      if score>1500 then nme=20

    endif : ` dead rock
  endif : ` hit rock
 else
  hide object t
  set object collision off t
 endif

next t

control_explosions()

text 0,0,"score: "+str$(score)
text 0,20,"life: "+str$(life)

if life<1 then end_game()

`````````````````````````````````````````````````````````````````
sync : loop
`````````````````````````````````````````````````````````````````



function position_rock(t)
` this will position enemies (rocks) in one of the 5 "X-SLOTS" available,
` and give it new variables.
 x=rnd(4)-2
 position object t,x*10,0,250+t*10
 yrotate object t,180
 rock(t).x=x
 rock(t).lif=rnd(3)+2
 rock(t).spd=rnd(2)+2
 set object collision on t
 show object t

endfunction


function assign_key(t,z)
  ` this assigns letters to keys, and makes sure that the key is not the same as another
 repeat
 k=1
 key(t)=rnd(25)+65
 if key(t)=z then k=0
 for x=1 to 5
  if x<>t
   if key(x)=key(t) then k=0 : exit
  endif
 next x
 until k=1

texture object t,key(t)

endfunction

function shoot_bullet(x)

a=0
for t=30 to 50
  ` here we are looking for a currently un-used bullet to fire.
 if b#(t)<1.0 then a=t : exit
next t

if a>0

position object a,(x-3)*10,0,12
show object a
set object collision on a
b#(a)=100.0

endif

endfunction

function control_explosions()
 ` this perpetually moves all explosion objects
for t=101 to 190
 move object t,12*gs#
next t
endfunction

function explode_rock(x)

for t=101 to 190
 if rnd(2)=1
  ` this randomly chooses explosion objects to make up this particular explosion
  show object t
  rotate object t,rnd(360),rnd(360),rnd(360)
  position object t,object position x(x),object position y(x),object position z(x)
 endif
next t

endfunction


function  end_game()

sync
center text 400,200,"GAME OVER"
center text 400,220,"your score:"
center text 400,240,str$(score)
center text 400,540,"press any key to end"
sync
wait 1000
wait key
end

endfunction

print "You have 30 seconds to type as many correct words as possible."
print "The longer the word, the more points you get."
print "Press any key to begin....."
wait key
wait 1000
sync on
make object sphere 1,1
color backdrop 0
hide object 1
read disallowedcharacterlist$
numberofdisallowedcharacters=len(disallowedcharacterlist$)
dim disallowedcharacter$(numberofdisallowedcharacters)
for checkdisallowedcharacters=1 to numberofdisallowedcharacters
  disallowedcharacter$(checkdisallowedcharacters)=right$(left$(disallowedcharacterlist$,checkdisallowedcharacters),1)
next checkdisallowedcharacters

read wordbank$
numberofwords=1
dim word$(numberofwords)
length=len(wordbank$)
for checkforspaces=1 to length
  checkcharacter$=right$(left$(wordbank$,checkforspaces),1)
  if checkcharacter$=" "
    inc numberofwords
    dim word$(numberofwords)
  else
    proceed=1
    for checkdisallowedcharacters=1 to numberofdisallowedcharacters
      if checkcharacter$=disallowedcharacter$(checkdisallowedcharacters)
        proceed=0
      endif
    next checkdisallowedcharacters

    if proceed=1
      word$(numberofwords)=word$(numberofwords)+checkcharacter$
    endif
  endif
next checkforspaces

restart:
score=0
correct=2
newword=1

starttime=timer()

do

time=(timer()-starttime)/1000
countdown=30-time

if countdown<=0 then goto gameover

ink rgb(0,0,255),0
text 0,0,"Timer: "+str$(countdown)
ink rgb(255,255,255),0

if newword=1
  newword=0
  do
    randomword$=lower$(word$(rnd(numberofwords-1)+1))
    if len(randomword$)>3 then exit
  loop
endif

ink rgb(0,255,0),0
text 0,30,"Type the word: "+randomword$
ink rgb(255,255,255),0


if inkey$()=""
keydown=0
else
keydown=1
endif

if keydown=0 and lock=1 then lock=0


if lock=0 and keydown=1
lock=1
correct=3
if returnkey()=0
inputletter$=inkey$()
inputword$=inputword$+inputletter$
endif

if returnkey()=1
  if inputword$=randomword$
    inc score,len(randomword$)
    inputword$=""
    newword=1
    correct=1
    x=0
    else
    correct=0
    inputword$=""
    newword=1
    x=0
  endif
endif
endif

text 0,150,inputword$


if correct=1
  text 0,60,"Correct"
endif

if correct=0
  text 0,60,"Incorrect"
endif

text 0,90,"Score: "+str$(score)


sync
loop

gameover:
cls
print "Game over. You scored ",score," points."
sync
wait 2000
cls
print "Game over. You scored ",score," points."
print "Press any key to restart"
sync
wait key
goto restart

data ".,:;1234567890/?\!£$%^&*()-=+_{}[]#@<>"
data "In key stage 3, in accordance with the whole school ICT policy, and in order to fulfil the requirements for the key stage 3 ICT curriculum, the emphasis of using ICT in science is to provide pupils with opportunities to make use of datalogging devices.  Pupils in key stage 3 are to be assessed on their ability to use such apparatus, to manipulate and analyse the data recorded using computer software, and to evaluate the effectiveness of such methods, culminating in an ICT level being awarded to all year 9 pupils in accordance with the ICT marking policy .  In key stages 3 and 4 and at AS and A level, pupils are to be provided with opportunities where possible to make use of all forms of ICT which may assist in their learning and presentation of science."