How to "automate" displaying Instant messages

Author

Message

holger at home

17

Years of Service

User Offline

Joined: 22nd Jun 2007

Location:

Posted: 24th Mar 2010 10:39

Link

hey @ all,
after a very long periode of trying i achiefed to program an Instant messenger. Means messages are send, recieved and displayed in real time! This was hard enough for me as a beginner. Until i got that to work i just used the primitive way to display messages with if..then.

example:

+ Code Snippet

  if message_no = 1
            message_no_1$ = net message string$()
            rem *** display message_no1 ***
            ink rgb(255,255,255), rgb(255,255,255)
            text 0,400, message_no_1$
         endif

i gave each message a number, textsize = 20
and the latest message shall always be displayed at the
coords: x = 0, y = 400.
the previous message shall then be deleted at the ols coords and displayed at the new coords: x = 0, y = 380 until y = 0
example:

+ Code Snippet

  if message_no = 2
            message_no_2$ = net message string$()
            rem *** delete previous messages ***
               ink rgb(0,0,0), rgb(0,0,0)
               text 0,400, message_no_1$

               rem *** display messages ***
               ink rgb(255,255,255), rgb(255,255,255)
               text 0,400, message_no_2$
               text 0,380, message_no_1$
         endif

I think the best way would be to a recordtype
like this:

type messagetype
mes as string
message_no as integer
cursor_y as integer
endtype

and then read them in in an array
dim messages(0) as messagetype

But how to go on? how can i automate this ? I want to display always the last 20 messages. ( message_no 20 = cursor_y = (y) 0

hope so much that you can help me
many thx

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Mar 2010 12:37 Edited at: 25th Mar 2010 12:50

Link

have alook at this and see if what you might be looking for.

used the select command set and a timer delay to display the text.

Rem ***** Main Source File *****
sync on
sync rate 60
rem make some random letter meassages
dim message_no(20) as string
for i = 0 to 20
	message_no(i)="message"+str$(i)+" "+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)
next i
delay=1000
t=timer()

do

if timer()>t+delay
	pick_a_meassage=rnd(20)
	t=timer()
	cls
endif
select  pick_a_meassage
case 0 : ink rgb(255,255,255), 0
         text 0,400, message_no(0)
         endcase
case 1 : ink rgb(255,255,255), 0
         text 0,400, message_no(1)
         endcase
case 2: ink rgb(255,255,255), 0
         text 0,400, message_no(2)
         endcase
case 3 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(3)
         endcase
case 4 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(4)
         endcase
case 5 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(5)
         endcase
case 6 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(6)
         endcase
case 7 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(7)
         endcase
case 8 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(8)
         endcase
case 9 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(9)
         endcase
case 10 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(10)
         endcase                                                                      
case 11 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(11)
         endcase
case 12 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(12)
         endcase
case 13 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(13)
         endcase
case 14 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(14)
         endcase
case 15 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(15)
         endcase
case 16 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(16)
         endcase                                           	
case 17 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(17)
         endcase
case 18 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(18)
         endcase
case 19 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(19)
         endcase
case 20 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(20)
         endcase 
endselect                                   
sync
loop

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
rem make some random letter meassages
dim message_no(20) as string
for i = 0 to 20
	message_no(i)="message"+str$(i)+" "+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)
next i
delay=1000
t=timer()

do

if timer()>t+delay
	pick_a_meassage=rnd(20)
	t=timer()
	cls
endif
select  pick_a_meassage
case 0 : ink rgb(255,255,255), 0
         text 0,400, message_no(0)
         endcase
case 1 : ink rgb(255,255,255), 0
         text 0,400, message_no(1)
         endcase
case 2: ink rgb(255,255,255), 0
         text 0,400, message_no(2)
         endcase
case 3 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(3)
         endcase
case 4 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(4)
         endcase
case 5 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(5)
         endcase
case 6 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(6)
         endcase
case 7 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(7)
         endcase
case 8 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(8)
         endcase
case 9 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(9)
         endcase
case 10 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(10)
         endcase                                                                      
case 11 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(11)
         endcase
case 12 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(12)
         endcase
case 13 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(13)
         endcase
case 14 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(14)
         endcase
case 15 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(15)
         endcase
case 16 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(16)
         endcase                                           	
case 17 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(17)
         endcase
case 18 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(18)
         endcase
case 19 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(19)
         endcase
case 20 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(20)
         endcase 
endselect                                   
sync
loop

same code but without using the cls command to clear the screen.

Rem ***** Main Source File *****
sync on
sync rate 60
rem make some random letter meassages
dim message_no(20) as string
for i = 0 to 20
	message_no(i)="message"+str$(i)+" "+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)
next i
rem this is one way of removing the use of cls
make object cube 1,.1
hide object 1
color backdrop 0
rem set up ther delay timer
delay=1000
t=timer()

do

if timer()>t+delay
	pick_a_meassage=rnd(20)
	t=timer()
`	cls
endif
select  pick_a_meassage
case 0 : ink rgb(255,255,255), 0
         text 0,400, message_no(0)
         endcase
case 1 : ink rgb(255,255,255), 0
         text 0,400, message_no(1)
         endcase
case 2: ink rgb(255,255,255), 0
         text 0,400, message_no(2)
         endcase
case 3 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(3)
         endcase
case 4 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(4)
         endcase
case 5 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(5)
         endcase
case 6 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(6)
         endcase
case 7 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(7)
         endcase
case 8 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(8)
         endcase
case 9 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(9)
         endcase
case 10 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(10)
         endcase                                                                      
case 11 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(11)
         endcase
case 12 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(12)
         endcase
case 13 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(13)
         endcase
case 14 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(14)
         endcase
case 15 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(15)
         endcase
case 16 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(16)
         endcase                                           	
case 17 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(17)
         endcase
case 18 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(18)
         endcase
case 19 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(19)
         endcase
case 20 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(20)
         endcase 
endselect                                   
sync
loop

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
rem make some random letter meassages
dim message_no(20) as string
for i = 0 to 20
	message_no(i)="message"+str$(i)+" "+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)+chr$(rnd(64)+31)
next i
rem this is one way of removing the use of cls
make object cube 1,.1
hide object 1
color backdrop 0
rem set up ther delay timer
delay=1000
t=timer()

do

if timer()>t+delay
	pick_a_meassage=rnd(20)
	t=timer()
`	cls
endif
select  pick_a_meassage
case 0 : ink rgb(255,255,255), 0
         text 0,400, message_no(0)
         endcase
case 1 : ink rgb(255,255,255), 0
         text 0,400, message_no(1)
         endcase
case 2: ink rgb(255,255,255), 0
         text 0,400, message_no(2)
         endcase
case 3 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(3)
         endcase
case 4 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(4)
         endcase
case 5 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(5)
         endcase
case 6 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(6)
         endcase
case 7 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(7)
         endcase
case 8 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(8)
         endcase
case 9 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(9)
         endcase
case 10 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(10)
         endcase                                                                      
case 11 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(11)
         endcase
case 12 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(12)
         endcase
case 13 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(13)
         endcase
case 14 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(14)
         endcase
case 15 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(15)
         endcase
case 16 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(16)
         endcase                                           	
case 17 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(17)
         endcase
case 18 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(18)
         endcase
case 19 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(19)
         endcase
case 20 : ink rgb(255,255,255), rgb(255,255,255)
         text 0,400, message_no(20)
         endcase 
endselect                                   
sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 27th Mar 2010 11:45

Link

@HowDo: I don't really think it's very efficient to create a unique case clause for every message you want to display. What if you wanted to display the last 100 messages? Also, the case numbers you're using seem to line up perfectly with your array indexes, so why not just do this?

+ Code Snippet

ink rgb(255,255,255),0
text 0,400,message_no(pick_a_meassage)

Also, you could use the backdrop on command to turn on the automatically refreshing backdrop without creating a pointless object.

@holger at home: It sounds like you need a list filled with messages, and only to display the last 20? Check this out:

+ Code Snippet

`Create a few random messages
dim Messages(0) as string : empty array Messages(0)
for a=0 to 19
  array insert at top Messages(0)
  Messages(0)=CreateRandomString(rnd(20)+5)
next a

do
  cls
  print "Press Enter to add a new message"
  print
  DrawMessages()
  suspend for key
  array insert at top Messages(0)
  Messages(0)=CreateRandomString(rnd(20)+5)
loop

end

function DrawMessages()
  `Print the first 20 messages
  for Message=19 to 0 step -1
    print Messages(Message)
  next Message
endfunction

function CreateRandomString(Length)
  `Make gibberish
  NewString$=""
  for Letter=1 to Length
    NewString$=NewString$+chr$(rnd(64)+31)
  next Letter
endfunction NewString$

Hopefully that will start you on the right track.

Back to top

Profile PM Email

holger at home

17

Years of Service

User Offline

Joined: 22nd Jun 2007

Location:

Posted: 28th Mar 2010 12:26

Link

many many thx that's exactly that what i need

On the very first view i'm wondering that you call the "array insert at top" order in the do..loop once more, although you did so as you created the array before. Seems that was my mistake.

Now i have to figure out how to implement this in my code
as well as it has to work also with recieved messages.

Hope so much that you would help me again if i have probs with it

yours holger

Back to top

Profile PM

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 28th Mar 2010 16:08

Link

Of course I would

Post back if any issues come up. Good luck.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / How to "automate" displaying Instant messages

Sorry your browser is not supported!

Newcomers DBPro Corner / How to &quot;automate&quot; displaying Instant messages

Newcomers DBPro Corner / How to "automate" displaying Instant messages