Faster display for this game?

mvendak · January 17, 2009

I wrote this small rouge like game concept, but before i add features, it would be nice to find a faster way to update the GUI. It is based on Ichigo's

grid udf idea.

CODE

#include <GUIConstantsEx.au3>

Global $xGrid[1][1] ; an array containing all the control ID's for each item, Ichigo's grid udf

Global $dungeonFloor[1][1] ;$dungeonFloor values may actually represent something other than floor (walls/black space/door), it would be more accurate the call it first layer (the only layer at this point)

Global $dungeonExplored[1][1] ;squares already seen are rememberd by the character, so theres a picture there according to the squares "floor" type (floor/wall/etc)

Global $dungeonMob[1][1] ;ids of mobs

Global $dungeonItems[1][1][20] ;to be implemented

Global $charpos[2] ;main chars xy

Global $images[3][100] ;collection of image paths used, 0 is black, 1 is default floor, 2 is default wall, 3 is our hero; needs to be split up to diffrent arrays for different types (floor/character/monster)

Global $monster, $floor ; values set by _getSquareType()

Global $mobs[100][10] ;identifiers of mobs, at each step they can move/hit in a random direction, [0][0] is their counter

;FileInstalls here

$maingui = GUICreate('game',900,550)

$textbox = GUICtrlCreateLabel("Welcome!",10,400,800,50)

$helpmenu = GUICtrlCreateMenu("Help")

$fileitem = GUICtrlCreateMenuItem("Info", $helpmenu)

GUICtrlSetState(-1, $GUI_DEFBUTTON)

$images[0][0]= @ScriptDir&"\Img\black.bmp"

$images[0][1]= @ScriptDir&"\Img\floor.bmp"

$images[0][2]= @ScriptDir&"\Img\wall.bmp"

$images[0][3]= @ScriptDir&"\Img\door.bmp"

$images[1][0]= @ScriptDir&"\Img\hero.bmp"

$images[1][1] = @ScriptDir&"\Img\mons1.bmp"

$images[1][2] = @ScriptDir&"\Img\mons2.bmp"

$images[2][1] = @ScriptDir&"\Img\lada1.bmp"

$images[2][2] = @ScriptDir&"\Img\címmerpajzs1.bmp"

_CreateLevel_Memory(50,20)

_CreateLevel_Gui(50, 20, 18, $maingui)

$label = GUICtrlCreateLabel("",0,360,900,30)

GUICtrlSetBkColor($label,0x050505)

GUISetState(@SW_SHOW)

;HotKeySet("w","Test1")

;HotKeySet("s","Test2")

;HotKeySet("a","Test3")

;HotKeySet("d","Test4")

while 1

Select

Case _IsPressed(57)

_MoveCharacter("up")

sleep(50)

Case _IsPressed(41)

_MoveCharacter("left")

sleep(50)

Case _IsPressed(53)

_MoveCharacter("down")

sleep(50)

Case _IsPressed(44)

_MoveCharacter("right")

sleep(50)

Case 1

sleep(100)

EndSelect

WEnd

Func _CreateLevel_Gui($x, $y, $size, $gui) ;visualization of the "dungeon" as a grid of pictures. Based on the Grid UDF made by Ichigo

If $x < 0 or $y < 0 or $size < 0 then Return -1

GUICtrlCreatePic($images[1][0], $charpos[0] * $size, $charpos[1] * $size, $size, $size)

ReDim $xGrid[$x][$y]

$bX = $x

$bY = $y

GUISwitch($gui)

For $x = 0 to $bX - 1

For $y = 0 to $bY - 1

if $dungeonExplored[$x][$y] = 0 then

$xGrid[$x][$y] = GUICtrlCreatePic($images[0][0], $x * $size, $y * $size, $size, $size) ;most of the place is black...

Else

$xGrid[$x][$y] = GUICtrlCreatePic($images[0][0], $x * $size, $y * $size, $size, $size) ;however, a few blocks are already "seen" by the mainchar at startup

_RenderGrid($x,$y)

EndIf

Return 1

EndFunc

Func _CreateLevel_Memory($sizex, $sizey) ;creating the floor and a little house/fort/whatever for the character to start in. Some algorith to generate a level goes here

ReDim $dungeonExplored[$sizex][$sizey]

ReDim $dungeonFloor[$sizex][$sizey]

ReDim $dungeonItems[$sizex][$sizey][20]

ReDim $dungeonMob[$sizex][$sizey]

$charpos[0] = 5 ;Random(1,10,1)

$charpos[1] = 1 ;Random(1,10,1)

_CreateRoom(0,0,10,10,0,5,5,0)

_CreateRoom(9,4,10,3,4,1,0,0) ;folyosó

_CreateRoom(9,6,8,9,4,0,4,0)

_CreateRoom(0,10,10,10,5,5,0,0)

_CreateRoom(9,14,10,3,0,1,4,0)

_CreateRoom(18,0,20,20,0,10,0,10) ;bigroom

_CreateRoom(25,8,5,5,0,2,0,2)

_CreateRoom(29,8,5,5,0,2,0,2)

_CreateRoom(33,8,5,5,0,2,0,2);kicsi

for $x=0 to $sizex -1

for $y=0 to $sizey -1

If $dungeonFloor[$x][$y] = 1 OR $dungeonFloor[$x][$y] = "" And 3 > Random(0,99,1) Then ;on each floor type square already set by_createRoom

$type = Random(1,2,1) ;3% chance for a random type monster to appear (only 2 types here)

_SpawnMob($x,$y,$type)

EndIf

if $dungeonFloor[$x][$y] = "" Then ;this is needed so the default squre type wont override rooms/corridors created before (not implemented yet)

$dungeonFloor[$x][$y] = 1 ;set everything to 1, walkable floor.

$dungeonExplored[$x][$y] = 0 ;nothing is explored yet

EndIf

for $y = -1 to 1

$dungeonExplored[$charpos[0] + $x][$charpos[1] + $y] = 1 ;the squares next to the character start as explored

EndFunc

Func _SpawnMob($x,$y,$type)

$mobs[0][0] +=1

$dungeonMob[$x][$y] = $mobs[0][0]

$mobs[$mobs[0][0]][0] = $type ;type of the mob == number of the image that gets rendered

$mobs[$mobs[0][0]][1] = Random(1,3,1) ;hp 1-3

$mobs[$mobs[0][0]][2] = $x

$mobs[$mobs[0][0]][3] = $y

$loot1 = Random(1,2,1)

$mobs[$mobs[0][0]][4] = $loot1

$mobs[$mobs[0][0]][5] = ""

EndFunc

Func _KillMob($id)

$mobs[$id][0] = ""

$mobs[$id][1] = 0 ;hp

$dungeonMob[$mobs[$id][2]][$mobs[$id][3]] = ""

$dungeonItems[$mobs[$id][2]][$mobs[$id][3]][0] += 1

$itemnumber = $dungeonItems[$mobs[$id][2]][$mobs[$id][3]][0]

$dungeonItems[$mobs[$id][2]][$mobs[$id][3]][$itemnumber] = $mobs[$id][4]

$mobs[$id][2] = -1

$mobs[$id][3] = -1

EndFunc

Func _HitMob($id)

$mobs[$id][1] -= 1

If $mobs[$id][1] = 0 Then _KillMob($id)

EndFunc

Func _MobMove()

For $mob = 1 to $mobs[0][0]

$direction = Random(1,5,1)

$tempx = $mobs[$mob][2]

$tempy = $mobs[$mob][3]

If $tempx = -1 Then ContinueLoop ;halott szörnyek nem ugrálnak

Switch $direction

Case 1 ;"left"

$left = _getSquareType($mobs[$mob][2] - 1,$mobs[$mob][3])

If $left = -1 Then $direction = 3

If $left = 1 And $floor = 2 Then $direction = 3

If $left = 1 AND $floor = 1 Then $mobs[$mob][2] -= 1

If $left = 1 And $floor = 3 AND 101 > Random(1,100) Then _OpenDoor($mobs[$mob][2] - 1,$mobs[$mob][3])

If $left = 2 And $monster <> $mobs[$mob][0] Then _HitMob($monster)

Case 2; "right"

$right = _getSquareType($mobs[$mob][2] + 1,$mobs[$mob][3])

If $right = -1 Then $direction = 4

If $right = 1 And $floor = 2 Then $direction = 4

If $right = 1 AND $floor = 1 Then $mobs[$mob][2] += 1

If $right = 1 And $floor = 3 AND 101 > Random(1,100) Then _OpenDoor($mobs[$mob][2]+1,$mobs[$mob][3])

If $right = 2 And $monster <> $mobs[$mob][0] Then _HitMob($monster)

Case 3; "up"

$up = _getSquareType($mobs[$mob][2] ,$mobs[$mob][3]- 1)

If $up = -1 Then $direction = 4

If $up = 1 And $floor = 2 Then $direction = 4

If $up = 1 AND $floor = 1 Then $mobs[$mob][3] -= 1

If $up = 1 And $floor = 3 AND 101 > Random(1,100) Then _OpenDoor($mobs[$mob][2],$mobs[$mob][3] - 1)

If $up = 2 And $monster <> $mobs[$mob][0] Then _HitMob($monster)

Case 4; "down"

$down = _getSquareType($mobs[$mob][2],$mobs[$mob][3] + 1)

If $down = -1 Then $direction = 1

If $down = 1 And $floor = 2 Then $direction = 1

If $down = 1 AND $floor = 1 Then $mobs[$mob][3] += 1

If $down = 1 And $floor = 3 AND 101 > Random(1,100) Then _OpenDoor($mobs[$mob][2],$mobs[$mob][3]+1)

If $down = 2 And $monster <> $mobs[$mob][0] Then _HitMob($monster)

EndSwitch

;IF $

$dungeonMob[$tempx][$tempy] = ""

$dungeonMob[$mobs[$mob][2]][$mobs[$mob][3]] = $mob

Func _CreateRoom($startx, $starty, $sizex , $sizey, $fal1 = 0,$fal2 = 0,$fal3 = 0,$fal4 = 0) ;creates a square room. last variable is the side of the room to have its door on

$sizex -= 1 ;room dimensions corretion, so _CreateRoom(10, 10, 4 , 4) is a 4x4 room rather then a 5x5

$sizey -= 1

$x = $startx

for $y=$starty to $sizey + $starty ;top wall