|
Post by PeterMaria on Mar 10, 2011 18:48:36 GMT -5
Hi, Try this. TextMode(TEXT_BUFFERED) ResizeSpriteArea(800,600)
Dim fo(58),wb fo = LoadTexStrip("wob/fons.png",32,32) wb = LoadTex("wob/devil.png")
Function Rand(min, max) Return rnd() % (max - min + 1) + min End Function
Sub Sprite(nr(),x,y,w,h,frame) NewSprite(nr) SprSetxCentre(0):SprSetyCentre(0) SprSetZOrder(1) SprSetColor(0,1,0) SprSetAlpha (.7) SprSetSize(w,h) SprSetPos(x,y) SprSetFrame(frame) End Sub
Sub Bitmap(Hnd,x1,y1,w1,h1) NewSprite(Hnd) SprSetxCentre(0):SprSetyCentre(0) SprSetZOrder(1) SprSetSize(w1,h1) SprSetPos (x1,y1) End Sub Sub Text(txt$,x4,y4,w4,h4) Dim sx, jx, px sx = Len(txt$) For jx =1 To sx px = Asc(Mid$(txt$,jx,1)) iF px >=32 And px <=127 Then px = px -32 Sprite(fo,x4,y4,w4,h4,px) x4 = x4 + w4 End iF Next End Sub Function EscKey() Return ScanKeyDown(vk_escape) End Function
While EscKey() =0 Bitmap(wb,Rand(-20,20),Rand(-20,20),800,600) Text("THIS IS MY UNCLE!",128,568,32,32) DrawText() WaitTimer(10) ClearSprites() Wend
Attachments:
|
|
|
Post by matthew on Mar 11, 2011 6:50:20 GMT -5
LMAO Peter that creature looks like something you'd encounter playing World of Warcraft.
|
|