If I understand you correctly, then this is what you want.
Public D, E, F
Sub Crackitman (Timername, name, safe)
if Isempty(world.getvariable ("CODE")) then
world.setvariable "CODE", "000"
end if
Dim CODE, A, B, C
CODE = world.getvariable ("CODE")
If CODE < 10 then
B = 0
C = 0
end if
if CODE < 100 and CODE > 9 then
C = 0
end if
A = mid (CODE, 1, 1)
B = mid (CODE, 2, 1)
C = mid (CODE, 3, 1)
if D <> A then
world.send "TURN 1 TO " & A
end if
if E <> B then
world.send "TURN 2 TO " & B
end if
if F <> C then
world.send "TURN 3 TO " & C
end if
world.send "open safe"
D = mid (CODE, 1, 1)
E = mid (CODE, 2, 1)
F = mid (CODE, 3, 1)
C = C + 1
if C = 10 then
C = 0
B = B + 1
end if
if B = 10 then
B = 0
A = A + 1
end if
CODE = A & B & C
D = mid (CODE, 1, 1)
E = mid (CODE, 2, 1)
F = mid (CODE, 3, 1)
If CODE = 1000 Then
CODE = 000
end if
world.setvariable "CODE", CODE
End Sub
~Rhinoa~ |