Dice Event, a little tweak please?

[Mr BrycE]

hi, will someone add some code on dice event? when they warped out, they are warped in a little place (like jupe_ele) then an NPC is waiting for them there to get their conso. and i want to put the pvp script by Emistry to add them a BattlePoints...which is thier conso like +2BattlePoints...then after getting their conso they are warp back to town.. ill just add a mapflag to the jupe_ele right? to prevent warping.

here is the dice event

...

//##########################################################################
//By: ____				    _	  __	    __		   ____    _____  #
//   |    \   ___ __    __ _ | |	 \ \	  / /_  _   _  / ___\  / ____| #
//   | ||  | / _ \\ \  / /| || |	  \ \    / /| || \ | || | ___ | (___   #
//   | ||  ||  __/ \ \/ / | || |__	 \ \/\/ / | ||  \| || |___|\ \___ \  #
// __|____/__\___|__\__/__|_||____|_____\_/\_/__|_||_|\__|_\_____/_____) | #
//|_____________________________________________________________________/  #
//																		 #
//##########################################################################
//																		 #
//== Dice Event														    #
//																		 #
//##########################################################################
//																		 #
//== Automatically starts a dice event every 30 minutes of every hour	  #
//																		 #
//== Prize- Change 13723 to any item ID you want the winner to recieved    #
//																		 #										 // Code Modify by : WordsUp
// Credit still for mAisakaTaiga							   
//##########################################################################
- script Dice#announcer -1,{
OnInit:
disablenpc "prtevent";
hideonnpc "Dice#evnt1";
end;
OnMinute20:
announce "BriceRO Dice: We are going to have a Dice event.",0;
sleep2 10000;
announce "BriceRO Dice: For those who wants to join, Please proceed to the center of Prontera and enter the Warp Portal.",0;
sleep2 10000;
announce "BriceRO Dice: After 1 Minute the Portal will close.",0;
sleep2 10000;
announce "BriceRO Dice: So please go to the middle of Prontera and enter the Warp Portal now if you want to join.",0;
enablenpc "prtevent";
initnpctimer;
end;
OnTimer30000:
announce "BriceRO Dice: Last 30 seconds.",0;
sleep2 5000;
announce "BriceRO Dice: If you want to join please enter the Warp Portal beside me here in Prontera.",0;
end;

OnTimer50000:
announce "BriceRO Dice: Last 10 seconds.",0;
end;

OnTimer55000:
announce "BriceRO Dice: 5.",0;
end;

OnTimer56000:
announce "BriceRO Dice: 4.",0;
end;

OnTimer57000:
announce "BriceRO Dice: 3.",0;
end;

OnTimer58000:
announce "BriceRO Dice: 2.",0;
end;

OnTimer59000:
announce "BriceRO Dice: 1.",0;
end;

OnTimer60000:
announce "BriceRO Dice: Time's up.",0;
end;

OnTimer61000:
disablenpc "prtevent";
donpcevent "Dice#evnt1::OnEnable";
stopnpctimer;
end;

OnTimer62000:
announce "Dice: The next Dice event will begin after 30 minutes.",0;
end;
}

//--------------------------------------------------

prontera,155,182,0 warp prtevent 2,2,quiz_01,204,90

//--------------------------------------------------
quiz_01,204,93,6 script Dice#evnt1 715,{
//--------------------------------------------------
mes "[briceRO Dice]";
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
 mes "[briceRO Dice]";
 mes "Are you sure thats your character name?";
 close;
}
mes "[briceRO Dice]";
mes "Congrats. You've won.";
close2;
announce "BriceRO Dice: We have a winner, "+.@name$+".",0;
getitem 6153,70;
warp "prontera",155,182;
hideonnpc "Dice#evnt1";
end;

OnEnable:
mapannounce "quiz_01","BriceRO Dice: We are about to start the Dice event.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: But before we start the event here's how to play the game. . .",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: I'm only gonna say this once so read carefully.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: I'm going to pick a number, 1 to 4. Then I'll do a count down from 5 to 0.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: All you have to do is go to the box of the number you want.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: Example, If I get the number of 4, All the players standing on numbers 1 to 3 will be warped back to town.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: We will do it again and again until we only have 1 player left on the map.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: Oh yeah! Before I forget you MUST GO INSIDE THE BOX, because if you're caught standing on the stairs you'll be automatically disqualified.",0;
sleep2 10000;
mapannounce "quiz_01","BriceRO Dice: That's that.. Now let's play...",0;
sleep2 10000;
goto L_Start;
end;

L_Start:
if(getmapusers("quiz_01") == 1) goto L_Champ;
if(getmapusers("quiz_01") == 0) goto L_None;
if(getmapusers("quiz_01") > 1) {
announce "BriceRO Dice: . . . . .",0;
set $@number, rand(1,4);
sleep2 10000;
announce "BriceRO Dice: I have a number now. Please go to the box of the number you want.... GO!",0;
sleep2 10000;
announce "BriceRO Dice: 5",0;
sleep2 5000;
announce "BriceRO Dice: 4",0;
sleep2 4000;
announce "BriceRO Dice: 3",0;
sleep2 3000;
announce "BriceRO Dice: 2",0;
sleep2 2000;
announce "BriceRO Dice: 1",0;
sleep2 1000;
announce "BriceRO Dice: Time's up.",0;
donpcevent "evnt#1::OnEnable";
announce "BriceRO Dice: Winning number "+$@number+".",0;
if(($@number != 1) && ($@number != 2) && ($@number != 3)) goto L_Lose1;
if(($@number != 1) && ($@number != 2) && ($@number != 4)) goto L_Lose2;
if(($@number != 1) && ($@number != 3) && ($@number != 4)) goto L_Lose3;
if(($@number != 2) && ($@number != 3) && ($@number != 4)) goto L_Lose4;
end;
}

L_Lose1:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
goto L_Start;
end;
L_Lose2:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;;
goto L_Start;
end;

L_Lose3:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;
goto L_Start;
end;

L_Lose4:
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;
goto L_Start;
end;

L_Champ:
mapannounce "quiz_01","BriceRO Dice: Come to me and tell me your name.",0;
hideoffnpc "Dice#evnt1";
end;

L_None:
announce "No One Enters the Dice Event. Closed",0;
hideonnpc "Dice#evnt1";
end;
}

- script evnt#1 -1,{
OnEnable:
areawarp "quiz_01",182,94,228,88,"prontera",155,182;
areawarp "quiz_01",185,87,188,82,"prontera",155,182;
areawarp "quiz_01",197,87,200,82,"prontera",155,182;
areawarp "quiz_01",209,87,212,82,"prontera",155,182;
areawarp "quiz_01",221,87,224,82,"prontera",155,182;
end;
}
// -- Mapflags
quiz_01 mapflag nowarp
quiz_01 mapflag nowarpto
quiz_01 mapflag noteleport
quiz_01 mapflag nosave
quiz_01 mapflag nomemo
quiz_01 mapflag nobranch
quiz_01 mapflag noloot
quiz_01 mapflag noskill
quiz_01 mapflag nopenalty

and here is the pvp script by emistry

- script BattlePoints -1,{
OnPCKillEvent:
   getmapxy .@m$,.@x,.@y,0;
   if (.@m$ == "pvp_y_2-2" || .@m$ == "guild_vs3" || .@m$ == "prt_gld" || .@m$ == "prtg_cas01" ){
   set #BattlePoints,#BattlePoints+1;
   dispbottom "[ Battle Points ] : +1 Points , Total Accumulated Points : [ "+#BattlePoints+" ] ";
   end;
   }
end;
}
pvp_y_2-2 mapflag loadevent
guild_vs3 mapflag loadevent
1@orcs mapflag loadevent
prt_gld mapflag loadevent
prtg_cas01 mapflag loadevent

[Mr BrycE]

done xD i just change the Lose tags and i make a little npc :-)

que_moon,99,35,5 script Bertud 766,{
OnTouch:
set #BattlePoints,#BattlePoints+8;
dispbottom "[ Battle Points ] : +8 Points , Total Accumulated Points : [ "+#BattlePoints+" ] ";
warp "prontera.gat",155,182;
end;
}
// -- Mapflags
que_moon mapflag nowarp
que_moon mapflag nowarpto
que_moon mapflag noteleport
que_moon mapflag nomemo
que_moon mapflag nobranch
que_moon mapflag noloot
que_moon mapflag noskill
que_moon mapflag nopenalty
que_moon mapflag nosave

hoping there's no problem, thanks for help btw..

Edited April 15, 2012 by Mr BrycE

[Hoshi]

L_Lose1:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
goto L_Start;
end;
L_Lose2:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;;
goto L_Start;
end;
L_Lose3:
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;
goto L_Start;
end;
L_Lose4:
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;
areawarp "quiz_01",219,81,227,59,"prontera",155,182;
goto L_Start;
end;

Can you see this part in the script? all you need is to change the part "prontera",155,182; to your desired location then put the npc there,

NOTE: Set a mapflag in the consolation npc to avoid abusers.

[Mr BrycE]

thank you, what about the npc? that give battlepoints? hehe...im too lazy to make one or im not really sure how to make one? ahhaha...i want to practice scripts by looking others maybe little by little i will learn it...

should i change this? :(from pvp script)

- script BattlePoints -1,{ <<< to my own location and npc name?

OnPCKillEvent: <<< and change it to OnTouch?

Edited April 14, 2012 by Mr BrycE

[Hoshi]

not necessarily, it's simple you can even make one on your own

like this.

<heade,{
mes "Consolation";
getitem <item id>,<amount>;
warp "prontera.gat",111,111;
close;
}

simple as this, though if you want validation for players who were recently warped from the dice event

L_Lose1:
set conso_prize, 1; // adding this one in all L_Lose tags (There were 4 if you know what I mean)
areawarp "quiz_01",183,81,191,59,"prontera",155,182;
areawarp "quiz_01",195,81,203,59,"prontera",155,182;
areawarp "quiz_01",207,81,215,59,"prontera",155,182;

goto L_Start;

then use this one instead the script earlier

<heade,{

if (conso_price>=1)
{
mes "Consolation";
getitem <item id>,<amount>;
set conso_price, 0;
warp "prontera.gat",111,111;
close;
}
mes "Sorry you didn't participate in the event";
warp "prontera.gat",111,111;
close;
}

*EDIT 1* - By the way what do you mean that gives battle points? Cash Points? Or Custom Points?

Edited April 15, 2012 by hatsunerance

[Mr BrycE]

battlepoints..in your script the conso npc will give them items, in my request i want to give them battlepoints....that's why i ask if i can change the heade and OnPckillevent by OnTouch....to give them battlepoints...(#BattlePoints)

[Hoshi]

then instead of

getitem <item id>,<amount>;

make it

set #BattlePoints,#BattlePoints+<amount>;

[Hoshi]

No problem

[Yummy]

Have you tried Asking Euphy?

Me and Euphy are planning to put that in HeritageRO.