viewing paste Poring Ball Start | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119
//===== rAthena Script =======================================
//= Poring Ball
//===== Template By: =========================================
//= Saruka
//===== Revised By: ==========================================
//= Mysterious
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= This script is part of Ball_Main. (Must have both)!
//===== Prerequisites: =======================================
//= The Football Field: ball2
//= Red and Blue palettes: 78 & 79
//= red palette : $paletteRed
//= blue palette : $paletteBlue
//============================================================
 
malangdo,142,158,4      script   Game Hoster#hj1        69,{
        callfunc "F_Game_Hoster";
        close;
}
 
function        script  F_Game_Hoster   {
        cutin "god_kukur02",2;
        mes "[ ^BF0073Game Hoster^000000 ]";
        mes "Hello there! I can describe to you how Poring Ball works or warp you straight to the field!";
 
OnMenu:
        next;
        menu "- Poring Ball Information",OnPoringBall,"- Cancel",-;
        close2;
        cutin "",255;
        end;
 
OnPoringBall:
        cutin "",255;
        cutin "god_kukur01",2;
        mes "[ ^BF0073Game Hoster^000000 ]";
 
        if ($@state_match>=2)
                mes "There is a match in progress. ["+getmapusers("ball2")+" Players]";
        else
                mes "There is no match in progress.";
                mes "There are currently "+getareausers("quiz_02",321,333,378,394)+" Players in the Waiting Room.";
                next;
 
        set @accessPoring, 1;
 
        if (@accessPoring==1) {
                menu "Play Poring Ball",-,"Cancel",OnCancel;
                cutin "",255;
                cutin "god_kukur02",2;
                mes "[ ^BF0073Game Hoster^000000 ]";
                mes "To return here, you must talk to the Game Hoster in the Waiting Room.";
                close2;
                cutin "",255;
                warp "quiz_02",350,374;
        } else  {
                mes "[ ^BF0073Game Hoster^000000 ]";
                mes "Poring Ball is not open to the General Public.";
                goto OnMenu;
        }
        close;
 
OnCancel:
        cutin "",255;
        cutin "god_kukur02",2;
        mes "[ ^BF0073Game Hoster^000000 ]";
        mes "See you soon!";
        close2;
        cutin "",255;
        end;
}
 
 
quiz_02,335,384,5       script   Game Hoster#hjPb1      69,{
 
        cutin "god_kukur01",2;
        mes "[ ^BF0073Game Hoster^000000 ]";
        mes "Do you wish to leave or stay in the Waiting Room?";
        next;
        set @palette, getlook(7);
        menu "- I want my clothes back.",OnReturnShirt,"- Return to Town",OnLeaveRoom,"- I'm staying",-;
        close2;
        cutin "",255;
        end;
 
OnReturnShirt:
        cutin "",255;
        cutin "god_kukur03",2;
        mes "[ ^BF0073Game Hoster^000000 ]";
 
        if ((@palette == $paletteRed) ||(@palette == $paletteBlue)) {
                mes "Here are your clothes back.";
                setlook 7, savePalette;
        } else {
                mes "Uh sorry..";
                emotion e_omg;
        }
        close2;
        cutin "",255;
        end;
 
OnLeaveRoom:
        cutin "",255;
 
        if ((@palette == $paletteRed) ||(@palette == $paletteBlue)) {
                cutin "god_kukur03",2;
                mes "[ ^BF0073Game Hoster^000000 ]";
                mes "Before you leave, I will give back your clothes.";
                setlook 7, savePalette;
                next;
                cutin "",255;
        }
 
        savepoint "splendide",196,140; // Change this to your desired map (main town)
        warp "splendide",196,140; // Change this to your desired map (main town)
        end;
}
Viewed 268 times, submitted by unknown.