Use two GetSpriteHitTest at same time

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 13th Apr 2015 20:39

Link

Hi.

I wrote a code for press two key at same time in Phone.now i have a problem with Use GetSpriteHitTest at same time. mean when I Press first btn, should GetPointerX() and GetPointerY(), also for second btn I should GetPointerX() and GetPointerY() again and this make don't work two btn at same time.

+ Code Snippet

if GetSpriteHitTest(ControlBtnsSpr[1],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1

if GetSpriteHitTest(ControlBtnsSpr[2],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1

how can use two GetSpriteHitTest at same time?

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 14th Apr 2015 06:07 Edited at: 14th Apr 2015 06:23

Link

It sounds like you are trying to use multitouch without using the multitouch functions. Maybe you need to use GetRawFirstTouchEvent and GetRawNextTouchEvent if you are touching the screen in two separate places at the same time. I think your problem is that when you press the first button you get the pointer position and when you press the second button the pointer position changes to the second press location, although it is difficult for me to understand you.

Back to top

Profile PM

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 14th Apr 2015 08:56

Link

Ok, so I didn't really know how multitouch worked. I decided to mess with it and learn a little. This might help you understand how to use multitouch.

// Project: Two Buttons and multitouch 
// Created: 2015-04-14

// set window properties
SetWindowTitle( "multitouch" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 0, 0, 1, 1 )

// set print properties
SetPrintColor( 255, 255, 0 )
SetPrintSize( 18 )

global touch_state as integer
global touch_state_string as string = "Using Start Positions"

createEverything()

do
	// exit app using escape or back button
	if GetRawKeyPressed(27) = 1
		end
	endif
	
    hitCheck()

Sync()
loop

function hitCheck()
	Print( ScreenFPS() )
	
	toggleButton()
	
	print("-------------------   " + touch_state_string)
	
	// use a case/select to toggle between states
	select touch_state
		case 0:
			startTouchPos()
		endcase
		case 1:
			currentTouchPos()
		endcase
	endselect
	
	// print all the information
	// print("first: " + str(GetRawFirstTouchEvent(1)))
	// print("next: " + str(GetRawNextTouchEvent()))
	print("Number of Touch Events: " + str(GetRawTouchCount(1)))
	if GetRawTouchCount(1) > 0
		for i = 1 to GetRawTouchCount(1)
			print("")
			print("----- Event " + str(i) + " -----")
			if GetRawTouchType(i) = 1
				print("Event Type: Short")
			elseif GetRawTouchType(i) = 2
				print("Event Type: Hold")
			elseif GetRawTouchType(i) = 3
				print("Event Type: Drag")
			endif
			print("Start Position: [" + str(GetRawTouchStartX(i)) + ", " + str(GetRawTouchStartX(i)) + "]" )
			print("Current Position: [" + str(GetRawTouchCurrentX(i)) + ", " + str(GetRawTouchCurrentY(i)) + "]" )
		next i
	endif
endfunction

function toggleButton()
	// code that toggles that state variable
	// check if first touch event hits sprite 3
	if GetSpriteHitTest(3, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) ) and touch_state = 0 and GetRawTouchReleased(1)
		SetSpriteColor(1, 0, 255, 0, 255)
		touch_state = 1
		touch_state_string = "Using Current Positions"
	elseif GetSpriteHitTest(3, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) ) and touch_state = 1 and GetRawTouchReleased(1)
		SetSpriteColor(1, 255, 0, 0, 255)
		touch_state = 0
		touch_state_string = "Using Start Positions"
	endif
endfunction

function startTouchPos()
	// check whether the touch event start location hits sprites
	// check sprite 1 if the first or second touch event hits
	if GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	elseif GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchStartX(2)), ScreenToWorldY(GetRawTouchStartY(2)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	else
		SetSpriteColor(1, 255, 0, 0, 255)
	endif
	// check sprite 2 if the first or second touch event hits
	if GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	elseif GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchStartX(2)), ScreenToWorldY(GetRawTouchStartY(2)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	else
		SetSpriteColor(2, 255, 0, 0, 255)
	endif
endfunction

function currentTouchPos()
	// check whether the touch event current location hits sprites
	// check sprite 1 if the first or second touch event hits
	if GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchCurrentX(1)), ScreenToWorldY(GetRawTouchCurrentY(1)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	elseif GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchCurrentX(2)), ScreenToWorldY(GetRawTouchCurrentY(2)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	else
		SetSpriteColor(1, 255, 0, 0, 255)
	endif
	// check sprite 2 if the first or second touch event hits
	if GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchCurrentX(1)), ScreenToWorldY(GetRawTouchCurrentY(1)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	elseif GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchCurrentX(2)), ScreenToWorldY(GetRawTouchCurrentY(2)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	else
		SetSpriteColor(2, 255, 0, 0, 255)
	endif
endfunction

function createEverything()
	// create all sprites and set their properties
	for i = 1 to 3
		CreateSprite(i, 0)
		if i < 3
			SetSpriteSize(i, 200, 200)
			SetSpriteOffset(i, GetSpriteWidth(i) / 2, GetSpriteHeight(i) / 2)
			SetSpriteColor(i, 255, 0, 0, 255)
		else
			SetSpriteSize(i, 100, 100)
			SetSpriteOffset(i, GetSpriteWidth(i) / 2, GetSpriteHeight(i) / 2)
			SetSpriteColor(i, 255, 0, 0, 255)
		endif
	next
	SetSpritePositionByOffset(1, 312, 384)
	SetSpritePositionByOffset(2, 712, 384)
	SetSpritePositionByOffset(3, 60, 708)
endfunction

+ Code Snippet

// Project: Two Buttons and multitouch 
// Created: 2015-04-14

// set window properties
SetWindowTitle( "multitouch" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 0, 0, 1, 1 )

// set print properties
SetPrintColor( 255, 255, 0 )
SetPrintSize( 18 )

global touch_state as integer
global touch_state_string as string = "Using Start Positions"

createEverything()

do
	// exit app using escape or back button
	if GetRawKeyPressed(27) = 1
		end
	endif
	
    hitCheck()

    Sync()
loop

function hitCheck()
	Print( ScreenFPS() )
	
	toggleButton()
	
	print("-------------------   " + touch_state_string)
	
	// use a case/select to toggle between states
	select touch_state
		case 0:
			startTouchPos()
		endcase
		case 1:
			currentTouchPos()
		endcase
	endselect
	
	// print all the information
	// print("first: " + str(GetRawFirstTouchEvent(1)))
	// print("next: " + str(GetRawNextTouchEvent()))
	print("Number of Touch Events: " + str(GetRawTouchCount(1)))
	if GetRawTouchCount(1) > 0
		for i = 1 to GetRawTouchCount(1)
			print("")
			print("----- Event " + str(i) + " -----")
			if GetRawTouchType(i) = 1
				print("Event Type: Short")
			elseif GetRawTouchType(i) = 2
				print("Event Type: Hold")
			elseif GetRawTouchType(i) = 3
				print("Event Type: Drag")
			endif
			print("Start Position: [" + str(GetRawTouchStartX(i)) + ", " + str(GetRawTouchStartX(i)) + "]" )
			print("Current Position: [" + str(GetRawTouchCurrentX(i)) + ", " + str(GetRawTouchCurrentY(i)) + "]" )
		next i
	endif
endfunction

function toggleButton()
	// code that toggles that state variable
	// check if first touch event hits sprite 3
	if GetSpriteHitTest(3, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) ) and touch_state = 0 and GetRawTouchReleased(1)
		SetSpriteColor(1, 0, 255, 0, 255)
		touch_state = 1
		touch_state_string = "Using Current Positions"
	elseif GetSpriteHitTest(3, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) ) and touch_state = 1 and GetRawTouchReleased(1)
		SetSpriteColor(1, 255, 0, 0, 255)
		touch_state = 0
		touch_state_string = "Using Start Positions"
	endif
endfunction

function startTouchPos()
	// check whether the touch event start location hits sprites
	// check sprite 1 if the first or second touch event hits
	if GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	elseif GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchStartX(2)), ScreenToWorldY(GetRawTouchStartY(2)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	else
		SetSpriteColor(1, 255, 0, 0, 255)
	endif
	// check sprite 2 if the first or second touch event hits
	if GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchStartX(1)), ScreenToWorldY(GetRawTouchStartY(1)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	elseif GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchStartX(2)), ScreenToWorldY(GetRawTouchStartY(2)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	else
		SetSpriteColor(2, 255, 0, 0, 255)
	endif
endfunction

function currentTouchPos()
	// check whether the touch event current location hits sprites
	// check sprite 1 if the first or second touch event hits
	if GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchCurrentX(1)), ScreenToWorldY(GetRawTouchCurrentY(1)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	elseif GetSpriteHitTest(1, ScreenToWorldX(GetRawTouchCurrentX(2)), ScreenToWorldY(GetRawTouchCurrentY(2)) )
		SetSpriteColor(1, 0, 255, 0, 255)
	else
		SetSpriteColor(1, 255, 0, 0, 255)
	endif
	// check sprite 2 if the first or second touch event hits
	if GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchCurrentX(1)), ScreenToWorldY(GetRawTouchCurrentY(1)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	elseif GetSpriteHitTest(2, ScreenToWorldX(GetRawTouchCurrentX(2)), ScreenToWorldY(GetRawTouchCurrentY(2)) )
		SetSpriteColor(2, 0, 255, 0, 255)
	else
		SetSpriteColor(2, 255, 0, 0, 255)
	endif
endfunction

function createEverything()
	// create all sprites and set their properties
	for i = 1 to 3
		CreateSprite(i, 0)
		if i < 3
			SetSpriteSize(i, 200, 200)
			SetSpriteOffset(i, GetSpriteWidth(i) / 2, GetSpriteHeight(i) / 2)
			SetSpriteColor(i, 255, 0, 0, 255)
		else
			SetSpriteSize(i, 100, 100)
			SetSpriteOffset(i, GetSpriteWidth(i) / 2, GetSpriteHeight(i) / 2)
			SetSpriteColor(i, 255, 0, 0, 255)
		endif
	next
	SetSpritePositionByOffset(1, 312, 384)
	SetSpritePositionByOffset(2, 712, 384)
	SetSpritePositionByOffset(3, 60, 708)
endfunction

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 14th Apr 2015 14:18

Link

Quote: "how can use two GetSpriteHitTest at same time?"

You can use this command hundreds of times per loop. Not sure how many times before it starts to slow things down...

The code you are using should work as you are describing but without seeing more it's hard to say for sure what is going wrong.

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 14th Apr 2015 14:47

Link

Not sure if this will help or hinder lol... But this is how I use the Multi-Touch commands (although I do not use GetSpriteHitTest)...

+ Code Snippet

global TouchEvent1
global TouchEvent2
global Touch1
global Touch2

do
	TouchEvent1 = GetRawFirstTouchEvent(1)
	TouchEvent2 = GetRawNextTouchEvent()
	Touch1 = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(TouchEvent1)), ScreenToWorldY(GetRawTouchCurrentY(TouchEvent1)))
	Touch2 = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(TouchEvent2)), ScreenToWorldY(GetRawTouchCurrentY(TouchEvent2)))

	if Touch1 = Button OR Touch2 = Button
		// Do something
	endif
	
	Sync()
loop

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 14th Apr 2015 21:47

Link

@ baxslash

Quote: "You can use this command hundreds of times per loop. Not sure how many times before it starts to slow things down...

The code you are using should work as you are describing but without seeing more it's hard to say for sure what is going wrong."

this is my full code, please see and tell me where is the Problem.

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global EnemyNum = 10
global dim Enemy[EnemyNum]
global EnemyEmptySprite as Integer
global dim btn[3]
global dim text[3]

Game()

Function Game()

CreatePlayer()
CreateEnemy()
CreateBtns()

do

PX# = GetPointerX()
PY# = GetPointerY()

//Move to Left
if GetSpriteHitTest(btn[1],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerState() = 1
        if GetSpriteX(Player) > 0
            SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
endif
    endif
        endif

//Move to Right
if GetSpriteHitTest(btn[2],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerState() = 1
        if GetSpriteX(Player) < 95
            SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif
        endif

//Fire Bullet
if GetSpriteHitTest(btn[3],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerPressed() = 1
        CreateBullet()
endif
    endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (BulletNumber)

//Get Collision Between Bullet and Enemies
for x = 1 to MaxBullets
    for y = 1 to 10
        if GetSpriteExists(Enemy[y]) = 1
            if GetSpriteExists(Bullet[x]) = 1
                if GetSpriteCollision(Bullet[x],Enemy[y]) = 1
                    DeleteSprite(Enemy[y])
                    DeleteSprite(Bullet[x])
        endif
            endif
                endif
    next y
next x

Sync()
loop

EndFunction

//========================>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ALL Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,75)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    EnemyEmptySprite = CreateSprite(0)
    SetSpriteVisible(EnemyEmptySprite,0)
    for a = 1 to 10
        if GetSpriteExists(Enemy[a]) = 0 then Enemy[a] = CloneSprite(EnemyEmptySprite)
        SetSpriteVisible(Enemy[a],1)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create Control Buttons
Function CreateBtns()

for a = 1 to 3
    btn[a] = CreateSPrite(0)//Create Button Sprites
    SetSpriteSize(btn[a],8,-1)
Select a
    case 1:
        SetSPritePositionByOffset(btn[1],7,90)//Left Arrow
        SetSpriteColor(btn[1],0,255,0,255)
        text[1] = CreateText("Left")
        SetTextPosition(text[1],GetSpriteXByOffset(btn[1])-4,GetSpriteYByOffset(btn[1])-2)
        SetTextColor(text[1],237,28,36,255)
    endcase
    case 2:
        SetSPritePositionByOffset(btn[2],22,90)//Right Arrow
        SetSpriteColor(btn[2],0,255,0,255)
        text[2] = CreateText("Right")
        SetTextPosition(text[2],GetSpriteXByOffset(btn[2])-4,GetSpriteYByOffset(btn[2])-2)
        SetTextColor(text[2],237,28,36,255)
    endcase
    case 3:
        SetSPritePositionByOffset(btn[3],90,90)//Fire Button
        SetSpriteColor(btn[3],255,201,41,255)
        text[3] = CreateText("Fire")
        SetTextPosition(text[3],GetSpriteXByOffset(btn[3])-4,GetSpriteYByOffset(btn[3])-2)
        SetTextColor(text[3],237,28,36,255)
    endcase
EndSelect
next a

EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global EnemyNum = 10
global dim Enemy[EnemyNum]
global EnemyEmptySprite as Integer
global dim btn[3]
global dim text[3]

Game()

Function Game()

CreatePlayer()
CreateEnemy()
CreateBtns()

do

PX# = GetPointerX()
PY# = GetPointerY()

//Move to Left
if GetSpriteHitTest(btn[1],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerState() = 1
        if GetSpriteX(Player) > 0
            SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
endif
    endif
        endif

//Move to Right
if GetSpriteHitTest(btn[2],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerState() = 1
        if GetSpriteX(Player) < 95
            SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif
        endif

//Fire Bullet
if GetSpriteHitTest(btn[3],ScreenToWorldX(PX#),ScreenToWorldY(PY#)) = 1
    if GetPointerPressed() = 1
        CreateBullet()
endif
    endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (BulletNumber)

//Get Collision Between Bullet and Enemies
for x = 1 to MaxBullets
    for y = 1 to 10
        if GetSpriteExists(Enemy[y]) = 1
            if GetSpriteExists(Bullet[x]) = 1
                if GetSpriteCollision(Bullet[x],Enemy[y]) = 1
                    DeleteSprite(Enemy[y])
                    DeleteSprite(Bullet[x])
        endif
            endif
                endif
    next y
next x

 Sync()
loop

EndFunction

//========================>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ALL Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,75)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    EnemyEmptySprite = CreateSprite(0)
    SetSpriteVisible(EnemyEmptySprite,0)
    for a = 1 to 10
        if GetSpriteExists(Enemy[a]) = 0 then Enemy[a] = CloneSprite(EnemyEmptySprite)
        SetSpriteVisible(Enemy[a],1)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create Control Buttons
Function CreateBtns()

for a = 1 to 3
    btn[a] = CreateSPrite(0)//Create Button Sprites
    SetSpriteSize(btn[a],8,-1)
Select a
    case 1:
        SetSPritePositionByOffset(btn[1],7,90)//Left Arrow
        SetSpriteColor(btn[1],0,255,0,255)
        text[1] = CreateText("Left")
        SetTextPosition(text[1],GetSpriteXByOffset(btn[1])-4,GetSpriteYByOffset(btn[1])-2)
        SetTextColor(text[1],237,28,36,255)
    endcase
    case 2:
        SetSPritePositionByOffset(btn[2],22,90)//Right Arrow
        SetSpriteColor(btn[2],0,255,0,255)
        text[2] = CreateText("Right")
        SetTextPosition(text[2],GetSpriteXByOffset(btn[2])-4,GetSpriteYByOffset(btn[2])-2)
        SetTextColor(text[2],237,28,36,255)
    endcase
    case 3:
        SetSPritePositionByOffset(btn[3],90,90)//Fire Button
        SetSpriteColor(btn[3],255,201,41,255)
        text[3] = CreateText("Fire")
        SetTextPosition(text[3],GetSpriteXByOffset(btn[3])-4,GetSpriteYByOffset(btn[3])-2)
        SetTextColor(text[3],237,28,36,255)
    endcase
EndSelect
next a

EndFunction

Thanks.

@ Funnell7

Quote: "Not sure if this will help or hinder lol"

thanks, your example is very useful and not hinder (Lol).

but I have a Problem:

I wrote my Multi-Touch code according to your example. but when we touch screen, it return 2 value (hold) while I want create touch for fire bullet and need fire one bullet after pressed fire button. but I don't know how to do it.

this is my code:

event[1] = GetRawFirstTouchEvent(1)
    event[2] = GetRawNextTouchEvent()
    event[3] = GetRawNextTouchEvent()

touch[1] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[1])),ScreenToWorldX(GetRawTouchCurrentY(event[1])))
    touch[2] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[2])),ScreenToWorldX(GetRawTouchCurrentY(event[2])))
    touch[3] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[3])),ScreenToWorldX(GetRawTouchCurrentY(event[3])))

if (touch[1] = ControlBtnsSpr[1] or touch[2] = ControlBtnsSpr[1] or touch[3] = ControlBtnsSpr[1]) //and GetSpriteX(Player) < 80
        if GetSpriteExists(ControlBtnsSpr[1]) = 1
            SetSpritePosition(Player,GetSpriteX(Player) + 0.7,GetSpriteY(Player))
            SetSpritePosition(EngineSprite,GetSpriteXByOffset(Player)-3.2,GetSpriteYByOffset(Player)+4)
            if state = 0 then state = 1
        endif
    endif

//Move to Left
    if (touch[1] = ControlBtnsSpr[2] or touch[2] = ControlBtnsSpr[2] or touch[3] = ControlBtnsSpr[2]) //and GetSpriteX(Player) > -5
        if GetSpriteExists(ControlBtnsSpr[2]) = 1
            SetSpritePosition(Player,GetSpriteX(Player) - 0.7,GetSpriteY(Player))
            SetSpritePosition(EngineSprite,GetSpriteXByOffset(Player)-3.2,GetSpriteYByOffset(Player)+4)
            if state = 0 then state = 3
        endif
    endif

//Create Player Bullet
    if GetSpriteExists(ControlBtnsSpr[3]) = 1
        if (touch[1] = ControlBtnsSpr[3] or touch[2] = ControlBtnsSpr[3] or touch[3] = ControlBtnsSpr[3])
            CreatePlayerBullet()
    endif
        endif

for x = 1 to MaxBullet
        if GetSpriteExists(PlayerBullet[x]) = 1
            SetSpritePosition(PlayerBullet[x],GetSpriteX(PlayerBullet[x]),GetSpriteY(PlayerBullet[x])-2)
            if GetSpriteX(PlayerBullet[x]) < -5 then DeleteSprite(PlayerBullet[x])
        endif
    next x

+ Code Snippet

    event[1] = GetRawFirstTouchEvent(1)
    event[2] = GetRawNextTouchEvent()
    event[3] = GetRawNextTouchEvent()

    touch[1] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[1])),ScreenToWorldX(GetRawTouchCurrentY(event[1])))
    touch[2] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[2])),ScreenToWorldX(GetRawTouchCurrentY(event[2])))
    touch[3] = GetSpriteHit(ScreenToWorldX(GetRawTouchCurrentX(event[3])),ScreenToWorldX(GetRawTouchCurrentY(event[3])))

    if (touch[1] = ControlBtnsSpr[1] or touch[2] = ControlBtnsSpr[1] or touch[3] = ControlBtnsSpr[1]) //and GetSpriteX(Player) < 80
        if GetSpriteExists(ControlBtnsSpr[1]) = 1
            SetSpritePosition(Player,GetSpriteX(Player) + 0.7,GetSpriteY(Player))
            SetSpritePosition(EngineSprite,GetSpriteXByOffset(Player)-3.2,GetSpriteYByOffset(Player)+4)
            if state = 0 then state = 1
        endif
    endif

    //Move to Left
    if (touch[1] = ControlBtnsSpr[2] or touch[2] = ControlBtnsSpr[2] or touch[3] = ControlBtnsSpr[2]) //and GetSpriteX(Player) > -5
        if GetSpriteExists(ControlBtnsSpr[2]) = 1
            SetSpritePosition(Player,GetSpriteX(Player) - 0.7,GetSpriteY(Player))
            SetSpritePosition(EngineSprite,GetSpriteXByOffset(Player)-3.2,GetSpriteYByOffset(Player)+4)
            if state = 0 then state = 3
        endif
    endif

    //Create Player Bullet
    if GetSpriteExists(ControlBtnsSpr[3]) = 1
        if (touch[1] = ControlBtnsSpr[3] or touch[2] = ControlBtnsSpr[3] or touch[3] = ControlBtnsSpr[3])
            CreatePlayerBullet()
    endif
        endif

    for x = 1 to MaxBullet
        if GetSpriteExists(PlayerBullet[x]) = 1
            SetSpritePosition(PlayerBullet[x],GetSpriteX(PlayerBullet[x]),GetSpriteY(PlayerBullet[x])-2)
            if GetSpriteX(PlayerBullet[x]) < -5 then DeleteSprite(PlayerBullet[x])
        endif
    next x

Thanks.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 15th Apr 2015 08:20

Link

I can't see anything wrong with your code. I'll try to test later when i'm on a pc...

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

IronManhood

9

Years of Service

User Offline

Joined: 6th Feb 2015

Location: US

Posted: 15th Apr 2015 17:37

Link

I think that you want to only fire a bullet once per button press?

+ Code Snippet

if (touch[1] = ControlBtnsSpr[3] and GetRawTouchReleased(1) or touch[2] = ControlBtnsSpr[3] and GetRawTouchReleased(2) or touch[3] = ControlBtnsSpr[3] and GetRawTouchReleased(3))
            CreatePlayerBullet()
    endif
        endif

I don't know if that will work as you expect.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 15th Apr 2015 19:18

Link

Quote: "I think that you want to only fire a bullet once per button press?

+ Code Snippet
if (touch[1] = ControlBtnsSpr[3] and GetRawTouchReleased(1) or touch[2] = ControlBtnsSpr[3] and GetRawTouchReleased(2) or touch[3] = ControlBtnsSpr[3] and GetRawTouchReleased(3))
CreatePlayerBullet()
endif
endif

I don't know if that will work as you expect."

thanks IronManhood, I already I tested this command but it don't work.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Use two GetSpriteHitTest at same time