Re: Hello everyone :)

[bikerboy]

thanx man

ok i added some text to the scroller then i run Compile.bat but nothing happens

no intro.exe nowhere

EDIT: discard my last comment

i typed "fbc -s gui ufmod.o intro.bas" in the start_shell.exe window and it created the intro    

intro attached

[Hezad]

Cool !! Works well here

Did you know you can select the color you write with ?

try

Code Select Expand

Draw String(xText,470),a,rgb(0,0,0)
instead of

Code Select Expand

Draw String(xText,470),a

(if the text doesn't appear, that's because I selected the black color, and since I don't know why there's a black "line" behind the text, black on black => not visible lol So in that case, try to replace rgb(0,0,0) by rgb(255,0,0), you'll see what I mean )

[bikerboy]

nice ,thanx man i'll try to change the color in the next one 

i put the black line there , couldn't see the text so i put the black line

looks nice though like an effect

[Shockwave]

Hats off to you Bikerboy.

People come and go from here and many of them never manage to do what you did there.

Loading music, bitmap and doing a scroll is a firm platform to move on from. You can't say you're not cut out for code now!

Well done

[bikerboy]

thanx man

i'm really happy with the outcome even if it doesn't have a spinning cube effect and a fancy cine scroller, but i really like it

i may not have coded this by myself but i did learn how to do a similar one again thanx to you guys

i know i get dissapointed if it's not working , but who doesn't.

i'm not gonna quit , even if i get dissapointed, i'll try again and again and i'll ask you guys (the cavalry to the rescue) 

[Hezad]

Now you know how to make stuff to scroll, I'm sure you could code a very simple Sine Scroller (No per-pixel stuff, no pointers, just text).

To scroll a text horizontally, we changed the X value in time. Now, what is a sine scroller ? You just have to make your letters move along X but also along the Y axis with a sinus method.

Here a little code to make it. Warning, it's not optimized, and I didn't thought about what's the better way to do it. So this code may not be the best example. Anyway, I think it can help to understand the thing.

Code Select Expand


'' To keep our letters in memory
Dim as string LettersToScroll(12) => {"H","e","l","l","o"," ","W","o","r","l","d"," ","!"}


'' To keep our letters position somewhere :
Dim as single LettersX(12), LettersY(12)


'' init Letters position (I assume a letter width and Height is 10)
For i as integer = 0 to 12
   
    LettersX(i) = i*10
    LettersY(i) = 320  '' middle screen
   
next

Screenres 640,480,16,2

Do : screenlock : cls
   
    For i as integer = 0 to 12
       
        LettersX(i) += 1  ' scroll along X axis
   
        LettersY(i) = 320+10*sin(LettersX(i)/10)   ' Sine Scroll along Y axis
       
        Draw String(LettersX(i), LettersY(i)),LettersToScroll(i)
       
       
        if LettersX(i)>640 then LettersX(i) = 0  '' if a letter is too far on the right, make it start again on the left
       
    Next
   
    Screenunlock : sleep 1,1
   
Loop until multikey(&h01)  '' Will quit loop if ESC is pressed


'hope it helps

[bikerboy]

thanx for the example man

i'll study the code 

nice effect too even if it simple letters

[benny!]

Yeah. Just d/l your intro.
Congratz for your first intro!

[bikerboy]

Yeah. Just d/l your intro.
Congratz for your first intro!

thanx man, i owe it to you guys

[Shockwave]

Ah I just posted in your other topic before I saw Hezad's post!

Hehe, you should study his code and then write your own version!

[DrewPee]

Very nice indeed bikerboy! I superb cardtro! Thanks for the shout out on the scroller! That is what I love about this place though - everybody shares stuff and helps everybody out! A really nice bunch of people from different countries too!

DrewPee

[Shockwave]

[THIS TOPIC IS LOCKED UNTIL I GET THE TIME TO SPLIT IT INTO MEANINGFUL TOPICS]