My sprite background is Flicking... why???

Author

Message

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 19th May 2015 18:55 Edited at: 19th May 2015 21:24

Link

Hi all

i had made a shop, with an "Add" button in, but when i click it with the mouse my background is flicking. i had tryed with sleep and wait command. any other why to have the program wait around 150-200ms

if i not have the sleep or wait command in the "Add Button" loop the program is adding like 10 or 15 pices at the time because of the mouse is = 1 But my background is not flicking.

i just need it to one at the time, for each click on the mouse, without my background is flicking

Thx.

rem /// Landing Pad "BUY" Shop
        rem /////////////////////////////////
        
        Landing_Pad_001_Buy_Shop:
        
        rem /// loading the default image from the "Default Cargo Slot 1"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_1_ID
        rem /// loading the default image from the "Default Cargo Slot 2"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_2_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_2_ID
        rem /// loading the default image from the "Default Cargo Slot 3"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_3_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_3_ID
        rem /// loading the default image from the "Default Cargo Slot 4"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_4_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_4_ID
        
        rem /// Loading GreyedOut Add Button 
        load image Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_path, Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_ID
        rem /// Loading Greyed Out Subtract Button
        load image Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_path, Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_ID
        rem /// Loading Greyed Out Cancel Button
        load image Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_path, Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_ID
        rem /// Loading Greyed Out Accept Button
        load image Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_path, Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_ID
        
        rem /// Loading Clean Add Button 
        load image Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_path, Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
        rem /// Loading Clean Subtract Button
        load image Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_Clean_path, Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_Clean_ID
        rem /// Loading Clean Cancel Button
        load image Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_path, Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
        rem /// Loading Clean Accept Button
        load image Interface(0).Buy_Sop_Landing_Pad_Accept_Button_Clean_path, Interface(0).Buy_Sop_Landing_Pad_Accept_Button_Clean_ID
        
        rem /// sætter skrift typr til "Ariel"
        set text font "Ariel"
        rem /// sætter tekst til fed
        set text to bold
        rem /// sætter skrift størrelse til "26"
        set text size 26
    
        rem load image Interface(0).Buy_Shop_Landing_Pad_001_path ,Interface(0).Buy_Shop_Landing_Pad_001_ID
        sprite 238,0,0,Interface(0).Buy_Shop_Landing_Pad_001_ID
        rem hide the sprite
        hide sprite 238
    
        rem /// Variabel til at styr om +/- Cancel og Accept knap er aktive eller inactive ---> 0 = inactive ---> 1 = Active
        global Activate_Control_Buttons = 0
        
        rem /// variabel til at styre hvor meget man køber i Buy Shoppen
        global Buy_Cargo_Quantity = 0
        
        rem /// Variabel til at styre hvor mange penge man bruger i Buy Shoppen
        global Total_Money_Spent = 0
        
        do
            
            rem /// paste the background "Buy Shop" image
            paste sprite 238,0,0
            
            rem /// printing all the Default Material Buttons and Materials image
            Printing_Default_Cargo_Material_Buttons()
           
            rem printer mængden af cargo man skal købe
            set cursor 940,325 : Print Buy_Cargo_Quantity
            rem printer mængden af penge som cargo'en koster
            set cursor 940,385 : print Total_Money_Spent            
           
            rem /// sætter "ADD" Button Greyed out
            sprite 242,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_ID
            rem /// sætter "SUBTRACT" Button Greyed out
            sprite 244,1108,312,Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_ID
            rem /// sætter "CANCEL" Button Greyed out
            sprite 246,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_ID
            rem /// sætter "ACCEPT" Button Greyed out
            sprite 248,1048,372,Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_ID
           
                 
            rem /// Slot 1 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 300 and mousey() < 453 and mouseclick()=1
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 240 er aktiv og der efter sletter sprite 240
                if sprite exist(240) then delete sprite 240      
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242  
                
                                
                rem sætter Default Cargo Material Slot 1 path -- til --> Default "BUY" Cargo Material Slot 1 path. bruges til at hente billedet af material
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_1_path
                rem sætter Default Cargo Material Slot 1 ID -- til --> Default "BUY" Cargo Material Slot 1 ID. bruges til at indentifisere billed numer
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_1_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot                
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                                
                Activate_Control_Buttons = 1         
            
            endif
            
            
            rem /// Slot 2 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 470 and mousey() < 624 and mouseclick()=1
            
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240 
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242   
                
                
                rem sætter material fra Cargo slot 2 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_2_path
                rem sætter material fra Cargo slot 2 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_2_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
           
            endif
            
            
            
            rem /// Slot 3 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 640 and mousey() < 795 and mouseclick()=1
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240 
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242  
                
                rem sætter material fra Cargo slot 3 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_3_path
                rem sætter material fra Cargo slot 3 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_3_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
                
            endif
            
            
            rem /// Slot 4 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 810 and mousey() < 964 and mouseclick()=1
            
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242 
                
                rem sætter material fra Cargo slot 4 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_4_path
                rem sætter material fra Cargo slot 4 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_4_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
              
            endif
            
            rem ///////////////////// + - Cancel Accept BUTTON HERE //////////////////////////
            
            rem /// ADD Button
            rem ///////////////////////////
            if mousex() > 1048 and mousex() < 1098 and mousey() > 312 and mousey() < 362 and mouseclick()=1 and Activate_Control_Buttons = 1
                    
                    
                    
                    
                    Buy_Cargo_Quantity = Buy_Cargo_Quantity + 1
                    
            endif
            
            
            
            
            rem /// Cancel Button
            rem ///////////////////////////
            if mousex() > 1108 and mousex() < 1158 and mousey() > 372 and mousey() < 422 and mouseclick()=1 and Activate_Control_Buttons = 1
                
                rem Sletter alle sprites
                rem Close_Dashborads()
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 248 er aktiv og der efter sletter sprite 248
                if sprite exist(247) then delete sprite 247  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(245) then delete sprite 245  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 244 er aktiv og der efter sletter sprite 244
                if sprite exist(243) then delete sprite 243  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(241) then delete sprite 241
                
                rem /// laver Control knapper om til inactive
                Activate_Control_Buttons = 0
            
                goto Landing_Pad_001_Buy_Shop
                
            endif
            
            
            rem /// "back button" gå tilbage  til Touchdown Interface.
            if mousex() > 10 and mousex() < 90 and mousey() > 10 and mousey() < 90 and mouseclick()=1 
                
                rem /// Closing any open Dashboards or delete any sprite from screen
                Close_Dashborads()
               
                rem **********************************************************
               
                rem /// SKAL I EN TIMER
               
                
                Ground_Quartz_Sand_ID = 0
                Metal_Titanium_ID = 0
                Wood_Mahogany_ID = 0
                Wood_Yellow_Cedar_ID = 0
                Wood_Western_Red_Cedar_ID = 0
                
                
                
               
                 rem *************************************************************
                
                rem /// sætter variablen "Four_Cargo_Types_Selected" til "0"  
                Four_Cargo_Types_Selected = 0
                
                rem /// Delete Interface for Buy Shop at Landing Pad 001 
                if image exist(247) then delete image 247
                                             
                rem /// vender tilbage til touchdown interface 
                goto Landing_Pad_001_Shop
            
            endif    
            
                       
        loop     
    
    endif

+ Code Snippet

rem /// Landing Pad "BUY" Shop
        rem /////////////////////////////////
        
        Landing_Pad_001_Buy_Shop:
        
        rem /// loading the default image from the "Default Cargo Slot 1"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_1_ID
        rem /// loading the default image from the "Default Cargo Slot 2"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_2_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_2_ID
        rem /// loading the default image from the "Default Cargo Slot 3"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_3_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_3_ID
        rem /// loading the default image from the "Default Cargo Slot 4"
        load image Fortress_Ksi(0).Default_Cargo_Material_Slot_4_path, Fortress_Ksi(0).Default_Cargo_Material_Slot_4_ID
        
        rem /// Loading GreyedOut Add Button 
        load image Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_path, Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_ID
        rem /// Loading Greyed Out Subtract Button
        load image Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_path, Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_ID
        rem /// Loading Greyed Out Cancel Button
        load image Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_path, Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_ID
        rem /// Loading Greyed Out Accept Button
        load image Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_path, Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_ID
        
        rem /// Loading Clean Add Button 
        load image Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_path, Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
        rem /// Loading Clean Subtract Button
        load image Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_Clean_path, Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_Clean_ID
        rem /// Loading Clean Cancel Button
        load image Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_path, Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
        rem /// Loading Clean Accept Button
        load image Interface(0).Buy_Sop_Landing_Pad_Accept_Button_Clean_path, Interface(0).Buy_Sop_Landing_Pad_Accept_Button_Clean_ID
        
        rem /// sætter skrift typr til "Ariel"
        set text font "Ariel"
        rem /// sætter tekst til fed
        set text to bold
        rem /// sætter skrift størrelse til "26"
        set text size 26
    
        rem load image Interface(0).Buy_Shop_Landing_Pad_001_path ,Interface(0).Buy_Shop_Landing_Pad_001_ID
        sprite 238,0,0,Interface(0).Buy_Shop_Landing_Pad_001_ID
        rem hide the sprite
        hide sprite 238
    
        rem /// Variabel til at styr om +/- Cancel og Accept knap er aktive eller inactive ---> 0 = inactive ---> 1 = Active
        global Activate_Control_Buttons = 0
        
        rem /// variabel til at styre hvor meget man køber i Buy Shoppen
        global Buy_Cargo_Quantity = 0
        
        rem /// Variabel til at styre hvor mange penge man bruger i Buy Shoppen
        global Total_Money_Spent = 0
        
        do
            
            rem /// paste the background "Buy Shop" image
            paste sprite 238,0,0
            
            rem /// printing all the Default Material Buttons and Materials image
            Printing_Default_Cargo_Material_Buttons()
           
            rem printer mængden af cargo man skal købe
            set cursor 940,325 : Print Buy_Cargo_Quantity
            rem printer mængden af penge som cargo'en koster
            set cursor 940,385 : print Total_Money_Spent            
           
            rem /// sætter "ADD" Button Greyed out
            sprite 242,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_GreyedOut_ID
            rem /// sætter "SUBTRACT" Button Greyed out
            sprite 244,1108,312,Interface(0).Buy_Shop_Landing_Pad_Subtract_Button_GreyedOut_ID
            rem /// sætter "CANCEL" Button Greyed out
            sprite 246,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_GreyedOut_ID
            rem /// sætter "ACCEPT" Button Greyed out
            sprite 248,1048,372,Interface(0).Buy_Sop_Landing_Pad_Accept_Button_GreyedOut_ID
           
                 
            rem /// Slot 1 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 300 and mousey() < 453 and mouseclick()=1
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 240 er aktiv og der efter sletter sprite 240
                if sprite exist(240) then delete sprite 240      
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242  
                
                                
                rem sætter Default Cargo Material Slot 1 path -- til --> Default "BUY" Cargo Material Slot 1 path. bruges til at hente billedet af material
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_1_path
                rem sætter Default Cargo Material Slot 1 ID -- til --> Default "BUY" Cargo Material Slot 1 ID. bruges til at indentifisere billed numer
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_1_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot                
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                                
                Activate_Control_Buttons = 1         
            
            endif
            
            
            rem /// Slot 2 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 470 and mousey() < 624 and mouseclick()=1
            
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240 
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242   
                
                
                rem sætter material fra Cargo slot 2 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_2_path
                rem sætter material fra Cargo slot 2 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_2_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
           
            endif
            
            
            
            rem /// Slot 3 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 640 and mousey() < 795 and mouseclick()=1
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240 
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242  
                
                rem sætter material fra Cargo slot 3 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_3_path
                rem sætter material fra Cargo slot 3 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_3_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
                
            endif
            
            
            rem /// Slot 4 --> Buy Slot
            rem ////////////////////////////////////
            
            if mousex() > 225 and mousex() < 379 and mousey() > 810 and mousey() < 964 and mouseclick()=1
            
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(246) then delete sprite 246  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(242) then delete sprite 242 
                
                rem sætter material fra Cargo slot 4 path til Buy shop Cargo slot 5 path
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path = Fortress_Ksi(0).Default_Cargo_Material_Slot_4_path
                rem sætter material fra Cargo slot 4 ID til Buy shop Cargo slot 5 ID
                Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID = Fortress_Ksi(0).Default_Cargo_Material_Slot_4_ID
                
                rem loader billedet som skal være i Buy shoppens 5. slot
                load image Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_path, Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                rem sætter spiten i framen til 5. Cargo slot
                sprite 240,762,302,Fortress_Ksi(0).Default_Buy_Cargo_Material_Slot_1_ID
                
                rem sætter Add Button Clean
                sprite 241,1048,312,Interface(0).Buy_Shop_Landing_Pad_Add_Button_Clean_ID
                rem sætter Cancel Button Clean
                sprite 245,1108,372,Interface(0).buy_Shop_Landing_Pad_Cancel_Button_Clean_ID
                
                Activate_Control_Buttons = 1
              
            endif
            
            rem ///////////////////// + - Cancel Accept BUTTON HERE //////////////////////////
            
            rem /// ADD Button
            rem ///////////////////////////
            if mousex() > 1048 and mousex() < 1098 and mousey() > 312 and mousey() < 362 and mouseclick()=1 and Activate_Control_Buttons = 1
                    
                    
                    
                    
                    Buy_Cargo_Quantity = Buy_Cargo_Quantity + 1
                    
            endif
            
            
            
            
            rem /// Cancel Button
            rem ///////////////////////////
            if mousex() > 1108 and mousex() < 1158 and mousey() > 372 and mousey() < 422 and mouseclick()=1 and Activate_Control_Buttons = 1
                
                rem Sletter alle sprites
                rem Close_Dashborads()
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 1 er aktiv og der efter sletter sprite 1
                if sprite exist(240) then delete sprite 240
                
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 248 er aktiv og der efter sletter sprite 248
                if sprite exist(247) then delete sprite 247  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 246 er aktiv og der efter sletter sprite 246
                if sprite exist(245) then delete sprite 245  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 244 er aktiv og der efter sletter sprite 244
                if sprite exist(243) then delete sprite 243  
                rem /// tjekker om der er et åbent vindue, ved at tjekker efter om sprite 242 er aktiv og der efter sletter sprite 242
                if sprite exist(241) then delete sprite 241
                
                rem /// laver Control knapper om til inactive
                Activate_Control_Buttons = 0
            
                goto Landing_Pad_001_Buy_Shop
                
            endif
            
            
            rem /// "back button" gå tilbage  til Touchdown Interface.
            if mousex() > 10 and mousex() < 90 and mousey() > 10 and mousey() < 90 and mouseclick()=1 
                
                rem /// Closing any open Dashboards or delete any sprite from screen
                Close_Dashborads()
               
                rem **********************************************************
               
                rem /// SKAL I EN TIMER
               
                
                Ground_Quartz_Sand_ID = 0
                Metal_Titanium_ID = 0
                Wood_Mahogany_ID = 0
                Wood_Yellow_Cedar_ID = 0
                Wood_Western_Red_Cedar_ID = 0
                
                
                
               
                 rem *************************************************************
                
                rem /// sætter variablen "Four_Cargo_Types_Selected" til "0"  
                Four_Cargo_Types_Selected = 0
                
                rem /// Delete Interface for Buy Shop at Landing Pad 001 
                if image exist(247) then delete image 247
                                             
                rem /// vender tilbage til touchdown interface 
                goto Landing_Pad_001_Shop
            
            endif    
            
                       
        loop     
    
    endif

Back to top

Profile PM

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 19th May 2015 20:04

Link

i had made a bit simpler code to look at, it still do the flicking thing when i click mouse button, if i use wait or sleep. and if not. it Count fast as hell. i need one click + 1 to label.

set display mode 1920,1080,32,1
        
        
        load image "I:\Projekt\Enemy of the evil\Media\Interface\Shop\Buy_Shop_For_LP001.png",1
        
        load image "I:\Projekt\Enemy of the evil\Media\Interface\Shop\PlusButtonClean.png",2
        
        sprite 238,0,0,1
        rem hide the sprite
        hide sprite 238
        
        sprite 239,225,300,2
        
        
        global label = 0
        
        do
         
            rem /// paste the background "Buy Shop" image
            paste sprite 238,0,0
            
            
            set cursor 0,10 : print label
            
            
            
            
            
            
        if mousex() > 225 and mousex() < 379 and mousey() > 300 and mousey() < 453 and mouseclick()=1  
            
                            
               
              
               label = label +1  
            
            
            
            
            
           
        endif
            
            
            
            
            
       loop

+ Code Snippet


set display mode 1920,1080,32,1
        
        
        load image "I:\Projekt\Enemy of the evil\Media\Interface\Shop\Buy_Shop_For_LP001.png",1
        
        load image "I:\Projekt\Enemy of the evil\Media\Interface\Shop\PlusButtonClean.png",2
        
        sprite 238,0,0,1
        rem hide the sprite
        hide sprite 238
        
        sprite 239,225,300,2
        
        
        global label = 0
        
        do
         
            rem /// paste the background "Buy Shop" image
            paste sprite 238,0,0
            
            
            set cursor 0,10 : print label
            
            
            
            
            
            
        if mousex() > 225 and mousex() < 379 and mousey() > 300 and mousey() < 453 and mouseclick()=1  
            
                            
               
              
               label = label +1  
            
            
            
            
            
           
        endif
            
            
            
            
            
       loop

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2015 21:09

Link

Two things... can you edit your first post to include code tags round that code please. Just to make this thread better to navigate.

Second thing, I think it's because there's no sync.

Add this to the top of your code or just after the display mode.
Sync On : Sync Rate 60

Add this at the bottom right before loop:
Sync

"Get in the Van!" - Van B

Back to top

Profile PM Email

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 19th May 2015 21:26 Edited at: 19th May 2015 21:27

Link

i had sync on i another file, it sync rate 100, but if i put Down sync rate 6 inside the Mouse click if condision it seems to Work. thx mate. you just pushed me out of the edge

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2015 23:54 Edited at: 19th May 2015 23:56

Link

Quote: "but if i put Down sync rate 6 inside the Mouse click if condision it seems to Work"

Wooow! You don't want to do that, your game will be running at like 6 frames a second. What's happening is when you click down the mouse, your processing the loop many times in the time it takes to stop clicking so that bit of code will add alot. The idea is to check to see if it's being click and only excute the action once. The best way to do this is store the old mouseclick and you compare it to the current to work out if the mouse is being held down.

Example:

+ Code Snippet

omc = mc
mc = mouseclick()

mx = mousex()
my = mousey()

if mc > 0 and mc <> omc
    if mx > 225 and my > 300
        if mx < 379 and my < 453
            label = label + 1
        endif
    endif
endif

if mc > 0 and mc <> omc
[if MouseClick > 0 and MouseClick <> OldMouseClick]

What this does is check to see if the mouse is being pressed down (any button = mc > 0) but also check to see if the old mouse is different. If it is then it means the mouseclick has changed state and isn't being held down and it will process our code. If it is being held down then it won't process it.

"Get in the Van!" - Van B

Back to top

Profile PM Email

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 20th May 2015 22:06

Link

Thx i will try that out, tomorrow mate,

Back to top

Profile PM

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 23rd May 2015 06:43 Edited at: 23rd May 2015 06:56

Link

hmm cant get it to Work mate

nothing happens when i click the mouse button. like it never entering the loop

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 23rd May 2015 09:21

Link

Try this:

+ Code Snippet

if mousex() > 225 and mousex() < 379 and mousey() > 300 and mousey() < 453 and mouseclick()=1 and addflag=0
  label = label +1 : addflag=label:wait 100
endif
if mouseclick()=0 then addflag=0

Back to top

Profile PM

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 23rd May 2015 17:39 Edited at: 23rd May 2015 17:40

Link

Hey, mate it seems to Work out fine. thx a lot. for the help

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 23rd May 2015 18:50

Link

He's an example using my code:

+ Code Snippet

set text size 30
sync on : sync rate 60

do : cls
    
    omc = mc
    mc = mouseclick()
    
    mx = mousex()
    my = mousey()
    
    if mx > 225 and my > 300
        if mx < 379 and my < 453
        
            ink rgb(200,128,129)
            box 225,300,379,453
            
            if mc > 0 and mc <> omc
                label = label + 1
            endif
            
        else
        
            ink rgb(128,128,200)
            box 225,300,379,453
            
        endif
    endif
    
    ink 0
    text 225+4,300+4, str$( label )
    
    sync
loop

Just note that the Wait command used in Scorpyo's example will pause your entire game for the length it's set. So along as you have nothing else updating then use it.

"Get in the Van!" - Van B

Back to top

Profile PM Email

Ghost Games

18

Years of Service

User Offline

Joined: 1st Aug 2007

Location:

Posted: 23rd May 2015 19:08 Edited at: 23rd May 2015 19:19

Link

Hey, mate it seems to Work out fine. with the mouse counter one at the time, but my background now flicking Again. the background is a sprite i had pasted inside the do loop. but the funny thing is that all my other pasted sprites do not Flick. only the background.

have not tryed the last one, with your ex. it took some time to update my post

YEAH!! your exampel, was perfekt Sasuke. no flicking background and mouseclick is working perfeck.

thx to you both of you to take time to help. thx

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / My sprite background is Flicking... why???