[Autoevent] барахольщик

[poiuty]

скрипт 2008 года

/*by poiuty 
Идея юзвера с piratro http://forum.piratro.com/index.php?showtopic=2796&pid=19924&st=0entry19924
*/
-	script	loot_event	-1,{
	OnInit:
	callfunc("DontShow");
}

-	script	loot_event1	-1,{
OnMinute41:
	callfunc("StartEvent1");
end;

OnMinute56:
	if($@questitem == 1) announce "Никто не принес лут! =(",8;
	callfunc("DontShow");
end;
}

prontera,142,194,5	script	Барахольщик::J1	712,{
		mes "[Барахольщик]";
		mes "Нужно доставить лут за определенное время! И как можно быстрей!";
		next;
		mes "[Барахольщик]";
		mes "Принеси мне 50 "+$@questitemname$;
		next;
		switch(select("Принес!","Пойду искать!")){
			case 1:
				if (countitem($@questitemid) <50){
					mes "[Барахольщик]";
					mes "У тебя нет лута!";
					close;
				}else{
					mes "Огромное спасибо!";
					delitem $@questitemid,50;
					getitem 673,5;
					if(sex==0) announce strcharinfo(0)+" справилась с заданием",8;
					if(sex==1) announce strcharinfo(0)+" справился с заданием",8;
					stopnpctimer"StartEvent1";
					disablenpc "J1";
					set $@questitem, 0;
					close;
				}
			case 2:
				mes "Удачи в поисках!";
			close;
		}
	end;
}


function	script	StartEvent1	{
	enablenpc "J1";
	setarray .itemids[0], 731,732,970,7047,704,719,1054,1053,702,919,7003,7106,7107,720,7210,7119,1068,7214,7323,948,939,7297,7161,7206,1020,737,7449,7563,7446,1034,7441,7215,7070,7156,7110,7188,1042,7122,7097,7512,7068,7182,952,7263,1004,742,915,966,705,7093,7223,7017,7212,7561,7268,7216,7100,707,7194,7063,7217,7565,7167,7219,7567,7301,7267,7319,7568,7340,7149,729;
	setarray .itemnames$[0], "2carat Diamond","3carat Diamond","Alcohol","Alice's Apron","Aloe","Amethyst","Ancient Lips","Ancient Tooth","Animal Gore","Animal Skin","Anolian Skin","Antelope Horn","Antelope Skin","Aquamarine","Armor Piece of Dullahan","Bacillus","Barren Trunk","Bat Cage","Battered Kettle","Bear's Footskin","Bee Sting","Biotite","Black Bear Skin","Black Cat Doll","Black Hair","Black Ladle","Bloody Page","Bloody Rune","Blue Bijou","Blue Hair","Blue tinted Feather","Broken Needle","Broken Shell","Broken Shuriken","Broken Sword","Brown Root","Bug Leg","Burning Hair","Burning Heart","Burnt Pieces","Burnt Tree","Cacao","Cactus Needle","Cat's Eye","Chivalry Emblem","Chonchon Doll","Chrysalis","Clam Flesh","Clover","Cogwheel","Contorted Self-Portrait","Executioner's Mitten","Hung Doll","Ice Heart","Little Ghost Doll","Red Muffler","Sharp Leaf","Singing Plant","Soft Blade of Grass","Soft Feather","Spool","Sticky Poison","Strange Steel Piece","Striped Sock","Suspicious Hat","Tassel","Tiger Panty","Used Iron Plate","White Mask","Will of the Darkness","Yellow Plate","Zircon";
	set .itemrand, rand(0,71);
	set $@questitemid, .itemids[.itemrand];
	set $@questitemname$, .itemnames$[.itemrand];
	set $@questitem, 1;
	announce "[Барахольщик] Принесите мне 50 "+$@questitemname$+", первый получит 5 монет!",8;
	end;
}

function	script	DontShow	{
	disablenpc "J1";
	end;
}