Кто может сказать, почему не считывает имя монстра из чата H,183,166,2 script Ведьма::WEWE 792,{ if (!$guessbegin) { mes "[Ведьма]"; mes "Дождитесь начала Эвента"; close; } end; onstart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Хорошо. Начнем евент!"; sleep 4000; npctalk "Но сначала я расскажу правила"; sleep 6000; npctalk "Я превращаюсь в любого монстра наугад"; sleep 5000; npctalk "Вы должны узнать его и выкрикнуть его имя"; sleep 5000; npctalk "Большие и маленькие буквы не считаются"; sleep 8000; npctalk "Евент начался!!"; sleep 5000; } else if ($DisguiseRound < 6) { npctalk "Будьте готовы к следующему раунду."; setnpctimer 0; sleep 8000; } else { npctalk "Последний раунд!"; sleep 2000; npctalk "Приготовьтесь."; sleep 6000; } do { set $monster, rand(1001,1797); } while ($monster == 1003 || $monster == 1006 || $monster == 1017 || $monster == 1021 || $monster == 1022 || $monster == 1027 || $monster == 1043 || $monster == 1006 || $monster == 1136 || $monster == 1137 || $monster == 1168 || $monster == 1171 || $monster == 1172 || $monster == 1173 || $monster == 1181 || $monster == 1210 || $monster == 1223 || $monster == 1284 || ($monster >= 1324 && $monster <= 1363) || $monster == 1006 || $monster == 1407 || $monster == 1411 || $monster == 1414 || $monster == 1496 || $monster == 1501); setnpctimer 0; initnpctimer; setnpcdisplay "WEWE",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "OnWin"; activatepset 1; npctalk "Ну что как зовут монстра?"; sleep 2000; npcwalkto 107,99; sleep 1000; npcwalkto 102,99; sleep 1000; npcwalkto 102,103; sleep 1000; npcwalkto 102,99; end; OnTimer10000: if (!.DisguiseWon) { npctalk "Давайте. Какой я монстер?"; npcwalkto 107,99; sleep 2000; npcwalkto 102,99; sleep 2000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer25000: if (!.DisguiseWon) { npctalk "Никто не знает?"; npcwalkto 107,99; sleep 2000; npcwalkto 102,99; sleep 2000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "У вас есть 10 секунд чтобы назвать имя!!."; npcwalkto 107,99; sleep 2000; npcwalkto 102,99; sleep 2000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer45000: if (!.DisguiseWon) { npctalk "Раунд окончен."; set $DisguiseRound, $DisguiseRound + 1; sleep 3000; deletepset 1; npctalk $MonsterName$ + " правильное имя!."; sleep 5000; if ($DisguiseRound >= 6) { set $DisguiseRound, 0; sleep 3000; npctalk "Евент кончился!"; sleep 3500; npctalk "Увидимся!"; sleep 2000; emotion 12; sleep 1000; mapwarp "H","gonryun",158,112; setnpcdisplay "WEWE",50; disablenpc "WEWE"; end; } goto onstart; } end; OnWin: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; sleep2 3000; npctalk strcharinfo(0) + " дал верное имя!"; sleep2 3000; npctalk $MonsterName$ + " Это правильное имя."; sleep2 3000; npctalk "Получай приз Дружище"; set @prize,rand (1,6); if(@prize == 1) { getitem 12103,1; set @prizeid,12103;} if(@prize == 2) { getitem 673,1; set @prizeid,673;} if(@prize == 3) { getitem 7539,1; set @prizeid,7539;} if(@prize == 4) { getitem 5136,1; set @prizeid,5136;} if(@prize == 5) { getitem 12997,1; set @prizeid,12997;} if(@prize == 6) { getitem 7539,1; set @prizeid,7539;} mapannounce "H","Приз "+getitemname(@prizeid)+" ",bc_map,0xFFFFFF; if ($DisguiseRound >= 6) { set $DisguiseRound, 0; sleep 3000; npctalk "Евент окончен!"; sleep 3500; npctalk "Увидимся!"; sleep 2000; emotion 12; sleep 1000; mapwarp "H","gonryun",158,112; setnpcdisplay "WEWE",50; disablenpc "WEWE"; end; } sleep 5000; goto onstart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnClock1657: announce "Ведьма: Cейчас начнется эвент 'Угадай Монстра'!.",0; set $guessbegin, 0; sleep2 10000; announce "Ведьма: Все желающие могут зайти в портал,который появится в центре пронтеры.",0; sleep2 10000; announce "Ведьма: Через минуту после появления портала регистрация заканчивается и портал исчезает",0; sleep2 10000; announce "Ведьма: Пожалуйста подойдите в центр пронтеры и зайдите в варп портал для принятия участия в эвенте!",0; enablenpc "guesswarp"; enablenpc "WEWE"; startnpctimer; end; OnTimer30000: announce "Ведьма: До начала осталось 30 секунд",0; sleep2 5000; announce "Ведьма: Все желающие принять участие могут пройти в варп портал!",0; end; OnTimer50000: announce "Ведьма: До начала осталось 10 секунд!",0; end; OnTimer55000: announce "Ведьма: ~5~.",0; end; OnTimer56000: announce "Ведьма: ~4~.",0; end; OnTimer57000: announce "Ведьма: ~3~.",0; end; OnTimer58000: announce "Ведьма: ~2~.",0; end; OnTimer59000: announce "Ведьма: ~1~.",0; end; OnTimer60000: announce "Ведьма: Время вышло!",0; sleep 1000; disablenpc "guesswarp"; stopnpctimer; sleep 2500; set $DisguiseRound, 0; donpcevent "WEWE::onstart"; end; OnInit: disablenpc "WEWE"; disablenpc "guesswarp"; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ prontera,155,182,0 warp guesswarp 2,2,H,179,167 H,179,163,0 warp pr84671 2,2,prontera,156,191 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- H mapflag nowarpto H mapflag noskill H mapflag nowarp H mapflag nosave H mapflag nomemo H mapflag noteleport H mapflag nobranch
