Code: Select all
type ac_lvl0
value as integer
key as integer
hash as integer
declare sub set (value as integer)
declare function get as integer
end type
sub ac_lvl0.set (value as integer)
static as integer ov,nv
ov = key
this.key = int(rnd*999999999)
nv = key
if ov = nv then value = 0
this.value = value xor key
hash = key * this.value
end sub
function ac_lvl0.get as integer
if hash = key* this.value then return value xor key else return -1
end function
'example starts here
locate ,,0
dim as ac_lvl0 value
value.set 10
do
select case inkey
case "+"
value.set value.get + 1
case "-"
value.set value.get - 1
if value.get < 0 then value.set 0
case chr(13)
exit do
end select
locate 1
print "Set me to 10000 and press enter(incrase/decrase with +/-)"
print "VALUE :"; value.get; space(2)
sleep 1
if value.get = -1 then print "Cheat detected!": exit do
loop
if value.get = 10000 then print "You did it!" else print "Fail"
sleep