supportnpc

//Karul
//ExcaliburRO
prontera,137,228,5  script  Support NPC 94,{

mes "[Support]";
mes "What do you want to do?";
L_Main:
set @menu, rand(1,2);
if ( @menu == 1){
    switch(select("I want to feel divine punishment:Request Help")){
        case 1:
                next;
                mes "[Support]";
                mes "Good Day~";
                next;
                atcommand "@nuke "+strcharinfo(0)+"";
                close;
        case 2:
                next;
                mes "[Support]";
                mes "What do you want to report?";
                menu    "Bug",L_Bug,"Question",L_Question,"Hacker",L_Hacker;
        }
    }
    else{
        switch(select("Request Help:I want to feel divine punishment")){
        case 1:
                next;
                mes "[Support]";
                mes "What do you want to report?";
                menu    "Bug",L_Bug,"Question",L_Question,"Hacker",L_Hacker;
        case 2:
                next;
                mes "[Support]";
                mes "Good Day~";
                next;
                atcommand "@nuke "+strcharinfo(0)+"";
                close;
        }
    }
L_Bug:
    next;
    mes "[Support]";
    mes "A bug you say... Please by VERY specific about this";
    input @question$;
    close2;
    if(@question$ == "cancel")
    {
        next;
        goto L_Main;
    }
    else
    {
        mes "Are you sure this is your request?";
        mes "'^000088"+@question$+"^000000'";
        if(select("Yes, send it please:Wait. Let me retype it")==2)goto L_Bug;
        {
            mes "Alright I will send it";
            atcommand "@request Bug: "+@question$+"";
            next;
            mes "Your message was sent";
            close;
        }
    }

L_Question:
    next;
    mes "[Support]";
    mes "A question you say... Please by VERY specific about this";
    input @question2$;
    close2;
    if(@question2$ == "cancel")
    {
    next;
    goto L_Main;
    }
    else
    {
        mes "Are you sure this is your question?";
        mes "'^000088"+@question2$+"^000000'";
        if(select("Yes, send it please:Wait. Let me retype it")==2) goto L_Question;
        {
            mes "Alright I will send it";
            atcommand "@request Question: "+@question2$+"";
            next;
            mes "Your message was sent";
            close;
        }
    }
L_Hacker:
    next;
    mes "[Support]";
    mes "A Hacker you say... Please by VERY specific about this";
    input @question3$;
    close2;
    if(@question3$ == "cancel")
    {
        next;
        goto L_Main;
    }
    else
    {
        mes "Are you sure this is your request?";
        mes "'^000088"+@question3$+"^000000'";
        if(select("Yes, send it please:Wait. Let me retype it")==2)goto L_Hacker;
        {
            mes "Alright I will send it";
            atcommand "@request Hacker: "+@question3$+"";
            next;
            mes "Your message was sent";
            close;
        }
    }
}