npc_son.txt

JA++的最新...很多ROSF都用这个 ] 是个不错的东西-3-

//==============================================
// 艾莉儿
// 代码重写 by FPE(2006.7.3)
// Jathena++ 论坛：http://www.foxofice.net/bbs
//----------------------------------------------

function	script	son	{
	deletearray @hair_son01$[0],20;
	deletearray @hair_son02$[0],20;
	setarray @hair_son01$,	"",
							"装死",
							"双手剑使用熟练度",
							"心灵爆破",
							"二连矢",
							"天使之障壁",
							"手推车使用",
							"施毒",
							"怪物互击",
							"病毒散播",
							"转生术",
							"龙知识",
							"令牌使用熟练度",
							"雷暴术",
							"安可",
							"无影之牙",
							"闪电冲击",
							"寻找矿石",
							"火柱攻击",
							"阿修罗霸凰拳";
	setarray @hair_son02$,	"",
							"整齐又平稳，是他的特点，",
							"和一位有名的剑士发行很类似，",
							"可以感觉到，不知明力量的发型，",
							"让心里变得很清澈的发型，",
							"这是很平静很虔诚的发型，",
							"这是借用手推车， 雄伟的基础造型所做的发型，",
							"感觉好像给中毒感觉的发型，",
							"只要看一眼的话， 会让很多人迷上的发型!",
							"有致命吸引力的发型，",
							"感觉上可以让魔物一击之毙的发型!",
							"把神秘的龙族为基础造型，所做的发型",
							"看起来很坚固而美观的发型!",
							"感觉上好像在哪里， 被雷击中过的感觉!!",
							"就是让人感觉到，想要去点歌的发型，",
							"刺刺的感觉好像被刺到的发型!",
							"感觉好像被踢到五次伤害的发型...?",
							"走在路上随便捡东捡西的发型，",
							"风靡一个时代漂亮的发型...!",
							"一拳把所有的希望都寄托在上面的发型!";
	cutin "son",2;
	mes "[艾莉儿]";
	mes "你好~";
	mes "我是音乐精灵 ^3355FF艾莉儿^000000";
	mes "为了回馈大家的厚爱，";
	mes "我已经学会了";
	mes "怎么样帮各位打扮发型的功课了";
	next;
	mes "[艾莉儿]";
	mes "有时候也需要换一种心情啊，";
	mes "我试着转换一下你的心情，";
	mes "帮你换一下发型好吗？";
	next;
	menu	"我要看发型",A01,
		"我想改变发型",A02,
		"恢复我的HP/SP",A03,
		"结束对话",A04;

A01:
	mes "[艾莉儿]";
	mes "发型种类，从1号到23号，";
	mes "请问你要看几号？";
	mes "不想看的话，请选择0号，";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	//if(Sex == 0 && @nobem < 10) cutin "hair_f_0"+@nobem,4; 
	//if(Sex == 1 && @nobem < 10) cutin "hair_m_0"+@nobem,4;
	//if(Sex == 0 && @nobem > 9) cutin "hair_f_"+@nobem,4;
	//if(Sex == 1 && @nobem > 9) cutin "hair_m_"+@nobem,4;
	mes "[艾莉儿]";
	mes "这是 “" + @hair_son01$[@nobem] + "”发型！";
	mes @hair_son02$[@nobem];
	mes "怎么样，还满意吗？";
	close2;
	cutin "son",255;
	end;

A02:
	mes "[艾莉儿]";
	mes "发型种类，从1号到23号，";
	mes "请问你要换几号？";
	mes "不想换的话，请选择0号，";
	next;
	input @nobem;
	if(@nobem<1 || @nobem>23) goto A04;
	if(@nobem==getlook(1))
	{
		mes "[艾莉儿]";
		mes "哎唷，客人，你现在的发型，";
		mes "最合适你不过了，";
		mes "不要改成其他奇怪的发型，";
		mes "试着用其他的装饰品，装饰一下吧";
		cutin "son",255;
		close;
		end;
	}
	if(@nobem>=10) cutin sex?("hair_m_"+@nobem):("hair_f_"+@nobem),4;
	else cutin sex?("hair_m_0"+@nobem):("hair_f_0"+@nobem),4;
	mes "[艾莉儿]";
	mes "这是 “" + @hair_son01$[@nobem] + "”发型！";
	mes @hair_son02$[@nobem];
	mes "怎么样，还满意吗？";
	next;
	menu	"就是这个",-,
		"再看别的",A02,
		"结束对话",A04;
	cutin "son",2;
	mes "[艾莉儿]";
	mes "客人，您的眼光真独特呢，";
	mes "这个发型一定会给你带来好心情吧?";
	mes "我现在就给你打扮";
	next;
	setlook 1,@nobem;
	mes "[艾莉儿]";
	mes "打扮好了，";
	mes "怎么样，是不是心情也一块变好了?";
	mes "下次需要的话，还记得来找我唷";
	cutin "son",255;
	close;
	end;

A03:
	mes "[艾莉儿]";
	mes "既然客人这么说，我必将尽一切努力来为客人服务的。每次我将收取你1000个金币，如果你的金币不足，是无法恢复的。";
	next;
	mes "[艾莉儿]";
	if(Hp>=MaxHp && Sp>=MaxSp)
	{
		mes "您现在的状态良好，不需要恢复HP/SP喔~下次有需要的时候再来吧。";
		cutin "son",255;
		close;
		end;		
	}
	if(zeny>=1000)
	{
		percentheal 100,100;
		set zeny,zeny-1000;
		mes "谢谢您的支持，您的HP/SP已经恢复，如果还有需要，随时欢迎回来找我喔!";
	}
	else
		mes "很抱歉您的金币不足，我无法帮您恢复HP/SP";
	cutin "son",255;
	close;
	end;
A04:
	mes "[艾莉儿]";
	mes "没关系，有需要的话，请记得找我，我会在此为你服务。";
	next;
	mes "[艾莉儿]";
	mes "记得，在美好的仙境里抛开一切，好好的享受。创造出属于你的浪漫传说，也请大家好好好的爱护我，我也会努力为各位服务的。";
	cutin "son",255;
	close;
	end;
}

prontera.gat,146,92,5	script	艾莉儿	756,{ callfunc "son"; }
izlude.gat,134,92,4	script	艾莉儿	756,{ callfunc "son"; }
aldebaran.gat,143,116,5	script	艾莉儿	756,{ callfunc "son"; }
geffen.gat,120,60,8	script	艾莉儿	756,{ callfunc "son"; }
morocc.gat,162,97,5	script	艾莉儿	756,{ callfunc "son"; }
alberta.gat,25,238,5	script	艾莉儿	756,{ callfunc "son"; }
payon.gat,198,117,4	script	艾莉儿	756,{ callfunc "son"; }
yuno.gat,164,48,5	script	艾莉儿	756,{ callfunc "son"; }
amatsu.gat,192,81,5	script	艾莉儿	756,{ callfunc "son"; }
gonryun.gat,156,14,5	script	艾莉儿	756,{ callfunc "son"; }
xmas.gat,149,135,5	script	艾莉儿	756,{ callfunc "son"; }