![]() PrintTextConsole("fullscreen activated")įontsReps: IncludeBinary("eswatFonts.bmp ») here it’s a 8x8 bitmap fontĬode: Procedure Anim(fullscreen.b) Result = MessageRequester(#WINTITLE, « Lalala i m a message"+ Chr(10) + Chr(13) + "Do you want Fullscreen ? :)",#PB_MessageRequester_YesNoCancel) Until KeyboardPushed(#PB_Key_Escape) Or KeyboardPushed(#PB_Key_Space) Or KeyboardPushed(#PB_Key_T) DisplaySprite(12,0,490) Here 490 in y but it printed screen StartDrawing(SpriteOutput(12)) Here i waiting to draw in id 12 but i saw in a screen. If Not OpenWindowedScreen(WindowID(1337), 0, 0, #WINWIDTH, #WINHEIGHT, 1, 0, 0)ĬatchSprite(0, ?fontsReps, #PB_Sprite_Texture) If OpenWindow(1337,0,0,#WINWIDTH, #WINHEIGHT, #WINTITLE, #PB_Window_BorderLess | #PB_Window_ScreenCentered) If OpenScreen(#WINWIDTH, #WINHEIGHT, #BPP, #WINTITLE) = 0 ![]() MessageRequester("Error", "This is fucked up, I can't create the window", 0) TransparentSpriteColor(IdSprite, RGB(r,g,b))ĬlipSprite(IdSprite, #PB_Default, #PB_Default, #PB_Default, #PB_Default) Reinit clipping with original fonts size for w and hĬlipSprite(IdSprite, srcX, srcY, srcW, srcH) ClipSprite(IdSprite, #PB_Default, #PB_Default, #PB_Default, #PB_Default) Procedure getFonts(IdSprite, x, y, w, h, num, r, g, b)įontsW = SpriteWidth(IdSprite) Nota Ne ps enlever While (Mid(alpha$, i, 1) Mid(charac$, 1, 1) And i length S$ = s$ + « NNNNNNNNNNNNNNNNNNNNNNNNNNNIIIIIIIIIIIIIIIIIIIIIHHHHHHHHHHHH »Īlpha$ = " !" + Chr(34) + " '()*+,. ![]() S$ = « BALABLAHAHAHAHHAHABBBBBBBBBBBBBBBB » + chr(10) + chr(13) Code: Global s$ make s$ globalĭeclare getFonts(IdSprite, x, y, w, h, num, r, g, b) ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |