Sorry your browser is not supported!

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

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

// x =  Random(2,5)
 

x as integer 
h as integer[5] = [0, 0, 0, 0, 0]

 
  
do


AddVirtualButton (1, 50, 300, 50)

	
		do
			
			if GetVirtualButtonPressed (1)
				
				//Create the number
				 x = Random(1,5)
				 
		//search the number in the string h
			index = h.find (x)
		
		 	 
		//If it finds the number it should retrieve -1 so:
		
	if index <> -1

//Print the number and insert it to the string to not repaeat it again

h.insert (x)
print(x)
endif

//if it finds the number it is supposed to return to the beginning and create a new number...

elseif index = -1

//Print ("b") 
//Print (x)
endif

sync()
loop


sync()
loop

Dim numberset[10] as integer
dim randompicks[5] as integer

for x=1 to 10
	numberset[x]=x
next

for x=1 to 5
	randomNumber=random(1,numberset.length)	
	randompicks[x] = numberset[randomNumber]
	numberset.remove(x)
next

do
for x=1 to 5
print(randompicks[x])	
next
    sync()
loop

Main()
end

function Main() 

	i as integer
	t as integer 
	b as integer 
	c as integer 
	local h as integer[4]
	h[0]=1
	h[1]=2
	h[2]=3
	h[3]=4
	h[4]=5
       
	do

		if GetPointerPressed()=2 then exit
             
		if GetPointerstate()=1
                 
				//for i=1 to 100
                 a = Random(0,4)
                 b = Random(0,4)
				 t=h[a]
				 h[a]=h[b]
				 h[b]=t
				//next
 
		endif
		
		for i=0 to 4
			print(h[i])
		next
		
		sync()
		
	loop
	
endfunction

// Create your set of numbers in an array - you can set as many numbers as you want
// The shuffle function will count how many numbers you have in your array

myNumbersArray as integer[5] = [0,1,2,3,4,5]

    // Main loop
do

    // Shuffle  myNumbersArray when pressing mouse button
if getpointerpressed() then Shuffle(myNumbersArray)

    // Print myNumbersArray to screen
for x=0 to myNumbersArray.length
	print(myNumbersArray[x])	
next

    sync()
loop

Function Shuffle(tArray ref as integer[])
	For tShuffleamount=1 to 100 // change 100 to decide how much shuffling - You could instead use tArray.length to shuffle all numbers 1 time
		//  tArray.length returns the size or your array (how many numbers)
        a=random(0,tArray.length)   //  Change 0 to 1 if you don´t want zero to be shuffled
		b=random(0,tArray.length)  // Change 0 to 1 if you don´t want zero to be shuffled
		
		t=tArray[a]
		tArray[a]=tArray[b]
		tArray[b]=t
	next
endfunction

global deckSize = 52

dim cards[deckSize]



function getRandomCard()
    if deckSize = 0 then deckSize = 52
    a = random(1, deckSize)
    n = cards[a]
    temp = cards[deckSize]
    cards[deckSize] = cards[a]
    cards[a] = temp
    dec deckSize
endfunction n