Автор: ArTuR: Дата: 05.21.2009
Кто Может переведить 2 Скриптика?)
[ATTACH]188[/ATTACH]
[ATTACH]189[/ATTACH]
Автор: Cole McCormick: Дата: 05.21.2009
тыже вроде покинул нас)
Автор: ArTuR: Дата: 05.21.2009
кто те сказал что я покинул?)
Автор: Cole McCormick: Дата: 05.21.2009
мм ах да это был АнТон7) сорь непризнал))
Автор: ArTuR: Дата: 05.21.2009
Можешь перевести 2 срипта пож?
Автор: Sanasol: Дата: 05.21.2009
Чо ты гонишь второй у тебя на русском.... А в первом переводить не так много попробуй сам.
Автор: ArTuR: Дата: 05.21.2009
они же все на англ?) где там на русском я чет не видел)
Автор: Sanasol: Дата: 05.21.2009
ахаха глянул повнимателней ам во втором переведены пару фраз xDDD
Первый раз смотрел вроде ьрусский *crazy**crazy*
//===== eAthena Script =======================================
//= Event Script
//===== By: ==================================================
//= Toons
//===== Current Version: =====================================
//= 4.5
//===== Description: =========================================
//= Custom Events
//============================================================
prontera.gat,170,175,3 script Евент! 46,{
//This is the variable that will be your reward id set throught this script
//Default setting is 7724 which is the Gold Coin
set $rewarditem, 12103;
//Fugitive game variables so people can talk to this npc and be warped when the event is running
if ($@fugiwins == 1) goto L_fugiwins;
if ($@fuggame == 1){
if (getgmlevel() >= 60) goto L_fugitive4;}
if ($@fugiwarp == 1){
warp "pvp_y_8-4.gat",0,0;
end;}
if ($@fugistart == 1) goto L_fugitive2;
if(getgmlevel() >= 80) goto L_GM;
mes "Пшол вон, Это токо для ГМ!";
close;
L_GM:
mes "Здарова! "+strcharinfo(0)+"!";
mes "Как я могу тебе помоч)?";
menu "Создать Евент!",L_Event,"Nevermind",L_end,"Reset Games",L_resetg;
L_Event:
mes "I see you want to create an event today.";
mes "What type will it be?";
menu "Poring Event",L_Poring,"MVP Event",L_MVP,"Russian Roulette",L_russ,"Invasion",L_invade,"Juggernaut",L_jugger,"Fugitive",L_fugitive;
//Here starts the Poring Event Script
L_Poring:
mes "I see you want a Poring Event.";
mes "Input the name of the map. Do not tnclude .gat";
input @place$;
next;
mes "You can input a name that will be displayed to the players.";
input @place2$;
mes "Are you sure?";
menu "Yes",-,"No",L_end;
set $@poringtok,100;
monster ""+@place$+".gat",0,0,"Poring",1725,400;
monster ""+@place$+".gat",0,0,"Poring",1725,$@poringtok,"Events::OnPoringKilledGlobal";
Announce ""+strcharinfo(0)+" Евент Поринг Начался в Городе), "+@place2$+"!",bc_yellow|bc_all;
close;
OnPoringKilledGlobal:
set $PoringKilled,$PoringKilled+1;
getitem $rewarditem,1;
announce ""+strcharinfo(0)+" выбил Bloody branch!",bc_yellow|bc_all;
if ($PoringKilled==$@poringtok) goto L_Game;
end;
L_Game:
announce "Все поринги с коинами были убиты).",bc_yellow|bc_all;
set $PoringKilled,0;
killmonsterall @place$+".gat";
end;
//Here starts the MVP Event
L_MVP:
mes "Let's start the event then.";
mes "Input the name of the map. Do not include .gat";
input @place$;
next;
mes "You can input a name that will be displayed to the players next.";
input @place2$;
next;
mes "Want to make the rest random?";
menu "Yes",L_rMVP,"No",-;
mes "Input the monster ID. You could use something other than an MVP.";
input @id;
next;
mes "Next the monster name. It can be anything.";
input $@name$;
next;
set $@num,1;
mes "Is there a specific place you would like to put this monster?";
menu "Yes",L_yspec,"No",L_nspec;
L_rMVP:
mes "Мвп Монстер Атакует "+@place$+"?";
menu "да",-,"нет",L_end;
monster ""+@place$+"",0,0,"--ja--",-3,1,"Events::OnMVPKilledGlobal";;
announce "Мвп атакует город "+@place2$+"!",bc_yellow|bc_all;
close;
L_nspec:
set @x,0;
set @y,0;
next;
goto L_check;
L_yspec:
mes "Input the x coordinate.";
input @x;
mes "Input the y coordinate.";
input @y;
next;
L_check:
mes "Here's what you put in...";
mes "Place: "+@place$+"";
mes "Id: "+@id+"";
mes "Name: "+$@name$+"";
mes "Coordinates: X = "+@x+" and Y = "+@y+"";
mes "Is this all correct?";
menu "Yes",L_spawn,"No",L_MVP,"Quit",L_end;
L_end:
close;
L_spawn:
mes "Before starting, would you like to summon more than one?";
menu "No",L_spawn2,"Yes",L_num;
L_num:
mes "Input the number of spawns. Remember, 0,0 coordinates means both will spawn on different spots of the map.";
input $@num;
L_spawn2:
if ($@num > 1) goto L_spawn3;
monster ""+@place$+".gat",@x,@y,"Event Monster",@id,$@num,"Events::OnMVPKilledGlobal";;
announce ""+$@name$+" is on the loose in "+@place2$+"!",bc_blue|bc_all;
close;
L_spawn3:
set $@num2,$@num;
monster ""+@place$+".gat",@x,@y,"Event Monster",@id,$@num,"Events::OnMVPKilled2Global";;
announce "There are "+$@num+" "+$@name$+"'s rampaging in "+@place2$+"!",bc_blue|bc_all;
close;
OnMVPKilledGlobal:
set @rand,rand(1,3);
if (@rand == 1) {
announce ""+strcharinfo(0)+"спас город от МВП!) !!!",bc_yellow|bc_all; }
if (@rand == 2) {
announce "Мвп был убит "+strcharinfo(0)+"!!!",bc_yellow|bc_all; }
if (@rand == 3) {
announce ""+strcharinfo(0)+" спас город от МВП!!!!",bc_yellow|bc_all; }
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,2;
if (@rtoken == 2) set @atoken,3;
if (@rtoken == 3) set @atoken,4;
if (@rtoken == 4) set @atoken,5;
announce ""+strcharinfo(0)+" получил "+@atoken+" Мвп веток!",bc_blue|bc_all;
getitem $rewarditem,@atoken;
end;
OnMVPKilled2Global:
set $@num2,$@num2-1;
if ($@num2 == 0) goto L_MVPOver;
announce ""+strcharinfo(0)+" убил "+$@name$+" leaving ("+$@num2+"/"+$@num+") осталось убить !!!",bc_yellow|bc_all;
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,5;
if (@rtoken == 2) set @atoken,1;
if (@rtoken == 3) set @atoken,3;
if (@rtoken == 4) set @atoken,2;
announce ""+strcharinfo(0)+" получил "+@atoken+" Мвп веток!",bc_blue|bc_all;
getitem $rewarditem,@atoken;
end;
L_MVPOver:
announce ""+strcharinfo(0)+" Убил последнего "+@name$+"!!!",bc_yellow|bc_all;
set @rtoken,rand(1,4);
if (@rtoken == 1) set @atoken,5;
if (@rtoken == 2) set @atoken,1;
if (@rtoken == 3) set @atoken,3;
if (@rtoken == 4) set @atoken,2;
announce ""+strcharinfo(0)+" получил "+@atoken+" Мвп веток!",bc_yellow|bc_all;
announce "Монстры не выдержали нашего натиска!",bc_yellow|bc_all;
getitem $rewarditem,@atoken;
end;
//Here starts the Russian Roulette NPC
L_russ:
if ($@rron == 1) goto L_gamestart;
mes "Will this be a set reward game, or a betting game?";
menu "Set Prize Game",-,"Betting Game",L_russbet;
mes "How many players do you want in this game? It can be a max of 10.";
input $@players;
next;
if ($@players < 2) {
mes "Needs more players!";
close;}
if ($@players > 10) {
mes "Too many players!";
close;}
mes "Are you sure you want to start this event?";
menu "Yes",L_sruss,"No",L_end;
L_sruss:
set $@rron,1;
set $@rrbet,0;
announce "A Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all;
announce "Talk to the Russian Roulette NPC in Prontera.",bc_blue|bc_all;
enablenpc "Russian Roulette";
close;
L_russbet:
mes "How many players do you want in this game? It can be a max of 10.";
input $@players;
next;
if ($@players < 2) {
mes "Needs more players!";
close;}
if ($@players > 10) {
mes "Too many players!";
close;}
mes "Now you must decide the forced bet upon players.";
mes "Recommended 20-50.";
input $@forcebet;
mes "Are you sure you want to start this event?";
menu "Yes",L_sruss2,"No",L_end;
L_sruss2:
set $@rron,1;
set $@rrbet,1;
announce "A Betting Russian Roulette Game has started for "+$@players+" players!",bc_blue|bc_all;
announce "This game has a forced bet of "+$@forcebet+" Tokens.",bc_blue|bc_all;
enablenpc "Russian Roulette";
close;
L_gamestart:
mes "A game has already started. Would you like to stop or end it?";
menu "No",-,"Stop Game",L_sgame;
close;
L_sgame:
announce "The GM has stopped this game. Only "+$@join+" players have joined.",3;
set $@players,$@join;
close;
//Invasion Event starts here
L_invade:
mes "How many invasions do you want? Recommended 3-5.";
input $@numinvade;
if ($@numinvade<2) goto L_moreinvade;
next;
mes "Choose a Multiplier. This is the number that will define how many monsters are summoned during one round.";
menu "1x",-,"2x",-,"3x",-,"4x",-;
if (@menu == 1) { set $@multiply,1; }
if (@menu == 2) { set $@multiply,2; }
if (@menu == 3) { set $@multiply,3; }
if (@menu == 4) { set $@multiply,4; }
mes "Are you sure you want to start this invasion?";
menu "Yes",-,"No",L_end;
announce "An invasion has begun in the Event Room!!!",bc_blue|bc_all;
set $@invasion,0;
set $@invade,0;
goto L_invade2;
L_moreinvade:
mes "You must have more invasions!!";
close;
OnInvadeGlobal:
set $@invade,$@invade+1;
getitem $rewarditem,2;
if ($@invade==(8 * $@multiply)){
announce "Here comes the next invasion!!!",bc_blue|bc_all;
goto L_invade2;}
end;
L_invade2:
set $@invasion,$@invasion+1;
set $@invade,0;
if ($@numinvade==$@invasion) goto L_endinvade;
monster "turbo_room.gat",111,133,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",118,133,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",132,89,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",130,84,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",67,88,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",70,83,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",77,131,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
monster "turbo_room.gat",84,131,"--ja--",-1,$@multiply,"Events::OnInvadeGlobal";;
close;
end;
L_endinvade:
announce "The Boss of this invasion has arrived! Someone save us!",bc_blue|bc_all;
monster "turbo_room.gat",100,100,"--ja--",-3,1,"Events::OnInvadeFinishGlobal";;
end;
OnInvadeFinishGlobal:
announce ""+strcharinfo(0)+" has finished the invasion! Thank the Hero!",bc_blue|bc_all;
getitem 677,1;
end;
//Juggernaut Event starts here
L_jugger:
if ($@jon == 1) goto L_gamestart2;
mes "Are you sure you want to start this event?";
menu "Yes",-,"No",L_end;
disablenpc "Reward";
set $@jjoin,0;
set $@jon,1;
announce "A Juggernaut game has begun! Talk to the NPC in town related to this game to join.",bc_blue|bc_all;
enablenpc "Juggernaut";
enablenpc "Juggernaut Sign-up";
close;
L_gamestart2:
mes "A game has already started.";
close;
//Here is where the fugitive game begins
L_fugitive:
mes "Are you positive you want to start a fugitive game?";
menu "Begin Game",L_fugitive1,"Request A Game",-,"No",L_end;
announce ""+strcharinfo(0)+" has requested a Fugitive game! Come to town to play!",bc_blue|bc_all;
close;
L_fugitive1:
mes "Who's the Fugitive?";
mes "Here is a list of online players.";
next;
query_sql "SELECT `char`.`account_id` FROM `char` LEFT JOIN `login` ON `char`.`account_id` = `login`.`account_id` WHERE `char`.`online` = 1 && `login`.`level` = 0 ORDER BY `char`.`name`", @online;
for(set @i, 0; @i < getarraysize(@online); set @i, @i + 1){
mes rid2name(@online[@i]);
}
input $@fugitive$;
next;
mes "With this person, begin the game?";
mes "Fugitive: "+$@fugitive$;
menu "Yes",-,"No",L_end;
announce ""+strcharinfo(0)+" has chosen "+$@fugitive$+" to be the Fugitive!",bc_blue|bc_all;
announce "Speak to the Events NPC to set your time.",bc_blue|bc_all;
set $@fugistart,1;
close;
L_fugitive2:
if (strcharinfo(0) != $@fugitive$) goto L_nofugitive;
mes "Hello, "+strcharinfo(0)+". Since you're the fugitive, you get to choose you own time.";
next;
mes "It's simple, you will be given a menu of times to choose from.";
next;
mes "The higher the time you choose, the more tokens you can win in the end.";
next;
mes "Afterwards, you will be warped to one of the 8 spots in Prontera.";
next;
mes "So, choose the time you would like to be escaping for.";
menu "2 minutes",L_2minute,"3 minutes",L_3minute,"4 minutes",L_4minute,"5 minutes",L_5minute;
L_2minute:
set $@time,2;
goto L_fugitive3;
L_3minute:
set $@time,3;
goto L_fugitive3;
L_4minute:
set $@time,4;
goto L_fugitive3;
L_5minute:
set $@time,5;
goto L_fugitive3;
L_fugitive3:
announce "The fugitive has selected to be on the run for "+$@time+" minutes!",bc_yellow|bc_all;
set $@fuggame,1;
close;
L_fugitive4:
Announce ""+$@fugitive$+" has crossed the fence! Speak to the events npc to be warped.",bc_blue|bc_all;
charcommand "#warp pvp_y_8-4.gat 0 0 " +$@fugitive$;
setmapflag "pvp_y_8-4.gat",mf_pvp;
setmapflag "pvp_y_8-4.gat",mf_nomemo;
setmapflag "pvp_y_8-4.gat",mf_noteleport;
setmapflag "pvp_y_8-4.gat",mf_nowarpto;
setmapflag "pvp_y_8-4.gat",mf_loadevent;
initnpctimer;
enablenpc OnPCKillEvent;
enablenpc OnPCDieEvent;
set $@fuggame,0;
set $@fugistart,0;
set $@fugiwarp,1;
end;
OnTimer60000:
if ($@fugiwarp == 0) goto L_varset;
announce "One minute has passed.",bc_blue|bc_all;
end;
OnTimer90000:
if ($@fugiwarp == 0) goto L_varset;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
announce "Our satellite has shown the fugitive to be at coordinates "+$@fugix+","+$@fugiy+".",bc_blue|bc_all;
end;
OnTimer120000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 2) {
announce "Two minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 2){
announce "Two minutes have passed.",bc_blue|bc_all;
end;}
OnTimer180000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 3) {
announce "Three minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 3){
announce "Three minutes have passed.",bc_blue|bc_all;
end;}
OnTimer210000:
if ($@fugiwarp == 0) goto L_varset;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
announce "We have again located the fugitive at the coordinates "+$@fugix+","+$@fugiy+".",bc_blue|bc_all;
end;
OnTimer240000:
if ($@fugiwarp == 0) goto L_varset;
if ($@time == 4) {
announce "Four minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;}
if ($@time != 4){
announce "Four minutes have passed.",bc_blue|bc_all;
end;}
OnTimer300000:
if ($@fugiwarp == 0) goto L_varset;
announce "Five minutes have passed and the fugitive escaped.",bc_yellow|bc_all;
goto L_varset;
end;
L_nofugitive:
mes "You aren't the fugitive!";
close;
L_varset:
stopnpctimer;
setnpctimer 0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
set $@fugiwins,1;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;
L_fugiwins:
if ($@fugitive$ != strcharinfo(0)) end;
mes "Good job on escaping!";
getitem $rewarditem,$@time * 60;
set $@fugiwins,0;
close;
//This defines what all gets reset when you use Reset Games on the main menu
L_resetg:
mes "This is for the purpose of resetting Russian Roulette and Juggernaut games and variables if complications occur.";
next;
mes "Would you like to reset the games?";
menu "No",L_end,"Yes",-;
disablenpc "Russian Roulette";
disablenpc "Juggernaut";
disablenpc "Jugger Buffer";
disablenpc "OnPCKillEvent";
disablenpc "OnPCDieEvent";
disablenpc "OnPCLoadMapEvent";
disablenpc "Reward";
disablenpc "Juggernaut Sign-up";
set $@jon,0;
set $@jjoin,0;
set $@jugbuff,0;
set $@players,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
set @death,0;
set @gm,0;
set $@rron,0;
set $@join,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@player10,0;
set $@join1$,"";
set $@join2$,"";
set $@join3$,"";
set $@join4$,"";
set $@join5$,"";
set $@join6$,"";
set $@join7$,"";
set $@join8$,"";
set $@join9$,"";
set $@join10$,"";
stopnpctimer;
setnpctimer 0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
set $@fugiwins,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
close;
}
prontera.gat,169,180,0 script Disabler -1,{
OnInit:
disablenpc "Russian Roulette";
disablenpc "Juggernaut";
disablenpc "Jugger Buffer";
disablenpc "OnPCKillEvent";
disablenpc "OnPCDieEvent";
disablenpc "OnPCLoadMapEvent";
disablenpc "Reward";
disablenpc "Juggernaut Sign-up";
end;
}
prontera.gat,157,187,5 script Russian Roulette 730,{
if ($@players == $@join) goto L_bullet;
set @gm,0;
if ($@join1$ == strcharinfo(0)) goto L_signed;
if ($@join2$ == strcharinfo(0)) goto L_signed;
if ($@join3$ == strcharinfo(0)) goto L_signed;
if ($@join4$ == strcharinfo(0)) goto L_signed;
if ($@join5$ == strcharinfo(0)) goto L_signed;
if ($@join6$ == strcharinfo(0)) goto L_signed;
if ($@join7$ == strcharinfo(0)) goto L_signed;
if ($@join8$ == strcharinfo(0)) goto L_signed;
if ($@join9$ == strcharinfo(0)) goto L_signed;
if ($@join10$ == strcharinfo(0)) goto L_signed;
if ($@join == 1) goto L_join2;
if ($@join == 2) goto L_join3;
if ($@join == 3) goto L_join4;
if ($@join == 4) goto L_join5;
if ($@join == 5) goto L_join6;
if ($@join == 6) goto L_join7;
if ($@join == 7) goto L_join8;
if ($@join == 8) goto L_join9;
if ($@join == 9) goto L_join10;
L_join:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,1;
set $@join1$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 1";
close;
L_join2:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,2;
set $@join2$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 2";
if ($@players == $@join) goto L_full;
close;
L_join3:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,3;
set $@join3$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 3";
if ($@players == $@join) goto L_full;
close;
L_join4:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,4;
set $@join4$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 4";
if ($@players == $@join) goto L_full;
close;
L_join5:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,5;
set $@join5$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 5";
if ($@players == $@join) goto L_full;
close;
L_join6:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,6;
set $@join6$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 6";
if ($@players == $@join) goto L_full;
close;
L_join7:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,7;
set $@join7$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 7";
if ($@players == $@join) goto L_full;
close;
L_join8:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,8;
set $@join8$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 8";
if ($@players == $@join) goto L_full;
close;
L_join9:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,9;
set $@join9$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 9";
if ($@players == $@join) goto L_full;
close;
L_join10:
if ($@rrbet == 1) {
if(countitem(7724)< $@forcebet) goto L_notoken;
delitem 7724,$@forcebet;}
set $@join,10;
set $@join10$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has joined as Player 10";
if ($@players == $@join) goto L_full;
close;
L_notoken:
mes "Get at least "+$@forcebet+" tokens to play!";
close;
L_full:
if ($@rrbet == 1) {
set @fullbet,$@forcebet * $@players;
announce "The game is now full with a full bet of "+@fullbet+".",2;
close;}
announce "The game is now full. Sorry, try again another time!",2;
close;
L_bullet:
if(getgmlevel() >= 80) goto L_bullet1;
mes "I need a GM to talk to me to finish the game.";
close;
L_bullet1:
mes "Ready to start?";
menu "Yes",-,"No",L_nohost,"Stop the Game",L_rstop;
if (@gm == 1) goto L_GMstart;
set @gm,1;
set $@lcheck,2;
L_bullet2:
if (@death == ($@players - 1)) goto L_finish;
mes "Pull the trigger?";
menu "Yes",-,"Stop the Game",L_rstop2;
L_bullet3:
set @rbullet,rand(1,$@join);
if (@rbullet == 1){
set $@deadplayer,$@player1;
set $@joinplayer$,$@join1$;
goto L_bullet4;}
if (@rbullet == 2){
set $@deadplayer,$@player2;
set $@joinplayer$,$@join2$;
goto L_bullet4;}
if (@rbullet == 3){
set $@deadplayer,$@player3;
set $@joinplayer$,$@join3$;
goto L_bullet4;}
if (@rbullet == 4){
set $@deadplayer,$@player4;
set $@joinplayer$,$@join4$;
goto L_bullet4;}
if (@rbullet == 5){
set $@deadplayer,$@player5;
set $@joinplayer$,$@join5$;
goto L_bullet4;}
if (@rbullet == 6){
set $@deadplayer,$@player6;
set $@joinplayer$,$@join6$;
goto L_bullet4;}
if (@rbullet == 7){
set $@deadplayer,$@player7;
set $@joinplayer$,$@join7$;
goto L_bullet4;}
if (@rbullet == 8){
set $@deadplayer,$@player8;
set $@joinplayer$,$@join8$;
goto L_bullet4;}
if (@rbullet == 9){
set $@deadplayer,$@player9;
set $@joinplayer$,$@join9$;
goto L_bullet4;}
if (@rbullet == 10){
set $@deadplayer,$@player10;
set $@joinplayer$,$@join10$;
goto L_bullet4;}
L_bullet4:
if ($@deadplayer == 1) goto L_bullet3;
if (rand(1,$@lcheck) == 1){
set @phrase1,rand(1,4);
if (@phrase1 == 1){
announce ""+$@joinplayer$+" finds that the gun did not fire...",bc_blue|bc_all;}
if (@phrase1 == 2){
announce ""+$@joinplayer$+" luckily survives this round...",bc_blue|bc_all;}
if (@phrase1 == 3){
announce ""+$@joinplayer$+" dodges death by an inch...",bc_blue|bc_all;}
if (@phrase1 == 4){
announce ""+$@joinplayer$+" hears a click in the gun...",bc_blue|bc_all;}
set $@lcheck,$@lcheck+1;
goto L_bullet2;}
set @phrase2,rand(1,6);
if (@phrase2 == 1){
announce ""+$@joinplayer$+" is definately not having a good day.",bc_blue|bc_all;}
if (@phrase2 == 2){
announce ""+$@joinplayer$+" got a shot in the face.",bc_blue|bc_all;}
if (@phrase2 == 3){
announce ""+$@joinplayer$+" is done for.",bc_blue|bc_all;}
if (@phrase2 == 4){
announce ""+$@joinplayer$+" sees the reaper.",bc_blue|bc_all;}
if (@phrase2 == 5){
announce ""+$@joinplayer$+" just got pwned.",bc_blue|bc_all;}
if (@phrase2 == 6){
announce ""+$@joinplayer$+" dies a nastly, horrible, discusting, vile death.",bc_blue|bc_all;}
atcommand "@nuke "+$@joinplayer$;
if ($@joinplayer$ == $@join1$) { set $@player1,1; }
if ($@joinplayer$ == $@join2$) { set $@player2,1; }
if ($@joinplayer$ == $@join3$) { set $@player3,1; }
if ($@joinplayer$ == $@join4$) { set $@player4,1; }
if ($@joinplayer$ == $@join5$) { set $@player5,1; }
if ($@joinplayer$ == $@join6$) { set $@player6,1; }
if ($@joinplayer$ == $@join7$) { set $@player7,1; }
if ($@joinplayer$ == $@join8$) { set $@player8,1; }
if ($@joinplayer$ == $@join9$) { set $@player9,1; }
if ($@joinplayer$ == $@join10$) { set $@player10,1; }
set @death,@death+1;
goto L_bullet2;
L_GMstart:
mes "A GM has already started this game. Please don't interfere.";
close;
L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
L_nohost:
mes "When you're ready, just talk to me again.";
set @gm,0;
close;
L_rstop:
if (@gm == 1) goto L_GMstart;
announce "The GM has ended this game.",3;
set @gm,0;
set $@rron,0;
disablenpc "Russian Roulette";
close;
L_rstop2:
announce "The GM has ended this game.",3;
set @gm,0;
set $@rron,0;
disablenpc "Russian Roulette";
close;
L_finish:
set @tokena,($@players * 25);
if ($@rrbet == 1) {
set @tokena,$@forcebet * $@players;}
if ($@player1 != 1) {
set $@winner$,$@join1$;
goto L_finish1;}
if ($@player2 != 1) {
set $@winner$,$@join2$;
goto L_finish1;}
if ($@player3 != 1) {
set $@winner$,$@join3$;
goto L_finish1;}
if ($@player4 != 1) {
set $@winner$,$@join4$;
goto L_finish1;}
if ($@player5 != 1) {
set $@winner$,$@join5$;
goto L_finish1;}
if ($@player6 != 1) {
set $@winner$,$@join6$;
goto L_finish1;}
if ($@player7 != 1) {
set $@winner$,$@join7$;
goto L_finish1;}
if ($@player8 != 1) {
set $@winner$,$@join8$;
goto L_finish1;}
if ($@player9 != 1) {
set $@winner$,$@join9$;
goto L_finish1;}
else {
set $@winner$,$@join10$;
goto L_finish1;}
L_finish1:
announce ""+$@winner$+" has won and gets "+@tokena+" Tokens!",bc_blue|bc_all;
charcommand "#item "+$rewarditem+" "+@tokena+" "+$@winner$;
atcommand "@raise";
disablenpc "Russian Roulette";
goto L_setter;
close;
L_setter:
set @death,0;
set @gm,0;
set $@rron,0;
set $@join,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@player10,0;
set $@join1$,"";
set $@join2$,"";
set $@join3$,"";
set $@join4$,"";
set $@join5$,"";
set $@join6$,"";
set $@join7$,"";
set $@join8$,"";
set $@join9$,"";
set $@join10$,"";
close;
}
prontera.gat,148,188,6 script Juggernaut 52,{
if ($@jugbuff == 1) goto L_finishjug;
if(getgmlevel() >= 20) goto L_jug1;
npctalk ""+strcharinfo(0)+" has joined as a player.";
warp "force_1-1.gat",100,100;
L_jug1:
if (getmapusers("guild_vs3.gat") == 1){
mes "Someone has already been chosen to be Juggernaut!";
close;}
mes "Ready to start?";
menu "Yes",-,"No",L_nohost;
if ($@jjoin == 0) goto L_nosignup;
switch(select(""+$@jjoin1$+"",""+$@jjoin2$+"",""+$@jjoin3$+"",""+$@jjoin4$+"",""+$@jjoin5$+"",""+$@jjoin6$+"",""+$@jjoin7$+"",""+$@jjoin8$+"",""+$@jjoin9$+"",""+$@jjoin10$+"")) {
case 1:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player1,1;
goto L_startjug;
case 2:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player2,1;
goto L_startjug;
case 3:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player3,1;
goto L_startjug;
case 4:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player4,1;
goto L_startjug;
case 5:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player5,1;
goto L_startjug;
case 6:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player6,1;
goto L_startjug;
case 7:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player7,1;
goto L_startjug;
case 8:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player8,1;
goto L_startjug;
case 9:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player9,1;
goto L_startjug;
case 10:
mes "You sure?";
menu "Yes",-,"No",L_jug1;
set $@player10,1;
goto L_startjug;
}
L_nosignup:
mes "There are no people found to be signed up at the Juggernaut Sign-up";
next;
mes "Wait for someone to sign up or force someone to be juggernaut";
menu "Wait",-,"Force Juggernaut",L_force;
close;
L_force:
mes "Input the name of the user to be Juggernaut.";
input $@juggernaut$;
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@juggernaut$))
{
mes "That is not a valid user or that player is not online.";
close;
}
goto L_startjug2;
L_startjug:
if ($@player1 == 1){
set $@juggernaut$,$@jjoin1$;
goto L_startjug2;}
if ($@player2 == 1){
set $@juggernaut$,$@jjoin2$;
goto L_startjug2;}
if ($@player3 == 1){
set $@juggernaut$,$@jjoin3$;
goto L_startjug2;}
if ($@player4 == 1){
set $@juggernaut$,$@jjoin4$;
goto L_startjug2;}
if ($@player5 == 1){
set $@juggernaut$,$@jjoin5$;
goto L_startjug2;}
if ($@player6 == 1){
set $@juggernaut$,$@jjoin6$;
goto L_startjug2;}
if ($@player7 == 1){
set $@juggernaut$,$@jjoin7$;
goto L_startjug2;}
if ($@player8 == 1){
set $@juggernaut$,$@jjoin8$;
goto L_startjug2;}
if ($@player9 == 1){
set $@juggernaut$,$@jjoin9$;
goto L_startjug2;}
if ($@player10 == 1){
set $@juggernaut$,$@jjoin10$;
goto L_startjug2;}
L_startjug2:
announce ""+$@juggernaut$+" has been chosen to be the juggernaut.",bc_blue|bc_all;
charcommand "#warp guild_vs3.gat 50 50 " +$@juggernaut$;
enablenpc "Jugger Buffer";
disablenpc "Juggernaut Sign-up";
close;
L_nohost:
mes "When you're ready, just talk to me again.";
close;
L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
L_finishjug:
if(getgmlevel() >= 60) goto L_finishjug1;
mes "I need a GM to talk to me to finish the game.";
close;
L_finishjug1:
mes "Ready to send the other players in?";
menu "Yes",-,"No",L_nohost;
npctalk "Ok, here go the players to fight the Juggernaut!";
mapwarp "force_1-1","guild_vs3",0,0;
disablenpc "Juggernaut";
initnpctimer;
close;
OnTimer300000:
if ($@jon == 0){
stopnpctimer;
setnpctimer 0;
end;}
if (getmapusers("guild_vs3.gat") == 0){
stopnpctimer;
setnpctimer 0;
end;}
announce "5 minutes has passed and all the players and the juggernaut weren't killed.",bc_blue|bc_all;
mapwarp "guild_vs3.gat","prontera.gat",156,187;
set $@jon,0;
set $@jugbuff,0;
set $@jjoin,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
stopnpctimer;
setnpctimer 0;
end;
}
guild_vs3.gat,55,55,4 script Jugger Buffer 739,{
if ($@juggernaut$ != strcharinfo(0)) goto L_loser;
sc_start SC_IMPOSITIO,300000,60;
sc_start SC_ASSUMPTIO,300000,20;
sc_start SC_BLESSING,300000,30;
sc_start SC_INCREASEAGI,300000,10;
sc_start SC_MAGNIFICAT,300000,5;
sc_start SC_PARRYING,300000,5;
sc_start SC_ANGELUS,300000,30;
sc_start SC_INCMHPRATE,300000,50;
sc_start SC_CP_WEAPON,300000,10;
sc_start SC_CP_SHIELD,300000,10;
sc_start SC_CP_ARMOR,300000,10;
sc_start SC_CP_HELM,300000,10;
sc_start SC_ENDURE,300000,10;
sc_start SC_EXPLOSIONSPIRITS,300000,1;
sc_start SC_INTRAVISION,300000,1;
percentheal 100,100;
npctalk "I just know you will win for the sake of evil!";
set $@jugbuff,1;
announce "The Juggernaut is ready with buffs.",bc_blue|bc_all;
set $@players,getmapusers("force_1-1.gat");
set $@jugplayers,getmapusers("force_1-1.gat");
disablenpc "Jugger Buffer";
close;
L_loser:
mes "You aren't the juggernaut you moron!";
close;
}
force_1-1.gat,100,111,5 script Juggernaut Sign-up 904,{
if ($@jjoin == 10)
{
mes "Sorry. All positions for juggernaut are filled.";
close;
}
mes "This is the Juggernaut sign-up. You can put in your name to be drawn when the juggernaut is chosen.";
next;
mes "Would you like to sign up to be the juggernaut? Notice I only take 10 names. It's a first come first serve basis.";
menu "Yes",-,"No",L_noname;
mes "Thank you for your interest in signing up.";
if ($@jjoin1$ == strcharinfo(0)) goto L_signed;
if ($@jjoin2$ == strcharinfo(0)) goto L_signed;
if ($@jjoin3$ == strcharinfo(0)) goto L_signed;
if ($@jjoin4$ == strcharinfo(0)) goto L_signed;
if ($@jjoin5$ == strcharinfo(0)) goto L_signed;
if ($@jjoin6$ == strcharinfo(0)) goto L_signed;
if ($@jjoin7$ == strcharinfo(0)) goto L_signed;
if ($@jjoin8$ == strcharinfo(0)) goto L_signed;
if ($@jjoin9$ == strcharinfo(0)) goto L_signed;
if ($@jjoin10$ == strcharinfo(0)) goto L_signed;
if ($@join == 1) goto L_join2;
if ($@join == 2) goto L_join3;
if ($@join == 3) goto L_join4;
if ($@join == 4) goto L_join5;
if ($@join == 5) goto L_join6;
if ($@join == 6) goto L_join7;
if ($@join == 7) goto L_join8;
if ($@join == 8) goto L_join9;
if ($@join == 9) goto L_join10;
L_join:
set $@jjoin,1;
set $@jjoin1$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join2:
set $@jjoin,2;
set $@jjoin2$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join3:
set $@jjoin,3;
set $@jjoin3$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join4:
set $@jjoin,4;
set $@jjoin4$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join5:
set $@jjoin,5;
set $@jjoin5$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join6:
set $@jjoin,6;
set $@jjoin6$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join7:
set $@jjoin,7;
set $@jjoin7$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join8:
set $@jjoin,8;
set $@jjoin8$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join9:
set $@jjoin,9;
set $@jjoin9$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_join10:
set $@jjoin,10;
set $@jjoin10$,strcharinfo(0);
npctalk ""+strcharinfo(0)+" has signed up to be juggernaut";
close;
L_noname:
mes "Remember that if no one signs up, then everyone is eligible to be juggernaut.";
close;
L_signed:
mes "You're already in! Don't try to slip it passed me!";
close;
}
guild_vs3.gat,45,55,6 script Reward 80,{
if ($@juggerwin == 0){
getitem $rewarditem,$@players * 25;
mes "Thanks for playing!";
goto L_setter2;}
if ($@juggerwin == 1){
sc_end SC_IMPOSITIO;
sc_end SC_ASSUMPTIO;
sc_end SC_BLESSING;
sc_end SC_INCREASEAGI;
sc_end SC_MAGNIFICAT;
sc_end SC_PARRYING;
sc_end SC_ANGELUS;
sc_end SC_INCMHPRATE;
sc_end SC_CP_WEAPON;
sc_end SC_CP_SHIELD;
sc_end SC_CP_ARMOR;
sc_end SC_CP_HELM;
sc_end SC_ENDURE;
sc_end SC_EXPLOSIONSPIRITS;
sc_end SC_INTRAVISION;
getitem $rewarditem,$@jugplayers * 50;
mes "Thanks for playing!";
goto L_setter2;}
L_setter2:
set $@jon,0;
set $@jjoin,0;
set $@player1,0;
set $@player2,0;
set $@player3,0;
set $@player4,0;
set $@player5,0;
set $@player6,0;
set $@player7,0;
set $@player8,0;
set $@player9,0;
set $@jjoin1$,"";
set $@jjoin2$,"";
set $@jjoin3$,"";
set $@jjoin4$,"";
set $@jjoin5$,"";
set $@jjoin6$,"";
set $@jjoin7$,"";
set $@jjoin8$,"";
set $@jjoin9$,"";
set $@jjoin10$,"";
close2;
warp "prontera.gat",155,174;
}
//This is where the events will be when it comes to the Juggernaut and Fugitive game
- script OnPCDieEvent -1,{
if ($@fugiwarp == 1){
if (strcharinfo(0) == $@fugitive$){
set $@fugidead,1;}}
if ($@jugbuff == 0) end;
if ($@juggernaut$ != strcharinfo(0)){
percentheal 100,100;
warp "prontera.gat",155,174;
end;}
if ($@juggernaut$ == strcharinfo(0)){
announce "The Juggernaut was killed!",bc_all,0xFF0000;
set $@players,getmapusers("guild_vs3.gat");
set $@juggerwin,0;
enablenpc "Reward";
set $@jon,0;
set $@jugbuff,0;
percentheal 100,100;
warp "prontera.gat",155,174;
disablenpc "OnPCDieEvent";
end;}
}
- script OnPCKillEvent -1,{
if ($@fugiwarp == 1){
if (strcharinfo(0) != $@fugitive$){
if ($@fugidead == 1){
announce "The fugitive was killed by "+strcharinfo(0)+"!",bc_all,0xFF0000;
getitem $rewarditem,600/$@time;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;}}}
if ($@jugbuff != 1) end;
if ($@juggernaut$ != strcharinfo(0)){
announce "A player has been killed.",bc_all,0xFF0000;
set $@players,$@players-1;}
if ($@juggernaut$ == strcharinfo(0)){
announce "The Juggernaut has murdered a player.",bc_all,0xFF0000;
set $@players,$@players-1;}
if ($@players==0){
announce ""+strcharinfo(0)+" has won the event as Juggernaut!",bc_blue|bc_all;
set $@juggerwin,1;
enablenpc "Reward";
set $@jon,0;
set $@jugbuff,0;
disablenpc "OnPCKillEvent";
end;}
}
- script OnPCLoadMapEvent -1,{
if (strcharinfo(0) == $@fugitive$){
if (getmapxy($@mapname$,$@fugix,$@fugiy,0,$@fugitive$)) end;
if ($@mapname$ == "pvp_y_8-4.gat") end;
announce "The fugitive has changed map and is disqualified.",0;
set $@fugidead,0;
set $@fugitive$,"";
set $@fugiwarp,0;
removemapflag "pvp_y_8-4.gat",mf_gvg;
removemapflag "pvp_y_8-4.gat",mf_nomemo;
removemapflag "pvp_y_8-4.gat",mf_noteleport;
removemapflag "pvp_y_8-4.gat",mf_nowarpto;
removemapflag "pvp_y_8-4.gat",mf_noexppenalty;
removemapflag "pvp_y_8-4.gat",mf_loadevent;
end;}
}
//guild_vs3.gat mapflag pvp
//guild_vs3.gat mapflag nomemo
//guild_vs3.gat mapflag nopenalty
//guild_vs3.gat mapflag noreturn
//guild_vs3.gat mapflag noteleport
//guild_vs3.gat mapflag pvp_noguild
//guild_vs3.gat mapflag nogo
//guild_vs3.gat mapflag nocommand
//guild_vs3.gat mapflag nowarpto
//guild_vs3.gat mapflag restricted 6
//pvp_y_8-4.gat mapflag restricted 7Автор: Cole McCormick: Дата: 05.21.2009
второй частично русский
Автор: ArTuR: Дата: 05.21.2009
Ну вот мне над полностью русский) если не лень переведите пожалуйста!