Track Selecting with Image of Arrow`s

Author

Message

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 23rd Aug 2013 23:40 Edited at: 23rd Aug 2013 23:42

Link

Hello
Long time since i last whas on forum

am re-coding in dbPro and am trying to make a simple
Track selecting via 2 images (arrow Left - Arrow Right)
i have so far gotten button`s to work and sort of selecting

Sync on
Sync Rate 30
` Button Track Select&Verification

`Button Images
Load Image "left.bmp",1
Load Image "right.bmp",2
` Track Info Data

Track=1
DO
Set cursor 0,128
Print "Track is:",Track

Paste Image 1,0,0
Paste Image 2,64,0

` Back Ward
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 4
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 3
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 2
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 1
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
`****************************
` Forward ARROW
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 1
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 2
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 3
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 4
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF

Sync
LOOP

+ Code Snippet

Sync on
Sync Rate 30
` Button Track Select&Verification

`Button Images
Load Image "left.bmp",1
Load Image "right.bmp",2
` Track Info Data

Track=1
DO
Set cursor 0,128
Print "Track is:",Track

Paste Image 1,0,0
Paste Image 2,64,0

    
` Back Ward
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 4
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 3
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 2
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 1
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
`****************************
` Forward ARROW
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 1
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 2
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 3
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 4
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF

Sync
LOOP

so it has 4 Track`s and delay of 100 if i didnt do it then it youst skipped XD
but now am not surew how i can get it to detect exactely what track Number it is on and the info for it

eks Track 1
info1: bla bla
Length1 :bla bla

Track 2
info2: bla bla
Length2 :bla bla
i think my next Prev buttons is kind of old school and not optimized

ps Sorry for the english am Norwegian& i have Dyselexia
if some one has idea on how to structure it or re code it let me know please

added immage as attachment.

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 00:05

Link

i tested
added

+ Code Snippet

Info1$= "Rar Bane 1"
Lenght1$="Lengde: 1500"
Info1$= "Rar Bane 1"
Lenght21="Lengde: 1500m"

Before the loop

then i added on back arrow to Track 1

+ Code Snippet

If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 3
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        set cursor 0,96
        Print Info2$
        Set Cursor 0,128
        Print Lenght2$
        Endif
    ENDIF
ENDIF

but then i got text over text problem when i added this as for track 2 aswell XD so guess i need to add cls some where.

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 00:15

Link

Sorry for 3rd Post but now it seems to work

Sync on
Sync Rate 30
` Button Track Select&Verification

`Button Images
Load Image "left.bmp",1
Load Image "right.bmp",2
` Track Info Data
Info1$= "Rar Bane 1"
Lenght1$="Lengde: 1500"
Info2$= "Rar Bane 2"
Lenght2$="Lengde: 2500m"
Track=1
DO
cls
Set cursor 0,64
Print "Track is:",Track
If Track=2
        set cursor 0,96
        Print Info2$
        Set Cursor 0,128
        Print Lenght2$
endif
If Track=1
        set cursor 0,96
        Print Info1$
        Set Cursor 0,128
        Print Lenght1$
endif

Paste Image 1,0,0
Paste Image 2,64,0

` Back Ward
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 4
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 3
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 2
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 1
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
`****************************
` Forward ARROW
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 1
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 2
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 3
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 4
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF

Sync
LOOP

+ Code Snippet

Sync on
Sync Rate 30
` Button Track Select&Verification

`Button Images
Load Image "left.bmp",1
Load Image "right.bmp",2
` Track Info Data
Info1$= "Rar Bane 1"
Lenght1$="Lengde: 1500"
Info2$= "Rar Bane 2"
Lenght2$="Lengde: 2500m"
Track=1
DO
cls
Set cursor 0,64
Print "Track is:",Track
If Track=2
        set cursor 0,96
        Print Info2$
        Set Cursor 0,128
        Print Lenght2$
endif
If Track=1
        set cursor 0,96
        Print Info1$
        Set Cursor 0,128
        Print Lenght1$
endif


Paste Image 1,0,0
Paste Image 2,64,0

    
` Back Ward
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 4
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 3
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 2
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>0 and MouseX()< 64
    If MouseY()>0 and MouseY()< 64
    If Track= 1
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
`****************************
` Forward ARROW
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 1
        if MouseClick()=1 Then Track= 2 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 2
        if MouseClick()=1 Then Track= 3 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 3
        if MouseClick()=1 Then Track= 4 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF
If MouseX()>64 and MouseX()< 128
    If MouseY()>0 and MouseY()< 64
     If Track= 4
        if MouseClick()=1 Then Track= 1 ;cls ;Sleep 100
        Endif
    ENDIF
ENDIF

Sync
LOOP

Problem now is bug about if i left click and hold it 1 sec or 2 sec it skips Track`s :s

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Aug 2013 03:19 Edited at: 24th Aug 2013 03:20

Link

A way to stop mouseclicks (instead of using sleep) is to check if the mouse isn't being pressed the next frame. A easy way to do this is store the last frames mouseclick and this frames one like so:

_oldMouseClick = _mouseClick
_mouseClick = mouseclick()

If we want to check for a click we write:

if _mouseClick <> 0 and _oldMouseClick = 0

The reason for this is once you click and hold, oldMouseClick = 1 then next frame(or this frame is you write this underneath the if statement) so this line will skip whatever is in the middle next frame.

Secondly, you only need to check if the mouse is over the button once, then work out what to do. For this it's simply we add 1 or -1 to the current track then check if it's beyond it's limit and wrap it to it's negative or positive max. So:

// wrapping
if currentTrack > lastTrack then currentTrack = firstTrack

And example of all of this:

// store values
buttonSize = 64
prevButImg = 1
nextButImg = 2
currentTrack = 1
firstTrack = 1
lastTrack = 8

// create buttons
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"<=="
get image prevButImg,0,0,buttonSize,buttonSize,1
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"==>"
get image nextButImg,0,0,buttonSize,buttonSize,1

// work out where the centre of the screen is just for our buttons
sx = screen width()/2 : sy = screen height()/2

// store positions for our buttons, these being from their left-top most corner
prevX = sx-(2*buttonSize) : prevY = sy-(.5*buttonSize)
nextX = sx+buttonSize : nextY = prevY

do : cls

// store mouse data
    _mouseX = mousex()
    _mouseY = mousey()
    _oldMouseClick = _mouseClick
    _mouseClick = mouseclick()
    
    // check to see if the mouse is over the Previous button
    if _mouseX > prevX and _mouseY > prevY
        if _mouseX < prevX+buttonSize and _mouseY < prevY+buttonSize
            // if there's a mouseclick, -1 currentTrack and check if it's less than
            // the min tracks, if it is wrap it to the last Track
            if _mouseClick <> 0 and _oldMouseClick = 0
                dec currentTrack
                if currentTrack < firstTrack then currentTrack = lastTrack
            endif
        endif
    endif
    
    // the same as above just positively
    if _mouseX > nextX and _mouseY > nextY
        if _mouseX < nextX+buttonSize and _mouseY < nextY+buttonSize
            if _mouseClick <> 0 and _oldMouseClick = 0
                inc currentTrack
                if currentTrack > lastTrack then currentTrack = firstTrack
            endif
        endif
    endif
    
    // finally draw everything at the end, usual practice
    paste image prevButImg,prevX,prevY
    paste image nextButImg,nextX,nextY
    center text sx,sy,str$(currentTrack)

loop

+ Code Snippet

// store values
buttonSize = 64
prevButImg = 1
nextButImg = 2
currentTrack = 1
firstTrack = 1
lastTrack = 8

// create buttons
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"<=="
get image prevButImg,0,0,buttonSize,buttonSize,1
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"==>"
get image nextButImg,0,0,buttonSize,buttonSize,1

// work out where the centre of the screen is just for our buttons
sx = screen width()/2 : sy = screen height()/2

// store positions for our buttons, these being from their left-top most corner
prevX = sx-(2*buttonSize) : prevY = sy-(.5*buttonSize)
nextX = sx+buttonSize : nextY = prevY

do : cls

    // store mouse data
    _mouseX = mousex()
    _mouseY = mousey()
    _oldMouseClick = _mouseClick
    _mouseClick = mouseclick()
    
    // check to see if the mouse is over the Previous button
    if _mouseX > prevX and _mouseY > prevY
        if _mouseX < prevX+buttonSize and _mouseY < prevY+buttonSize
            // if there's a mouseclick, -1 currentTrack and check if it's less than
            // the min tracks, if it is wrap it to the last Track
            if _mouseClick <> 0 and _oldMouseClick = 0
                dec currentTrack
                if currentTrack < firstTrack then currentTrack = lastTrack
            endif
        endif
    endif
    
    // the same as above just positively
    if _mouseX > nextX and _mouseY > nextY
        if _mouseX < nextX+buttonSize and _mouseY < nextY+buttonSize
            if _mouseClick <> 0 and _oldMouseClick = 0
                inc currentTrack
                if currentTrack > lastTrack then currentTrack = firstTrack
            endif
        endif
    endif
    
    // finally draw everything at the end, usual practice
    paste image prevButImg,prevX,prevY
    paste image nextButImg,nextX,nextY
    center text sx,sy,str$(currentTrack)

loop

"Get in the Van!" - Van B

Back to top

Profile PM Email

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 17:45

Link

Sasuke: Thank you for the Post& help. i will read it now

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 18:03 Edited at: 24th Aug 2013 18:51

Link

Sasuke: cool. it works. Greate

i got added now hidden button at 64 to 128 at x& y (youst quick&dirty
so now when i click next or prew and the click hiden button it shows text what number i had selected correctly
1 litle thing: id detects left right and scroll click. how can i get it to youst react to left click?
code

Rem Credits:Sasuke TGC Forum
// store values
buttonSize = 64
prevButImg = 1
nextButImg = 2
currentTrack = 1
firstTrack = 1
lastTrack = 8

// create buttons
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"<=="
get image prevButImg,0,0,buttonSize,buttonSize,1
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"==>"
get image nextButImg,0,0,buttonSize,buttonSize,1

// work out where the centre of the screen is just for our buttons
sx = screen width()/2 : sy = screen height()/2

// store positions for our buttons, these being from their left-top most corner
prevX = sx-(2*buttonSize) : prevY = sy-(.5*buttonSize)
nextX = sx+buttonSize : nextY = prevY

do : cls

// store mouse data
    _mouseX = mousex()
    _mouseY = mousey()
    _oldMouseClick = _mouseClick
    _mouseClick = mouseclick()
    
    // check to see if the mouse is over the Previous button
    if _mouseX > prevX and _mouseY > prevY
        if _mouseX < prevX+buttonSize and _mouseY < prevY+buttonSize
            // if there's a mouseclick, -1 currentTrack and check if it's less than
            // the min tracks, if it is wrap it to the last Track
            if _mouseClick <> 0 and _oldMouseClick = 0
                dec currentTrack
                if currentTrack < firstTrack then currentTrack = lastTrack
            endif
        endif
    endif
    
    // the same as above just positively
    if _mouseX > nextX and _mouseY > nextY
        if _mouseX < nextX+buttonSize and _mouseY < nextY+buttonSize
            if _mouseClick <> 0 and _oldMouseClick = 0
                inc currentTrack
                if currentTrack > lastTrack then currentTrack = firstTrack
            endif
        endif
    endif
    
        // Race Track
    if _mouseX >64 and _mouseY < 128
        if _mouseX >64  and _mouseY < 128
            if _mouseClick <> 0 and _oldMouseClick = 0
                goto Tracks
            endif
        endif
    endif
    
    // finally draw everything at the end, usual practice
    paste image prevButImg,prevX,prevY
    paste image nextButImg,nextX,nextY
    center text sx,sy,str$(currentTrack)

loop

Tracks:
Sync
cls
Set cursor 0,0
Print "Loading Track: ",currentTrack
wait key
end

+ Code Snippet

Rem Credits:Sasuke TGC Forum
// store values
buttonSize = 64
prevButImg = 1
nextButImg = 2
currentTrack = 1
firstTrack = 1
lastTrack = 8

// create buttons
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"<=="
get image prevButImg,0,0,buttonSize,buttonSize,1
cls rgb(255,0,0)
center text buttonSize/2,(buttonSize/2)-(text size()/2),"==>"
get image nextButImg,0,0,buttonSize,buttonSize,1

// work out where the centre of the screen is just for our buttons
sx = screen width()/2 : sy = screen height()/2

// store positions for our buttons, these being from their left-top most corner
prevX = sx-(2*buttonSize) : prevY = sy-(.5*buttonSize)
nextX = sx+buttonSize : nextY = prevY

do : cls

    // store mouse data
    _mouseX = mousex()
    _mouseY = mousey()
    _oldMouseClick = _mouseClick
    _mouseClick = mouseclick()
    
    // check to see if the mouse is over the Previous button
    if _mouseX > prevX and _mouseY > prevY
        if _mouseX < prevX+buttonSize and _mouseY < prevY+buttonSize
            // if there's a mouseclick, -1 currentTrack and check if it's less than
            // the min tracks, if it is wrap it to the last Track
            if _mouseClick <> 0 and _oldMouseClick = 0
                dec currentTrack
                if currentTrack < firstTrack then currentTrack = lastTrack
            endif
        endif
    endif
    
    // the same as above just positively
    if _mouseX > nextX and _mouseY > nextY
        if _mouseX < nextX+buttonSize and _mouseY < nextY+buttonSize
            if _mouseClick <> 0 and _oldMouseClick = 0
                inc currentTrack
                if currentTrack > lastTrack then currentTrack = firstTrack
            endif
        endif
    endif
    
        // Race Track
    if _mouseX >64 and _mouseY < 128
        if _mouseX >64  and _mouseY < 128
            if _mouseClick <> 0 and _oldMouseClick = 0
                goto Tracks
            endif
        endif
    endif
    
    // finally draw everything at the end, usual practice
    paste image prevButImg,prevX,prevY
    paste image nextButImg,nextX,nextY
    center text sx,sy,str$(currentTrack)

loop

Tracks:
Sync
cls
Set cursor 0,0
Print "Loading Track: ",currentTrack
wait key
end

Thank you werry Mutch

ps. i must admit. think i have taken too big bite sort of or to hard project maby.but am locked to get it working without quitting

i say this cuz. while back i have made a simple 3D car game/driving but it whas in db classic and track selecting there whas extremly simple. it had track list on left side and when mouse whas ower a track text changed colour and if pressed it had a goto command for loading so.
and now after long breake from dbpro i have tested from time to time but not done enny project`s youst testing simple commands to see if i get working. and this project. i did think it shudnt be to hard since menu is based from Need for Speed 2 or 2se
i know the driving will be hard but. i had project while back about Need for Speed 3 but i started from different dirrection i started with on how to recreate the tracks

btw i cheked your old 2010 tread about menu. and i had made same fault as you stated peopeles alott does (about the mouse click)XD Greate Tread& i cheked your youtube video about curve editor. impressive

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Aug 2013 19:13

Link

Are you asking how do you just detect the left click?

This is how: If mouseclick() = 1

And cheers for the compliments, really should of finished that menu thread

"Get in the Van!" - Van B

Back to top

Profile PM Email

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 20:00 Edited at: 24th Aug 2013 20:09

Link

oh ok so i change
// store mouse data
_mouseX = mousex()
_mouseY = mousey()
_oldMouseClick = _mouseClick
_mouseClick = mouseclick()

To
// store mouse data
_mouseX = mousex()
_mouseY = mousey()
_oldMouseClick = _mouseClick
_mouseClick = mouseclick() = 1
i think?
(guess i shud have test it but i have been bussy in rl sofar.

Yes you shud

hopefully as Sticky aswell for others to read&learn

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 24th Aug 2013 20:15

Link

Not quite, rather...

_mouseClick = mouseclick()

This stores what click state the mouse is in. When we want to just check if the left click is being pressed we use:

if _mouseClick = 1

So replace this bit:

if _mouseClick = 1 and _oldMouseClick = 0

"Get in the Van!" - Van B

Back to top

Profile PM Email

Stig Design Stig Magne

20

Years of Service

User Offline

Joined: 23rd Mar 2006

Location: Norway

Posted: 24th Aug 2013 20:28

Link

now i see

Thank You

**StigDesign** cheap 3D Modell Pack`s And Music at www.StigDesign.com
soon other aplication`s Software`s Game`s

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Track Selecting with Image of Arrow`s