Code:
--------------------------------------------------rebirth lvl2
function dina_talk11()
Talk( 1, "2nd Rebirth Angel: I see you've gone through the 2nd Rebirth quests, This is where your prize is given to you for establishing peace through out the world and finding it's most preacius treasures." )
Text( 1, "I wish to Reincarnate", JumpPage, 2)
Text( 1, "I wish to know more", JumpPage, 3)
Text( 1, "I am having problems on 2nd Rebirth", JumpPage, 5 )
Text( 1, "I have not done this task.", CloseTalk)
Talk( 2, "2nd Rebirth Angel: So you have done the task? Select the best option for you." )
Text( 2, "Become a Crusader to uphold justice and peace", GetChaName1_born2, 1)
Text( 2, "Become a Champion to protect companion", GetChaName2_born2, 1)
Text( 2, "Become a voyager to sail the seas", GetChaName3_born2, 1)
Text( 2, "Become a Sharpshooter to vanquish your enemies", GetChaName4_born2, 1)
Text( 2, "Become a Cleric to heal the sick", GetChaName5_born2, 1)
Text( 2, "Become a Seal Master to do anything", GetChaName6_born2, 1)
Text( 2, "I do not wish to do 2nd Rebirth right now", CloseTalk)
Talk( 3, "What do you wish to know more about?" )
Text( 3, "Classes after 2nd Rebirth", JumpPage, 4 )
Talk( 5, "Whats wrong?" )
Text( 5, "I have the 2nd Rebirth stone, but it wont let me!", JumpPage, 6)
Text( 5, "I don't know where to do the quests!", JumpPage, 7)
Text( 5, "The High Priest will not hand me any quests!", JumpPage, 8)
Talk( 6, "Take off all your equips, including rings and necklesses. Make sure you are choosing your new class according to race.")
Text( 6, "Let me try once again!", JumpPage, 1)
Talk( 7, "We have not done/translated all the quests. Please wait untill we can get all the according files and have these quests translated")
Text( 7, "I understand", CloseTalk )
Talk( 8, "Have you done Rebirth task? It is required to stand the 2nd Rebirth quests." )
Text( 8, "YES! I have done it", JumpPage, 9 )
Text( 8, "I have not", JumpPage, 10 )
Talk( 9, "If you have done it, nothing is wrong, try checking if you have already done the quest and/or a GM set you a quest record")
Text( 9, "I will check", CloseTalk )
Talk( 10, "Then why are you here? You cannot start 2nd Rebirth until you have completed your 1st Rebirth.")
Text( 10, "Sorry for my lack of inteligence", CloseTalk )
end
---------------------3rd Rebith-------------------------------------
function dina_talk12()
Talk( 1, "3nd Rebirth Angel: I see you've gone through the 2nd Rebirth quests, This is where your prize is given to you for establishing peace through out the world and finding it's most preacius treasures." )
Text( 1, "I wish to Reincarnate", JumpPage, 2)
Text( 1, "I wish to know more", JumpPage, 3)
Text( 1, "I am having problems on 3nd Rebirth", JumpPage, 5 )
Text( 1, "I have not done this task.", CloseTalk)
Talk( 2, "3nd Rebirth Angel: So you have done the task? Select the best option for you." )
Text( 2, "Become a Crusader to uphold justice and peace", GetChaName1_born3, 1)
Text( 2, "Become a Champion to protect companion", GetChaName2_born3, 1)
Text( 2, "Become a voyager to sail the seas", GetChaName3_born3, 1)
Text( 2, "Become a Sharpshooter to vanquish your enemies", GetChaName4_born3, 1)
Text( 2, "Become a Cleric to heal the sick", GetChaName5_born3, 1)
Text( 2, "Become a Seal Master to do anything", GetChaName6_born3, 1)
Text( 2, "I do not wish to do 3nd Rebirth right now", CloseTalk)
Talk( 3, "What do you wish to know more about?" )
Text( 3, "Classes after 3nd Rebirth", JumpPage, 4 )
Talk( 5, "Whats wrong?" )
Text( 5, "I have the 3nd Rebirth stone, but it wont let me!", JumpPage, 6)
Text( 5, "I don't know where to do the quests!", JumpPage, 7)
Text( 5, "The High Priest will not hand me any quests!", JumpPage, 8)
Talk( 6, "Take off all your equips, including rings and necklesses. Make sure you are choosing your new class according to race.")
Text( 6, "Let me try once again!", JumpPage, 1)
Talk( 7, "We have not done/translated all the quests. Please wait untill we can get all the according files and have these quests translated")
Text( 7, "I understand", CloseTalk )
Talk( 8, "Have you done Rebirth task? It is required to stand the 3nd Rebirth quests." )
Text( 8, "YES! I have done it", JumpPage, 9 )
Text( 8, "I have not", JumpPage, 10 )
Talk( 9, "If you have done it, nothing is wrong, try checking if you have already done the quest and/or a GM set you a quest record")
Text( 9, "I will check", CloseTalk )
Talk( 10, "Then why are you here? You cannot start 3nd Rebirth until you have completed your 1st&2nd Rebirth.")
Text( 10, "Sorry for my lack of inteligence", CloseTalk )
end
and then put this in
Code:
------------------------------Dina Rebirth
------------------------------
function GetChaName1_born2 ( role,npc )
-----------------Crusader Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 then
SystemNotice( role ,"Only Lance,Phyllis,Carsise Can Become Crusader")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,9 )
GiveItem_chibang2 ( role ) --Wings Add
local sk_add = SK_WYZ
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Champ
function GetChaName2_born2 ( role,npc )
-----------------Champ Born
local cha_type = GetChaTypeID ( role )
if cha_type~=2 then
SystemNotice( role ,"Only Carsise Can become Champion")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,8 )
GiveItem_chibang2 ( role ) --Wings Add
local sk_add = SK_BSJ
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Voyager
function GetChaName3_born2 ( role,npc )
-----------------?Voyager Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and Cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Voyager")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------GiveSkill
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,16 )
GiveItem_chibang2 ( role ) --Wings Add
local sk_add = SK_CYN
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------SharpShooter
function GetChaName4_born2 ( role,npc )
-----------------?Sharpshooter Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=3 then
SystemNotice( role ,"Only Lance,Phyllis Can Become Sharpshooter")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,12 )
GiveItem_chibang2 ( role ) --Wings Add
local sk_add = SK_HLP
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Cleric
function GetChaName5_born2 ( role,npc )
-----------------Cleric Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Cleric")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,13 )
GiveItem_chibang2 ( role ) --Rebirth Wings Add
local sk_add = SK_SSSP
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Seal Master
function GetChaName6_born2 ( role,npc )
-----------------?Seal Master Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Seal Master")
return
end
local check=GetChaName_born2 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------SkillAdd
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,14 )
GiveItem_chibang2 ( role ) --Rebirth Wings Add
local sk_add = SK_SSSP
AddChaSkill ( role , sk_add , 2 , 2 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
function GiveItem_chibang2 ( role )
local cha_type = GetChaTypeID ( role )
if cha_type==1 then
GiveItem( role , 0 , 136 , 1 , 4 )
elseif cha_type==2 then
GiveItem( role , 0 , 139 , 1 , 4 )
elseif cha_type==3 then
GiveItem( role , 0 , 129 , 1 , 4 )
elseif cha_type==4 then
GiveItem( role , 0 , 132 , 1 , 4 )
end
end
-------------------------------Check Lv2 RB
function GetChaName_born2 ( role )
-----------------??????
local cha_name = GetChaDefaultName ( role )
-----------------??????
local cha_lv = GetChaAttr(role, ATTR_LV)
-----------------??????
local cha_job = GetChaAttr(role, ATTR_JOB)
-----------------???????????????
local i = CheckBagItem( role, 5858 )
if i < 1 then
SystemNotice( role ,"Please Give Me Ur Lv1 Rebirth Stone")
return 0
end
local op1 = CheckBagItem( role, 134 )
local op2 = CheckBagItem( role, 138 )
local op3 = CheckBagItem( role, 128 )
local op4 = CheckBagItem( role, 131 )
if op1 < 1 and op2 < 1 and op3 < 1 and op4 < 1 then
SystemNotice( role ,"You are not rebirth one yet")
return 0
end
-----------------????????????
local item_empty=IsEquip(role)
if item_empty==LUA_TRUE then
SystemNotice(role,"Please place the item from character's equipment slot into the inventory")
return 0
end
-----------------????????????
local Item_CanGet = GetChaFreeBagGridNum ( role )
if Item_CanGet < 1 then
SystemNotice(role ,"Inventory Needs Atleast 1 Free Slot")
UseItemFailed ( role )
return 0
end
local zs1 =TakeItem( role, 0,5858, 1 )
if zs1==0 then
SystemNotice ( role ,"Gather Lv2 Rebirth Stone Failed")
return 0
end
------------------???????????
local Zs_Exp = GetChaAttr ( role , ATTR_CSAILEXP )
if Zs_Exp >=10000 then
SystemNotice(role ,"U have Already Done Lv2 Rebirth")
return 0
end
local cha_skill_num=GetChaAttr(role, ATTR_TP )
local clear_skill_num=ClearFightSkill(role)
cha_skill_num=cha_skill_num+clear_skill_num
SetChaAttr(role, ATTR_TP ,cha_skill_num )
local ap = GetChaAttr( role , ATTR_AP )
local cha_str = GetChaAttr(role, ATTR_BSTR )
local cha_dex = GetChaAttr(role, ATTR_BDEX )
local cha_agi = GetChaAttr(role, ATTR_BAGI )
local cha_con = GetChaAttr(role, ATTR_BCON )
local cha_sta = GetChaAttr(role, ATTR_BSTA )
ap=ap+cha_str+cha_dex+cha_agi+cha_con+cha_sta-25
SetChaAttr(role, ATTR_BSTR ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BDEX ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BAGI ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BCON,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BSTA,5 )
SyncChar(role,4)
SetChaAttr(role , ATTR_AP,ap )
SyncChar(role,4)
AddSailExp(role, npc , 1 , 1 )
local sk_add = SK_ZSSL
--AddChaSkill ( role , sk_add , 2 , 2 , 0 )
AddChaSkill ( role , sk_add , 2 , 1 , 0 )
PlayEffect( npc, 361 )
Notice("Extreme celebration "..cha_name.." Rebirth 2nd successful. Blessing from the whole server "..cha_name.." Hope you have a safe journey and everything goes your way!")
return 1
end
------------------------------Dina Lv3 Rebirth
function GetChaName1_born3 ( role,npc )
-----------------Crusader Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 then
SystemNotice( role ,"Only Lance,Phyllis,Carsise Can Become Crusader")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,9 )
GiveItem_chibang3 ( role ) --Wings Add
local sk_add = SK_WYZ
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Champ
function GetChaName2_born3 ( role,npc )
-----------------Champ Born
local cha_type = GetChaTypeID ( role )
if cha_type~=2 then
SystemNotice( role ,"Only Carsise Can become Champion")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,8 )
GiveItem_chibang3 ( role ) --Wings Add
local sk_add = SK_BSJ
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Voyager
function GetChaName3_born3 ( role,npc )
-----------------?Voyager Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and Cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Voyager")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------GiveSkill
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,16 )
GiveItem_chibang3 ( role ) --Wings Add
local sk_add = SK_CYN
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------SharpShooter
function GetChaName4_born3 ( role,npc )
-----------------?Sharpshooter Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=3 then
SystemNotice( role ,"Only Lance,Phyllis Can Become Sharpshooter")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,12 )
GiveItem_chibang3 ( role ) --Wings Add
local sk_add = SK_HLP
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Cleric
function GetChaName5_born3 ( role,npc )
-----------------Cleric Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Cleric")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------Skill Add
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,13 )
GiveItem_chibang3 ( role ) --Rebirth Wings Add
local sk_add = SK_SSSP
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
-------------------------------Seal Master
function GetChaName6_born3 ( role,npc )
-----------------?Seal Master Born
local cha_type = GetChaTypeID ( role )
if cha_type~=1 and cha_type~=2 and cha_type~=3 and cha_type~=4 then
SystemNotice( role ,"Only Lance,Carsise,Phyllis,Ami Can Become Seal Master")
return
end
local check=GetChaName_born3 ( role )
if check==0 then
SystemNotice( role ,"Requirements Do Not Meet")
return
end
-----------------SkillAdd
local cha_job = GetChaAttr( role , ATTR_JOB )
SetChaAttr(role, ATTR_JOB ,14 )
GiveItem_chibang3 ( role ) --Rebirth Wings Add
local sk_add = SK_SSSP
AddChaSkill ( role , sk_add , 3 , 3 , 0 )
SetChaAttrI(role, ATTR_CSAILEXP , 10000)
RefreshCha ( role )
end
function GiveItem_chibang3 ( role )
local cha_type = GetChaTypeID ( role )
if cha_type==1 then
GiveItem( role , 0 , 137 , 1 , 4 )
elseif cha_type==2 then
GiveItem( role , 0 , 140 , 1 , 4 )
elseif cha_type==3 then
GiveItem( role , 0 , 130 , 1 , 4 )
elseif cha_type==4 then
GiveItem( role , 0 , 133 , 1 , 4 )
end
end
-------------------------------Check Lv3 RB
function GetChaName_born3 ( role )
-----------------??????
local cha_name = GetChaDefaultName ( role )
-----------------??????
local cha_lv = GetChaAttr(role, ATTR_LV)
-----------------??????
local cha_job = GetChaAttr(role, ATTR_JOB)
-----------------???????????????
local i = CheckBagItem( role, 5859 )
if i < 1 then
SystemNotice( role ,"Please Give Me Ur Lv3 Rebirth Stone")
return 0
end
local op1 = CheckBagItem( role, 136 )
local op2 = CheckBagItem( role, 139 )
local op3 = CheckBagItem( role, 129 )
local op4 = CheckBagItem( role, 132 )
if op1 < 1 and op2 < 1 and op3 < 1 and op4 < 1 then
SystemNotice( role ,"You are not rebirth two yet")
return 0
end
-----------------????????????
local item_empty=IsEquip(role)
if item_empty==LUA_TRUE then
SystemNotice(role,"Please place the item from character's equipment slot into the inventory")
return 0
end
-----------------????????????
local Item_CanGet = GetChaFreeBagGridNum ( role )
if Item_CanGet < 1 then
SystemNotice(role ,"Inventory Needs Atleast 1 Free Slot")
UseItemFailed ( role )
return 0
end
local zs1 =TakeItem( role, 0,5859, 1 )
if zs1==0 then
SystemNotice ( role ,"Gather Lv3 Rebirth Stone Failed")
return 0
end
------------------???????????
local Zs_Exp = GetChaAttr ( role , ATTR_CSAILEXP )
if Zs_Exp >10000 then
SystemNotice(role ,"U have Already Done Lv3 Rebirth")
return 0
end
local cha_skill_num=GetChaAttr(role, ATTR_TP )
local clear_skill_num=ClearFightSkill(role)
cha_skill_num=cha_skill_num+clear_skill_num
SetChaAttr(role, ATTR_TP ,cha_skill_num )
local ap = GetChaAttr( role , ATTR_AP )
local cha_str = GetChaAttr(role, ATTR_BSTR )
local cha_dex = GetChaAttr(role, ATTR_BDEX )
local cha_agi = GetChaAttr(role, ATTR_BAGI )
local cha_con = GetChaAttr(role, ATTR_BCON )
local cha_sta = GetChaAttr(role, ATTR_BSTA )
ap=ap+cha_str+cha_dex+cha_agi+cha_con+cha_sta-25
SetChaAttr(role, ATTR_BSTR ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BDEX ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BAGI ,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BCON,5 )
SyncChar(role,4)
SetChaAttr(role, ATTR_BSTA,5 )
SyncChar(role,4)
SetChaAttr(role , ATTR_AP,ap )
SyncChar(role,4)
AddSailExp(role, npc , 1 , 1 )
local sk_add = SK_ZSSL
AddChaSkill ( role , sk_add , 3 , 2 , 0 )
PlayEffect( npc, 361 )
Notice("Extreme celebration "..cha_name.." Rebirth 3rd successful. Blessing from the whole server "..cha_name.." Hope you have a safe journey and everything goes your way!")
return 1
end
that's it, you are done....