Tailss Опубликовано 8 февраля, 2012 Жалоба Поделиться Опубликовано 8 февраля, 2012 Включу нубомод. Нужны эвенты : Нюк кубик, Атака порингов (лунатиков) , Найди правильного поринга, Цветочки ну и еще что нибудь из стандарта Обыскал все, не найти нигде, жалко что архив рус-еа не остался Помогите, за спасибку Ссылка на комментарий Поделиться на другие сайты Поделиться
Kubix! Опубликовано 8 февраля, 2012 Жалоба Поделиться Опубликовано 8 февраля, 2012 by [sanasol] вроде.- script Event_Kubik -1,{OnInit:callfunc "Walk_Off";disablenpc "Виходимс";end;OnEventStartCUB:killmonsterall "quiz_00";set $@KUB,1;announce "Начался набор людей на Супер кубик Ивент !",0;sleep 15000;announce "Продолжается набор людей на Супер кубик Ивент.Через 3 мин начало ивента !",0;sleep 60000;announce "Продолжается набор людей на Супер кубик Ивент.Через 2 мин начало ивента !",0;sleep 60000;announce "Продолжается набор людей на Супер кубик Ивент.Через 1 мин начало ивента !",0;sleep 30000;announce "Набор людей на Супер кубик Ивент закончен !",0;if ( getareausers("quiz_00",10,131,27,100) <= 1 ) goto L_LMF;set $@KUB,0;areaannounce "quiz_00",4,131,27,100,"До начала выкидывания кубика осталось 30 секунд.Просим занять места на кубиках с цифрами !",0;sleep 28000;areaannounce "quiz_00",4,131,27,100,"Приготовились !!!",0;sleep 2000;callfunc "Main_function1";end;L_LMF:announce "Ивент Супер кубик отменяется,ибо на ивент пришел только 1 игрок !",0;sleep 5000;areawarp "quiz_00",4,125,27,100,"prontera",155,177;end;}function script Main_function2 {if ( getareausers("quiz_00",10,131,27,100) == 0 ) {announce "Конец Ивента Супер кубик.Победителей нету !",0;stopnpctimer "Event_Kubik";return;end;} if ( getareausers("quiz_00",10,131,27,100) == 1 ) {areaannounce "quiz_00",4,131,27,100,"Выпало число - "+$@random,0;announce "Конец Ивента Супер кубик.Есть 1 победитель !",0;callfunc "Walk_On";mapannounce "quiz_00","Заберите свой приз, и тогда сможете выйти !",0;stopnpctimer "Event_Kubik";enablenpc "Виходимс";monster "quiz_00",5,108,"Приз в студию",1360,1;sleep 5000;areawarp "quiz_00",4,131,8,120,"prontera",155,177;return;end;} else {if ( getareausers("quiz_00",10,131,27,100) >= 2 ) {areaannounce "quiz_00",4,131,27,100,"Выпало число - "+$@random,0;areaannounce "quiz_00",4,131,27,100,"У вас 10 секунд,чтоб поменять позицию",0;sleep 10000;callfunc "Main_function1";return;}}}function script Main_function1 {set $@random,rand(1,6);callfunc "Enable_k"+$@random;callfunc "Enable_other";callfunc "Main_function2";return;}quiz_00,4,106,4 script Виходимс 71,{mes "[ Ивент Супер кубик ]";mes "Подравляю с победой !!!";next;getitem 7227,1;warp "SavePoint",0,0;close;}function script Enable_other {//Все,кроме кубиковareawarp "quiz_00",10,131,11,124,"quiz_00",7,122;areawarp "quiz_00",12,129,26,126,"quiz_00",7,122;areawarp "quiz_00",22,121,27,106,"quiz_00",7,122;areawarp "quiz_00",10,121,17,108,"quiz_00",7,122;areawarp "quiz_00",10,107,13,100,"quiz_00",7,122;areawarp "quiz_00",14,105,17,100,"quiz_00",7,122;areawarp "quiz_00",16,107,17,106,"quiz_00",7,122;areawarp "quiz_00",18,111,21,102,"quiz_00",7,122;areawarp "quiz_00",18,101,19,100,"quiz_00",7,122;areawarp "quiz_00",22,101,25,100,"quiz_00",7,122;areawarp "quiz_00",24,103,26,102,"quiz_00",7,122;areawarp "quiz_00",26,105,27,104,"quiz_00",7,122;areawarp "quiz_00",18,125,21,116,"quiz_00",7,122;areawarp "quiz_00",20,115,21,114,"quiz_00",7,122;areawarp "quiz_00",14,123,17,122,"quiz_00",7,122;areawarp "quiz_00",14,125,15,124,"quiz_00",7,122;areawarp "quiz_00",22,125,23,122,"quiz_00",7,122;areawarp "quiz_00",26,125,27,122,"quiz_00",7,122;return;}function script Enable_k1 {//Кубики - 1areawarp "quiz_00",12,125,13,124,"quiz_00",7,122;areawarp "quiz_00",24,125,25,124,"quiz_00",7,122;return;}function script Enable_k2 {//Кубики - 2areawarp "quiz_00",24,123,25,122,"quiz_00",7,122;areawarp "quiz_00",20,101,21,100,"quiz_00",7,122;return;}function script Enable_k3 {//Кубики - 3areawarp "quiz_00",22,105,23,104,"quiz_00",7,122;areawarp "quiz_00",12,123,13,122,"quiz_00",7,122;return;}function script Enable_k4 {//Кубики - 4areawarp "quiz_00",10,123,11,122,"quiz_00",7,122;areawarp "quiz_00",18,113,21,112,"quiz_00",7,122;return;}function script Enable_k5 {//Кубики - 5areawarp "quiz_00",18,115,19,114,"quiz_00",7,122;areawarp "quiz_00",24,105,25,104,"quiz_00",7,122;return;}function script Enable_k6 {//Кубики - 6areawarp "quiz_00",22,103,23,102,"quiz_00",7,122;areawarp "quiz_00",14,107,15,106,"quiz_00",7,122;areawarp "quiz_00",16,125,17,124,"quiz_00",7,122;return;}function script Walk_Off {setcell "quiz_00",9,125,9,120,cell_walkable,0;setcell "quiz_00",9,111,9,106,cell_walkable,0;return;}function script Walk_On {setcell "quiz_00",9,111,9,106,cell_walkable,1;return;} 2 Ссылка на комментарий Поделиться на другие сайты Поделиться
Карласон Опубликовано 8 февраля, 2012 Жалоба Поделиться Опубликовано 8 февраля, 2012 (изменено) //===== eAthena Script =======================================//= Poring Event//===== By: ==================================================//= Wild Karrd, alexx//===== Current Version: =====================================//= 3.0//===== Compatible With: =====================================//= eAthena 12426//===== Description: =========================================//= Find correct poring Event//===== Additional Comments: =================================//= 3.0 Bug fixed and totaly modified [alexx]//============================================================- script poring_event_on -1,{Onclock0100:Onclock0300:Onclock0500:Onclock0700:Onclock0900:Onclock1100:Onclock1300:Onclock1500:Onclock1700:Onclock1900:Onclock2100:Onclock2300: enablenpc "Poring Catcher"; sleep 6000; announce "It's time to catch Porings!",bc_all,0xF49AC1;}- script poring_event_off -1,{Onclock0000:Onclock0200:Onclock0600:Onclock0800:Onclock1000:Onclock1200:Onclock1400:Onclock1600:Onclock1800:Onclock2000:Onclock2200: if ($@EventEnd == 0) { disablenpc "Poring Catcher"; sleep 6000; announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1; }}prontera,142,230,4 script Poring Catcher 756,{OnTouch: mes "[^2E3192Poring Catcher^000000]"; mes "Hellooo, "+strcharinfo(0)+"! I like to catch porings very much. Is is so fun!"; next; menu "I wanna too!",L_enter,"Tell me more?",L_info,"I have some coins.",N_Shop,"I'm leaving... Bye.",L_bye; close;L_enter: mes "[^2E3192Poring Catcher^000000]"; mes "Have fun!"; next; if ($@PoringsSummoned == 0) { initnpctimer; donpcevent "Poringsummoner::OnSummon"; set $@PoringsSummoned,1; } warp "poring_w01",100,100; end;OnTimer600000: stopnpctimer; disablenpc "Poring Catcher"; killmonster "poring_w01","All"; set $@PoringsSummoned,0; mapwarp "poring_w01","prontera",137,234; announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1; set $@EventEnd,1; end;L_info: mes "[^2E3192Poring Catcher^000000]"; mes "There are 100 different porings at the field."; mes "But only one of them is real, you have to find him."; mes "You will be rewarded with the coin and some present if be lucky."; mes "Goood luuck!"; close;L_coin: callsub S_BonusReward; end;L_bye: mes "[^2E3192Poring Catcher^000000]"; mes "Bye-bye!"; close;OnInit: disablenpc "Poring Catcher"; set $@PoringsSummoned,0; end;OnWarp: initnpctimer; enablenpc "Poring Catcher"; donpcevent "Poringsummoner::OnSummon"; end;N_Shop: mes "[^2E3192Poring Catcher^000000]"; mes "That do you want to exchenge your coins on?"; next; menu "Exchange on headgears",-,"Nothing",N_NVM; mes "[^2E3192Poring Catcher^000000]"; mes "Headgears? Here is all i have..."; next; menu "^000090Guild Recruiting Hat^000000 - 50PC",-, "^000090Party Hat^000000 - 50PC",N_Hat2, "^000090Boyfriend Hat^000000 - 50PC",N_Hat3, "^000090Friend Hat^000000 - 50PC",N_Hat4, "^000090Girlfriend Hat^000000 - 50PCs",N_Hat5, "^000090Note Headphones^000000 - 100PC",N_Hat6, "Ie?aai",N_NVM; mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Guild Recruiting Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourGuild Recruiting Hat!"; delitem 7539,50; getitem 5336,1; logmes "Chatch the Poring: Guild Recruiting Hat"; close;N_Hat2: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Party Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourParty Hat!"; delitem 7539,50; getitem 5337,1; logmes "Chatch the Poring: Party Hat"; close;N_Hat3: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Boyfriend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourBoyfriend Hat!"; delitem 7539,50; getitem 5338,1; logmes "Chatch the Poring: Boyfriend Hat"; close;N_Hat4: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Friend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourFriend Hat!"; delitem 7539,50; getitem 5339,1; logmes "Chatch the Poring: Friend Hat"; close;N_Hat5: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Girlfriend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourGirlfriend Hat!"; delitem 7539,50; getitem 5346,1; logmes "Chatch the Poring: Girlfriend Hat"; close;N_Hat6: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 100 Poring Coins on Note Headphones?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 100) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get your Note Headphones!"; delitem 7539,100; getitem 5151,1; logmes "Chatch the Poring: Note Headphones"; close;N_NeedCoins: mes "[^2E3192Poring Catcher^000000]"; mes "You demand additional coins. Go and get some."; close;N_NVM: mes "[^2E3192Poring Catcher^000000]"; mes "As you wish..."; close;}- script Poringsummoner -1,{OnSummon: initnpctimer;OnTimer1000: mapannounce "poring_w01","5 ...",1; end;OnTimer2000: mapannounce "poring_w01","4 ...",1; end;OnTimer3000: mapannounce "poring_w01","3 ...",1; end;OnTimer4000: mapannounce "poring_w01","2 ...",1; end;OnTimer5000: mapannounce "poring_w01","1 ...",1; end;OnTimer6000: stopnpctimer; mapannounce "poring_w01","LET'S GO!",1; areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled"; end;}- script poringwin -1,{OnMobKilled: dispbottom "Congradulations. You've got me."; set .@PoringItemVar,rand(10); if (.@PoringItemVar == 9) { getitem 617,1; } if (.@PoringItemVar >= 4 && .@PoringItemVar < 9) { getitem 603,1; } getitem 7539,1; killmonster "poring_w01","All"; donpcevent "Poringsummoner::OnSummon"; end;}- script poringlose -1,{OnMobKilled: dispbottom "Wahaha, you are looser!"; percentheal -100,-100; sleep 1000; warp "prontera",137,234; end;}poring_w01 mapflag nopenaltyporing_w01 mapflag nolootporing_w01 mapflag noskillporing_w01 mapflag nowarptoporing_w01 mapflag nowarpporing_w01 mapflag noteleportporing_w01 mapflag nomemoporing_w01 mapflag nosave SavePointporing_w01 mapflag nobranch- script mobevent -1,{OnClock1500: monster "prontera.gat",0,0,"Поринг",1002,144,"mobevent::OnPoriDeath"; // спавним простых порингов 144 штуки monster "prontera.gat",0,0,"Поринг",1063,5,"mobevent::OnPorinDeath"; // спавним 5 порингов из которых будет лететь Zeny monster "prontera.gat",0,0,"Поринг",1063,1,"mobevent::OnPoringDeath";// спавним поринга из которого будет падать TCG end;OnPoriDeath: dispbottom "Вы убили поринга"; close;OnPorinDeath: announce "Поздравляем игрока "+strcharinfo(0)+"!Он убил призового поринга и получает в награду 500000 Zeny!",bc_all; set Zeny,Zeny + 500000; close;OnPoringDeath: killmonsterall "prontera"; announce "Поздравляем игрока "+strcharinfo(0)+"!Он убил главного поринга и получает в награду 1 TCG!",bc_all; getitem 7227,1; close;}- script poring_event_on -1,{Onclock0100:Onclock0300:Onclock0500:Onclock0700:Onclock0900:Onclock1100:Onclock1300:Onclock1500:Onclock1700:Onclock1900:Onclock2100:Onclock2300: enablenpc "Poring Catcher"; sleep 6000; announce "It's time to catch Porings!",bc_all,0xF49AC1;}- script poring_event_off -1,{Onclock0000:Onclock0200:Onclock0600:Onclock0800:Onclock1000:Onclock1200:Onclock1400:Onclock1600:Onclock1800:Onclock2000:Onclock2200: if ($@EventEnd == 0) { disablenpc "Poring Catcher"; sleep 6000; announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1; }}prontera,142,230,4 script Poring Catcher 756,{OnTouch: mes "[^2E3192Poring Catcher^000000]"; mes "Hellooo, "+strcharinfo(0)+"! I like to catch porings very much. Is is so fun!"; next; menu "I wanna too!",L_enter,"Tell me more?",L_info,"I have some coins.",N_Shop,"I'm leaving... Bye.",L_bye; close;L_enter: mes "[^2E3192Poring Catcher^000000]"; mes "Have fun!"; next; if ($@PoringsSummoned == 0) { initnpctimer; donpcevent "Poringsummoner::OnSummon"; set $@PoringsSummoned,1; } warp "poring_w01",100,100; end;OnTimer600000: stopnpctimer; disablenpc "Poring Catcher"; killmonster "poring_w01","All"; set $@PoringsSummoned,0; mapwarp "poring_w01","prontera",137,234; announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1; set $@EventEnd,1; end;L_info: mes "[^2E3192Poring Catcher^000000]"; mes "There are 100 different porings at the field."; mes "But only one of them is real, you have to find him."; mes "You will be rewarded with the coin and some present if be lucky."; mes "Goood luuck!"; close;L_coin: callsub S_BonusReward; end;L_bye: mes "[^2E3192Poring Catcher^000000]"; mes "Bye-bye!"; close;OnInit: disablenpc "Poring Catcher"; set $@PoringsSummoned,0; end;OnWarp: initnpctimer; enablenpc "Poring Catcher"; donpcevent "Poringsummoner::OnSummon"; end;N_Shop: mes "[^2E3192Poring Catcher^000000]"; mes "That do you want to exchenge your coins on?"; next; menu "Exchange on headgears",-,"Nothing",N_NVM; mes "[^2E3192Poring Catcher^000000]"; mes "Headgears? Here is all i have..."; next; menu "^000090Guild Recruiting Hat^000000 - 50PC",-, "^000090Party Hat^000000 - 50PC",N_Hat2, "^000090Boyfriend Hat^000000 - 50PC",N_Hat3, "^000090Friend Hat^000000 - 50PC",N_Hat4, "^000090Girlfriend Hat^000000 - 50PCs",N_Hat5, "^000090Note Headphones^000000 - 100PC",N_Hat6, "Ie?aai",N_NVM; mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Guild Recruiting Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourGuild Recruiting Hat!"; delitem 7539,50; getitem 5336,1; logmes "Chatch the Poring: Guild Recruiting Hat"; close;N_Hat2: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Party Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourParty Hat!"; delitem 7539,50; getitem 5337,1; logmes "Chatch the Poring: Party Hat"; close;N_Hat3: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Boyfriend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourBoyfriend Hat!"; delitem 7539,50; getitem 5338,1; logmes "Chatch the Poring: Boyfriend Hat"; close;N_Hat4: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Friend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourFriend Hat!"; delitem 7539,50; getitem 5339,1; logmes "Chatch the Poring: Friend Hat"; close;N_Hat5: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 50 Poring Coins on Girlfriend Hat?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 50) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get yourGirlfriend Hat!"; delitem 7539,50; getitem 5346,1; logmes "Chatch the Poring: Girlfriend Hat"; close;N_Hat6: mes "[^2E3192Poring Catcher^000000]"; mes "Do you wanna exchange 100 Poring Coins on Note Headphones?"; next; menu "Yes",-,"No",N_NVM; if (countitem(7539) < 100) goto N_NeedCoins; mes "[^2E3192Poring Catcher^000000]"; mes "Here, get your Note Headphones!"; delitem 7539,100; getitem 5151,1; logmes "Chatch the Poring: Note Headphones"; close;N_NeedCoins: mes "[^2E3192Poring Catcher^000000]"; mes "You demand additional coins. Go and get some."; close;N_NVM: mes "[^2E3192Poring Catcher^000000]"; mes "As you wish..."; close;}- script Poringsummoner -1,{OnSummon: initnpctimer;OnTimer1000: mapannounce "poring_w01","5 ...",1; end;OnTimer2000: mapannounce "poring_w01","4 ...",1; end;OnTimer3000: mapannounce "poring_w01","3 ...",1; end;OnTimer4000: mapannounce "poring_w01","2 ...",1; end;OnTimer5000: mapannounce "poring_w01","1 ...",1; end;OnTimer6000: stopnpctimer; mapannounce "poring_w01","LET'S GO!",1; areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled"; areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled"; end;}- script poringwin -1,{OnMobKilled: dispbottom "Congradulations. You've got me."; set .@PoringItemVar,rand(10); if (.@PoringItemVar == 9) { getitem 617,1; } if (.@PoringItemVar >= 4 && .@PoringItemVar < 9) { getitem 603,1; } getitem 7539,1; killmonster "poring_w01","All"; donpcevent "Poringsummoner::OnSummon"; end;}- script poringlose -1,{OnMobKilled: dispbottom "Wahaha, you are looser!"; percentheal -100,-100; sleep 1000; warp "prontera",137,234; end;}poring_w01 mapflag nopenaltyporing_w01 mapflag nolootporing_w01 mapflag noskillporing_w01 mapflag nowarptoporing_w01 mapflag nowarpporing_w01 mapflag noteleportporing_w01 mapflag nomemoporing_w01 mapflag nosave SavePointporing_w01 mapflag nobranchВот ещё.prontera.gat,0,0,0 script MvPrAnDoMsPawN -1,{OnInit:setarray $MvPz[0],1022,1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373,1389,1418,1492,1511,1583,1623,1630,1685,1688,1719,1646,1647,1648,1649,1650,1651,1658,1708,1734,1751;setarray $T0wNz$[0],"prontera,gat","alberta.gat","aldebaran.gat","amatsu.gat","comodo.gat","geffen.gat","izlude.gat","hugel.gat","lighthatzen.gat","louyang.gat","morocc.gat","payon.gat","umbala.gat","xmas.gat","yuno.gat","rachel.gat","einbech.gat","einbroch.gat","ayothaya.gat";end;OnClock0000:OnClock0600:OnClock1200:OnClock1800:set .@mvpsummon,$MvPz[rand(getarraysize($MvPz))];set .@t0wn$,$T0wNz$[rand(getarraysize($T0wNz$))];if(.@t0wn$ == "prontera.gat"){ set .@t0wn2$,"Prontera"; }if(.@t0wn$ == "alberta.gat"){ set .@t0wn2$,"Alberta"; }if(.@t0wn$ == "amatsu.gat"){ set .@t0wn2$,"Amatsu"; }if(.@t0wn$ == "comodo.gat"){ set .@town2$,"Comodo"; }if(.@t0wn$ == "geffen.gat"){ set .@t0wn2$,"Geffen"; }if(.@t0wn$ == "izlude.gat"){ set .@t0wn2$,"Izlude"; }if(.@t0wn$ == "hugel.gat"){ set .@t0wn2$,"Hugel"; }if(.@t0wn$ == "lighthatzen.gat"){ set .@t0wn2$,"Lighthalzen"; }if(.@t0wn$ == "louyang.gat"){ set .@t0wn2$,"Louyang"; }if(.@t0wn$ == "morocc.gat"){ set .@t0wn2$,"Morocc"; }if(.@t0wn$ == "payon.gat"){ set .@t0wn2$,"Payon"; }if(.@t0wn$ == "umbala.gat"){ set .@t0wn2$,"Umbala"; }if(.@t0wn$ == "xmas.gat"){ set .@t0wn2$,"Lutie"; }if(.@t0wn$ == "yuno.gat"){ set .@t0wn2$,"Yuno"; }if(.@t0wn$ == "rachel.gat"){ set .@t0wn2$,"Rachel"; }if(.@t0wn$ == "einbech.gat"){ set .@t0wn2$,"Einbech"; }if(.@t0wn$ == "einbroch.gat"){ set .@t0wn2$,"Eibroch"; }if(.@t0wn$ == "ayothaya.gat"){ set .@t0wn2$,"Ayothaya"; }monster ""+.@t0wn$+"",0,0,""+getmonsterinfo(.@mvpsummon,0)+"","+.@mvpsummon+",1,"MvPrAnDoMsPawN::OnThisMobDeath";announce "FerRo: Опастность!"+getmonsterinfo(.@mvpsummon,0)+" атаковал город "+.@t0wn2$+". Нужен герой для спасения!",bc_all;set $mvpsummon2,.mvpsummon;end;OnThisMobDeath:announce "FerRo: "+strcharinfo(0)+" только что убил МВП EvilionRO!!",bc_all;set $mvpsummon2,0;} Изменено 8 февраля, 2012 пользователем Shader спойлер 2 Ссылка на комментарий Поделиться на другие сайты Поделиться
Tailss Опубликовано 8 февраля, 2012 Автор Жалоба Поделиться Опубликовано 8 февраля, 2012 Цветочки скиньте еще пожалуйста Ссылка на комментарий Поделиться на другие сайты Поделиться
Карласон Опубликовано 8 февраля, 2012 Жалоба Поделиться Опубликовано 8 февраля, 2012 prontera,0,0,0 script announce -1,{end;OnInit://Время в которое будет происходит аннонсOnClock1230:OnClock1430:OnClock1630:OnClock1830:initnpctimer;OnTimer0:announce "В пронтере появился NPC - 'Event Flower'.",0,0x00ff00;end;OnTimer1000:enablenpc "Event Flower";announce "Эвент начнется через 1 минуту",0,0x00ff00;end;OnTimer60000:stopnpctimer; //отключаем таймерdisablenpc "Event Flower";monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead"; end;}//ssssguild_vs5,0,0,0 script announce2 -1,{Onmobdead: set $trava,getmapmobs("guild_vs5"); set $trava, $trava - 1; set @z, @z + 1; // +1 моб if(@z == 21) {goto prize;} // Кол-во мобов для Победы 21=20,31=30.... if($trava < 10) {goto resp;} // Проверка на Кол-во травы. Если мало Респим еще.end;resp:monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";end;prize: killmonster "guild_vs5","All"; getitem 969,1; //12106,1 end;}prontera,155,181,4 script Event Flower 72,{mes "Эвент начнётся после того как все участники будут зарегистрированны.";mes "Ты хочеш принять участие?";next;mes "Хорошо, вы зарегистрированны";mes "Хотите попасть в локацию эвента?";next;menu "Go",case1,"Информация",case2,"Забить 8)",case2;case1:set @z,1;warp "guild_vs5",0,0;close;case2:mes "[Евент Flower]";mes "Я вызываю 150 Цветочков";mes "Выиграет тот,";mes "кто первым убьет 20 штук";mes "Good Luck.";close;case3:mes "[Event Flower]";mes "Хорошо, приходите когда захотите.";close;}guild_vs5 mapflag noskillНу вот что-то типо этогоКопирайт: By Sanasol. 2 Ссылка на комментарий Поделиться на другие сайты Поделиться
Fizik Опубликовано 16 сентября, 2015 Жалоба Поделиться Опубликовано 16 сентября, 2015 prontera,0,0,0 script announce -1,{end;OnInit://Время в которое будет происходит аннонсOnClock1230:OnClock1430:OnClock1630:OnClock1830:initnpctimer;OnTimer0:announce "В пронтере появился NPC - 'Event Flower'.",0,0x00ff00;end;OnTimer1000:enablenpc "Event Flower";announce "Эвент начнется через 1 минуту",0,0x00ff00;end;OnTimer60000:stopnpctimer; //отключаем таймерdisablenpc "Event Flower";monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead"; end;}//ssssguild_vs5,0,0,0 script announce2 -1,{Onmobdead: set $trava,getmapmobs("guild_vs5"); set $trava, $trava - 1; set @z, @z + 1; // +1 моб if(@z == 21) {goto prize;} // Кол-во мобов для Победы 21=20,31=30.... if($trava < 10) {goto resp;} // Проверка на Кол-во травы. Если мало Респим еще.end;resp:monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";end;prize: killmonster "guild_vs5","All"; getitem 969,1; //12106,1 end;}prontera,155,181,4 script Event Flower 72,{mes "Эвент начнётся после того как все участники будут зарегистрированны.";mes "Ты хочеш принять участие?";next;mes "Хорошо, вы зарегистрированны";mes "Хотите попасть в локацию эвента?";next;menu "Go",case1,"Информация",case2,"Забить 8)",case2;case1:set @z,1;warp "guild_vs5",0,0;close;case2:mes "[Евент Flower]";mes "Я вызываю 150 Цветочков";mes "Выиграет тот,";mes "кто первым убьет 20 штук";mes "Good Luck.";close;case3:mes "[Event Flower]";mes "Хорошо, приходите когда захотите.";close;}guild_vs5 mapflag noskillНу вот что-то типо этогоКопирайт: By Sanasol.|А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead) Ссылка на комментарий Поделиться на другие сайты Поделиться
botka4aet Опубликовано 16 сентября, 2015 Жалоба Поделиться Опубликовано 16 сентября, 2015 А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead)1)..................................monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";..................................Onmobdead: set $trava,getmapmobs("guild_vs5"); set $trava, $trava - 1; set @z, @z + 1; // +1 моб..................................2)..................................guild_vs5,0,0,0 script announce2 -1,{Onmobdead: set $trava,getmapmobs("guild_vs5");.................................. Ссылка на комментарий Поделиться на другие сайты Поделиться
Fizik Опубликовано 16 сентября, 2015 Жалоба Поделиться Опубликовано 16 сентября, 2015 А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead)1)..................................monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";..................................Onmobdead: set $trava,getmapmobs("guild_vs5"); set $trava, $trava - 1; set @z, @z + 1; // +1 моб..................................2)..................................guild_vs5,0,0,0 script announce2 -1,{Onmobdead: set $trava,getmapmobs("guild_vs5");..................................А я ещё раз говорю в РАТЕНЕ даже в доках нету команды getmapmobs! Ссылка на комментарий Поделиться на другие сайты Поделиться
Functor Опубликовано 16 сентября, 2015 Жалоба Поделиться Опубликовано 16 сентября, 2015 getmapmobs("guild_vs5");нужно заменить на:mobcount("guild_vs5", "announce2::Onmobdead"); 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
Fizik Опубликовано 16 сентября, 2015 Жалоба Поделиться Опубликовано 16 сентября, 2015 getmapmobs("guild_vs5");нужно заменить на:mobcount("guild_vs5", "announce2::Onmobdead");Воо) а я то думал чё он ругается )) а он ругался на то что я вписал алл вместо анонс2он моб дед) Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения