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
уних какаято муторная регистрация... надо какой то код вводить, так и не осилил перевод...