(no subject)

[DarkElite]

Just wanting to ask if there is a way to take a section of the screen (in RPGCode of coarse) and then shade it blue, and then set it back in the same position? (Or just shade part of the screen blue)

(Note: and by shade, i mean the kind of shading that you can do to tiles in the tile editor)

[Cesque]

I guess not, in current edition of tk3 or tk2...

[Asimir]

You can draw a plain blue image and use #setimagetranslucent

[Cesque]

Oh, right. You might also want to shade the image then put it up, but I guess it'll be only temporary and won't stay on board. Or am I mistaken...?

[Xorlak]

Yeah, Asimir's suggestion is the way I would do it:

Code: [Select]

#savescreen
#setimagetranslucent("blue.jpg",xpos!,ypos!,xsize!,ysize!)
...
#restorescreen

[Spyder]

TK3 should let you keep a translucent image over the board as you play I think, from what I understand from Serge's article. Damn that will be nice.... Think of all the shading effects you could do, such as clouds, or maybe rain?

*drool*

[Colin]

Yeah, you could do that. It would look cool.

*tries*

[Spyder]

Please post a screenshot if your succesful! Smile

[Colin]

Code: [Select]

Bitmap("blue.png",cnvRenderNow!)
RenderNow(on,1)
While(0 == 0) {}
Method Unload() {RenderNow(off)}

[Xorlak]

Are you sure you didn't just do:

Code: [Select]

#ambientred!=-50
#ambientgreen!=-50
#ambientblue!=0
Heh...

[Colin]

The black outside the board wouldn't have been affected if I did. Ha!

Razz

[Zeros']

Yep. Hes right.

[DarkElite]

ok, now im trying to wirte a text program, and im trying to count the number of letters (with out using branch  Wink )

this is what ive gotton so far, but it doesnt seem to work....:

Code: [Select]

#Method Write(tx!,ty!,text$)
{
#t$~=""
#For(t!=0; t$=""; t!=t!+1)
{
#CharAt(text$, t!, t$)
#If (t$~=""){#Tt!=Tt!+1}
}
#Kill(t!)
}


[Colin]

Code: [Select]

#Method Write(tx!,ty!,text$)
{
t$ = "t"
#For(t!=0; t$~=""; t!=t!+1)
{
#CharAt(text$, t!, t$)
}
**** t! is now number of characters
#Kill(t!)
}


[DarkElite]

thanks!

but i have a new problem, my code now doesnt seem to display any more than the first 3 letters....:   Wink

Code: [Select]

#Method Write(tx!,ty!,text$)
{
#t$="t"
#For(Tt!=0; t$~=""; Tt!=Tt!+1)
{
#CharAt(text$, Tt!, t$)
}
#Kill(t!)
#tx2!=tx!
#While (t!=<Tt!)
{
#t!=t!+1
#CharAt(text$, t!, t$)
#letter$="/Font/"+t$+".bmp"
#SetImageTransparent(letter$,tx2!,ty!,20,25,64,128,0)
#tx2!=tx2!+18
}
}