転職スクリプト - athena_wiki @Wiki

izlude.gat,114,106,5 script 転職カプラ 811,{

cutin "nyuang_3",2;
mes "[転職カプラ]";
mes "いらっしゃいませ。";
mes "こちらでは、転職する事が出来ます。";
mes "転生することもできますよ。";
next;
menu 	"1次職または転生１次職への転職希望",Litiji,
	"2-1次職または転生2-1次職への転職希望",Lninoiti,
	"2-2次職または転生2-2次職への転職希望",Lninoni,
	"転生またはハイノービスに戻る",Ltensei,
	"やめる",Ljchcancel;

Litiji:

if(getskilllv(1) < 9) goto LlowSkill;
if(Upper != 1 && SkillPoint != 0) goto Lskillpoint;
if(Class != Job_Novice) goto Lcantchange;
mes "[転職カプラ]";
mes "どの職業に転職しますか?";
next;
menu	"剣士",Lsm,"マジシャン",Lmg,"アーチャー",Lac,"アコライト",Lal,"商人",Lmc,"シーフ",Ltf,"スーパーノービス",Lsn,"テコン少年/少女",Ltk, "ガンスリンガー",Lgs,"忍者",Lnj,"やめる",Ljchcancel;

Lninoiti:

if(JobLevel < 1) goto Lika;
mes "[転職カプラ]";
mes "どの職業に転職しますか?";
next;
menu	"ナイト",Lkn,"プリースト",Lpr,"ウィザード",Lwz,"ブラックスミス",Lbs,"ハンター",Lht,"アサシン",Las,"拳聖",Lsgl,"やめる",Ljchcancel;

Lninoni:

if(JobLevel < 40) goto Lika;
mes "[転職カプラ]";
mes "どの職業に転職しますか?";
next;
menu	"クルセイダー",Lcd,"モンク",Lmk,"セージ",Lsg,"ローグ",Lrg,"アルケミスト",Lam,"バード/ダンサー",Lbd,"ソウルリンカー",Lsl,"やめる",Ljchcancel;

Lsm: jobchange Job_Swordman; goto Lend;
Lmg: jobchange Job_Mage; goto Lend;
Lac: jobchange Job_Archer; goto Lend;
Lal: jobchange Job_Acolyte; goto Lend;
Lmc: jobchange Job_Merchant; goto Lend;
Ltf: jobchange Job_Thief; goto Lend;
Lsn: if (BaseLevel < 1) goto Lcantsnovi;

jobchange Job_SuperNovice;	goto Lend;

Ltk: if (Upper != 0 || Class!=Job_Novice) goto Lcantchange;

jobchange Job_TaeKwonBoy;	goto Lend;

Lgs: if (Upper != 0 || Class!=Job_Novice) goto Lcantchange;

jobchange Job_Gunslinger;	goto Lend;

Lnj: if (Upper != 0 || Class!=Job_Novice) goto Lcantchange;

jobchange Job_Ninja;	goto Lend;

Lkn: if(Class != Job_Swordman) goto Lcantchange;

jobchange Job_Knight;	goto Lend;

Lpr: if(Class != Job_Acolyte) goto Lcantchange;

jobchange Job_Priest;	goto Lend;

Lwz: if(Class != Job_Mage) goto Lcantchange;

jobchange Job_Wizard;	goto Lend;

Lbs: if(Class != Job_Merchant) goto Lcantchange;

jobchange Job_Blacksmith;	goto Lend; 

Lht: if(Class != Job_Archer) goto Lcantchange;

jobchange Job_Hunter;	goto Lend;

Las: if(Class != Job_Thief) goto Lcantchange;

jobchange Job_Assassin;	goto Lend;

Lsgl: if(Class != Job_TaeKwonBoy) goto Lcantchange;

jobchange Job_StarGladiator;	goto Lend;

Lcd: if(Class != Job_Swordman) goto Lcantchange;

jobchange Job_Crusader;	goto Lend;

Lmk: if(Class != Job_Acolyte) goto Lcantchange;

jobchange Job_Monk;	goto Lend;

Lsg: if(Class != Job_Mage) goto Lcantchange;

jobchange Job_Sage;	goto Lend;

Lrg: if(Class != Job_Thief) goto Lcantchange;

jobchange Job_Rogue;	goto Lend;

Lam: if(Class != Job_Merchant) goto Lcantchange　set SkillPoint,50;

jobchange Job_Alchem;	goto Lend;

Lbd: if(Class != Job_Archer) goto Lcantchange;

if (Sex == 1) goto LMan;
if (Sex == 0) goto LWoman;

LMan: jobchange Job_Bard; goto Lend;

LWoman: jobchange Job_Dancer; goto Lend;

Lsl: if(Class != Job_TaeKwonBoy) goto Lcantchange;

jobchange Job_SoulLinker;	goto Lend;

Ltensei:

if (Upper == 1) goto Ltensei2;
if (Class == 23) goto LSuperNovice;
if ((BaseLevel < 99) || (JobLevel < 50)) goto LError2;
mes "[転職カプラ]";
mes "転生の呪文を唱えます。";
mes "しばらくお待ち下さい。。。";
next;
set oldjob,Class;
jobchange 0,1;
set BaseLevel,1;
resetstatus;
resetskill;
setoption 0x0000;
skill 143,1,0;
skill 142,1,0;
set skill_nov,6;
set SkillPoint,0;
set StatusPoint,100;	
set job_transmigration,0;
warp "izlude_in.gat",62,94;
mes "[転職カプラ]";
mes "おめでとうございます。";
mes "あなたは無事に転生できました。";
mes "またお会いしましょう。";
close;

Ltensei2:

mes "[転職カプラ]";
mes "ハイノービスに戻ったあとまたここに";
mes "来ると、今までとは違う職業に";
mes "就けますよ。";
next;
menu "ハイノービスに戻る",Lback,"やめる",Ljchcancel;

Lback:

if ((BaseLevel < 1) || (JobLevel < 1)) goto LError3;
mes "[転職カプラ]";
mes "しばらくお待ち下さい。。。";
next;	
jobchange 0,1;
set BaseLevel,1;
resetstatus;
resetskill;
setoption 0x0000;
skill 143,1,0;
skill 142,1,0;
set skill_nov,6;
set SkillPoint,0;
set StatusPoint,100;	
set job_transmigration,0;
warp "prontera.gat",156,187;
mes "[転職カプラ]";
mes "おめでとうございます。";
mes "あなたはハイノービスに戻れました。";
mes "またお会いしましょう。";
close;

LError3:

cutin "nyuang_4",2;
mes "[転職カプラ]";	
mes "BaseLv99、JobLv70になってから";
mes "来いや、ボケが。";
goto Lend;

LError2:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "テメーははまだ過去を捨てる";
mes "準備が出来てねえな。";
mes "BaseLv99、JobLv50になってから";
mes "また訪ねて来いや、ボケが。";
goto Lend;

LSuperNovice:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "テメーは過去を捨てる";
mes "ことは出来ねえぜ、ボケが。";
goto Lend;

LlowSkill:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "基本スキルを9にしてから来いや、";
mes "ボケが。";
goto Lend;

Lcantsnovi:

cutin "nyuang_4",2;set SkillPoint,9,
mes "[転職カプラ]";
mes "BaseLvを45以上にしてから来いや、";
mes "ボケが。";
goto Lend;

Lika:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "JobLvが40以下だと転職出来ねえよ、";
mes "ボケが。";
goto Lend;

Lskillpoint:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "スキルポイントをすべて使い切ってから";
mes "来いや、ボケが。";
goto Lend;

Lcantchange:

cutin "nyuang_4",2;
mes "[転職カプラ]";
mes "テメーはそのジョブに転職出来ねえよ、";
mes "ボケが。";
goto Lend;

Ljchcancel:

mes "[転職カプラ]";
mes "またのご利用を、お待ちしております。";
goto Lend;

Lend: close2;

cutin "kafra_04",255;
end;

}