premium script dont work (help plz)

[Himad]

Hello guys, i found this script on the archiv but i've got a problem with it:
I use only Sorc -> Ms
And if i change those numbers it debuggs, while login.

Can anybody help? I just want to use it with 8 Vocations

1 Sorcerer (free acc)
2 Druid (free acc)
3 Paladin (free acc)
4 Knight (free acc)

5 MS - premium
6 ED - premium
7 RP - premium
8 EK - premium
I hope you could understand what i mean

function onLogin(cid)
local maxvalue = getPlayerStorageValue(cid,60500)
local pacc = getPlayerPremiumDays(cid)
local voc = getPlayerVocation(cid)
local setVoc = getPlayerStorageValue(cid,60501)
local newVoc = voc+4
local outfit1 = 273 --first outfit (addons) to get
local outfit2 = 268 --second outfit (addons) to get
local outfit3 = 278 --third outfit (addons) to get
if pacc >= 1 then --if player has premium
if maxvalue >= 2 then
doPlayerSendTextMessage(cid,22,"Thanks you for buying vip account! (AGAIN) ")
elseif maxvalue == -1 or maxvalue == 1 or maxvalue == 0 then
doPlayerAddOutfit(cid,outfit1,1)
doPlayerAddOutfit(cid,outfit1,2)
doPlayerAddOutfit(cid,outfit2,1)
doPlayerAddOutfit(cid,outfit2,2)
doPlayerAddOutfit(cid,outfit2,1)
doPlayerAddOutfit(cid,outfit2,2)
setPlayerStorageValue(cid,190001,1)
setPlayerStorageValue(cid,190002,1)
setPlayerStorageValue(cid,170001,1)
setPlayerStorageValue(cid,170002,1)
setPlayerStorageValue(cid,180001,1)
setPlayerStorageValue(cid,180002,1)
if voc < 9 then
setPlayerStorageValue(cid,60500,2)
setPlayerStorageValue(cid,60501,voc)
doPlayerSendTextMessage(cid,22,"Thanks you for buying vip account! To see the features of Vip-Account type '!vipinfo'.")
doPlayerSetVocation(cid,newVoc)
elseif getPlayerVocation(cid) > 8 then
doPlayerSendTextMessage(cid,22,"Thanks you for buying vip account! To see the features of Vip-Account type '!vipinfo'.")
end
end
elseif pacc < 1 then --if player doesn't have pacc
if maxvalue >= 2 then -- if player already had vip
if getPlayerVocation(cid) >= 9 then
setPlayerStorageValue(cid,60500,1)
doPlayerSendTextMessage(cid,22,"Your vip account ran out!")
doPlayerSetVocation(cid,setVoc)
doPlayerRemOutfit(cid,outfit1,1)
doPlayerRemOutfit(cid,outfit1,2)
doPlayerRemOutfit(cid,outfit2,1)
doPlayerRemOutfit(cid,outfit2,2)
doPlayerRemOutfit(cid,outfit2,1)
doPlayerRemOutfit(cid,outfit2,2)
setPlayerStorageValue(cid,190001,-1)
setPlayerStorageValue(cid,190002,-1)
setPlayerStorageValue(cid,170001,-1)
setPlayerStorageValue(cid,170002,-1)
setPlayerStorageValue(cid,180001,-1)
setPlayerStorageValue(cid,180002,-1)
elseif getPlayerVocation(cid) < 9 then
doPlayerSendTextMessage(cid,22,"Your vip account ran out!")
doPlayerRemOutfit(cid,outfit1,1)
doPlayerRemOutfit(cid,outfit1,2)
doPlayerRemOutfit(cid,outfit2,1)
doPlayerRemOutfit(cid,outfit2,2)
setPlayerStorageValue(cid,60500,1)
doPlayerRemOutfit(cid,outfit2,1)
doPlayerRemOutfit(cid,outfit2,2)
setPlayerStorageValue(cid,190001,-1)
setPlayerStorageValue(cid,190002,-1)
setPlayerStorageValue(cid,170001,-1)
setPlayerStorageValue(cid,170002,-1)
setPlayerStorageValue(cid,180001,-1)
setPlayerStorageValue(cid,180002,-1)
end
elseif maxvalue < 2 then
doPlayerSendTextMessage(cid,22,"Welcome "..getPlayerName(cid).."! Because of financial problems I need some cash to host this OT and you can buy Vip Account which will bring you many advantages and help me. For more information type '!vipinfo'.")
end
end
end

i hope someone can help me
my e-mail is [email protected]
thanks..