TheGameCreators - CodeBase - Simple Window management system

Category: Libraries

Version: 1.0

Information

Uploaded: 17th May 2017 05:26

Modified: 17th May 2017 05:26

Author: Jack

Summary

Simple Window management System. You can add sprites/ text to the window, they will stay on place and be culled correctly. Add some kind of .jpg to the code, or remove the image loading part.

Full Description

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: DynamicWindow

// Created: 12.03.2017

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "DynamicWindow" )

SetWindowSize( 1024, 768, 0 )

// set display properties

SetVirtualResolution( 1024, 768 )

SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

type Vec2_def

x as float

y as float

endtype

type dynWindow_def

bgspr as integer

bgimg as integer

size as Vec2_def

position as Vec2_def

openspeed as float

on as integer

visible as integer

effect as integer

// assets

TextList as integer[]

SpriteList as integer[]

endtype

Dim DynWindow[] as dynWindow_def

dynwin = CreateDynWindow(300,400,400,200)

AddTextToDynWindow("Infowindow",10,10,30,dynwin)

spr = AddSpriteToDynWindow(190,10,200,180,dynwin)

SetSpriteImage(spr,LoadImage("1451341672001.jpg"),0)

SetDynWindowVisible(dynwin,0)

SetDynWindowOn(dynwin,0)

print("Very Simple window management system")

print("press enter")

if GetRawKeyPressed(13)=1 then DynWindow[0].on=1-DynWindow[0].on

HandleDynWin()

Print( ScreenFPS() )

Sync()

loop

function HandleDynWin()

for i=0 to DynWindow.length

spr = DynWindow[i].bgspr

nsx# = GetSpriteWidth(spr)

nsy# = GetSpriteHeight(spr)

if DynWindow[i].on=0

// downscale

maxv=0

if GetSpriteWidth(spr)>1.0

nsx# = nsx#-DynWindow[i].openspeed

if nsx#<2.0

nsx#=2.0

inc maxv

endif

if GetSpriteHeight(spr)>1.0

nsy# = nsy#-DynWindow[i].openspeed

if nsy#<2.0

nsy#=2.0

inc maxv

endif

if maxv=2

SetDynWindowVisible(i,0)

endif

SetSpriteSize(spr,nsx#,nsy#)

else

SetDynWindowVisible(i,1)

// upscale

maxv=0

if GetSpriteWidth(spr)<DynWindow[i].size.x

nsx# = nsx#+DynWindow[i].openspeed

if nsx#>DynWindow[i].size.x

nsx#=DynWindow[i].size.x

inc maxv

endif

if GetSpriteHeight(spr)<DynWindow[i].size.y

nsy# = nsy#+DynWindow[i].openspeed

if nsy#>DynWindow[i].size.y

nsy#=DynWindow[i].size.y

inc maxv

endif

if maxv=2 then DynWindow[i].visible=2

SetSpriteSize(spr,nsx#,nsy#)

endif

if DynWindow[i].visible=1

if DynWindow[i].TextList.length>-1

bgspr = DynWindow[i].bgspr

// set all texts in window scissor

for txti = 0 to DynWindow[i].TextList.length

SetTextScissor(DynWindow[i].TextList[txti],GetSpriteX(bgspr),GetSpriteY(bgspr),GetSpriteX(bgspr)+GetSpriteWidth(bgspr),GetSpriteY(bgspr)+GetSpriteHeight(bgspr))

next txti

// set all sprites in window scissor

for spri = 0 to DynWindow[i].SpriteList.length

SetSpriteScissor(DynWindow[i].SpriteList[spri],GetSpriteX(bgspr),GetSpriteY(bgspr),GetSpriteX(bgspr)+GetSpriteWidth(bgspr),GetSpriteY(bgspr)+GetSpriteHeight(bgspr))

next spri

endif

next i

endfunction

function SetDynWindowOn(num,state)

DynWindow[num].on=state

endfunction

function SetDynWindowVisible(num,state)

SetSpriteVisible(DynWindow[num].bgspr,state)

for txti = 0 to DynWindow[num].TextList.length

SetTextVisible(DynWindow[num].TextList[txti],state)

next txti

for spri = 0 to DynWindow[num].SpriteList.length

SetSpriteVisible(DynWindow[num].SpriteList[spri],state)

next spri

DynWindow[num].visible=state

endfunction

function CreateDynWindow(px,py,sx,sy)

bgimg = DrawBorderBox(sx,sy,0,0,255,255,10)

bgspr = CreateSprite(bgimg)

SetImageMinFilter(bgimg,0)

SetSpriteOffset(bgspr,sx/2,sy/2)

SetSpritePositionByOffset(bgspr,px,py)

DynWindow.length = DynWindow.length + 1

pos = DynWindow.length

DynWindow[pos].bgimg = bgimg

DynWindow[pos].bgspr = bgspr

DynWindow[pos].size.x = sx

DynWindow[pos].size.y = sy

DynWindow[pos].position.x = px

DynWindow[pos].position.y = py

DynWindow[pos].on=1

DynWindow[pos].visible=1

DynWindow[pos].openspeed = 10.0

endfunction pos

function AddTextToDynWindow(txt$,px,py,size,parent)

bgspr = DynWindow[parent].bgspr

txt = CreateText(txt$)

SetTextSize(txt,size)

SetTextPosition(txt,GetSpriteX(bgspr)+px,GetSpriteY(bgspr)+py)

// add to array

DynWindow[parent].TextList.length = DynWindow[parent].TextList.length + 1

txtpos = DynWindow[parent].TextList.length

DynWindow[parent].TextList[txtpos] = txt

endfunction txt

function AddSpriteToDynWindow(px,py,sx,sy,parent)

bgspr = DynWindow[parent].bgspr

spr = CreateSprite(0)

SetSpriteSize(spr,sx,sy)

SetSpritePosition(spr,GetSpriteX(bgspr)+px,GetSpriteY(bgspr)+py)

// add to array

DynWindow[parent].SpriteList.length = DynWindow[parent].SpriteList.length + 1

sprpos = DynWindow[parent].SpriteList.length

DynWindow[parent].SpriteList[sprpos] = spr

endfunction spr

// draws a simple border box image

function DrawBorderBox(sx,sy,r,g,b,a,border)

// bg inputbox

bg1=CreateSprite(0)

SetSpriteSize(bg1,sx,sy)

SetSpriteDepth(bg1,0)

SetSpritePosition(bg1,GetVirtualWidth()/2-GetSpriteWidth(bg1)/2,GetVirtualHeight()/2-GetSpriteHeight(bg1)/2)

SetSpriteColor(bg1,r,g,b,a)

bg2=CreateSprite(0)

SetSpriteSize(bg2,sx-border,sy-border)

SetSpriteDepth(bg2,0)

SetSpritePosition(bg2,GetVirtualWidth()/2-GetSpriteWidth(bg2)/2,GetVirtualHeight()/2-GetSpriteHeight(bg2)/2)

SetSpriteColor(bg2,0,0,0,255)

ClearScreen()

DrawSprite(bg1)

DrawSprite(bg2)

bg_img=GetImage(GetVirtualWidth()/2-GetSpriteWidth(bg1)/2,GetVirtualHeight()/2-GetSpriteHeight(bg1)/2,sx,sy)

CodeBase - Simple Window management system

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Jack
CodeBase Entries:	17