thqs_quests.txt

RO游戏服务器最新代码,直接运行即可.数据库采用mysql

	mes "Well I hope that cut down a bit on the monsters and here have these 2 Tokens.";
	set #Treasure_Token,#Treasure_Token+2;
	delitem 957,50;
	set four_qset,0;
	set On_Quest,0;
	killmonster "pay_dun00","Flora::OnMobDead";
	close;
N_QuestStart:
	mes "[Flora]";
	mes "Well hello there.";
	mes " ";
	mes "Well this is what I need you to do, bring me 50 Decayed Nails - awile back Payon Cave used to be a safe place to go...But now things have gone out of controll and Zombies have invaded the first floor...";
	mes " ";
	mes "There is also these new monsters that have just poped out of no were, we call them Flaming Bastards...Be carfull if you arn't powerfull yet because they are very strong.";
	next;
	mes "[Flora]";
	mes "Good Luck";
	mes "Remember I need 50 Nail's";
	monster "pay_dun00",0,0,"Flaming Bastard",1072,1,"Flora::OnMobDead";
	monster "pay_dun00",0,0,"Flaming Bastard",1072,1,"Flora::OnMobDead";
	close;
OnMobDead:
	end;
}
//4-2;
yuno,45,138,6	script	Zed	735,{
	if (four_qset == 2 && countitem(1999) > 0) goto N_QuestComp;
	if (four_qset == 2) goto N_QuestStart;
	mes "[Zed]";
	mes "Get out of my face you flake.";
	close;
N_QuestComp:
	mes "[Zed]";
	mes "Dear god took you long enough you bastard!";
	mes "You know how much my time is worth!!!!";
	mes "Your slow and I'm never gona recomend a job for you, Gimmie my staff and get out of me face!";
	next;
	mes "[Zed]";
	mes "Well you can take this crapy Treausre Token.";
	set On_Quest,0;
	set four_qset,0;
	delitem 1999,1;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Zed]";
	mes "Where's my staff?";
	close;
}
//4-3;
prontera,176,204,6	script	Dassy	95,{
	if (four_qset == 3 && countitem(711) > 19) goto N_QuestComp;
	if (four_qset == 3) goto N_QuestStart;
	mes "[Dassy]";
	mes "Hello!";
	close;
N_QuestComp:
	mes "[Dassy]";
	mes "Yes! Now my pet will not starve!";
	mes "Thank you so much!";
	mes "Have this Treasure Token.";
	set On_Quest,0;
	set four_qset,0;
	delitem 711,20;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Dassy]";
	mes "Hello person!!";
	mes "You have come to help me? Yes, yes.";
	mes " ";
	mes "Ok I don't want to talk about it but I need you to fine me 20 Shoot's";
	mes "Thank you!";
	close;
}
//4-4;
prt_gld,157,99,6	script	Czhore	752,{
	if (four_qset == 4 && countitem(714) > 0) goto N_QuestComp;
	if (four_qset == 4) goto N_QuestStart;
	mes "[Czhore]";
	mes "Hello friend";
	mes "Have you come to check out one of these guild halls?";
	close;
N_QuestComp:
	mes "[Czhore]";
	mes "Thank god!";
	mes " ";
	mes "I'm so happy to see one of these Emperiums! Thank you "+strcharinfo(0)+".";
	next;
	mes "[Czhore]";
	mes "Here have these 2 Treasure Tokens.";
	mes "And some of my old treasure...";
	monster "prt_gld",155,99,"Old Man's Treasure",1324,1;
	set four_qset,0;
	set On_Quest,0;
	delitem 714,1;
	set #Treasure_Token,#Treasure_Token+2;
	close;
N_QuestStart:
	mes "[Czhore]";
	mes "Hello friend";
	mes "I know this may sound stupid but ever since I was a boy I have dreamed of having an Emperium...";
	mes "As I know I look old, I have just never been able to find one, now that I am retired from the Treasure Hunter Guild there is no more action for me...";
	mes " ";
	mes "If you can get me one I shall reward you.";
	close;
}
///////Job list 5///////
//5-1;
prt_maze01,18,184,6	script	Lithin#01	752,{
	if (five_qset == 1 && countitem(1028) > 14) goto N_QuestComp;
	if (five_qset == 1) goto N_QuestStart;
	mes "[Lithin]";
	mes "Well hello.";
	mes "Welcome to the Forest Maze.";
	close;
N_QuestComp:
	mes "[Lithin]";
	mes "Oh thank you so much, but they will be back...";
	next;
	mes "Take these 2 Treasure Tokens";
	set five_qset,0;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+2;
	delitem 1028,15;
	close;
N_QuestStart:
	mes "[Lithin]";
	mes "Well hello.";
	mes "Welcome to the Forest Maze, I have a task for you.";
	mes " ";
	mes "Ever heard of a moster called a Savage? It looks like a boar but it makes very annoying noices.";
	mes "What I want you to do is bring me 15 Manes from the savages.";
	close;
}
//5-2 goes to 6-2 using callfunc;
moc_ruins,75,167,6	script	Lithin#02	87,{
	if (five_qset == 2 && countitem(932) > 29) goto N_QuestComp;
	if (five_qset == 2) goto N_QuestStart;
	if (six_qset == 2) goto N_QuestStart2;
	mes "[Strange Man]";
	mes "...";
	close;
N_QuestComp:
	mes "[Strange Man]";
	mes "Much thanks I have for you.";
	next;
	mes "Take with you these 2 Treasure Token's.";
	set #Treasure_Token,#Treasure_Token+2;
	set five_qset,0;
	set On_Quest,0;
	delitem 932,30;
	close;
N_QuestStart:
	mes "[Strange Man]";
	mes "Must do for me you shall.Venture through the Pyramid.";
	mes "When second floor you have reached,slay skeletons of evil.";
	mes "Bring me back there bones you must.";
	mes "It is 30 that I desire.";
	close;
N_QuestStart2:
	callfunc "six_qset2";
}
//5-3;
geffen,57,130,6	script	Blonde Girl	724,{
	if (five_qset == 3 && countitem(744) > 0) goto N_QuestComp;
	if (five_qset == 3) goto N_QuestStart;
	mes "[Blonde Girl]";
	mes "I wonder what happened to my flowers";
	close;
N_QuestComp:
	mes "[Blonde Girl]";
	mes "Oh are these my flower! To bad I don't want them anymore...";
	mes " ";
	mes "You can keep them is you want.";
	next;
	mes "[Blonde Girl]";
	mes "Here take this Treasure Token as a reward.";
	set five_qset,0;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Blonde Girl]";
	mes "Hello, did you bring me flowers!?!";
	close;
}
//5-4;
gef_tower,49,27,6	script	Wizard#01	735,{
	if (five_qset == 4 && countitem(1059) > 49) goto N_QuestComp;
	if (five_qset == 4) goto N_QuestStart;
	mes "[Wizard]";
	mes "Hello, have you seen my Whisper friend?";
	close;
N_QuestComp:
	mes "[Wizard]";
	mes "Thank you for helping me, I presume the worse.";
	next;
	mes "[Wizard]";
	mes "Here take these 4 Treasure Tokens.";
	set five_qset,0;
	set On_Quest,0;
	delitem 1059,50;
	set #Treasure_Token,#Treasure_Token+4;
	close;
N_QuestStart:
	mes "[Wizard]";
	mes "Hello, the reason why I brought you here was because of a long time ago I made a friend, which happened to be a Whipser.";
	mes "He told me that he was always bullied by the other ghosts down there and I haven't seen him in a while.";
	mes "Thinking of the worse case here, I want vengance!";
	mes " ";
	mes "Bring me 50 Fabrics!";
	close;
}
///////Job list 6///////
//6-1;
moc_prydb1,47,132,6	script	Thief	48,{
	if (six_qset == 1 && countitem(1083) > 0) goto N_QuestComp;
	if (six_qset == 1) goto N_QuestStart;
	mes "[Thief]";
	mes "Welcome to the Thiefs Guild.";
	close;
N_QuestComp:
	mes "[Thief]";
	mes "Thank you for this delivery.";
	next;
	mes "[Thief]";
	mes "Here take this Treasure Token as a reward.";
	set six_qset,0;
	delitem 1083,1;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Thief]";
	mes "Where's my delivery?";
	close;
}
//6-2
function	script	six_qset2	{
	if (six_qset == 2 && countitem(930) > 29) goto N_QuestComp2;
	mes "[Strange Man]";
	mes "Another quest for you I have.";
	mes "Futher into the pyramid you must go.";
	mes "Fighting Mummys is future for you.";
	mes " ";
	mes "Bring back for me their wrappings you must.";
	mes "It is 30 Rotten bandages I desire.";
	close;
N_QuestComp2:
	mes "[Strange Man]";
	mes "Much thanks for you that I have.";
	next;
	mes "[Strange Man]";
	mes "Take with you these 3 tokens.";
	set #Treasure_Token,#Treasure_Token+3;
	delitem 930,30;
	set On_Quest,0;
	set six_qset,0;
	close;
}
//6-3;
xmas,144,136,6	script	Chirach	48,{
	if (six_qset == 3 && countitem(1083) > 0) goto N_QuestComp;
	if (six_qset == 3) goto N_QuestStart;
	mes "[Chirach]";
	mes "Welcome.";
	close;
N_QuestComp:
	mes "[Chirach]";
	mes "Thank you for this delivery.";
	next;
	mes "[Chirach]";
	mes "Here take this Treasure Token as a reward.";
	set six_qset,0;
	delitem 1083,1;
	set On_Quest,0;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Chirach]";
	mes "Where's my delivery?";
	close;
}
//6-4;
gef_tower,52,87,6	script	Wizard#02	735,{
	if (six_qset == 4 && countitem(944) > 19) goto N_QuestComp;
	if (six_qset == 4) goto N_QuestStart;
	mes "[Zuuzuu]";
	mes "Hello, welcome to geffen tower.";
	close;
N_QuestComp:
	mes "[Wizard]";
	mes "Thank you for helping me.";
	next;
	mes "Here take these 4 Treasure Tokens.";
	set six_qset,0;
	set On_Quest,0;
	delitem 944,20;
	set #Treasure_Token,#Treasure_Token+4;
	next;
	mes "[Zuuzuu]";
	mes "Oh dear god!!!";
	mes "One of those evil mosters has followed you up here, Kill it, Kill it!!!";
	next;
	monster "gef_tower",42,89,"Evil Nightmare",1061,1;
	close;
N_QuestStart:
	mes "[Zuuzuu]";
	mes "Hello, the reason I sent for a young adventurer was because of the problems we are having under the tower.";
	mes "There seem to be more ghosts day after day down there. What I need you to do is go down there and find these mosters we call Nightmares.";
	mes " ";
	mes "You must slay them and bring me 20 of there horse shoes.";
	close;
}
///////Job list 7///////
//7-1 goes to 8-1 using callfunc;
prontera,123,208,6	script	Little Girl	717,{
	if (seven_qset == 1 && countitem(531) > 4) goto N_QuestComp;
	if (seven_qset == 1) goto N_QuestStart;
	if (eight_qset == 1) goto N_QuestStart2;
	mes "[Girl]";
	mes "Hello mister "+strcharinfo(0)+".";
	close;
N_QuestComp:
	mes "[Girl]";
	mes "Thank you so much!";
	next;
	mes "[Girl]";
	mes "Have these 1 Treasure Tokens.";
	set seven_qset,0;
	set On_Quest,0;
	delitem 531,5;
	set #Treasure_Token,#Treasure_Token+1;
	close;
N_QuestStart:
	mes "[Girl]";
	mes "Hi mister person. Can you get me some apple juice?";
	mes "I want 5 of them.";
	close;
N_QuestStart2:
	callfunc "eight_qset1";
}
//7-2;
alberta,101,84,6	script	Charles	48,{
	if (seven_qset == 2 && countitem(1082) > 0) goto N_QuestComp;
	if (seven_qset == 2) goto N_QuestStart;
	mes "[Charles]";
	mes "Hello "+strcharinfo(0)+" welcome to Alberta.";
	close;
N_QuestComp:
	mes "[Charles]";