AGK Challenge 1 - GameCreators Forum

Author

Message

ando

4

Years of Service

User Offline

Joined: 21st Feb 2020

Location: Australia

Posted: 3rd Jan 2022 00:47

Link

Well I think the deadline has passed.
Only two in it this time.

Rich get points for the least lines of code.
Arch gets lots of points for the fun level in the Blast Balls game.

I have to give the win to Arch. Very well done. I'll keep going back to that game in future.

So now I have to try to get my Tower Defence game done in time. I won't know if I can until the end of the month.

Cheers guys and I'll leave you with the latest version of my Lady Bugs mini game.
I added six levels of difficulty and made it more complete by adding spacebar to restart instead of having to reboot.

// Project: Lady Bugs by ando - may contain a bug
// Created: 21-12-24

SetErrorMode(2)
//SetVSync(1)

Global width# as Float
Global height# as Float

width# = GetMaxDeviceWidth() // I had to use # to stabilise mouselook over different pc's
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#) // doesn't have to match the window
SetSyncRate(30,0)
SetScissor(0,0,0,0) // use the maximum available screen space
UseNewDefaultFonts(1)
SetPrintSize(height#/25)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(0,0,0)

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  Screenshot setup

screenGrab = CreateRenderImage(GetMaxDeviceWidth(),GetMaxDeviceHeight(),0,1)
filesavetext=createtext("")
settextvisible(filesavetext,0)

// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx map

Global map as integer [19,19]
Global object as integer [19,19]
Global monsterPos as integer [19,19]
Global monster1 as integer
Global player as integer
Global item as integer
Global x,y as integer

restart_here:

AddRow(1 ,"1111111111111111111") // 0 = vacant
AddRow(2 ,"1000000007000000001") // 1 = wall
AddRow(3 ,"1012431011101243101") // 2 = horizontal door left
AddRow(4 ,"1010001000001000101") // 3 = horizontal door right
AddRow(5 ,"1010101124311010101") // 4 = door center
AddRow(6 ,"1050101000001010501") // 5 = virtical door upper
AddRow(7 ,"1040101011101010401") // 6 = virtical door lower
AddRow(8 ,"1060000000000000601") // 7 = player
AddRow(9 ,"1012431010101243101") // 8 = monster
AddRow(10,"1010001010101000101") // 9 = item to collect
AddRow(11,"1010101018101010101")
AddRow(12,"1050101000001010501")
AddRow(13,"1040101010101010401")
AddRow(14,"1060101010101010601")
AddRow(15,"1010101010101010101")
AddRow(16,"1010000010100000101")
AddRow(17,"1011124310124311101")
AddRow(18,"1000000009000000001")
AddRow(19,"1111111111111111111")

Function AddRow(y,data$)
	    for x = 1 to 19
	        tile = VAL(MID(data$,x,1))
	        if tile=0
	            map[x,y]=0
	        endif
	        if tile=1
	            map[x,y]=1
	            object[x,y]=CreateText(chr(127)) //  127  wall
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,255,50,150)
	        endif
	        if tile=2
	            map[x,y]=2
	            object[x,y]=CreateText(chr(60)) //   60  door left
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x+1,y-1]=CreateText(chr(94)) //   94  door upper invisible
	            SetTextSize(object[x+1,y-1],height#/20)
	            SetTextPosition(object[x+1,y-1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+2)-height#/25)
	            SetTextColor(object[x+1,y-1],50,150,255,255)
	            settextvisible(object[x+1,y-1],0)
	            
	            object[x+1,y+1]=CreateText(chr(118)) //   118  door lower invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=3
	            map[x,y]=3
	            object[x,y]=CreateText(chr(62)) //   62  door right
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=4
	            map[x,y]=4
	            object[x,y]=CreateText(chr(847)) //   847  door center
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0085,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],150,200,255,255)
	        endif
	        if tile=5
	            map[x,y]=5
	            object[x,y]=CreateText(chr(94)) //   94  door upper
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x-1,y+1]=CreateText(chr(60)) //   60  door left invisible
	            SetTextSize(object[x-1,y+1],height#/20)
	            SetTextPosition(object[x-1,y+1],(width#/41)*(x+10)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x-1,y+1],50,150,255,255)
	            settextvisible(object[x-1,y+1],0)
	            
	            object[x+1,y+1]=CreateText(chr(62)) //   62  door right invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=6
	            map[x,y]=6
	            object[x,y]=CreateText(chr(118)) //   118  door lower
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=7                         //   PLAYER
                map[x,y]=7
	            object[x,y]=CreateText(chr(79))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41,(height#/25)*(y+3)-height#/25)
                player=object[x,y]
	        endif
	        if tile=8                         //   MONSTER
                map[x,y]=0
                monsterPos[x,y]=1
                monster1=CreateText(chr(88))
                SetTextSize(monster1,height#/20)
                SetTextPosition(monster1,(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(monster1,255,50,50,255)
	        endif
	        if tile=9                         //   item
                map[x,y]=9
	            object[x,y]=CreateText(chr(164))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(object[x,y],255,255,50,255)
                item=object[x,y]
	        endif
	    next x
EndFunction

score=0
restart=0
level=5
monsterdelay=0

pPosX=10
pPosY=2
placeItem=0

monsterDir$="up"
mPosX=10
mPosY=11

// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  MAIN LOOP

do

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  Screenshot Section
	
	if GetRawKeyPressed(80)				// P to screenshot
		SetRenderToImage(screenGrab, -1)
		Print("   LEVEL "+str(6-level))
        Print("   score "+str(score))
		if gettextvisible(filesavetext) then settextvisible(filesavetext,0)
		number = 1
		ClearScreen()
		Render()
checkFiles:
		if GetFileExists("raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
			number = number + 1
			goto checkFiles
		endif
		SaveImage(screenGrab, "raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
		settextstring(filesavetext,"Image saved as Screenshot"+str(number)+".png in "+ GetReadPath()+"screenshots")
		SetTextSize(filesavetext,GetMaxDeviceHeight()*0.0275)
		textTimer = 1
		SetRenderToScreen()
		if not gettextvisible(filesavetext) then settextvisible(filesavetext,1)
	endif
	
	If textTimer > 0 Then textTimer = textTimer + 1
	If textTimer > 299
		settextvisible(filesavetext,0)
		textTimer = 0
	EndIf

//  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  end screenshot code

if gameover=0
        
        if score = 100
            level=4
        elseif score = 200
            level=3
        elseif score = 300
            level=2
        elseif score = 400
            level=1
        elseif score > 495
            level=0
        endif
        
        // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  monster X
        
	    if monsterdelay<level
	        if level<6 then monsterdelay=monsterdelay+1
	    endif
	    
	    if level=monsterdelay
		    if monsterDir$="up"
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY-1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY-1]=1
		            mPosY=mPosY-1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)-height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="down"
		        if map[mPosX,mPosY+1]=0 or map[mPosX,mPosY+1]=7 or map[mPosX,mPosY+1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY+1]=1
		            mPosY=mPosY+1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)+height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="left"
		        if map[mPosX-1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX-1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX-1,mPosY]=1
		            mPosX=mPosX-1
		            SetTextPosition(monster1,GetTextX(monster1)-width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="right"
		        if map[mPosX+1,mPosY]=0 or map[mPosX+1,mPosY]=7 or map[mPosX+1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX+1,mPosY]=1
		            mPosX=mPosX+1
		            SetTextPosition(monster1,GetTextX(monster1)+width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="left"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="right"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx item
	    
	    if placeItem=1
	        pickX=random(2,18)
	        pickY=random(2,18)
	        if map[pickX,pickY]=0
	            if map[pickX+1,pickY]<>4 and map[pickX-1,pickY]<>4 and map[pickX,pickY+1]<>4 and map[pickX,pickY-1]<>4
		            map[pickX,pickY]=9
		            SetTextPosition(item,(width#/41)*(pickX+11)-width#/41+width#*0.0022,(height#/25)*(pickY+3)-height#/25)
		            placeItem=0
		            settextvisible(item,1)
	            endif
	        endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx player
	    
	    if playerdelay < 4
	        playerdelay=playerdelay+1
	    endif
	    
	    if playerdelay=4
		    if GetRawKeyState(38)     //  up
		        if map[pPosX,pPosY-1]=0
		            map[pPosX,pPosY-1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY-1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)-height#/25)
		        elseif map[pPosX,pPosY-1]=2   //  left door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX+2,pPosY-1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX+2,pPosY-1]=0
		            map[pPosX+1,pPosY]=6
		            map[pPosX+1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=3    // right door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX-2,pPosY-1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX-2,pPosY-1]=0
		            map[pPosX-1,pPosY]=6
		            map[pPosX-1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=9    // item
		            map[pPosX,pPosY-1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(40) //  down
		        if map[pPosX,pPosY+1]=0
		            map[pPosX,pPosY+1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY+1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)+height#/25)
	            elseif map[pPosX,pPosY+1]=2   //  left door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX+2,pPosY+1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX+2,pPosY+1]=0
		            map[pPosX+1,pPosY]=5
		            map[pPosX+1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=3    // right door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX-2,pPosY+1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX-2,pPosY+1]=0
		            map[pPosX-1,pPosY]=5
		            map[pPosX-1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=9    // item
		            map[pPosX,pPosY+1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(37)       //  left
		        if map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX-1
		            SetTextPosition(player,GetTextX(player)-width#/41,GetTextY(player))
		        elseif map[pPosX-1,pPosY]=5         //  upper door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX-2,pPosY+1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY+2]=0
		            map[pPosX-2,pPosY+1]=2
		            map[pPosX,pPosY+1]=3
		        elseif map[pPosX-1,pPosY]=6         // lower door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY-2],0)
		            settextvisible(object[pPosX-2,pPosY-1],1)
		            settextvisible(object[pPosX,pPosY-1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY-2]=0
		            map[pPosX-2,pPosY-1]=2
		            map[pPosX,pPosY-1]=3
		        elseif map[pPosX-1,pPosY]=9    // item
		            map[pPosX-1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(39)  //  right
		        if map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX+1
		            SetTextPosition(player,GetTextX(player)+width#/41,GetTextY(player))
		        elseif map[pPosX+1,pPosY]=5   //  upper door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX+2,pPosY+1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY+2]=0
		            map[pPosX,pPosY+1]=2
		            map[pPosX+2,pPosY+1]=3
		        elseif map[pPosX+1,pPosY]=6    // lower door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY-2],0)
		            settextvisible(object[pPosX,pPosY-1],1)
		            settextvisible(object[pPosX+2,pPosY-1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY-2]=0
		            map[pPosX,pPosY-1]=2
		            map[pPosX+2,pPosY-1]=3
		        elseif map[pPosX+1,pPosY]=9    // item
		            map[pPosX+1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    endif
	    endif
    endif
    
    if pPosX=mPosX
        if pPosY=mPosY
            gameover=1
        endif
    endif
    
    Print("   LEVEL "+str(6-level))
    Print("   score "+str(score))
    
    if gameover=1
        if restart=0
            if GetRawKeyPressed(32) then restart=1  //  space
            Print(" HIT SPACE TO RESTART ")
        endif
        if restart=1
            gameover=0
            restart=0
            DeleteText(monster1)
            if gettextvisible(filesavetext) then settextvisible(filesavetext,0)
            for x=1 to 19
                for y=1 to 19
                    DeleteText(map[x,y])
                    if not object[x,y]=0 then DeleteText(object[x,y])
                next y
            next x
            goto restart_here
        endif
    endif
    
    Sync()
    if GetrawKeyPressed(27) then end
loop

+ Code Snippet

// Project: Lady Bugs by ando - may contain a bug
// Created: 21-12-24

SetErrorMode(2)
//SetVSync(1)

Global width# as Float
Global height# as Float

width# = GetMaxDeviceWidth() // I had to use # to stabilise mouselook over different pc's
height# = GetMaxDeviceHeight()
SetWindowSize(width#,height#,1)
SetVirtualResolution(width#,height#) // doesn't have to match the window
SetSyncRate(30,0)
SetScissor(0,0,0,0) // use the maximum available screen space
UseNewDefaultFonts(1)
SetPrintSize(height#/25)
SetSkyboxVisible(1)
SetSkyBoxHorizonColor(0,0,0)

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  Screenshot setup

screenGrab = CreateRenderImage(GetMaxDeviceWidth(),GetMaxDeviceHeight(),0,1)
filesavetext=createtext("")
settextvisible(filesavetext,0)

// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx map

Global map as integer [19,19]
Global object as integer [19,19]
Global monsterPos as integer [19,19]
Global monster1 as integer
Global player as integer
Global item as integer
Global x,y as integer

restart_here:

AddRow(1 ,"1111111111111111111") // 0 = vacant
AddRow(2 ,"1000000007000000001") // 1 = wall
AddRow(3 ,"1012431011101243101") // 2 = horizontal door left
AddRow(4 ,"1010001000001000101") // 3 = horizontal door right
AddRow(5 ,"1010101124311010101") // 4 = door center
AddRow(6 ,"1050101000001010501") // 5 = virtical door upper
AddRow(7 ,"1040101011101010401") // 6 = virtical door lower
AddRow(8 ,"1060000000000000601") // 7 = player
AddRow(9 ,"1012431010101243101") // 8 = monster
AddRow(10,"1010001010101000101") // 9 = item to collect
AddRow(11,"1010101018101010101")
AddRow(12,"1050101000001010501")
AddRow(13,"1040101010101010401")
AddRow(14,"1060101010101010601")
AddRow(15,"1010101010101010101")
AddRow(16,"1010000010100000101")
AddRow(17,"1011124310124311101")
AddRow(18,"1000000009000000001")
AddRow(19,"1111111111111111111")

Function AddRow(y,data$)
	    for x = 1 to 19
	        tile = VAL(MID(data$,x,1))
	        if tile=0
	            map[x,y]=0
	        endif
	        if tile=1
	            map[x,y]=1
	            object[x,y]=CreateText(chr(127)) //  127  wall
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,255,50,150)
	        endif
	        if tile=2
	            map[x,y]=2
	            object[x,y]=CreateText(chr(60)) //   60  door left
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x+1,y-1]=CreateText(chr(94)) //   94  door upper invisible
	            SetTextSize(object[x+1,y-1],height#/20)
	            SetTextPosition(object[x+1,y-1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+2)-height#/25)
	            SetTextColor(object[x+1,y-1],50,150,255,255)
	            settextvisible(object[x+1,y-1],0)
	            
	            object[x+1,y+1]=CreateText(chr(118)) //   118  door lower invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=3
	            map[x,y]=3
	            object[x,y]=CreateText(chr(62)) //   62  door right
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=4
	            map[x,y]=4
	            object[x,y]=CreateText(chr(847)) //   847  door center
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0085,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],150,200,255,255)
	        endif
	        if tile=5
	            map[x,y]=5
	            object[x,y]=CreateText(chr(94)) //   94  door upper
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	            
	            object[x-1,y+1]=CreateText(chr(60)) //   60  door left invisible
	            SetTextSize(object[x-1,y+1],height#/20)
	            SetTextPosition(object[x-1,y+1],(width#/41)*(x+10)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x-1,y+1],50,150,255,255)
	            settextvisible(object[x-1,y+1],0)
	            
	            object[x+1,y+1]=CreateText(chr(62)) //   62  door right invisible
	            SetTextSize(object[x+1,y+1],height#/20)
	            SetTextPosition(object[x+1,y+1],(width#/41)*(x+12)-width#/41+width#*0.0022,(height#/25)*(y+4)-height#/25)
	            SetTextColor(object[x+1,y+1],50,150,255,255)
	            settextvisible(object[x+1,y+1],0)
	        endif
	        if tile=6
	            map[x,y]=6
	            object[x,y]=CreateText(chr(118)) //   118  door lower
	            SetTextSize(object[x,y],height#/20)
	            SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
	            SetTextColor(object[x,y],50,150,255,255)
	        endif
	        if tile=7                         //   PLAYER
                map[x,y]=7
	            object[x,y]=CreateText(chr(79))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41,(height#/25)*(y+3)-height#/25)
                player=object[x,y]
	        endif
	        if tile=8                         //   MONSTER
                map[x,y]=0
                monsterPos[x,y]=1
                monster1=CreateText(chr(88))
                SetTextSize(monster1,height#/20)
                SetTextPosition(monster1,(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(monster1,255,50,50,255)
	        endif
	        if tile=9                         //   item
                map[x,y]=9
	            object[x,y]=CreateText(chr(164))
                SetTextSize(object[x,y],height#/20)
                SetTextPosition(object[x,y],(width#/41)*(x+11)-width#/41+width#*0.0022,(height#/25)*(y+3)-height#/25)
                SetTextColor(object[x,y],255,255,50,255)
                item=object[x,y]
	        endif
	    next x
EndFunction

score=0
restart=0
level=5
monsterdelay=0

pPosX=10
pPosY=2
placeItem=0

monsterDir$="up"
mPosX=10
mPosY=11


// XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  MAIN LOOP

do

//  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  Screenshot Section
	
	if GetRawKeyPressed(80)				// P to screenshot
		SetRenderToImage(screenGrab, -1)
		Print("   LEVEL "+str(6-level))
        Print("   score "+str(score))
		if gettextvisible(filesavetext) then settextvisible(filesavetext,0)
		number = 1
		ClearScreen()
		Render()
checkFiles:
		if GetFileExists("raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
			number = number + 1
			goto checkFiles
		endif
		SaveImage(screenGrab, "raw:"+GetReadPath()+"screenshots/Screenshot"+str(number)+".png")
		settextstring(filesavetext,"Image saved as Screenshot"+str(number)+".png in "+ GetReadPath()+"screenshots")
		SetTextSize(filesavetext,GetMaxDeviceHeight()*0.0275)
		textTimer = 1
		SetRenderToScreen()
		if not gettextvisible(filesavetext) then settextvisible(filesavetext,1)
	endif
	
	If textTimer > 0 Then textTimer = textTimer + 1
	If textTimer > 299
		settextvisible(filesavetext,0)
		textTimer = 0
	EndIf

//  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  end screenshot code

    if gameover=0
        
        if score = 100
            level=4
        elseif score = 200
            level=3
        elseif score = 300
            level=2
        elseif score = 400
            level=1
        elseif score > 495
            level=0
        endif
        
        // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  monster X
        
	    if monsterdelay<level
	        if level<6 then monsterdelay=monsterdelay+1
	    endif
	    
	    if level=monsterdelay
		    if monsterDir$="up"
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY-1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY-1]=1
		            mPosY=mPosY-1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)-height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="down"
		        if map[mPosX,mPosY+1]=0 or map[mPosX,mPosY+1]=7 or map[mPosX,mPosY+1]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX,mPosY+1]=1
		            mPosY=mPosY+1
		            SetTextPosition(monster1,GetTextX(monster1),GetTextY(monster1)+height#/25)
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX-1,mPosY]=0 or map[mPosX+1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX+1,mPosY]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="down"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="left"
		        if map[mPosX-1,mPosY]=0 or map[mPosX-1,mPosY]=7 or map[mPosX-1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX-1,mPosY]=1
		            mPosX=mPosX-1
		            SetTextPosition(monster1,GetTextX(monster1)-width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="right"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="left"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
		    
		    if monsterDir$="right"
		        if map[mPosX+1,mPosY]=0 or map[mPosX+1,mPosY]=7 or map[mPosX+1,mPosY]=9
		            monsterPos[mPosX,mPosY]=0
		            monsterPos[mPosX+1,mPosY]=1
		            mPosX=mPosX+1
		            SetTextPosition(monster1,GetTextX(monster1)+width#/41,GetTextY(monster1))
			    else
			        mpick=random(1,3)
			        if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="down"
			        endif
			        if mpick=3
			            monsterDir$="left"
			        endif
		        endif
		        monsterdelay=0
		        if map[mPosX,mPosY-1]=0 or map[mPosX,mPosY+1]=0 or map[mPosX,mPosY-1]=7 or map[mPosX,mPosY+1]=7
		            mpick=random(1,5)
		            if mpick=1
			            monsterDir$="up"
			        endif
			        if mpick=2
			            monsterDir$="right"
			        endif
			        if mpick=3
			            monsterDir$="down"
			        endif
		        endif
		    endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx item
	    
	    if placeItem=1
	        pickX=random(2,18)
	        pickY=random(2,18)
	        if map[pickX,pickY]=0
	            if map[pickX+1,pickY]<>4 and map[pickX-1,pickY]<>4 and map[pickX,pickY+1]<>4 and map[pickX,pickY-1]<>4
		            map[pickX,pickY]=9
		            SetTextPosition(item,(width#/41)*(pickX+11)-width#/41+width#*0.0022,(height#/25)*(pickY+3)-height#/25)
		            placeItem=0
		            settextvisible(item,1)
	            endif
	        endif
	    endif
	    
	    // xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx player
	    
	    if playerdelay < 4
	        playerdelay=playerdelay+1
	    endif
	    
	    if playerdelay=4
		    if GetRawKeyState(38)     //  up
		        if map[pPosX,pPosY-1]=0
		            map[pPosX,pPosY-1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY-1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)-height#/25)
		        elseif map[pPosX,pPosY-1]=2   //  left door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX+2,pPosY-1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX+2,pPosY-1]=0
		            map[pPosX+1,pPosY]=6
		            map[pPosX+1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=3    // right door
		            settextvisible(object[pPosX,pPosY-1],0)
		            settextvisible(object[pPosX-2,pPosY-1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY-2],1)
		            map[pPosX,pPosY-1]=0
		            map[pPosX-2,pPosY-1]=0
		            map[pPosX-1,pPosY]=6
		            map[pPosX-1,pPosY-2]=5
		        elseif map[pPosX,pPosY-1]=9    // item
		            map[pPosX,pPosY-1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(40) //  down
		        if map[pPosX,pPosY+1]=0
		            map[pPosX,pPosY+1]=7
		            map[pPosX,pPosY]=0
		            pPosY=pPosY+1
		            SetTextPosition(player,GetTextX(player),GetTextY(player)+height#/25)
	            elseif map[pPosX,pPosY+1]=2   //  left door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX+2,pPosY+1],0)
		            settextvisible(object[pPosX+1,pPosY],1)
		            settextvisible(object[pPosX+1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX+2,pPosY+1]=0
		            map[pPosX+1,pPosY]=5
		            map[pPosX+1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=3    // right door
		            settextvisible(object[pPosX,pPosY+1],0)
		            settextvisible(object[pPosX-2,pPosY+1],0)
		            settextvisible(object[pPosX-1,pPosY],1)
		            settextvisible(object[pPosX-1,pPosY+2],1)
		            map[pPosX,pPosY+1]=0
		            map[pPosX-2,pPosY+1]=0
		            map[pPosX-1,pPosY]=5
		            map[pPosX-1,pPosY+2]=6
		        elseif map[pPosX,pPosY+1]=9    // item
		            map[pPosX,pPosY+1]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(37)       //  left
		        if map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX-1
		            SetTextPosition(player,GetTextX(player)-width#/41,GetTextY(player))
		        elseif map[pPosX-1,pPosY]=5         //  upper door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX-2,pPosY+1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY+2]=0
		            map[pPosX-2,pPosY+1]=2
		            map[pPosX,pPosY+1]=3
		        elseif map[pPosX-1,pPosY]=6         // lower door
		            settextvisible(object[pPosX-1,pPosY],0)
		            settextvisible(object[pPosX-1,pPosY-2],0)
		            settextvisible(object[pPosX-2,pPosY-1],1)
		            settextvisible(object[pPosX,pPosY-1],1)
		            map[pPosX-1,pPosY]=0
		            map[pPosX-1,pPosY-2]=0
		            map[pPosX-2,pPosY-1]=2
		            map[pPosX,pPosY-1]=3
		        elseif map[pPosX-1,pPosY]=9    // item
		            map[pPosX-1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    elseif GetRawKeyState(39)  //  right
		        if map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY]=7
		            map[pPosX,pPosY]=0
		            pPosX=pPosX+1
		            SetTextPosition(player,GetTextX(player)+width#/41,GetTextY(player))
		        elseif map[pPosX+1,pPosY]=5   //  upper door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY+2],0)
		            settextvisible(object[pPosX,pPosY+1],1)
		            settextvisible(object[pPosX+2,pPosY+1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY+2]=0
		            map[pPosX,pPosY+1]=2
		            map[pPosX+2,pPosY+1]=3
		        elseif map[pPosX+1,pPosY]=6    // lower door
		            settextvisible(object[pPosX+1,pPosY],0)
		            settextvisible(object[pPosX+1,pPosY-2],0)
		            settextvisible(object[pPosX,pPosY-1],1)
		            settextvisible(object[pPosX+2,pPosY-1],1)
		            map[pPosX+1,pPosY]=0
		            map[pPosX+1,pPosY-2]=0
		            map[pPosX,pPosY-1]=2
		            map[pPosX+2,pPosY-1]=3
		        elseif map[pPosX+1,pPosY]=9    // item
		            map[pPosX+1,pPosY]=0
		            settextvisible(item,0)
		            placeItem=1
		            score=score+10
		        endif
		        playerdelay=0
		    endif
	    endif
    endif
    
    if pPosX=mPosX
        if pPosY=mPosY
            gameover=1
        endif
    endif
    
    Print("   LEVEL "+str(6-level))
    Print("   score "+str(score))
    
    if gameover=1
        if restart=0
            if GetRawKeyPressed(32) then restart=1  //  space
            Print(" HIT SPACE TO RESTART ")
        endif
        if restart=1
            gameover=0
            restart=0
            DeleteText(monster1)
            if gettextvisible(filesavetext) then settextvisible(filesavetext,0)
            for x=1 to 19
                for y=1 to 19
                    DeleteText(map[x,y])
                    if not object[x,y]=0 then DeleteText(object[x,y])
                next y
            next x
            goto restart_here
        endif
    endif
    
    Sync()
    if GetrawKeyPressed(27) then end
loop

BASIC appeared in May 1964. Lightning flashed, the wind roared and the Earth moved.
And nine months later I was born.
So here I am.
I am Basic.
Code is in my genes.

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 3rd Jan 2022 01:13 Edited at: 3rd Jan 2022 10:29

Link

congrats, Arch! yours definitely had "the most fun" inside.

i couldn't get in on it this time around but, depending on how soon the next is announced (hint, hint), i hope to submit something for the next challenge.

meanwhile, i plan on adding graphics to Fly Hard and fleshing it out a bit then posting on itch.io someday soon since "1/2 the work" is already done. i hope the rest of you consider doing the same with your creations

add: i know phaelax set the rules according to the old DBPro challenges to include "no external media" but one thing i always wanted to see were challenges set with minimal media provided.

ie, judge provides a set of blocks numbered 0-9 that participants need to use to make a game. or, a simple set of chess pieces with "make something other than chess" out of them. you get the idea. some home-made sound effects, music, whatever could go a long way, as well.

as long as we're all using the same stuff, it's all "fair" in a friendly competition and may open windows to creative winds

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub

Attachments

Login to view attachments

Back to top

Profile PM Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 3rd Jan 2022 10:36

Link

Quote: "some home-made sound effects, music, whatever could go a long way, as well."

I second that.
I think it would be a lot of fun to see what different ideas people come up with while all using the same media.

Back to top

Profile PM Email

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 3rd Jan 2022 21:17 Edited at: 4th Jan 2022 06:24

Link

Hey, thank you guys, sorry being late.
This event triggered all of us to create something, that's awesome. I am also developing my ball popping game like those others on the net. If I ever finish it I'll announce it here and release it.

Well, for the next quest, let's create a random 3d city generator with agk with Phaelax's rules, end day willl be sunday, 16th of january. No textures needed, just the geometry will be judged.

Here is my very old city generator;

Edit: Let's longen the end day for a week and set it to 16th January, because everyone is developing their previous entries which is so great.

Attachments

Login to view attachments

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 3rd Jan 2022 22:48

Link

Quote: "I am also developing my ball popping game
+
create a random 3d city generator"

deal!

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub

Back to top

Profile PM Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 5th Jan 2022 22:20 Edited at: 5th Jan 2022 22:21

Link

@ Virtual Nomad . Nice update to fly hard . Next Friday I am going to have surgery on my arm and I will not be able to participate in this last challenge . in the meantime I've been fiddling with the code and this is my first attempt at random city .

// Project: ramdom City 
// Created: 2022-01-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ramdom City" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
setcameraposition(1,-100,200,-200)
SetCameraLookAt(1,0,0,0,0)

`building texture
w=makecolor(100,100,100)
b=makecolor(20,20,20)
drawbox(0,0,100,100,w,w,w,w,1)
drawbox(10,10,30,30,b,b,b,b,1)
drawbox(40,10,60,30,b,b,b,b,1)
drawbox(70,10,90,30,b,b,b,b,1)

`benguismo trick to correct UV scale
SetDefaultWrapU(1)
SetDefaultWrapV(1)
getimage(1,0,0,100,50)

`ramdom city
create()

`main floor
createobjectbox(5000,1200,2,2000)
setobjectposition(5000,500,0,800)
setobjectcolor(5000,100,100,100,255)

`mouse position at start
SetRawMousePosition(-100,768/2)

`sky	
createobjectsphere(5200,5000,10,10)
SetObjectColorEmissive(5200,0,0,50)
SetObjectCullMode(5200,0)
SetCameraRange(1,1,10000)

`-------------------------------------------------------------------------------------------
`shadows setting
shadowMode = 3 // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 2) // random sampling
SetShadowMapSize( 2048, 2048 )
SetShadowRange( -1 ) // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
`--------------------------------------------------------------------------------------------
`Sun setting
dx# = 0.3714
dy# = -0.7428
dz# = 0.5571
SetSunDirection( dx#, dy#, dz# )

do
    
if ( GetRawKeyState( 27) ) then  end    
if ( GetRawKeyState( 32) )
  create()
  sleep(200)
endif

turn=getpointery()
	 if turn<330 then turn=330
	 if turn>420 then turn=420
	 if turn<331 then SetRawMousePosition( getpointerx(), turn ) 
	 if turn>421 then SetRawMousePosition( getpointerx(), turn ) 
	 if getpointerx()<100 then SetRawMousePosition(460,getpointery()) `si estamos a menos de 100 lo coloca 460    (800-460=340)
	 if getpointerx()>700 then SetRawMousePosition(340,getpointery())  `si estamos a mas de 700 lo coloca en 340  (800-340 =460)
	 movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	 movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	 setcamerarotation(1,turn,getpointerx(),0)

print ("Fly with cursor and mouse")
    Print( "Press Spacebar for new city" )
    
    Sync()
loop

function create()
	kk=0
	for i= 1 to 2000
		if GetObjectExists(i) then deleteobject(i)
	next
	for i= 1 to 1000
		if random(1,30)=1 then t=random(1,200) else t=0     `adding extra big building
		createobjectbox(i,15+random(1,40),10+random(1,80)+t,20+random(1,10))
		setobjectcolor(i,125+random(0,55),125+random(0,55),125+random(0,55),255)
		setobjectimage(i,1,1)
		SetObjectUVScale(i,0,GetObjectSizeMaxx(i)/8,GetObjectSizeMaxY(i)/6)
		SetObjectCastShadow( i, 1 )
	next
	a=GetObjectSizeMaxX(1)

for i= 2 to 1000
	  setobjectposition(i,getobjectx(i-1)+GetObjectSizeMaxX(i-1)+GetObjectSizeMaxX(i),0,kk)
	  if getobjectx(i)>1000 
		  setobjectposition(i,GetObjectSizeMaxX(i)-GetObjectSizeMaxX(1),0,50+kk)
		  kk=kk+50
	  endif
	next

for i= 1 to 1000
		MoveObjectLocalY(i,GetObjectSizeMaxY(i))
		MoveObjectLocalz(i,GetObjectSizeMaxz(i))
	next
	
	`ceiling
	for i= 1001 to 2000
	  CreateObjectBox(i,GetObjectSizeMaxX(i-1000)*2,2,GetObjectSizeMaxz(i-1000)*2)
	  setobjectposition(i,getobjectx(i-1000),1+GetObjectSizeMaxY(i-1000)*2,getobjectz(i-1000))
	  r=getobjectcolorred(i-1000)/2
	  g=getobjectcolorgreen(i-1000)/2
	  b=getobjectcolorblue(i-1000)/2
	  SetObjectColor(i,r,g,b,255)
	next
	
endfunction

+ Code Snippet

// Project: ramdom City 
// Created: 2022-01-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "ramdom City" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
setcameraposition(1,-100,200,-200)
SetCameraLookAt(1,0,0,0,0)

`building texture
w=makecolor(100,100,100)
b=makecolor(20,20,20)
drawbox(0,0,100,100,w,w,w,w,1)
drawbox(10,10,30,30,b,b,b,b,1)
drawbox(40,10,60,30,b,b,b,b,1)
drawbox(70,10,90,30,b,b,b,b,1)

`benguismo trick to correct UV scale
SetDefaultWrapU(1)
SetDefaultWrapV(1)
getimage(1,0,0,100,50)

`ramdom city
create()

`main floor
createobjectbox(5000,1200,2,2000)
setobjectposition(5000,500,0,800)
setobjectcolor(5000,100,100,100,255)

`mouse position at start
SetRawMousePosition(-100,768/2)

`sky	
createobjectsphere(5200,5000,10,10)
SetObjectColorEmissive(5200,0,0,50)
SetObjectCullMode(5200,0)
SetCameraRange(1,1,10000)

`-------------------------------------------------------------------------------------------
`shadows setting
shadowMode = 3 // start with cascade shadow mapping which gives the best quality
SetShadowMappingMode( shadowMode )
SetShadowSmoothing( 2) // random sampling
SetShadowMapSize( 2048, 2048 )
SetShadowRange( -1 ) // use the full camera range
SetShadowBias( 0.0012 ) // offset shadows slightly to avoid shadow artifacts
`--------------------------------------------------------------------------------------------
`Sun setting
dx# = 0.3714
dy# = -0.7428
dz# = 0.5571
SetSunDirection( dx#, dy#, dz# )

do
    
if ( GetRawKeyState( 27) ) then  end    
if ( GetRawKeyState( 32) )
  create()
  sleep(200)
endif

	 turn=getpointery()
	 if turn<330 then turn=330
	 if turn>420 then turn=420
	 if turn<331 then SetRawMousePosition( getpointerx(), turn ) 
	 if turn>421 then SetRawMousePosition( getpointerx(), turn ) 
	 if getpointerx()<100 then SetRawMousePosition(460,getpointery()) `si estamos a menos de 100 lo coloca 460    (800-460=340)
	 if getpointerx()>700 then SetRawMousePosition(340,getpointery())  `si estamos a mas de 700 lo coloca en 340  (800-340 =460)
	 movecameralocalz(1,(GetRawKeyState( 38 )*5)-GetRawKeyState( 40 )*5)
	 movecameralocalx(1,(GetRawKeyState( 39 )*5)-GetRawKeyState( 37 )*5)
	 setcamerarotation(1,turn,getpointerx(),0)

    print ("Fly with cursor and mouse")
    Print( "Press Spacebar for new city" )
    
    Sync()
loop

function create()
	kk=0
	for i= 1 to 2000
		if GetObjectExists(i) then deleteobject(i)
	next
	for i= 1 to 1000
		if random(1,30)=1 then t=random(1,200) else t=0     `adding extra big building
		createobjectbox(i,15+random(1,40),10+random(1,80)+t,20+random(1,10))
		setobjectcolor(i,125+random(0,55),125+random(0,55),125+random(0,55),255)
		setobjectimage(i,1,1)
		SetObjectUVScale(i,0,GetObjectSizeMaxx(i)/8,GetObjectSizeMaxY(i)/6)
		SetObjectCastShadow( i, 1 )
	next
	a=GetObjectSizeMaxX(1)

	for i= 2 to 1000
	  setobjectposition(i,getobjectx(i-1)+GetObjectSizeMaxX(i-1)+GetObjectSizeMaxX(i),0,kk)
	  if getobjectx(i)>1000 
		  setobjectposition(i,GetObjectSizeMaxX(i)-GetObjectSizeMaxX(1),0,50+kk)
		  kk=kk+50
	  endif
	next

	for i= 1 to 1000
		MoveObjectLocalY(i,GetObjectSizeMaxY(i))
		MoveObjectLocalz(i,GetObjectSizeMaxz(i))
	next
	
	`ceiling
	for i= 1001 to 2000
	  CreateObjectBox(i,GetObjectSizeMaxX(i-1000)*2,2,GetObjectSizeMaxz(i-1000)*2)
	  setobjectposition(i,getobjectx(i-1000),1+GetObjectSizeMaxY(i-1000)*2,getobjectz(i-1000))
	  r=getobjectcolorred(i-1000)/2
	  g=getobjectcolorgreen(i-1000)/2
	  b=getobjectcolorblue(i-1000)/2
	  SetObjectColor(i,r,g,b,255)
	next
	
endfunction

I'm not a grumpy grandpa

Attachments

Login to view attachments

Back to top

Profile PM Email

Bored of the Rings

User Banned

Posted: 6th Jan 2022 11:36

Link

@:Rich Dersheimer-nice one, reminds me of an early game I typed in at the age of 12 from popular weekly magazie (which I still have in the loft), think it was called arrow man or something like that.

Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others

Back to top

Profile

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 17th Jan 2022 05:45

Link

@chafari thanks for participating. It gives the feel that you are in a city, nice job dude. I'm still busy with my 'ball blast' game, so I couldn't write a code this time.

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 17th Jan 2022 07:40

Link

Thanks mate. If anyone would like to continue this thread feel free to set a new challenge.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 17th Jan 2022 22:52

Link

nice city gen, chaf

sorry i didn't put anything together for the challenge. i had an idea that proved to be more time-consuming than anticipated...

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 18th Jan 2022 09:16

Link

@Virtual Nomad thanks . No problem ...I can barely move my right arm and I can't write with one hand.. that's why I say if someone wants to set a new challenge.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 18th Jan 2022 14:58

Link

feel better soon, chaf. i don't see working on a challenge for 2-3 weeks myself.

if anyone wants to announce a challenge, please do. if i don't see one when i have more time, i'll post one.

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 22nd Jan 2022 13:45 Edited at: 22nd Jan 2022 13:51

Link

ok, so i'm looking forward to the winter games and thought i'd share it.

Challenge: Winter Games

Deadline: 23:59 UTC on Sunday JAN 30TH (i'll already be in Judge mode, so...

)

Details: Create a game consisting of winter Olympic™ events, real or fictional!

Rules:

No external media

the long-week challenge should allow plenty of time to flesh out the "Olympic experience" some which is something i'll consider when judging

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 22nd Jan 2022 13:51 Edited at: 22nd Jan 2022 13:52

Link

Ah someone beat me to it! We can save this for a future challenge. Winter games it is!

I have an idea for a short challenge, but a good puzzle that could show up in an interview for a coding job.

Given a string, return true if any containing brackets match up. That means an opening bracket must be followed somewhere by a closing bracket.
Good examples:
(apple)
ap(p)le
apple()

Wrong examples:
apple)
apple)(

For those with a bit of experience, this will likely be a very simple challenge. So to test how efficient of a solution you can create, you must check for the following bracket types:
()
{}
[]
<>

I've left out quotations on purpose since in AppGameKit you can't just simple use \" to escape them in strings.

Valid test input:
<How ((big) is [the] dog)?>

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 22nd Jan 2022 14:18

Link

ha! some strange celestial something must have passed and inspired us at nearly the same time

let's do this:

the first idea to get 2 commitments voiced here is the challenge. deal?

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 22nd Jan 2022 14:34

Link

lol works for me

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Arch-Ok

AGK Developer

5

Years of Service

User Offline

Joined: 11th Jul 2019

Location: Bursa/TÜRKIYE

Posted: 22nd Jan 2022 19:05

Link

Hi, nice to continue this challenge.

enjoy

// Project: brackets 
// Created: 2022-01-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "brackets" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Local E As String
Do
    Print(_BRACKETS_CLOSED_("xor ebx, [ebp + 16)"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "My name is govanni george, but everybody calls me arçok"))
    Print(_BRACKETS_CLOSED_("{457FEE0"))
    Print(_BRACKETS_CLOSED_("<html"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "<html>{([])}"))
    Print("")
    Print(_BRACKETS_CLOSED_("xor ebx, [ebp + 16]"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "My name is govanni george, but everybody calls me arçok" + Chr(34)))
    Print(_BRACKETS_CLOSED_("{457FEE0}"))
    Print(_BRACKETS_CLOSED_("<html></html>"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "<html>{([])}" + Chr(34)))
    
    Sync()
Loop

Function _BRACKETS_CLOSED_(_S_ As String)
	Local CheckCount As Integer, BracketList As Integer[16, 2]
	Local Char As Integer, StringLen As Integer, Index As Integer
	Local Control As Integer, BracketScore As Integer[16]
	//This could be filled out of here and made to be a global var
	CheckCount = 0
	BracketList[CheckCount, 0] = Asc("(") :BracketList[CheckCount, 1] = Asc(")") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("[") :BracketList[CheckCount, 1] = Asc("]") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("{") :BracketList[CheckCount, 1] = Asc("}") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("<") :BracketList[CheckCount, 1] = Asc(">") :CheckCount = CheckCount + 1
	
	//make sure chr(34) is at the end, because it has a special case
	//where open and close chars are the same
	BracketList[CheckCount, 0] = 34 :BracketList[CheckCount, 1] = 34 :CheckCount = CheckCount + 1
	
	
	For Index = 0 To 15
		BracketScore[Index] = 0
	Next
	
	StringLen = Len(_S_)
	For Index = 1 To StringLen
		Char = Asc(Mid(_S_, Index, 1))
		
		For Control = 0 To CheckCount - 2
			If Char = BracketList[Control, 0]
				BracketScore[Control] = BracketScore[Control] + 1
				Exit
			EndIf
			If Char = BracketList[Control, 1]
				BracketScore[Control] = BracketScore[Control] - 1
				Exit
			EndIf
		Next
		If Char = BracketList[CheckCount - 1, 0]
			BracketScore[CheckCount - 1] = (BracketScore[CheckCount - 1] + 1) && 1
		EndIf
		
	Next
	For Index = 0 To 15
		If BracketScore[Index] Then ExitFunction 0
	Next

EndFunction 1

+ Code Snippet


// Project: brackets 
// Created: 2022-01-22

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "brackets" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Local E As String
Do
    Print(_BRACKETS_CLOSED_("xor ebx, [ebp + 16)"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "My name is govanni george, but everybody calls me arçok"))
    Print(_BRACKETS_CLOSED_("{457FEE0"))
    Print(_BRACKETS_CLOSED_("<html"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "<html>{([])}"))
    Print("")
    Print(_BRACKETS_CLOSED_("xor ebx, [ebp + 16]"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "My name is govanni george, but everybody calls me arçok" + Chr(34)))
    Print(_BRACKETS_CLOSED_("{457FEE0}"))
    Print(_BRACKETS_CLOSED_("<html></html>"))
    Print(_BRACKETS_CLOSED_(Chr(34) + "<html>{([])}" + Chr(34)))
    
    Sync()
Loop



Function _BRACKETS_CLOSED_(_S_ As String)
	Local CheckCount As Integer, BracketList As Integer[16, 2]
	Local Char As Integer, StringLen As Integer, Index As Integer
	Local Control As Integer, BracketScore As Integer[16]
	//This could be filled out of here and made to be a global var
	CheckCount = 0
	BracketList[CheckCount, 0] = Asc("(") :BracketList[CheckCount, 1] = Asc(")") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("[") :BracketList[CheckCount, 1] = Asc("]") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("{") :BracketList[CheckCount, 1] = Asc("}") :CheckCount = CheckCount + 1
	BracketList[CheckCount, 0] = Asc("<") :BracketList[CheckCount, 1] = Asc(">") :CheckCount = CheckCount + 1
	
	//make sure chr(34) is at the end, because it has a special case
	//where open and close chars are the same
	BracketList[CheckCount, 0] = 34 :BracketList[CheckCount, 1] = 34 :CheckCount = CheckCount + 1
	
	
	For Index = 0 To 15
		BracketScore[Index] = 0
	Next
	
	StringLen = Len(_S_)
	For Index = 1 To StringLen
		Char = Asc(Mid(_S_, Index, 1))
		
		For Control = 0 To CheckCount - 2
			If Char = BracketList[Control, 0]
				BracketScore[Control] = BracketScore[Control] + 1
				Exit
			EndIf
			If Char = BracketList[Control, 1]
				BracketScore[Control] = BracketScore[Control] - 1
				Exit
			EndIf
		Next
		If Char = BracketList[CheckCount - 1, 0]
			BracketScore[CheckCount - 1] = (BracketScore[CheckCount - 1] + 1) && 1
		EndIf
		
	Next
	For Index = 0 To 15
		If BracketScore[Index] Then ExitFunction 0
	Next

EndFunction 1

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 23rd Jan 2022 03:32 Edited at: 23rd Jan 2022 03:32

Link

argghhh. this isn't working right (yet):

SetErrorMode(2)
SetWindowSize( 1280,720, 1 )
SetVirtualResolution( 1280,720)
SetPrintSize(24)
UseNewDefaultFonts( 1 )

GLOBAL Braces$ = "(){}[]<>"
Type Brace
	Open$, Close$
EndType
GLOBAL Pairs as Brace []
For x = 1 to LEN(Braces$) Step 2
	ThisPair as Brace
		ThisPair.Open$ = MID(Braces$,x,1)	:	ThisPair.Close$ = MID(Braces$,x+1,1)
	Pairs.Insert(ThisPair)
Next x
	
TestStrings as String []
TestStrings.Insert("<{How} ((big) is [[the]] dog)?>")
TestStrings.Insert("<{How (((big)) is [the dog?")
TestStrings.Insert("><}{How ((big)) is ][[the dog]?)(")
TestStrings.Insert("><}{How ((big)) is ][[the dog]?)(>  OUCH!")

Do
	if GetRawKeyPressed(27) then End
	For x = 0 to TestStrings.Length
		CheckBraces(TestStrings[x])
	Next x
	Sync()
Loop

Function CheckBraces(ThisString$)
	Print(ThisString$)
	If Pairs.Length > -1 and LEN(ThisString$) > 0
		For x = 0 to Pairs.Length
			First = 1				:	Last = LEN(ThisString$)
			Open$ = Pairs[x].Open$	:	Close$ = Pairs[x].Close$
			
			If FindString(ThisString$,Open$) > 0
				Repeat
					Valid = 1
					First = FindString(ThisString$,Open$,1,First)
					Last = FindStringReverse(ThisString$, Close$,1,Last)
					If First > 0
						If Last = 0
							Valid = 0	:	Exit //Dangling Open
						Else
							If Last > First
								INC First	:	DEC Last
							Else
								Valid = -1	:	Exit //Dangling Close
							Endif
						Endif
					EndIf
				Until First = 0
				PrintC(" " + Open$  + STR(Valid) + Close$)
			Endif
		Next x
	EndIf
	Print("")
EndFunction

+ Code Snippet

SetErrorMode(2)
SetWindowSize( 1280,720, 1 )
SetVirtualResolution( 1280,720)
SetPrintSize(24)
UseNewDefaultFonts( 1 )

GLOBAL Braces$ = "(){}[]<>"
Type Brace
	Open$, Close$
EndType
GLOBAL Pairs as Brace []
For x = 1 to LEN(Braces$) Step 2
	ThisPair as Brace
		ThisPair.Open$ = MID(Braces$,x,1)	:	ThisPair.Close$ = MID(Braces$,x+1,1)
	Pairs.Insert(ThisPair)
Next x
	
TestStrings as String []
TestStrings.Insert("<{How} ((big) is [[the]] dog)?>")
TestStrings.Insert("<{How (((big)) is [the dog?")
TestStrings.Insert("><}{How ((big)) is ][[the dog]?)(")
TestStrings.Insert("><}{How ((big)) is ][[the dog]?)(>  OUCH!") 

Do
	if GetRawKeyPressed(27) then End
	For x = 0 to TestStrings.Length
		CheckBraces(TestStrings[x])
	Next x
	Sync()
Loop

Function CheckBraces(ThisString$)
	Print(ThisString$)
	If Pairs.Length > -1 and LEN(ThisString$) > 0
		For x = 0 to Pairs.Length
			First = 1				:	Last = LEN(ThisString$)
			Open$ = Pairs[x].Open$	:	Close$ = Pairs[x].Close$
			
			If FindString(ThisString$,Open$) > 0
				Repeat
					Valid = 1
					First = FindString(ThisString$,Open$,1,First)
					Last = FindStringReverse(ThisString$, Close$,1,Last)
					If First > 0
						If Last = 0
							Valid = 0	:	Exit //Dangling Open
						Else
							If Last > First
								INC First	:	DEC Last
							Else
								Valid = -1	:	Exit //Dangling Close
							Endif
						Endif
					EndIf
				Until First = 0
				PrintC(" " + Open$  + STR(Valid) + Close$)
			Endif
		Next x
	EndIf
	Print("")
EndFunction

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Back to top

Profile PM Website

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 23rd Jan 2022 23:06

Link

Unfortunately i have absolutely no time right now but as soon as i saw the olympics topic i had an idea;
"Slalom"
Design:
You draw a line with your finger
When you start drawing a line a ball drops from the top of the screen onto that line as if it were a surface (A physics surface)
The ball MUST keep moving or you lose
As the ball moves along the line the camera follows it (Placing it in the centre of the screen)
If the ball is not in contact with the line then the camera will follow it horizontally but not vertically (So if the ball falls below the bottom of the screen you lose)
You get points for "Air". The idea is you make a slope to get the ball speed up then turn the slope up like a ramp. The ball shoots off the ramp and while it is in the air you get points.

Implementation:
Ball is a dynamic object with a circle shape
The line is a series of sprites with a physics shape of a line from touch point to touch point (Make the distance required a minimum so you don't generate a line unless the touch points are a certain distance apart). When the ball is touching a line you destroy any sprites that precede it.
Everything else should be managed by the 2D physics system

Back to top

Profile PM

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 10th Feb 2022 12:09

Link

Great combined thinking, winter games works well, original concept blink quite doable, I have some concepts in mind too as I dearly love these challenges but only just got internet at the new living address, bills are flooding in and lots still to
unpack. I may be able to whip something up been going through like 20 years worth of storage amazingly learning on the way who I thought I was giving credit to has not always been the original, according to my learned cloud storage solutions
and research its going to take some time to sort through the mess I have of files, including giving the original artists for media I have or complete recreations of my own.

Goodluck with anybody who does these challenges that's how software like AppGameKit becomes known in the community.

fubarpk on Itch...………...https://fubarpk.itch.io/
fubarpk on googleplay..https://play.google.com/store/apps/developer?id=fubarpk

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 28th Jun 2022 22:31 Edited at: 28th Jun 2022 23:17

Link

Anyone want to partake in the current AGK Space Jam on itch.io but not up for a semi-serious project?

or, just up for a Challenge, regardless?

Consider making a Space-themed MINI game or toy that i could include in my entry as an in-game mini-game!

make it 2D, "mini" but fun, and HTML-friendly** as i hope to export my project as such (WIN is "for sure").

i imagine wrapping each within a function so, keep that in mind.

contrary to this thread's Rules, minimal media is required if you want it included in the Jam. create your own or find some free stuff on OGA or the like. BTW, i have all the TGC DLC's, a full membership @ Craftpix.net (which has a lot of FREE space stuff, too), & lifetime membership at CartoonsSmart.com so that broadens proper media rights beyond "open" (see attached)

Deadline: July 9th, 0100 UTC which should give me time to judge, implement and test before the Jam deadline 2 weeks later. that Date/Time may slide (back, not forward) if i think i'll have time to get my own prepared early/well enough.

and, inclusion into my project is NOT required. just let me know. and, FULL CREDIT will be included, as will you be added as an Author if you have an itch.io profile

with that, i can't guarantee everyone will get in the Jam that wants to be but you'll definitely be in THIS Challenge and i'll add appropriate entries that don't make it to the Jam in post-Jam updates to mine.

further, winner(s) here MAY be eligible to receive any prizes that my entry may win.

odds are that i already have what may end up as prizes, there, so... but i'm sure something will become a prize HERE.

finally, so that we don't end up with 1/2 a dozen space invaders clones, give us a hint as to what you're working on?

PS, Phaelax, i'm calling you out! this is YOUR thread and you need to partake

AGK Resource Directory
Made with AppGameKit on Itch.io
TGC @ GitHub
Some Snippets

Attachments

Login to view attachments

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 29th Jun 2022 15:25

Link

Quote: "PS, Phaelax, i'm calling you out! this is YOUR thread and you need to partake "

I'd love to participate more, I'm just always so busy. I code for a living and this week I'm trying to renew my sec+ as well before I leave for vacation in july.

The tower defense game I started was space-related, maybe I could work on that. As for mini games, I could whip up space invaders or asteroids (i've done both before)

Maybe a starfox style game, I call it Space Goat.

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / AGK Challenge 1

Attachments

Attachments

Attachments

Attachments