Matrix Like Typing - GameCreators Forum

Author

Message

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 2nd Jan 2007 16:19 Edited at: 2nd Jan 2007 17:30

Link

+ Code Snippet

ink rgb(0,255,0),rgb(0,255,0)
set text font "Courier New"
set text size 24


write("Wake up neo this is dark basic speaking",500)
wait key
end

function write(string$,space)
    local c$
    for i = 1 to len(string$)
        c$ = mid$(string$,i)
        printc c$
        if c$ <> " "
            wait space
        endif
    next i
endfunction

Fixed complete with an example

All bow down to evil

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 2nd Jan 2007 17:00

Link

Ah, the old printc command. Wraps text to next line doesn't it? Simple but effective.

Back to top

Profile PM Email

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 2nd Jan 2007 17:03 Edited at: 2nd Jan 2007 17:03

Link

I don't think it does but the next bit will have text wrap oh and i've updated it

All bow down to evil

Back to top

Profile PM Email

NeX the Fairly Fast Ferret

19

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 2nd Jan 2007 17:08

Link

I'm sorry, but I cannot get this to run. DBPro practically finds an error on every line!

Since the other one was scaring you guys so much...

Back to top

Profile PM Website

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 2nd Jan 2007 17:25

Link

Bugger give me a minute

All bow down to evil

Back to top

Profile PM Email

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 2nd Jan 2007 17:29

Link

+ Code Snippet

ink rgb(0,255,0),rgb(0,255,0)
set text font "Courier New"
set text size 24


write("Wake up neo this is dark basic speaking",500)
wait key
end

function write(string$,space)
    local c$
    for i = 1 to len(string$)
        c$ = mid$(string$,i)
        printc c$
        if c$ <> " "
            wait space
        endif
    next i
endfunction

Fixed complete with example

All bow down to evil

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 2nd Jan 2007 17:43

Link

S'all good. This is one I made recently which got about 0.002 replies.

+ Code Snippet

sync on : sync rate 60

writeText(10,10,"Hello, my name is Zotoaster|This is my writeText function in action|Use it as you wish|No need for credit|It's only a simple function|I'm not that greedy|:)",20)

wait key
end



`Functions
function writeText(x,y,text$,wtime#)
repeat
   inc curi#,wtime#/100
   oldcur=ncur
   ncur=int(curi#)
   if oldcur<>ncur then cur=ncur else cur=0
   cur$=mid$(text$,cur)
   if cur$<>"|" then posx=posx+text width(mid$(text$,cur-1))
   if cur$="|" then posx=-text width(mid$(text$,cur-1)) : posy=posy+text height(cur$)
   if cur$<>"|" then text x+posx,y+posy,cur$
sync
until cur>len(text$)
endfunction

If you put a | in the string is goes on to the next line

Back to top

Profile PM Email

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 2nd Jan 2007 17:47

Link

nice

All bow down to evil

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 3rd Jan 2007 15:24

Link

Hmm...I remembered wrong! What does printc do then?

Back to top

Profile PM Email

MadrMan

18

Years of Service

User Offline

Joined: 17th Dec 2005

Location: 0x5AB63C

Posted: 3rd Jan 2007 16:47 Edited at: 3rd Jan 2007 18:43

Link

if you switch 'printc c$' by 'print c$;' it does exactly the same.

Edit/
try this:

+ Code Snippet

load sound "..\Media\Sounds\Space guns\Lazer 1.wav",1
ink rgb(0,255,0),rgb(0,255,0)
set text font "Courier New"
set text size 24
write("Wake up neo this is dark basic speaking",100)
write("Neo? ",100)
write("WAKE UP NEO!!!",100)
wait key
end

function write(string$,space)
    local c$
    for i = 1 to len(string$)
        c$ = mid$(string$,i)
        if i<>len(string$)
         print c$;
        else
         print c$
        endif
        set sound speed 1,rnd(300)+500
        play sound 1
        wait space
    next i
    wait space*15
endfunction

Back to top

Profile PM

Vampiric

18

Years of Service

User Offline

Joined: 30th Oct 2006

Location:

Posted: 7th Jan 2007 12:24 Edited at: 7th Jan 2007 12:27

Link

That's wierd, multiple keywords for the same command, someone screwed up

All bow down to evil

Back to top

Profile PM Email

sgtfriis

17

Years of Service

User Offline

Joined: 5th Feb 2007

Location:

Posted: 5th Feb 2007 10:33

Link

I cant get it to work.... every time I write it in all goes wrong it finds no errors but it wont let me see it....

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Matrix Like Typing