Code: Select all
sub randsummon()
var i = uo.random(2)
var l = 1
var m = str(i)
DIM j[3]
j[1] = uo.random(16)
j[2] = uo.random(16)
j[3] = uo.random(16)
// uo.print("Number: " + str(j[1]) + str(j[2]) + str(j[3]) ) Bugtesting
while l < 4
if j[l] == 10 then
j[l] = 'a'
end if
if j[l] == 11 then
j[l] = 'b'
end if
if j[l] == 12 then
j[l] = 'c'
end if
if j[l] == 13 then
j[l] = 'd'
end if
if j[l] == 14 then
j[l] = 'e'
end if
if j[l] == 15 then
j[l] = 'f'
end if
if j[l] <= 9 then
j[l] = str(j[l])
end if
m = m + j[l]
l = l + 1
wend
uo.print("Summoning:" + m)
uo.say(".addnpc " + m)
end sub