Please Help me to set this script into, every 3HOURS and the Prize is id# 20078 Quantity 1 tnx.
//##########################################################################
//By: ____ _ __ __ ____ _____ #
// | \ ___ __ __ _ | | \ \ / /_ _ _ / ___\ / ____| #
// | || | / _ \\ \ / /| || | \ \ / /| || \ | || | ___ | (___ #
// | || || __/ \ \/ / | || |__ \ \/\/ / | || \| || |___|\ \___ \ #
// __|____/__\___|__\__/__|_||____|_____\_/\_/__|_||_|\__|_\_____/_____) | #
//|_____________________________________________________________________/ #
// #
//##########################################################################
// #
//== Dice Event #
// #
//##########################################################################
//== Edited by Keale #
//== Removed 30 Min Timer and added trigger NPC #
//== Able to set prize and amount via the NPC #
//== Added Mapflags #
//== Edited area warps #
//##########################################################################
- script Dice#disable -1,{
OnInit:
disablenpc "prtevent";
hideonnpc "Dice#evnt1";
end;
}
prontera,140,162,5 script Mrs. Dice 959,{
if (getgmlevel() >= 80) goto Dice_Admin;
mes "[Mrs. Dice]";
mes "Hello " + strcharinfo(0) + ", my husband Mr. Dice is currently out gambling.";
mes "That buffoon is always losing our money... *sigh*";
close;
Dice_Admin:
mes "[Mrs. Dice]";
mes "Hello GM " + strcharinfo(0) + ", would you like me to call my husband?";
mes "He just loves playing the Dice Event with your players.";
menu "Start Event",startdice,"Check Prize",checkprize,"Set Prize",setprize,"No Thanks",enddice;
startdice:
next;
mes "[Mrs. Dice]";
mes "Ok, I'll call him this instant.";
close2;
goto startdiceevent;
checkprize:
next;
mes "[Mrs. Dice]";
mes "The current prize is ^008000"+ $get_item_amount +" "+ getitemname($get_item_id) +"^000000";
next;
goto Dice_Admin;
setprize:
next;
mes "[Mrs. Dice]";
mes "What should the prize for winning be? Please input the ID";
input $get_item_id;
next;
mes "[Mrs. Dice]";
mes "How many if this item should we give away?";
input $get_item_amount;
next;
mes "[Mrs. Dice]";
mes "So, the prize is ^008000"+ $get_item_amount +" "+ getitemname($get_item_id) +"^000000? Wonderful dear.";
next;
goto Dice_Admin;
enddice:
next;
mes "[Mrs. Dice]";
mes "Ok darling, nice seeing you.";
close;
startdiceevent:
announce "Mr. Dice: The Dice event will be starting shortly.",0;
sleep2 10000;
announce "Mr. Dice: Those who want to play, please proceed to the center of Prontera and enter the Warp Portal.",0;
sleep2 10000;
announce "Mr. Dice: After 1 Minute the Portal will close.",0;
sleep2 10000;
announce "Mr. Dice: 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 "Mr. Dice: Last 30 seconds.",0;
sleep2 5000;
announce "Mr. Dice: If you want to join please enter the Warp Portal in Prontera.",0;
end;
OnTimer50000:
announce "Mr. Dice: Last 10 seconds.",0;
end;
OnTimer55000:
announce "Mr. Dice: 5.",0;
end;
OnTimer56000:
announce "Mr. Dice: 4.",0;
end;
OnTimer57000:
announce "Mr. Dice: 3.",0;
end;
OnTimer58000:
announce "Mr. Dice: 2.",0;
end;
OnTimer59000:
announce "Mr. Dice: 1.",0;
end;
OnTimer60000:
announce "Mr. Dice: Time's up.",0;
end;
OnTimer61000:
disablenpc "prtevent";
donpcevent "Dice#evnt1::OnEnable";
stopnpctimer;
end;
}
//--------------------------------------------------
prontera,155,182,0 warp prtevent 2,2,quiz_01,204,90
//--------------------------------------------------
quiz_01,204,93,6 script Dice#evnt1 715,{
//--------------------------------------------------
mes "[Mr. Dice]";
mes "Please tell me your name.";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Mr. Dice]";
mes "Are you sure thats your character name?";
close;
}
mes "[Mr. Dice]";
mes "Congrats. You've won.";
close2;
announce "Mr. Dice: We have a winner! well done "+.@name$+".",0;
getitem $get_item_id,$get_item_amount;
warp "prontera",155,182;
disablenpc "Dice#evnt1";
end;
OnEnable:
mapannounce "quiz_01","Mr. Dice: We are about to start the Dice event.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: But before we start the event here's how to play the game...",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: I'm only gonna say this once so read carefully.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: I'm going to roll a number, 1 to 4. Then I'll do a count down from 5 to 0.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: All you have to do is go stand on the box of the number you want.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: For example, If I roll a number 4, All the players standing on numbers 1 to 3 will be warped back to town.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: We will do it until we only have 1 player left on the map.",0;
sleep2 10000;
mapannounce "quiz_01","Mr. 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","Mr. Dice: Simple huh?.. 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) {
mapannounce "quiz_01","Mr. Dice: . . . . .",0;
set $@number, rand(1,4);
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: I have rolled. Please pick a number and go stand there.... GO!",0;
sleep2 10000;
mapannounce "quiz_01","Mr. Dice: 5",0;
sleep2 5000;
mapannounce "quiz_01","Mr. Dice: 4",0;
sleep2 4000;
mapannounce "quiz_01","Mr. Dice: 3",0;
sleep2 3000;
mapannounce "quiz_01","Mr. Dice: 2",0;
sleep2 2000;
mapannounce "quiz_01","Mr. Dice: 1",0;
sleep2 1000;
mapannounce "quiz_01","Mr. Dice: Time's up.",0;
donpcevent "evnt#1::OnEnable";
mapannounce "quiz_01","Mr. Dice: The winning number is "+$@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","Mr. Dice: Come to me and tell me your name.",0;
hideoffnpc "Dice#evnt1";
end;
L_None:
disablenpc "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
Question
Jb Roxas
Please Help me to set this script into, every 3HOURS and the Prize is id# 20078 Quantity 1 tnx.
//########################################################################## //By: ____ _ __ __ ____ _____ # // | \ ___ __ __ _ | | \ \ / /_ _ _ / ___\ / ____| # // | || | / _ \\ \ / /| || | \ \ / /| || \ | || | ___ | (___ # // | || || __/ \ \/ / | || |__ \ \/\/ / | || \| || |___|\ \___ \ # // __|____/__\___|__\__/__|_||____|_____\_/\_/__|_||_|\__|_\_____/_____) | # //|_____________________________________________________________________/ # // # //########################################################################## // # //== Dice Event # // # //########################################################################## //== Edited by Keale # //== Removed 30 Min Timer and added trigger NPC # //== Able to set prize and amount via the NPC # //== Added Mapflags # //== Edited area warps # //########################################################################## - script Dice#disable -1,{ OnInit: disablenpc "prtevent"; hideonnpc "Dice#evnt1"; end; } prontera,140,162,5 script Mrs. Dice 959,{ if (getgmlevel() >= 80) goto Dice_Admin; mes "[Mrs. Dice]"; mes "Hello " + strcharinfo(0) + ", my husband Mr. Dice is currently out gambling."; mes "That buffoon is always losing our money... *sigh*"; close; Dice_Admin: mes "[Mrs. Dice]"; mes "Hello GM " + strcharinfo(0) + ", would you like me to call my husband?"; mes "He just loves playing the Dice Event with your players."; menu "Start Event",startdice,"Check Prize",checkprize,"Set Prize",setprize,"No Thanks",enddice; startdice: next; mes "[Mrs. Dice]"; mes "Ok, I'll call him this instant."; close2; goto startdiceevent; checkprize: next; mes "[Mrs. Dice]"; mes "The current prize is ^008000"+ $get_item_amount +" "+ getitemname($get_item_id) +"^000000"; next; goto Dice_Admin; setprize: next; mes "[Mrs. Dice]"; mes "What should the prize for winning be? Please input the ID"; input $get_item_id; next; mes "[Mrs. Dice]"; mes "How many if this item should we give away?"; input $get_item_amount; next; mes "[Mrs. Dice]"; mes "So, the prize is ^008000"+ $get_item_amount +" "+ getitemname($get_item_id) +"^000000? Wonderful dear."; next; goto Dice_Admin; enddice: next; mes "[Mrs. Dice]"; mes "Ok darling, nice seeing you."; close; startdiceevent: announce "Mr. Dice: The Dice event will be starting shortly.",0; sleep2 10000; announce "Mr. Dice: Those who want to play, please proceed to the center of Prontera and enter the Warp Portal.",0; sleep2 10000; announce "Mr. Dice: After 1 Minute the Portal will close.",0; sleep2 10000; announce "Mr. Dice: 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 "Mr. Dice: Last 30 seconds.",0; sleep2 5000; announce "Mr. Dice: If you want to join please enter the Warp Portal in Prontera.",0; end; OnTimer50000: announce "Mr. Dice: Last 10 seconds.",0; end; OnTimer55000: announce "Mr. Dice: 5.",0; end; OnTimer56000: announce "Mr. Dice: 4.",0; end; OnTimer57000: announce "Mr. Dice: 3.",0; end; OnTimer58000: announce "Mr. Dice: 2.",0; end; OnTimer59000: announce "Mr. Dice: 1.",0; end; OnTimer60000: announce "Mr. Dice: Time's up.",0; end; OnTimer61000: disablenpc "prtevent"; donpcevent "Dice#evnt1::OnEnable"; stopnpctimer; end; } //-------------------------------------------------- prontera,155,182,0 warp prtevent 2,2,quiz_01,204,90 //-------------------------------------------------- quiz_01,204,93,6 script Dice#evnt1 715,{ //-------------------------------------------------- mes "[Mr. Dice]"; mes "Please tell me your name."; next; input .@name$; if(.@name$ != strcharinfo(0)) { mes "[Mr. Dice]"; mes "Are you sure thats your character name?"; close; } mes "[Mr. Dice]"; mes "Congrats. You've won."; close2; announce "Mr. Dice: We have a winner! well done "+.@name$+".",0; getitem $get_item_id,$get_item_amount; warp "prontera",155,182; disablenpc "Dice#evnt1"; end; OnEnable: mapannounce "quiz_01","Mr. Dice: We are about to start the Dice event.",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: But before we start the event here's how to play the game...",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: I'm only gonna say this once so read carefully.",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: I'm going to roll a number, 1 to 4. Then I'll do a count down from 5 to 0.",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: All you have to do is go stand on the box of the number you want.",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: For example, If I roll a number 4, All the players standing on numbers 1 to 3 will be warped back to town.",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: We will do it until we only have 1 player left on the map.",0; sleep2 10000; mapannounce "quiz_01","Mr. 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","Mr. Dice: Simple huh?.. 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) { mapannounce "quiz_01","Mr. Dice: . . . . .",0; set $@number, rand(1,4); sleep2 10000; mapannounce "quiz_01","Mr. Dice: I have rolled. Please pick a number and go stand there.... GO!",0; sleep2 10000; mapannounce "quiz_01","Mr. Dice: 5",0; sleep2 5000; mapannounce "quiz_01","Mr. Dice: 4",0; sleep2 4000; mapannounce "quiz_01","Mr. Dice: 3",0; sleep2 3000; mapannounce "quiz_01","Mr. Dice: 2",0; sleep2 2000; mapannounce "quiz_01","Mr. Dice: 1",0; sleep2 1000; mapannounce "quiz_01","Mr. Dice: Time's up.",0; donpcevent "evnt#1::OnEnable"; mapannounce "quiz_01","Mr. Dice: The winning number is "+$@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","Mr. Dice: Come to me and tell me your name.",0; hideoffnpc "Dice#evnt1"; end; L_None: disablenpc "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 nobranchEdited by Jb Roxas7 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.