AND operator + getpointerx/y - GameCreators Forum

Author

Message

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2018 18:56

Link

Hi there.
I'm trying to convert my old 3D program from Dbpro to AppGameKit . It's almost done , but for some razon the conbination of some varables with getpointerx() o getpointery() just doesn't work . This is the selecction system where I compare old mouseX/Y with the actual to select and move vertex. This is driving me crazy!.

Operator AND works like a charm in most situation but not here...it works pretty good in Dbpro and I can't understand Why here in AppGameKit it say No and No.
Any idea.?
Thanks in advance

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 7th Dec 2018 19:05

Link

Not sure i understand what trying to do, do you have a small snippet showing the fault at all

Back to top

Profile

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2018 19:15

Link

Thasks puzzler2018 for your time.

Here's a bit of code with sprites showing the what I'm triying to do

// Project:Selection System
// Created: 2018-12-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "seleccion" )
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

Dim selec[250]
green=makecolor(0,255,0)
yell=makecolor(255,255,0)
drawbox(0,0,5,5,green,green,green,green,1)
getimage(1,0,0,5,5)
drawbox(0,0,5,5,yell,yell,yell,yell,1)
getimage(2,0,0,5,5)
for i= 1 to 250
	createsprite(i,1)
  SetSpritePosition( i,100+random(0,450),100+random(0,300))
next

r=0
do
    if GetRawMouseLeftPressed() 
	   r=r+1
	   if r=1
	     mx=getpointerx()
         my=getpointery()
       endif
    endif
    
 if r>0
    yell=makecolor(255,255,0)  `line color
    
    `horizontal line of points
       for i=mx to getpointerx() step 4
       drawline(i,my,i,my,yell,yell)
       drawline(i+1,my,i+1,my,yell,yell)
       drawline(i,getpointery(),i,getpointery(),yell,yell)
       drawline(i+1,getpointery(),i+1,getpointery(),yell,yell)
    next

`vertical line of points
    for a = my to getpointery() step 5
      drawline(mx,a,mx,a,yell,yell)
      drawline(mx,a+1,mx,a+1,yell,yell)
      drawline(getpointerx(),a,getpointerx(),a,yell,yell)
      drawline(getpointerx(),a+1,getpointerx(),a+1,yell,yell)
    next
   
  endif
if GetRawMouseLeftReleased() then r=0
   
 dx#=getpointerx()
 dy#=getpointery()
   for i= 1 to 250
	   
   if GetRawMouseLeftPressed()
	   
	    `This line doesn work...
	    // if getspritex(i)> mx and getspritey(i)>my and getspritex(i)< getpointerx() and getspritey(i)< getpointery() 
	    
	    
        if getspritex(i)> mx and getspritey(i)>my  `This line works by half
				
         setspriteimage( i,2) :selec[i]=1
      endif
    endif
     
   
   next
  
   
   
    
    Print( ScreenFPS() )
    print(mx)
    print(my)
    print(getpointerx())
    print(getpointery())
    
    Sync()
loop

+ Code Snippet

// Project:Selection System
// Created: 2018-12-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "seleccion" )
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

Dim selec[250]
green=makecolor(0,255,0)
yell=makecolor(255,255,0)
drawbox(0,0,5,5,green,green,green,green,1)
getimage(1,0,0,5,5)
drawbox(0,0,5,5,yell,yell,yell,yell,1)
getimage(2,0,0,5,5)
for i= 1 to 250
	createsprite(i,1)
  SetSpritePosition( i,100+random(0,450),100+random(0,300))
next

 

r=0
do
    if GetRawMouseLeftPressed() 
	   r=r+1
	   if r=1
	     mx=getpointerx()
         my=getpointery()
       endif
    endif
    
 if r>0
    yell=makecolor(255,255,0)  `line color
    
    `horizontal line of points
       for i=mx to getpointerx() step 4
       drawline(i,my,i,my,yell,yell)
       drawline(i+1,my,i+1,my,yell,yell)
       drawline(i,getpointery(),i,getpointery(),yell,yell)
       drawline(i+1,getpointery(),i+1,getpointery(),yell,yell)
    next

    `vertical line of points
    for a = my to getpointery() step 5
      drawline(mx,a,mx,a,yell,yell)
      drawline(mx,a+1,mx,a+1,yell,yell)
      drawline(getpointerx(),a,getpointerx(),a,yell,yell)
      drawline(getpointerx(),a+1,getpointerx(),a+1,yell,yell)
    next
   
  endif
if GetRawMouseLeftReleased() then r=0
   
 dx#=getpointerx()
 dy#=getpointery()
   for i= 1 to 250
	   
   if GetRawMouseLeftPressed()
	   
	    `This line doesn work...
	    // if getspritex(i)> mx and getspritey(i)>my and getspritex(i)< getpointerx() and getspritey(i)< getpointery() 
	    
	    
        if getspritex(i)> mx and getspritey(i)>my  `This line works by half
				
         setspriteimage( i,2) :selec[i]=1
      endif
    endif
     
   
   next
  
   
   
    
    Print( ScreenFPS() )
    print(mx)
    print(my)
    print(getpointerx())
    print(getpointery())
    
    Sync()
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 7th Dec 2018 19:20 Edited at: 7th Dec 2018 19:21

Link

Are you trying to make everything that when you press left button to create a square turn to yellow at all?

Give me a min, ill see how i get on

Back to top

Profile

puzzler2018

User Banned

Posted: 7th Dec 2018 19:24

Link

I changed
if GetRawMouseLeftPressed()

to

if GetRawMouseLeftState()

on line 69

// Project:Selection System
// Created: 2018-12-06
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "seleccion" )
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
 
Dim selec[250]
green=makecolor(0,255,0)
yell=makecolor(255,255,0)
drawbox(0,0,5,5,green,green,green,green,1)
getimage(1,0,0,5,5)
drawbox(0,0,5,5,yell,yell,yell,yell,1)
getimage(2,0,0,5,5)
for i= 1 to 250
    createsprite(i,1)
  SetSpritePosition( i,100+random(0,450),100+random(0,300))
next
 
  
 
r=0
do
    if GetRawMouseLeftPressed() 
       r=r+1
       if r=1
         mx=getpointerx()
         my=getpointery()
       endif
    endif
     
 if r>0
    yell=makecolor(255,255,0)  `line color
     
 //  `horizontal line of points
       for i=mx to getpointerx() step 4
       drawline(i,my,i,my,yell,yell)
       drawline(i+1,my,i+1,my,yell,yell)
       drawline(i,getpointery(),i,getpointery(),yell,yell)
       drawline(i+1,getpointery(),i+1,getpointery(),yell,yell)
    next
 
    `vertical line of points
    for a = my to getpointery() step 5
      drawline(mx,a,mx,a,yell,yell)
      drawline(mx,a+1,mx,a+1,yell,yell)
      drawline(getpointerx(),a,getpointerx(),a,yell,yell)
      drawline(getpointerx(),a+1,getpointerx(),a+1,yell,yell)
    next
    
  endif
if GetRawMouseLeftReleased() then r=0
    
 dx#=getpointerx()
 dy#=getpointery()
   for i= 1 to 250
        
   if GetRawMouseLeftState()
  
        `This line doesn work...
         if getspritex(i)> mx and getspritey(i)>my and getspritex(i)< getpointerx() and getspritey(i)< getpointery() 
         
         
        //if getspritex(i)> mx and getspritey(i)>my  `This line works by half
                 
         setspriteimage( i,2) :selec[i]=1
      endif
    endif
      
    
   next
   
    
    
     
    Print( ScreenFPS() )
    print(mx)
    print(my)
    print(getpointerx())
    print(getpointery())
     
    Sync()
loop

+ Code Snippet



// Project:Selection System
// Created: 2018-12-06
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "seleccion" )
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
 
Dim selec[250]
green=makecolor(0,255,0)
yell=makecolor(255,255,0)
drawbox(0,0,5,5,green,green,green,green,1)
getimage(1,0,0,5,5)
drawbox(0,0,5,5,yell,yell,yell,yell,1)
getimage(2,0,0,5,5)
for i= 1 to 250
    createsprite(i,1)
  SetSpritePosition( i,100+random(0,450),100+random(0,300))
next
 
  
 
r=0
do
    if GetRawMouseLeftPressed() 
       r=r+1
       if r=1
         mx=getpointerx()
         my=getpointery()
       endif
    endif
     
 if r>0
    yell=makecolor(255,255,0)  `line color
     
 //  `horizontal line of points
       for i=mx to getpointerx() step 4
       drawline(i,my,i,my,yell,yell)
       drawline(i+1,my,i+1,my,yell,yell)
       drawline(i,getpointery(),i,getpointery(),yell,yell)
       drawline(i+1,getpointery(),i+1,getpointery(),yell,yell)
    next
 
    `vertical line of points
    for a = my to getpointery() step 5
      drawline(mx,a,mx,a,yell,yell)
      drawline(mx,a+1,mx,a+1,yell,yell)
      drawline(getpointerx(),a,getpointerx(),a,yell,yell)
      drawline(getpointerx(),a+1,getpointerx(),a+1,yell,yell)
    next
    
  endif
if GetRawMouseLeftReleased() then r=0
    
 dx#=getpointerx()
 dy#=getpointery()
   for i= 1 to 250
        
   if GetRawMouseLeftState()
  
        `This line doesn work...
         if getspritex(i)> mx and getspritey(i)>my and getspritex(i)< getpointerx() and getspritey(i)< getpointery() 
         
         
        //if getspritex(i)> mx and getspritey(i)>my  `This line works by half
                 
         setspriteimage( i,2) :selec[i]=1
      endif
    endif
      
    
   next
   
    
    
     
    Print( ScreenFPS() )
    print(mx)
    print(my)
    print(getpointerx())
    print(getpointery())
     
    Sync()
loop

Back to top

Profile

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2018 19:27

Link

@puzzler 2018 Ok take your time .

I just made another test and it works as it must do .

+ Code Snippet

do
green=makecolor(0,255,0)
drawbox(0,0,200,200,green,green,green,green,1)
getimage(1,0,0,200,200)
createsprite(1,1)
setspriteposition(1,100,100)

a=1
b=2
c=3
d=4
e=5



   if a=1 and b=2 and e=5 and c=3 and getpointerx()>100 and getpointerx()<300 and getpointery()>100 and getpointery()<300 then print("h") 

  rem   Print( ScreenFPS() )
    Sync()
loop

But doing something similar....just comparing old pointerx() and old pointery() it do nothing at all.

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 7th Dec 2018 19:28

Link

Might be worth sticking in an else in that area too

+ Code Snippet

 if GetRawMouseLeftState()

  
        `This line doesn work...
         if getspritex(i)> mx and getspritey(i)>my and getspritex(i)< getpointerx() and getspritey(i)< getpointery() 
         
         
        //if getspritex(i)> mx and getspritey(i)>my  `This line works by half
                 
         setspriteimage( i,2) :selec[i]=1
	else
         setspriteimage( i,1) :selec[i]=0

      endif
    endif

Back to top

Profile

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2018 19:30 Edited at: 7th Dec 2018 19:33

Link

Wow....you are my hero .
That was being like a pain in the neck .

Thanks so much...

Quote: "Might be worth sticking in an else in that area too"

for sure....that what I'l do .

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 7th Dec 2018 19:32

Link

Your welcome. I get flummexed sometimes too - all day i might have a debugging problem and after 5 days of tearing my hair out - i was missing a semi-colon lol

Back to top

Profile

chafari

Valued Member

19

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 7th Dec 2018 19:34

Link

Quote: "after 5 days of tearing my hair out - i was missing a semi-colon lol"

Lol... thanks again

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / AND operator + getpointerx/y