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