Help with "print" - GameCreators Forum

Author

Message

Lemon Phat

13

Years of Service

User Offline

Joined: 20th May 2011

Location: Minnesota

Posted: 24th May 2011 21:44

Link

Hopefully this is basic...

ANYWAYS! I was recently emailing baxslash about some coding help, and I GREATLY appreciate his help! It was EXTREMELY HELPFUL!

This is my problem...
I need to Print 20 different factson the screen, But im not sure how to change it from the text that he has it as.. to "fact"

It currently says.. " you've got fruit number "X" (whatever fruit you just collected)"

here is the code, and tips?

for t = 1 to NumberOfFruits : rem If I hit one of the little fruits
if Object collision(1,t + NumberOfFruits)>0
play sound 4
MyScore = MyScore + 1000 : rem How many points each little fruit is worth
` delete object t + NumberOfFruits
exclude object on t + NumberOfFruits

REM ADDED BY BAXSLASH !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
mess$ = "You got fruit number "+str$(t)+"!!"
displaytime = timer()+3000
REM ADDED BY BAXSLASH !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

+ Code Snippet

 next t
      If Object collision(1,100)>0 : rem If I hit the super fruit
         play sound 5
         exclude object on 100
         MyScore = MyScore + 5000 : rem How many points the super fruit is worth

            REM ADDED BY BAXSLASH !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
            mess$ = "You got the Superfruit!!"
            displaytime = timer()+3000
            REM ADDED BY BAXSLASH !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

      endIf

Back to top

Profile PM Email

Kezzla

16

Years of Service

User Offline

Joined: 21st Aug 2008

Location: Where beer does flow and men chunder

Posted: 25th May 2011 08:44

Link

not sure what you mean by changing the "text" to "fact"
you can print the text in the variable mess$ with the following

+ Code Snippet

print mess$

if it has to be somewhere specific then you could use the

+ Code Snippet

text,x,y,string$

command

if you want a unique fact you can make your own string variable and assign text to it. eg

+ Code Snippet

fact1$ = "informative fact number 1"

if you want 20 facts you may want to look at using an array for ease of printing numerous commands eg

+ Code Snippet

dim facts$(20)
facts$(1) = "informative fact 1"
facts$(2) = "etc through to facts$(20)"

for x = 1 to 20
      print facts$(x)
next x

be sure to look at the help files in dbpro and the many great tutorials in the sticky threads at the top of the newcomers corner.

hope this helps
kezzla

Sometimes I like to use words out of contents

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 25th May 2011 10:52

Link

I have an amended version for you here:

+ Code Snippet

            select t
                case 1
                    mess$ = "Drinking excessive soda can help promote high blood pressure."
                endcase
                case 2
                    mess$ = "The average can of soda-pop contains 120 calories."
                endcase
                case 3
                    mess$ = "The average American consumes over 77,000 calories from soda-pop alone, per year."
                endcase
            endselect
            displaytime = timer()+3000

Try using the code above instead of the message code I gave you...

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 14th Jul 2011 22:18

Link

Hi ppl, soz I am interrupting this thread, but I don't like to make another thread- master of the scrapyard award not 4 me^^. This may be the right place for my question:

nor "text" nor "print" writes anything on my program, and I have no idea why. I feel there is a simple answer...

here is the code- a little edited multisync example:

` Constants -------------------------------------
#constant SENDGAP 0
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_ID_YOUJOINED 5
` -----------------------------------------------

` Variables --------------------------------------
global LASTSENT                     as integer
global NAME                         as string
global PASW                         as string
global dim player(MAXIMUM_PLAYERS) as player_data
` ------------------------------------------------

sync off
autocam off

input "IP: ", ip$
result = net connect(ip$)
if not result
   print "Could not connect: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

logged as byte=0
incorrect as boolean =0

while not logged

cls
  if incorrect then print "Password incorrect"
  if incorrect then text 10,40, "Password incorrect"
  input "Name: ", NAME
  input "Pasw: ", PASW

net put byte MESSAGE_ID_NAME
  net put string NAME
  net put string PASW
  net send
  
  wait 500
  
  while net get message()
    if net get byte()=MESSAGE_ID_YOUJOINED
      if net get byte()=1
        logged =1
      else
        if net get byte()=0 then incorrect=1
      endif
    endif
  endwhile
  
  net send 0
  
  text 10,10, str$(logged)

endwhile

+ Code Snippet

` Constants -------------------------------------
#constant SENDGAP 0
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_ID_YOUJOINED 5
` -----------------------------------------------

` Variables --------------------------------------
global LASTSENT                     as integer
global NAME                         as string
global PASW                         as string
global dim player(MAXIMUM_PLAYERS) as player_data
` ------------------------------------------------

sync off
autocam off

input "IP: ", ip$
result = net connect(ip$)
if not result
   print "Could not connect: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

logged as byte=0
incorrect as boolean =0

while not logged

  cls
  if incorrect then print "Password incorrect"
  if incorrect then text 10,40, "Password incorrect"
  input "Name: ", NAME
  input "Pasw: ", PASW

  net put byte MESSAGE_ID_NAME
  net put string NAME
  net put string PASW
  net send
  
  wait 500
  
  while net get message()
    if net get byte()=MESSAGE_ID_YOUJOINED
      if net get byte()=1
        logged =1
      else
        if net get byte()=0 then incorrect=1
      endif
    endif
  endwhile
  
  net send 0
  
  text 10,10, str$(logged)

endwhile

Join The dark Side! We have cookies

Back to top

Profile PM Email

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 15th Jul 2011 01:37

Link

@ Kiaurutis

Quote: "I don't like to make another thread- master of the scrapyard award not 4 me^^."

Hahaha, that image is just a joke, you don't really achieve "master of the scrapyard".

I think you want sync on not off and add in a sync rate of 60 like this
sync on : sync rate 60

And then, in your first while loop (while not logged) at the end of that put in the command 'sync'.

Try this, I don't have dark data or dark.net (I don't know which one) so this is untested.

` Constants -------------------------------------
#constant SENDGAP 0
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_ID_YOUJOINED 5
` -----------------------------------------------

` Variables --------------------------------------
global LASTSENT                     as integer
global NAME                         as string
global PASW                         as string
global dim player(MAXIMUM_PLAYERS) as player_data
` ------------------------------------------------

//sync off
sync on : sync rate 60 // Hodgey's edit
autocam off

input "IP: ", ip$
result = net connect(ip$)
if not result
   print "Could not connect: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

logged as byte=0
incorrect as boolean =0

while not logged

cls
  if incorrect then print "Password incorrect"
  if incorrect then text 10,40, "Password incorrect"
  input "Name: ", NAME
  input "Pasw: ", PASW

net put byte MESSAGE_ID_NAME
  net put string NAME
  net put string PASW
  net send
  
  wait 500
  
  while net get message()
    if net get byte()=MESSAGE_ID_YOUJOINED
      if net get byte()=1
        logged =1
      else
        if net get byte()=0 then incorrect=1
      endif
    endif
  endwhile
  
  net send 0
  
  text 10,10, str$(logged)

sync // Hodgey's edit

endwhile

+ Code Snippet

` Constants -------------------------------------
#constant SENDGAP 0
#constant MAXIMUM_PLAYERS 10
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_ID_YOUJOINED 5
` -----------------------------------------------

` Variables --------------------------------------
global LASTSENT                     as integer
global NAME                         as string
global PASW                         as string
global dim player(MAXIMUM_PLAYERS) as player_data
` ------------------------------------------------

//sync off
sync on : sync rate 60 // Hodgey's edit
autocam off

input "IP: ", ip$
result = net connect(ip$)
if not result
   print "Could not connect: "+chr$(34)+net get error()+chr$(34)+"."
   print "Press any key to exit."
   wait key
   end
endif

logged as byte=0
incorrect as boolean =0

while not logged

  cls
  if incorrect then print "Password incorrect"
  if incorrect then text 10,40, "Password incorrect"
  input "Name: ", NAME
  input "Pasw: ", PASW

  net put byte MESSAGE_ID_NAME
  net put string NAME
  net put string PASW
  net send
  
  wait 500
  
  while net get message()
    if net get byte()=MESSAGE_ID_YOUJOINED
      if net get byte()=1
        logged =1
      else
        if net get byte()=0 then incorrect=1
      endif
    endif
  endwhile
  
  net send 0
  
  text 10,10, str$(logged)

  sync // Hodgey's edit

endwhile

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 15th Jul 2011 12:36

Link

nope, this makes only worse: I have to move my window with a mouse so that "input" text updates, and nor print or text statements appear...

It is Multisync 1.4.1 dll by Benjamin, not an official add-on.

What about scrapyard- I know its a joke, and I joke too, but there is no need to make hundreds of one-sentence-answer threads. It gets harder to find answer when there are lots of threads.
BTW it would be cool that there is an "master of (s)crapyard" award

Join The dark Side! We have cookies

Back to top

Profile PM Email

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 15th Jul 2011 14:14

Link

Quote: "nope, this makes only worse: I have to move my window with a mouse so that "input" text updates, and nor print or text statements appear..."

Ah yes I remember having the same problem with the input function a while back. Unfortunately I came to the conclusion that you can only have either 'input' or text/print commands. One way around this is to write your own input function via the entry$() command.
Have a look at this:

+ Code Snippet

clear entry buffer

a as string
sync on : sync rate 60
do
    cls
    a = entry$(1)
    text 0, 0, "Enter name: " + a
    
    if returnkey()=1 then exit
    
    sync
loop
cls
text 0, 0, "Hi " + a
sync
wait key
end

You should be able to turn this into a function. Good luck

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 15th Jul 2011 14:45

Link

...here's a version I'm using at the moment. Just call the "init" function before your game loop and "text_entry" during the loop when you want input.

+ Code Snippet

sync on : sync rate 60
cx=screen width()/2
cy=screen height()/2

init_text_entry()

do
    cls
    text_entry()
    center text cx,cy,"Type and press enter: "+txt$
    if returnkey()=1
        txt$=""
    endif
    sync
loop

function init_text_entry()
    global backspace as integer
    global txt$ as string
    clear entry buffer
endfunction

function text_entry()
    ch$=entry$()
    clear entry buffer
    if returnkey()=0
        txt$=txt$+ch$
        pbs=backspace
        backspace=keystate(14)
        if backspace>pbs
            leng=len(txt$)
            txt$=left$(txt$,leng-2)
        endif
    endif
endfunction

Hope that helps!

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 15th Jul 2011 18:05

Link

Quote: "nope, this makes only worse: I have to move my window with a mouse so that "input" text updates, and nor print or text statements appear..."

It's because Darkbasic stays on the INPUT command till the user hits enter so there's no way to SYNC the screen while getting text via INPUT. The only good way to get text is with the ENTRY$() command like Hodgey and Baxslash suggested. Doing it that way gives you the ability to create your own prompt as well (like a blinking cursor) and control the speed at which the text appears/disappears.

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 16th Jul 2011 16:21

Link

hell yeah!! It is working as it should be now

Here is a little snippet to read 2 strings in a row using baxslash's functions :y

global NAME  as string
global PASW  as integer
nam as boolean
pas as boolean
init_text_entry()

while not pas   `while password isn't entered (after entering name)
    cls  `clear screen
    text_entry()  `get text changes
    if not nam   `if name isn't entered yet
      text 10,10,"Name: "+txt$
    else  `if name already entered
     text 10,10,"Name: "+NAME
     text 10,30,"Pasw: "+txt$ 
    endif
    
    if returnkey()=1  `if enter pressed
      if nam  `if name already entered
        pasw=val(txt$)    `apply held text value to variable
        pas=1   `we have name and password so exit loop
        txt$=""  `clear text value
      else    `if we dont have name yet
        name=txt$    `apply held text to variable 
        nam=1   `we have name
        txt$=""   `clear text so new letters aren't added to this line
        while returnkey()=1  `while enter is being held
        `do nothing- this is simplier than storing keystates
        `and in this case acceptible, coz program hasn't got
        `anything to do, while new text is typed
        endwhile
      endif
    endif
    sync
endwhile

+ Code Snippet

global NAME  as string
global PASW  as integer
nam as boolean
pas as boolean
init_text_entry()

while not pas   `while password isn't entered (after entering name)
    cls  `clear screen
    text_entry()  `get text changes
    if not nam   `if name isn't entered yet
      text 10,10,"Name: "+txt$
    else  `if name already entered
     text 10,10,"Name: "+NAME
     text 10,30,"Pasw: "+txt$ 
    endif
    
    if returnkey()=1  `if enter pressed
      if nam  `if name already entered
        pasw=val(txt$)    `apply held text value to variable
        pas=1   `we have name and password so exit loop
        txt$=""  `clear text value
      else    `if we dont have name yet
        name=txt$    `apply held text to variable 
        nam=1   `we have name
        txt$=""   `clear text so new letters aren't added to this line
        while returnkey()=1  `while enter is being held
        `do nothing- this is simplier than storing keystates
        `and in this case acceptible, coz program hasn't got
        `anything to do, while new text is typed
        endwhile
      endif
    endif
    sync
endwhile

Thx for help

PS it should be mentioned in DBP manuals commands reference that INPUT stops program until enter pressed

Join The dark Side! We have cookies

Back to top

Profile PM Email

2Beastmode4u

13

Years of Service

User Offline

Joined: 14th Feb 2011

Location: Loading...

Posted: 17th Jul 2011 03:54 Edited at: 17th Jul 2011 03:57

Link

Your doing that Carbonade thing too? Lol. Wait, that Edutainment right? Let me see it when you finish this.

What I did for the 20 facts was make a test before the game having the facts. If they passed, they could play the game.

See attached.

God help me, Please.

Come on down to my site at Unleashed FPSCreators

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with "print"

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with &quot;print&quot;

Newcomers DBPro Corner / Help with "print"