Gosub or functions?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Floyd

That code seems to be formatted for maximum unreadability.
Here it is neatened up:

For i = 1 To bot_numchars
    bot_currentchar = Asc(Mid(FadeTextBot$,i,1))
	If bot_currentchar = bot_space Then : Goto skipbot
	bot_currentchar = bot_currentchar - 65
	DrawImage (vh_fadeintro_fnt,bot_tempx,bot_tempy,bot_currentchar)
.skipbot
	bot_tempx = (bot_tempx+vh_fadeintro_fntwidth)
Next

I rarely use Goto because the code is usually clearer without it. For example:

For i = 1 To bot_numchars
    bot_currentchar = Asc(Mid(FadeTextBot$,i,1))
	If bot_currentchar <> bot_space
		bot_currentchar = bot_currentchar - 65
		DrawImage (vh_fadeintro_fnt,bot_tempx,bot_tempy,bot_currentchar)
	End If
	bot_tempx = (bot_tempx+vh_fadeintro_fntwidth)
Next