function Ability(var int addr)
begin
var int i
for set i=1 to 1
writemem(addr-(1237)*1,str(5000+(i-1)*0))
writemem(addr-(1081)*1,str(9999+(i-1)*0))
writemem(addr+(0)*1,str(32639+(i-1)*0))
writemem(addr+(2)*1,str(32639+(i-1)*0))
writemem(addr+(4079)*1,str(120+(i-1)*0))
writemem(addr+(4095)*1,str(120+(i-1)*0))
writemem(addr+(4127)*1,str(65535+(i-1)*0))
writemem(addr+(4035)*1,str(120+(i-1)*0))
writemem(addr-(3921)*1,str(255+(i-1)*0))
end