Yoko

Code: Select all

sub CPFGen()
	var i = 10
	var k = 100000000
	var code = 0
	var hash1 = 0
	var hash2 = 0
	var n 
	repeat
		n = uo.Random(9)+1
		wait(150)
		code = code+n*k
		k = k/10
		hash2 = hash2+n
		hash1 = hash1+n*i
		i = i-1
	until i < 2
	hash2 = hash2+hash1 	
	hash1 = 11-mod(hash1, 11)
	if hash1 > 9 then 
		hash1 = 0
	end if
	hash2 = hash2+hash1*2
	hash2 = 11-mod(hash2, 11)
	if hash2 > 9 then 
		hash2 = 0
	end if
	uo.TextClear() 
	uo.TextPrint(str(code)+'-'+str(hash1)+str(hash2))
	uo.TextOpen()
	
end sub