Grrr... Bloody Text Input - GameCreators Forum

Author

Message

Shadow Robert

23

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 12th Mar 2003 15:56

Link

oki i fucked up about 3hours ago... i was about to email this to Rose when i pressed the wrong button and killed alot of this

it took me a few days to figure this out last time, and over the past 3 hours i've been trying to figure out how i did it ... but i can't bloody do it.
anyone who can make this work then i'd be greatful cause i can get on with the other game i completely deleted

+ Code Snippet

read a
dim a$(a)

for ia = 1 to a
   read a$(ia)
next ia

cls

 backdrop on : color backdrop rgb(0,0,0)
 `delete sprite 2
 `delete sprite 1

 randomize timer()
 wa = rnd(a-1)+1
 w$ = a$(wa)
 ws = len(w$)

  for ia = 1 to ws
   u$ = u$ + "_ "
  next ia
 dim b$( ws )

do
 text 300,100,"Type the name of the Picture you see"
 text 300,111,"Number of Letter are "+str$(ws)
 text 300,122,"The Word is "+w$
 text 400,315,u$

n$ = entry$()
if asc(n$) > 0
 b$(wc) = mid$(n$,1)
 inc wc
endif
clear entry buffer

set cursor 0,0
for ia = 1 to wc
   wl$ = wl$ + b$(ia)
   print b$(ia)
next ia

text 400,310,wl$

if len(wl$) > len(w$)
   if upper$(wl$) = upper$(w$)
      center text screen width()/2,screen height()/2,"Congratulations... press any key to quit"
      wait key
      backdrop off
      undim b$( ws )
      end
      `goto begin
   else
      wl$ = n$
      wc = 0
   endif
endif

 sync
loop

data 4
data "banana","dinosaur","television","flower"

i'm sure someone can see what the heck i can't ... damn'd sleep depravation and lack of coding skills

Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?

Back to top

Profile PM Email Website

Shadow Robert

23

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 12th Mar 2003 17:28

Link

oh nm... i'm a genius again

me fixx it

Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?

Back to top

Profile PM Email Website

Hamish McHaggis

23

Years of Service

User Offline

Joined: 13th Dec 2002

Location: Modgnik Detinu

Posted: 12th Mar 2003 17:57

Link

Awww, crap. I fixed it too, Im not gonna let 5 mins of work go to waste...

read a
dim a$(a)

for ia = 1 to a
   read a$(ia)
next ia

cls

backdrop on : color backdrop rgb(0,0,0)
 `delete sprite 2
 `delete sprite 1

randomize timer()
 wa = rnd(a-1)+1
 w$ = a$(wa)
 ws = len(w$)

for ia = 1 to ws
   u$ = u$ + "_ "
  next ia
 dim b$( ws )

rem Set sync on
 sync on

do
 text 300,100,"Type the name of the Picture you see"
 text 300,111,"Number of Letter are "+str$(ws)
 text 300,122,"The Word is "+w$
 text 400,315,u$

n$ = entry$()
if asc(n$) > 0
 rem Incriment wc before applying the value
 inc wc
 b$(wc) = mid$(n$,1)
endif
clear entry buffer

set cursor 0,0
rem Set wl$ to nothing each time
wl$=""
for ia = 1 to wc
   wl$ = wl$ + b$(ia)
   print b$(ia)
next ia

text 400,310,wl$

if len(wl$) >= len(w$)
   if upper$(wl$) = upper$(w$)
      center text screen width()/2,screen height()/2,"Congratulations... press any key to quit"
      wait key
      backdrop off
      undim b$( ws )
      end
      `goto begin
   else
      wl$ = n$
      wc = 0
   endif
endif

sync
loop

data 4
data "banana","dinosaur","television","flower"

+ Code Snippet

read a
dim a$(a)

for ia = 1 to a
   read a$(ia)
next ia

cls

 backdrop on : color backdrop rgb(0,0,0)
 `delete sprite 2
 `delete sprite 1

 randomize timer()
 wa = rnd(a-1)+1
 w$ = a$(wa)
 ws = len(w$)

  for ia = 1 to ws
   u$ = u$ + "_ "
  next ia
 dim b$( ws )

 rem Set sync on
 sync on

do
 text 300,100,"Type the name of the Picture you see"
 text 300,111,"Number of Letter are "+str$(ws)
 text 300,122,"The Word is "+w$
 text 400,315,u$

n$ = entry$()
if asc(n$) > 0
 rem Incriment wc before applying the value
 inc wc
 b$(wc) = mid$(n$,1)
endif
clear entry buffer

set cursor 0,0
rem Set wl$ to nothing each time
wl$=""
for ia = 1 to wc
   wl$ = wl$ + b$(ia)
   print b$(ia)
next ia

text 400,310,wl$

if len(wl$) >= len(w$)
   if upper$(wl$) = upper$(w$)
      center text screen width()/2,screen height()/2,"Congratulations... press any key to quit"
      wait key
      backdrop off
      undim b$( ws )
      end
      `goto begin
   else
      wl$ = n$
      wc = 0
   endif
endif

 sync
loop

data 4
data "banana","dinosaur","television","flower"

Why the hell'd you ask me for crying out loud!?!

Back to top

Profile PM Email Website

Shadow Robert

23

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 12th Mar 2003 18:15

Link

lmao... seriously different from my solution

cls

`// load pictures
ofs = 10
f = 0
read a
dim a$(a)

for ia = 1 to a
   read a$(ia)
next ia

backdrop on : color backdrop rgb(0,0,0)
` delete sprite 2
` delete sprite 1

randomize timer()
 wa = rnd(a-1)+1
 w$ = a$(wa)
 ws = len(w$)
 fix = 0
 q = 0

for ia = 1 to ws
   u$ = u$ + "_ "
  next ia
 dim b$( ws )

do
 text 300,100,"Type the name of the Picture you see"
 text 300,111,"Number of Letter are "+str$(ws)
 text 300,122,"The Word is "+w$
 text 400,315,u$

if timer() > 200
   if wc = 1
      wc = 0
      clear entry buffer
      wl$ = entry$()
   else
      n$ = entry$()
      for ia = 1 to len(n$)
       wl$ = wl$ + mid$(n$,ia)
      next ia
      if fix = 0 then wl$ = right$(wl$,len(n$)-1) : fix = 1
      clear entry buffer
   endif
endif

remstart
for ia = 1 to len(wl$)
   b$(ia) = right$(wl$,ia)
   if ib = 0
      wp$ = b$(ia)
      ib = 1
   else
      for ic = 0 to 1
         if ic = 0
            wp$ = wp$ + b$(ia)
         else
            wp$ = wp$ + " "
         endif
      next ic
   endif
next ia
remend

text 400,310,wl$

if len(wl$) > len(w$) - 1
   if upper$(right$(wl$,ws)) = upper$(right$(w$,ws))
      while q = 0
         center text screen width()/2,screen height()/2,"Congratulations... press any key to continue"
         if timer() > 1000
            if scancode() > 0 then q = 1
         endif
         sync
      endwhile
      backdrop off
      undim b$( ws )
      u$ = entry$()
      goto begin
   else
      wc = 1
   endif
endif

sync
loop

data 4
data "banana","dinosaur","television","flower"

+ Code Snippet

cls

`// load pictures
ofs = 10
f = 0
read a
dim a$(a)

for ia = 1 to a
   read a$(ia)
next ia

 backdrop on : color backdrop rgb(0,0,0)
` delete sprite 2
` delete sprite 1

 randomize timer()
 wa = rnd(a-1)+1
 w$ = a$(wa)
 ws = len(w$)
 fix = 0
 q = 0

  for ia = 1 to ws
   u$ = u$ + "_ "
  next ia
 dim b$( ws )

do
 text 300,100,"Type the name of the Picture you see"
 text 300,111,"Number of Letter are "+str$(ws)
 text 300,122,"The Word is "+w$
 text 400,315,u$


if timer() > 200
   if wc = 1
      wc = 0
      clear entry buffer
      wl$ = entry$()
   else
      n$ = entry$()
      for ia = 1 to len(n$)
       wl$ = wl$ + mid$(n$,ia)
      next ia
      if fix = 0 then wl$ = right$(wl$,len(n$)-1) : fix = 1
      clear entry buffer
   endif
endif

remstart
for ia = 1 to len(wl$)
   b$(ia) = right$(wl$,ia)
   if ib = 0
      wp$ = b$(ia)
      ib = 1
   else
      for ic = 0 to 1
         if ic = 0
            wp$ = wp$ + b$(ia)
         else
            wp$ = wp$ + " "
         endif
      next ic
   endif
next ia
remend

text 400,310,wl$

if len(wl$) > len(w$) - 1
   if upper$(right$(wl$,ws)) = upper$(right$(w$,ws))
      while q = 0
         center text screen width()/2,screen height()/2,"Congratulations... press any key to continue"
         if timer() > 1000
            if scancode() > 0 then q = 1
         endif
         sync
      endwhile
      backdrop off
      undim b$( ws )
      u$ = entry$()
      goto begin
   else
      wc = 1
   endif
endif

 sync
loop

data 4
data "banana","dinosaur","television","flower"

(^_^)

Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Grrr... Bloody Text Input