input program - GameCreators Forum

Author

Message

mido

19

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 10th Jan 2006 23:28

Link

set text font "arial",1

set display mode 640,480,16
sync on : sync rate 40
set camera range 1,100000
fog off : fog distance 1000 : fog color RGB(0,0,0)
autocam off

input "   enter matrix number   ";matnum
input "   enter matrix x size  ";matx
input "   enter matrix y size  ";matz
input "   enter matrix tile size   x   ";mattx
input "   enter matrix tile size   z   ";mattz

if matnum<=0 then matnum=1
if matx<=0 then matx=5000
if matz<=0 then matz=5000
if matx<=0 then mattx=25
if matx<=0 then mattz=25

make matrix matnum,matx,matz,mattx,mattz
prepare matrix texture  matnum,1,2,2
color backdrop RGB(0,128,192) : ink RGB(255,255,255),RGB(0,128,192)

position mouse 512,384 : hide mouse

`randomization variables
matrixrandnum=matnum : matrixrandvalue#=5.00

`fog toggle
fog=0

do

text 20,0,"PRESS H TO BRING THE HELP MENU"

`mouse look
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#

if scancode()=19 then gosub rerand

if scancode()=35
   text 20,20,"R = randomize matrix - T = reset randomization - E = toggle sky sphere - Esc = exit program"
   text 20,30,"F = toggle fog - D = set fog distance - X = texture sky sphere - M = texture matrix        "
endif

if scancode()=18
   if object exist(1300)=0
      set cursor 10,10
      input skyradias
      make object sphere 1300,skyradias
      set object 1300,0,1,0
      position object 1300,matx/2,0,matz/2
   else
   wait 500
   delete object 1300
   endif
endif

if scancode()=33
   if fog=0
      wait 500
      fog on : fog=1
   else
      wait 500
      fog off : fog =0
   endif
endif

if scancode()=32
   input fogdistance#
   fog distance fogdistance#
endif

if scancode()=17 then move camera 5
if scancode()=31 then move camera -5
if escapekey()=1 then exit

sync
loop

+ Code Snippet

set text font "arial",1





set display mode 640,480,16
sync on : sync rate 40
set camera range 1,100000
fog off : fog distance 1000 : fog color RGB(0,0,0)
autocam off

input "   enter matrix number   ";matnum
input "   enter matrix x size  ";matx
input "   enter matrix y size  ";matz
input "   enter matrix tile size   x   ";mattx
input "   enter matrix tile size   z   ";mattz

if matnum<=0 then matnum=1
if matx<=0 then matx=5000
if matz<=0 then matz=5000
if matx<=0 then mattx=25
if matx<=0 then mattz=25

make matrix matnum,matx,matz,mattx,mattz
prepare matrix texture  matnum,1,2,2
color backdrop RGB(0,128,192) : ink RGB(255,255,255),RGB(0,128,192)

position mouse 512,384 : hide mouse


`randomization variables
matrixrandnum=matnum : matrixrandvalue#=5.00

`fog toggle
fog=0

do

text 20,0,"PRESS H TO BRING THE HELP MENU"


`mouse look
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#




if scancode()=19 then gosub rerand



if scancode()=35
   text 20,20,"R = randomize matrix - T = reset randomization - E = toggle sky sphere - Esc = exit program"
   text 20,30,"F = toggle fog - D = set fog distance - X = texture sky sphere - M = texture matrix        "
endif

if scancode()=18
   if object exist(1300)=0
      set cursor 10,10
      input skyradias
      make object sphere 1300,skyradias
      set object 1300,0,1,0
      position object 1300,matx/2,0,matz/2
   else
   wait 500
   delete object 1300
   endif
endif

if scancode()=33
   if fog=0
      wait 500
      fog on : fog=1
   else
      wait 500
      fog off : fog =0
   endif
endif

if scancode()=32
   input fogdistance#
   fog distance fogdistance#
endif

if scancode()=17 then move camera 5
if scancode()=31 then move camera -5
if escapekey()=1 then exit

sync
loop

my proplem is that when i use the input command while in 3d
i can't see what im writing

or the text before the input
any ideas to fix this proplem

M25

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Jan 2006 12:11

Link

When you have syncing on and you use "input" all action stops until the input is typed in... there is no way to "sync" whats typed to the screen. You have to make your own input routine with a "sync".

+ Code Snippet

if scancode()=18
   if object exist(1300)=0
      b$=""
      clear entry buffer
      do
       text 10,10,"Enter SkySphere Radius:"+b$
       a$=entry$():clear entry buffer
       if a$=chr$(13) then exit
       if a$=chr$(8) then b$=left$(b$,len(b$)-1):a$=""
       if a$<>"" then b$=b$+a$
       sync
      loop
      skyradias=val(b$)
      make object sphere 1300,skyradias
      set object 1300,0,1,0
      position object 1300,matx/2,0,matz/2
   else
   wait 500
   delete object 1300
   endif
endif

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 11th Jan 2006 15:11

Link

I believe it only works in the enhanced version! (entry$(), clear entry buffer, etc.)

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Jan 2006 21:04

Link

Oops... you're right. Thanks for pointing that out.

If he doesn't have the enhancment pack he can use "keystate()" with a timer to do it. It looks kinda weird but the following code snip only allows numbers (from the top of the keyboard) which is probably better anyway.

+ Code Snippet

if scancode()=18
   if object exist(1300)=0
      b$=""
      tim=timer()
      do
       text 10,10,"Enter SkySphere Radius:"+b$
       if keystate(28) and timer()>tim+100 then exit
       if keystate(14) and timer()>tim+100 then b$=left$(b$,len(b$)-1):a$="":tim=timer()
       num=49
       for t=2 to 11
        if t=11 then num=48
        if keystate(t) and timer()>tim+100
         b$=b$+chr$(num)
         tim=timer()
        endif
        inc num
       next t
       sync
      loop
      skyradias=val(b$)
      make object sphere 1300,skyradias
      set object 1300,0,1,0
      position object 1300,matx/2,0,matz/2
   else
   wait 500
   delete object 1300
   endif
endif

Back to top

Profile PM Email

new programmer

19

Years of Service

User Offline

Joined: 20th Dec 2005

Location: right behind you.

Posted: 11th Jan 2006 21:11

Link

ok and why is this better than "input"??

Your signature has been erased by a mod, none of whom are dumber than you.

Back to top

Profile PM

Dodic

19

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 11th Jan 2006 21:29

Link

ahm..i tryed the last code , but it ends imediatly , i don`t see any text at all.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Jan 2006 23:39

Link

It requires to be copied into his program for it to work properly. If you want to run it independent of his program just use the code snip in this message.

I copied out the routine and added "set text opaque" and a space after printing b$ to delete the text without the need to be in 3D.

+ Code Snippet

set text opaque
b$=""
tim=timer()
do
 text 10,10,"Enter SkySphere Radius:"+b$+" "
 if keystate(28) and timer()>tim+100 then exit
 if keystate(14) and timer()>tim+100 then b$=left$(b$,len(b$)-1):a$="":tim=timer()
 num=49
 for t=2 to 11
  if t=11 then num=48
  if keystate(t) and timer()>tim+100
   b$=b$+chr$(num)
   tim=timer()
  endif
  inc num
 next t
 sync
loop

text 0,50,"Number = "+b$
wait key

Back to top

Profile PM Email

mido

19

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 12th Jan 2006 00:53

Link

Quote: "
input program
"

it is "input proplem"

i solved the proplem with another way

:
i found that when any 3d rendering is on the screen the backdrop is turned on (and this is why the text is not appearing) so before adding the input command i added "backdrop off" and after it i added
"backdrop on" like this :

+ Code Snippet

do

if scancode()=19 then gosub rerand

if scancode()=18
   if object exist(1300)=0
      set cursor 10,10
      backdrop off
      input skyradias
      make object sphere 1300,skyradias
      set object 1300,0,1,0
      position object 1300,matx/2,0,matz/2
      backdrop on
   else
   wait 500
   delete object 1300
   endif
endif

if scancode()=33
   if fog=0
      wait 500
      fog on : fog=1
   else
      wait 500
      fog off : fog =0
   endif
endif

if scancode()=32
   backdrop off
   input fogdistance#
   fog distance fogdistance#
   backdrop on
endif

if scancode()=17 then move camera 5
if scancode()=31 then move camera -5
if escapekey()=1 then exit

sync
loop





rerand:
backdrop off
set cursor 10,10
input "enter matrix number ";matrixrandnum
set cursor 10,20
input "randvalue ";matrixrandvalue#
wait 500 : randomize matrix matrixrandnum,matrixrandvalue#
backdrop on
return

but i still need to know the way you did it
i don't understand the code snipit, can you please Grog explain what each line do with rem statments and thanx for the help

i don't have the enhanced version

and sorry if my english is bad

M25

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / input program