npc_findsasa_quest.txt

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

// findsasa.txt 寻找莎莎任务

morocc.gat,151,167,4	script	大婶	701,{
	if($sasastart != 1 ) goto L_nosasa;
	if($sasafind == 1 ) goto L_sasafind;
	if( getcharid(0) == $sasafindp1 ) goto L_sasalooking;
	if( getcharid(0) == $sasafindp2 ) goto L_sasalooking;
	if( getcharid(0) == $sasafindp3 ) goto L_sasalooking;
	if( getcharid(0) == $sasafindp4 ) goto L_sasalooking;
	if( getcharid(0) == $sasafindp5 ) goto L_sasalooking;
	if( $findpnum == 5 ) goto Lm2;
	mes "[大婶]";
	mes "不好了！！我的孩子不知走那里去了? ";
	if(Sex == 1) mes "先生，你帮我找找好吗？";
	if(Sex != 1) mes "小姐，你帮我找找好吗？";
	emotion 26;
	next;
Lm1:
	menu "好的",L_lookforsasa,"询问小孩情报",L_seemessage,"我没有时间",L_end;
Lm2:
	mes "[大婶]";
	mes "不好意思了！！已经有人帮我去找了,不用麻烦阁下啦。 ";
	close;
L_lookforsasa:
	if( $sasafindp1 == 0 ) goto Lp1;
	if( $sasafindp2 == 0 ) goto Lp2;
	if( $sasafindp3 == 0 ) goto Lp3;
	if( $sasafindp4 == 0 ) goto Lp4;
	if( $sasafindp5 == 0 ) goto Lp5;
Lp1:
	set $sasafindp1,getcharid(0);
	set $findpnum,1;
	set @sasapoint,rand(100);
	if (@sasapoint>90) enablenpc "小莎莎#01";
	if (@sasapoint <= 90 && @sasapoint>80) enablenpc "小莎莎#02";
	if (@sasapoint <= 80 && @sasapoint>70) enablenpc "小莎莎#03";
	if (@sasapoint <= 70 && @sasapoint>60) enablenpc "小莎莎#04";
	if (@sasapoint <= 60 && @sasapoint>50) enablenpc "小莎莎#05";
	if (@sasapoint <= 50 && @sasapoint>40) enablenpc "小莎莎#06";
	if (@sasapoint <= 40 && @sasapoint>30) enablenpc "小莎莎#07";
	if (@sasapoint <= 30 && @sasapoint>20) enablenpc "小莎莎#08";
	if (@sasapoint <= 20 && @sasapoint>10) enablenpc "小莎莎#09";
	if (@sasapoint <= 10) enablenpc "小莎莎#10";
	goto Lp0;
Lp2:
	set $sasafindp2,getcharid(0);
	set $findpnum,2;
	goto Lp0;
Lp3:
	set $sasafindp3,getcharid(0);
	set $findpnum,3;
	goto Lp0;
Lp4:
	set $sasafindp4,getcharid(0);
	set $findpnum,4;
	goto Lp0;
Lp5:
	set $sasafindp5,getcharid(0);
	set $findpnum,5;
Lp0:
	mes "[大婶]";
	mes "真是太好了，我等你的消息... 不过要快点了，太阳下山就很难找啊! ";
	emotion 15;
	close;
L_seemessage:
	mes "[大婶]";
	mes "不过，也真是的... 这孩子真的很贪玩!最喜欢躲在狭窄的地方，害我老是找不到。";
	mes "这座城也真大，要找到也不容易。";
	mes "哦，差点忘记了，我的孩子叫^3355FF 莎莎^000000 。";
	next;
	goto Lm1;
L_sasalooking:
	mes "[大婶]";
	mes "太阳快下山了，你还没找到吗？! ";
	mes "要快点啦？! ";
	emotion 4;
	close;
L_sasafind:
	if( getcharid(0) != $sasafindpc ) goto L_nosasa;
	mes "[大婶]";
	mes "真是太好了，谢谢你帮我找到这孩子！ ";
	mes "这小小心意，你就收下吧！！ ";
	emotion 15;
	set $sasastart,0;
	set $sasafind,0;
	set $sasafindpc,0;
	set $sasafindp1,0;
	set $sasafindp2,0;
	set $sasafindp3,0;
	set $sasafindp4,0;
	set $sasafindp5,0;
	set $findpnum,0;
	set $@findpc_pname$,0;
	set @itempoint,rand(162);
	if (@itempoint>160) getitem 7037,1;
	if (@itempoint <= 160 && @itempoint>154) getitem 2340,1;
	if (@itempoint <= 154 && @itempoint>147) getitem 2345,1;
	if (@itempoint <= 147 && @itempoint>140) getitem 2347,1;
	if (@itempoint <= 140 && @itempoint>133) getitem 2349,1;
	if (@itempoint <= 133 && @itempoint>126) getitem 2351,1;
	if (@itempoint <= 126 && @itempoint>100) getitem 2304,1;
	if (@itempoint <= 100 && @itempoint>90) getitem 2310,1;
	if (@itempoint <= 90 && @itempoint>82) getitem 2313,1;
	if (@itempoint <= 82 && @itempoint>52) getitem 2302,1;
	if (@itempoint <= 52 && @itempoint>38) getitem 2308,1;
	if (@itempoint <= 38 && @itempoint>30) getitem 2315,1;
	if (@itempoint <= 30 && @itempoint>22) getitem 2320,1;
	if (@itempoint <= 22 && @itempoint>13) getitem 2326,1;
	if (@itempoint <= 13 && @itempoint>5) getitem 2331,1;
	if (@itempoint <= 5) getitem 2342,1;
	close;
L_nosasa:
	mes "[大婶]";
	mes "今天天气真好!! ";
	emotion 2;
	close;
end;
L_end:
	mes "[大婶]";
	mes "没同情心的混蛋！！以后不要让我见到你！ ";
	emotion 2;
	close;
OnMinute10:
	set $sasastart,1;
	set $sasafind,0;
	set $sasafindpc,0;
	set $sasafindp1,0;
	set $sasafindp2,0;
	set $sasafindp3,0;
	set $sasafindp4,0;
	set $sasafindp5,0;
	set $findpnum,0;
	MapAnnounce "morocc.gat","寻找小莎莎活动开始",17;
	disablenpc "小莎莎#00";
	disablenpc "小莎莎#01";
	disablenpc "小莎莎#02";
	disablenpc "小莎莎#03";
	disablenpc "小莎莎#04";
	disablenpc "小莎莎#05";
	disablenpc "小莎莎#06";
	disablenpc "小莎莎#07";
	disablenpc "小莎莎#08";
	disablenpc "小莎莎#09";
	disablenpc "小莎莎#10";
end;
OnMinute50:
	set $sasastart,0;
	set $sasafind,0;
	set $sasafindpc,0;
	set $sasafindp1,0;
	set $sasafindp2,0;
	set $sasafindp3,0;
	set $sasafindp4,0;
	set $sasafindp5,0;
	set $findpnum,0;
	MapAnnounce "morocc.gat","太阳下山了，小莎莎回家了",17;
	enablenpc "小莎莎#00";
	emotion 14;
	disablenpc "小莎莎#01";
	disablenpc "小莎莎#02";
	disablenpc "小莎莎#03";
	disablenpc "小莎莎#04";
	disablenpc "小莎莎#05";
	disablenpc "小莎莎#06";
	disablenpc "小莎莎#07";
	disablenpc "小莎莎#08";
	disablenpc "小莎莎#09";
	disablenpc "小莎莎#10";
end;
}

morocc.gat,149,165,4	script	小莎莎#00	96,{
	mes "[小莎莎]";
	mes "...............";
	emotion 7;
	close;
OnInit:
	disablenpc "小莎莎#00";
End;
}
//======================================================================
morocc.gat,49,289,1	script	小莎莎#01	96,{
	if( getcharid(0) == $sasafindp1 ) goto L_sasa;
	if( getcharid(0) == $sasafindp2 ) goto L_sasa;
	if( getcharid(0) == $sasafindp3 ) goto L_sasa;
	if( getcharid(0) == $sasafindp4 ) goto L_sasa;
	if( getcharid(0) == $sasafindp5 ) goto L_sasa;
	goto L_nosasa;
L_sasa:
	emotion 23;
	mes "[小莎莎]";
	mes "不好了！！被发现了！！";
	if(Sex == 1) mes "哥哥，你来找我有什么事吗？";
	if(Sex != 1) mes "姐姐，你来找我有什么事吗？";
	next;
	menu "你妈妈叫我来找你的",L_sasafind,"没什么，路过",L_end;
L_sasafind:
	mes "[小莎莎]";
	mes "哎！！被发现了！！没办法，我跟你回去吧。";
	set $sasafind,1;
	set $sasafindpc,getcharid(0);
	set $@findpc_pname$,strcharinfo(0);
	enablenpc "小莎莎#00";
	MapAnnounce "morocc.gat",$@findpc_pname$ +"把小莎莎带回家了。",17;
	warp "morocc.gat",149,167;
	disablenpc "小莎莎#01";
	end;
L_nosasa:
	mes "[小莎莎]";
	mes "今天天气真好!! ";
	mes "不要告诉我妈妈我在这里啊！ ";
	close;
L_end:
	close;
end;

OnInit:
	disablenpc "小莎莎#01";
End;
}
//----------------------------------------------------------
morocc.gat,22,128,1	script	小莎莎#02	96,{
	if( getcharid(0) == $sasafindp1 ) goto L_sasa;
	if( getcharid(0) == $sasafindp2 ) goto L_sasa;
	if( getcharid(0) == $sasafindp3 ) goto L_sasa;
	if( getcharid(0) == $sasafindp4 ) goto L_sasa;
	if( getcharid(0) == $sasafindp5 ) goto L_sasa;
	goto L_nosasa;
L_sasa:
	emotion 23;
	mes "[小莎莎]";
	mes "不好了！！被发现了！！";
	if(Sex == 1) mes "哥哥，你来找我有什么事吗？";
	if(Sex != 1) mes "姐姐，你来找我有什么事吗？";
	next;
	menu "你妈妈叫我来找你的",L_sasafind,"没什么，路过",L_end;
L_sasafind:
	mes "[小莎莎]";
	mes "哎！！被发现了！！没办法，我跟你回去吧。";
	set $sasafind,1;
	set $sasafindpc,getcharid(0);
	set $@findpc_pname$,strcharinfo(0);
	enablenpc "小莎莎#00";
	MapAnnounce "morocc.gat",$@findpc_pname$ +"把小莎莎带回家了。",17;
	warp "morocc.gat",149,167;
	disablenpc "小莎莎#02";
	end;
L_nosasa:
	mes "[小莎莎]";
	mes "今天天气真好!! ";
	mes "不要告诉我妈妈我在这里啊！ ";
	close;
L_end:
	close;
end;
OnInit:
	disablenpc "小莎莎#02";
End;
}
//---------------------------------------------------------
morocc.gat,50,89,1	script	小莎莎#03	96,{
	if( getcharid(0) == $sasafindp1 ) goto L_sasa;
	if( getcharid(0) == $sasafindp2 ) goto L_sasa;
	if( getcharid(0) == $sasafindp3 ) goto L_sasa;
	if( getcharid(0) == $sasafindp4 ) goto L_sasa;
	if( getcharid(0) == $sasafindp5 ) goto L_sasa;
	goto L_nosasa;
L_sasa:
	emotion 23;
	mes "[小莎莎]";
	mes "不好了！！被发现了！！";
	if(Sex == 1) mes "哥哥，你来找我有什么事吗？";
	if(Sex != 1) mes "姐姐，你来找我有什么事吗？";
	next;
	menu "你妈妈叫我来找你的",L_sasafind,"没什么，路过",L_end;
L_sasafind:
	mes "[小莎莎]";
	mes "哎！！被发现了！！没办法，我跟你回去吧。";
	set $sasafind,1;
	set $sasafindpc,getcharid(0);
	set $@findpc_pname$,strcharinfo(0);
	enablenpc "小莎莎#00";
	MapAnnounce "morocc.gat",$@findpc_pname$ +"把小莎莎带回家了。",17;
	warp "morocc.gat",149,167;
	disablenpc "小莎莎#03";
	end;