TheGameCreators - CodeBase - 2D Text Modifications to screen

Return to the CodeBase listing

Category: Graphics

Version: 1.0

Information

Uploaded: 11th Apr 2018 06:56

Modified: 11th Apr 2018 06:56

Author: fubarpk

Summary

Creates a graphical effect with text by subtracting a value from one ascii value to another

Full Description

Creates a graphical effect with text by subtracting a value from one ascii value to another

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: TextFun

// Created: 2016-12-29

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "TextFun" )

SetWindowSize( 1024, 768, 0 )

// set display properties

SetVirtualResolution( 1024, 768 )

SetOrientationAllowed( 1, 1, 1, 1 )

Words as string = "HELLO WORLD is a great place to start programming it teaches people the very basics and is used as a common starting program by many people all over the world. Hello world has been the starter program for most programmers for many years. Its not the best program in the world laughs but it helps people get the drive to start learning"

i=1

i=CreateText(Words)

SetTextSize(i,Random(50,60))

SetTextColor(i,255,255,255,255)

SetTextPosition(i,10,10)

SetTextMaxWidth( i,1020 )

sync()

sleep(500)

global dontDo as integer

dontDo=0

start_time = GetMilliseconds()

current_time = GetMilliseconds()

if current_time - start_time > 100

start_time = current_time

if dontDo=0

Words=subtractAscii(Words)

SetTextString(i,Words)

//keep subtracting the alpha value until black

alpha=GetTextColorAlpha(i)

if alpha>5 then SetTextColorAlpha(i,alpha-5)

endif

Sync()

loop

function subtractAscii (word as string)

//Each letter or a string passed is replaced with the character 1 less than previous

newWord as String

newWord=""

length=len(word)

empty=0

for i = 1 to length

a$=Mid(word,i,1)

a=asc(a$)

if a$<>chr(32)

a=a-1

else

empty=empty+1

endif

if empty=length then dontDo=1

newWord=newWord+chr(a)

next i

endfunction  newWord

Download

Please login to download

Comments

No comments yet.

Author Name:	fubarpk
CodeBase Entries:	12

CodeBase - 2D Text Modifications to screen