Scrolling tiles

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|110\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Scrolling tiles
Page : 1 2 Prev 3 Next
Tue, 16 Apr 2024, 14:38
spinal	I'm struggling to decide if the glasses should match the sprite, or be more clear... I think clear glasses.... -=-=- Check out my excellent homepage!
Tue, 16 Apr 2024, 18:24
Jayenkai	Hmm... I think I prefer the transparent lenses..
Wed, 17 Apr 2024, 01:16
therevillsgames	I thought they were safety glasses 😂
Wed, 17 Apr 2024, 01:28
cyangames	Very nicely made!
Wed, 17 Apr 2024, 03:37
steve_ancell	Clear glasses seem more natural looking on the character.
Wed, 17 Apr 2024, 11:54
spinal	Not sure at all about intersection of dialogue screens and such. I'll just try a bunch of stuff and see if anything works. -=-=- Check out my excellent homepage!
Sat, 04 May 2024, 11:29
spinal	I dont suppose anyone can see why this is missing the last word in the string? Global word_count = 0 Global dialog_word = 0 Global string_pos Global dialog_tx = 0 Global dialog_ty = 0 Global dialog_stx = 0 Global dialog_sty = 0 Function dialogScreen() far_y = Int(SCREENHEIGHT / pixelScale) / 8 far_x = Int(SCREENWIDTH / pixelScale) / 8 mid_y = far_y / 2 mid_x = far_x / 2 Color 0, 0, 0 width = 24 height = 5 If dialog_word = 0 Then lft = (SCREENWIDTH/2)-(ImageWidth(whouseFront)/2) tp = SCREENHEIGHT-ImageHeight(whouseFront) DrawBlock titleScreen, (SCREENWIDTH/2)-(ImageWidth(titlescreen)/2), (SCREENHEIGHT/2)-(ImageHeight(titlescreen)/2) drawTextBox(width, height) EndIf a$ = "I can't believe this! All the crates are in the wrong places! How are we supposed to be ready for the delivery trucks?" If string_pos <= 0 Then string_pos = 1 If dialog_word > word_count Then end_pos = FindNextSpace(string_pos, a$) If end_pos = -1 Then end_pos = Len(a$) + 1 End If EndIf If dialog_word > word_count Then word_string$ = Mid$(a$, string_pos, end_pos - string_pos) string_pos = end_pos + 1 word_count = dialog_word myPrint dialog_tx * pixelScale * 8, dialog_ty * pixelScale * 8, word_string$ If dialog_tx + Len(word_string$) >= (dialog_stx + width - 5) Then dialog_tx = dialog_stx If dialog_ty + 1 < dialog_sty + height - 2 Then dialog_ty = dialog_ty + 1 Else getInputs() While Not inputs\A[NEW_] getInputs() Delay(1) Wend dialog_ty = dialog_sty dialog_tx = dialog_stx drawTextBox(width, height) EndIf Else dialog_tx = dialog_tx + (Len(word_string$)+1) EndIf EndIf If string_pos > Len(a$) Then ; The Text has finished. You can perform an action here Or wait For user Input. ; For now, let's assume the Text ends here. dialog_word = 0 string_pos = 0 dialog_tx = dialog_stx dialog_ty = dialog_sty getInputs() While Not inputs\A[NEW_] getInputs() Delay(1) Wend gameMode = 1 fadein() End If If frame_number Mod 20 = 0 Then dialog_word = dialog_word + 1 End Function --v -=-=- Check out my excellent homepage!
Sat, 04 May 2024, 12:54
Jayenkai	Haven't read the code, and am basing things on what normally happens when I try to do a similar thing.. (which, coincidentally, I'm currently doing for Lyrics in VidGen!) Once you're at the end of scanning for words, your current-word usually has the last word still waiting to get parsed, because you haven't reached a " " after it. Either add an extra " " to the end of the string, so that it knows there's a last word there, or alternatively copy+paste your display code at the end of the loop, to flush out that final word. -=-=- ''Load, Next List!''
Page : 1 2 Prev 3 Next