Dice,RFYL Events

[Phriya 0]

Hi everyone , can i request those scripts?

 

Dice event 

 

RFYL Event

 

i got rathena versions but doesnt work and full of errors

 

http://upaste.me/7d9f1763527b7e0da
 

thank you .

[Chatterboy 8]

Here is your Dice event, I modify it in a working scriupt

 

prontera,141,174,4    script    Dice Event    4W_M_01,{            .@deName$ = "[^FF0000Dice Event^000000]";        .@menu$ = "Join the event:Cancel";    if (getgmlevel() >= .gmsetting) {        .@menu$ =  .@menu$ + ":Start Event";    }    switch(select(.@menu$)){                case 1:            if ( .dEstart == 1 ) {                warp "quiz_01",204,89;                end;            }            else if ( .dEstart == 2 ) {            mes .@deName$;            mes "Too late, the event has already started";            close;            }            mes .@deName$;            mes "No Event right now";            close;                    case 2:            close;                    case 3:            mes .@deName$;            mes "start the event";            donpcevent strnpcinfo(0)+"::OnStart";            close;    }// Set what time it will Start...OnClock0800:OnClock2000:OnStart:    .dEstart = 1;    hideonnpc "Dice#evnt1";    announce "Dice Event: We are going to have a Dice Event",bc_all,0xFF7F50;    sleep 1 * .seconds;    announce "Dice Event: For those who want to join, please meet me @ the MARKET Place right side.",bc_all,0xFF7F50; //Edit to where would you place the warper    sleep 1 * .seconds;    announce "Dice Event: The Warper would be open for 1 minute",bc_all,0xFF7F50;    sleep 30 * .seconds;    announce "Dice Event: Last 30 Seconds.",bc_all,0xFF7F50;    sleep 30 * .seconds;OnEnable:    if(getmapusers("quiz_01")==1){    mapannounce "quiz_01","Dice: The Game will start minimum of TWO player...",bc_all,0xFF7F50;    sleep 5 * .seconds;    announce "Dice Event: Last Call. We are waiting for another challenger..",bc_all,0xFF7F50;    sleep 10 * .seconds;    announce "Dice Event: For those who want to join, please meet me @ the MARKET Place right side.",bc_all,0xFF7F50; //Edit to where would you place the warper    sleep 20 * .seconds;    announce "Dice Event: The Warper would be open for 1 minute",bc_all,0xFF7F50;    sleep 30 * .seconds;    announce "Dice Event: Last 30 Seconds.",bc_all,0xFF7F50;    sleep 30 * .seconds;    announce "Dice Event: Warper Closed.",bc_all,0xFF7F50;    sleep 5 * .seconds;    if(getmapusers("quiz_01")==1){        mapannounce "quiz_01","Dice: The Dice event is HALTED...",bc_all,0xFF7F50;        warp "prontera",155,183;        end;            }    }        .dEstart = 2;    mapannounce "quiz_01","Dice: We are about to start the Dice event.",0;sleep2 10000;    mapannounce "quiz_01","Dice: But before we start the event here's how to play the game. . .",0;sleep2 10000;    mapannounce "quiz_01","Dice: I'm only gonna say this once so read carefully.",0;sleep2 10000;    mapannounce "quiz_01","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","Dice: All you have to do is go to the box of the number you want.",0;sleep2 10000;    mapannounce "quiz_01","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","Dice: We will do it again and again until we only have 1 player left on the map.",0;sleep2 10000;    mapannounce "quiz_01","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","Dice: That's it.. 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 "Dice: . . . . .",0;    $@number = rand(1,4);sleep2 10000;    announce "Dice: I have a number now. Please go to the box of the number you want.... GO!",0;sleep2 10000;    announce "Dice: 5",0;sleep2 5000;    announce "Dice: 4",0;sleep2 4000;    announce "Dice: 3",0;sleep2 3000;    announce "Dice: 2",0;sleep2 2000;    announce "Dice: 1",0;sleep2 1000;    announce "Dice: Time's up.",0;    donpcevent "evnt#1::OnEnable";    announce "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,60,"prontera",155,182;    areawarp "quiz_01",195,81,203,60,"prontera",155,182;    areawarp "quiz_01",207,81,215,60,"prontera",155,182;    .dEstart = 0;    goto L_Start;end; L_Lose2:    areawarp "quiz_01",183,81,191,60,"prontera",155,182;    areawarp "quiz_01",195,81,203,60,"prontera",155,182;    areawarp "quiz_01",219,81,227,60,"prontera",155,182;;    .dEstart = 0;    goto L_Start;end; L_Lose3:    areawarp "quiz_01",183,81,191,60,"prontera",155,182;    areawarp "quiz_01",207,81,215,60,"prontera",155,182;    areawarp "quiz_01",219,81,227,60,"prontera",155,182;    .dEstart = 0;    goto L_Start;end; L_Lose4:    areawarp "quiz_01",195,81,203,60,"prontera",155,182;    areawarp "quiz_01",207,81,215,60,"prontera",155,182;    areawarp "quiz_01",219,81,227,60,"prontera",155,182;    .dEstart = 0;    goto L_Start;end; L_Champ:    mapannounce "quiz_01","Dice: Come to me and get your Prize.",0;    hideoffnpc "Dice#evnt1";    end; L_None:    announce "No One Enters the Dice Event. Closed",0;    hideonnpc "Dice#evnt1";    end;        OnInit:    .gmsetting = 60; // in which level the GMs can control this event ?        .seconds = 1000; // for debug purpose only, how many mili-second = 1 second ?} -    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;}  quiz_01,204,93,6    script    Dice#evnt1    715,{  .@dName$ = "[^FF0000Dice^000000]";     mes .@dName$;    mes "Congrats. You've won.";    close2;    announce "Dice: We have a winner, "+.@name$+".",0;    getitem 607,5;    getitem 7711,2;    warp "prontera",155,183;    hideonnpc "Dice#evnt1";    .dEstart = 0;    end; }// -- Mapflagsquiz_01    mapflag    nowarpquiz_01    mapflag    nowarptoquiz_01    mapflag    noteleportquiz_01    mapflag    nosavequiz_01    mapflag    nomemoquiz_01    mapflag    nobranchquiz_01    mapflag    nolootquiz_01    mapflag    noskillquiz_01    mapflag    nopenalty

Edited May 5, 2015 by chatterboy