Requesting E-Inquiry for leaving a msg on GM's

butasro · January 19, 2016

can someone make this possible on herc?

https://rathena.org/board/files/file/2498-e-inquiry/

Kubix · January 26, 2016

http://upaste.me/08d8226956edfea7b

change Case to case

Dastgir · January 20, 2016

Try it, it should work on Hercules too

Mystery · January 20, 2016

Yup it should work. Just keep in mind you'll need to add the NPC Constant instead of the ID and change -1 to FAKE_NPC especially since our recent update: http://herc.ws/board/topic/11703-2015-12-31-fake-npc-and-the-npc-view-id-1/?p=68705

butasro · January 20, 2016

ok ill try thanks for the info's masters ^^ Godspeed

// Load the following SQL Table in your Server before use the NPC
    
/*
    
CREATE TABLE IF NOT EXISTS `E-Inquiry` (
    `ID` bigint(20) unsigned NOT NULL auto_increment,
    `Sender_ID` int(11) unsigned NOT NULL default '0',
    `Sender_Name` varchar(30) NOT NULL default '',
    `Title` text,
    `Message` text,
    `Status` tinyint(2) NOT NULL default '0',
    `Inquiry_Time` datetime NOT NULL default '0000-00-00 00:00:00',
    `Reply` text,
    `Reply_Time` datetime NOT NULL default '0000-00-00 00:00:00',
    `Reply_Name` varchar(30) NOT NULL default '',
    PRIMARY KEY  (`ID`)
) ENGINE=MyISAM;

*/

-    script    E-Inquiry    FAKE_NPC,{  // <------ i already change, and i add tables on my database, any changes
                                    //         that i need to change?
OnStartMenu:
mes "Do you having problems and wish to inform GM Staffs about this ?";
next;
switch( select( "View Messages",
                "Write Messages",
                ( getgmlevel() < .GMLevel )?"":"^FF0000[ GM ]^000000 Manage Messages" )){

Case 1:
    do{
        mes "What types of Messages you would like to View ?";
        for( set .@i,0; .@i < 3; set .@i,.@i + 1 )
            set .@Found[.@i],query_sql("SELECT `ID` FROM `E-Inquiry` WHERE `Status` = "+.@i+" AND `Sender_ID`='"+getcharid(3)+"'",.@ID );

        set .@Msg,select("^FF0000Un-Replied Messanges [ ^FF0000"+.@Found[0]+"^000000 ]",
                        "^0000FFReplied Messages^000000 [ ^FF0000"+.@Found[1]+"^000000 ]",
                        "Archieved Messages [ ^FF0000"+.@Found[2]+"^000000 ]" ) - 1;
        set .@Replied,query_sql(" SELECT `ID`,`Title`,`Message`,`Inquiry_Time`,`Reply`,`Reply_Time`,`Reply_Name` FROM `E-Inquiry` WHERE `Status`= "+.@Msg+" AND `Sender_ID`='"+getcharid(3)+"' ",.@ID, .@Title$,.@Message$,.@Time$,.@Reply$,.@ReplyTime$,.@ReplyName$ );
        if( !.@Replied ){
            mes "You didnt have Messages to read.";
            next;
        }else{
            set .@Menu$,"";
            for( set .@i,0; .@i < .@Replied; set .@i,.@i + 1 )
                set .@Menu$,.@Menu$ + "^FF0000[ "+( .@i+1 )+". ]^0000FF "+.@Title$[.@i]+":";
            next;
            set .@Select,select( .@Menu$ ) - 1;
            mes "^00FF00____________________________^000000";
            mes "^FF0000Date :^000000 : "+.@Time$[.@Select];
            mes "^FF0000Title^000000 : "+.@Title$[.@Select];
            mes "^00FF00____________________________^000000";
            mes "^FF0000Messages^000000 : "+.@Message$[.@Select];
            mes "^00FF00____________________________^000000";
            if( .@Msg > 0 ){
                mes "^0000FFReply from ^FF0000"+.@ReplyName$[.@Select]+" ^000000 : "+.@Reply$[.@Select];
                mes "^00FF00____________________________^000000";
                mes "^0000FFTime ^000000 : "+.@ReplyTime$[.@Select];
            }
            next;
            set .@MsgOpt1,select("View Other Messages",( .@Msg == 1 )?"Move to Archieve":"","Delete Message" );
            switch( .@MsgOpt1 ){
                Case 2:
                    query_sql("UPDATE `E-Inquiry` SET `Status` = 2 WHERE `ID` = "+.@ID[.@Select]+" ");
                    mes "Message has been moved to Archieve.";
                    break;
                Case 3:
                    query_sql("DELETE FROM `E-Inquiry` WHERE `ID` = "+.@ID[.@Select]+" ");
                    mes "Message has been DELETED.";
                    break;
                default:
                    break;
            }
        }
    }while( .@MsgOpt1 < 3 );
    break;

Case 2:
    mes "^00FF00____________________________^000000";
    mes "^FF0000NOTES :^000000 All the Messages will be recorded for future references, so please do not abuse this. Otherwise action will be taken on you";
    do{
        next;
        mes "^00FF00____________________________^000000";
        mes "^FF0000Title^000000 : "+.@Title$;
        mes "^00FF00____________________________^000000";
        mes "^FF0000Messages^000000 : "+.@Message$;
        mes "^00FF00____________________________^000000";
    
        next;
        set .@Select,select(( .@Title$ == "" )?"[ ^FF0000Incomplete^000000 ] Title":"[ ^0000FFCompleted^000000 ] Title",
                            ( .@Message$ == "" )?"[ ^FF0000Incomplete^000000 ] Message":"[^0000FFCompleted^000000 ] Title",
                            ( .@Title$ == "" || .@Message$ == "" )?"":"^FF0000SEND MESSAGE^000000" );
    
        switch( .@Select ){
            Case 1:
                mes "Enter a Title for your Problems";
                input .@Title$;
                break;
            Case 2:
                mes "Briefly explain what's your Problem";
                set .@i,0;
                do{
                    input getd(".@Message"+.@i+"$");
                    set .@Message$,.@Message$ + getd(".@Message"+.@i+"$")+" ";
                    set .@Continue,select("Complete:Continue Messages");
                }while( .@Continue == 2 );
                break;
            default:
                mes "Your message has been sent.";
                query_sql( "INSERT INTO `E-Inquiry` ( `Sender_ID`,`Sender_Name`,`Title`,`Message`,`Status`,`Inquiry_Time` ) VALUES ( "+getcharid(3)+",'"+escape_sql(strcharinfo(0))+"','"+escape_sql(.@Title$)+"','"+escape_sql(.@Message$)+"',0,'"+gettimestr("%Y-%m-%d %H:%M:%S",21)+"' ) ");
                break;
        }
    }while( .@Select != 3 );
    break;
    
Case 3:
    do{
    mes "Alright, what next ?";
    next;
    for( set .@i,0; .@i < 3; set .@i,.@i + 1 )
        set .@Found[.@i],query_sql("SELECT `ID` FROM `E-Inquiry` WHERE `Status` = "+.@i+"",.@ID );

    set .@Types,select("^FF0000View All Unread Messanges [ ^FF0000"+.@Found[0]+"^000000 ]",
                        "View All Replied Messages^000000 [ ^FF0000"+.@Found[1]+"^000000 ]",
                        "View All Archieved Messages [ ^FF0000"+.@Found[2]+"^000000 ]" ) - 1;

    set .@ManageMSG,query_sql(" SELECT `ID`,`Sender_Name`,`Title`,`Message`,`Inquiry_Time`,`Reply`,`Reply_Time`,`Reply_Name` FROM `E-Inquiry` WHERE `Status`= "+.@Types+" LIMIT 127",.@ID,.@Sender$, .@Title$,.@Message$,.@Time$,.@Reply$,.@ReplyTime$,.@ReplyName$ );
        if( !.@ManageMSG ){
            mes "You didnt have Messages to read.";
            next;
        }else{
            set .@Menu$,"";
                for( set .@i,0; .@i < .@ManageMSG; set .@i,.@i + 1 )
                set .@Menu$,.@Menu$ +"^FF0000[ "+( .@i+1 )+". ]^0000FF "+.@Title$[.@i]+":";
            next;
            set .@Select,select( .@Menu$ ) - 1;
            mes "^00FF00____________________________^000000";
            mes "^FF0000Date :^000000 : "+.@Time$[.@Select];
            mes "^FF0000Aurthor :^000000 : "+.@Sender$[.@Select];
            mes "^FF0000Title^000000 : "+.@Title$[.@Select];
            mes "^00FF00____________________________^000000";
            mes "^FF0000Messages^000000 : "+.@Message$[.@Select];
            mes "^00FF00____________________________^000000";
            if( .@Types > 0 ){
                mes "^0000FFReply from ^FF0000"+.@ReplyName$[.@Select]+" ^000000 : "+.@Reply$[.@Select];
                mes "^00FF00____________________________^000000";
                mes "^0000FFTIme ^000000 : "+.@ReplyTime$[.@Select];
            }
            next;
            set .@MsgOpt1,select( ( .@Types == 2 )?"":"Reply Message","View Other Messages","Delete Message" );
            switch( .@MsgOpt1 ){
                Case 1:
                    set .@i,0;
                    do{
                        input getd(".@Reply"+.@i+"$");
                        set .@Reply$,.@Reply$ + getd(".@Reply"+.@i+"$")+" ";
                        set .@Continue,select("Complete:Continue Messages");
                    }while( .@Continue == 2 );
                    
                    query_sql("UPDATE `E-Inquiry` SET `Status` = 1,`Reply`='"+escape_sql(.@Reply$)+"',`Reply_Name`='"+escape_sql(strcharinfo(0))+"',`Reply_Time`='"+gettimestr("%Y-%m-%d %H:%M:%S",21)+"' WHERE `ID` = "+.@ID[.@Select]+" ");    
                    message strcharinfo(0),"Reply has been sent.";
                    break;
                Case 3:
                    query_sql("DELETE FROM `E-Inquiry` WHERE `ID` = "+.@ID[.@Select]+" ");
                    mes "Message has been Deleted.";
                default:
                    break;
            }
        }
    }while( .@MsgOpt1 != 1 );
    break;
}
close;

OnInit:
// Min. GM Level to Read / Manage Messages.
set .GMLevel,80;
end;

OnPCLoginEvent:
if( getgmlevel() < .GMLevel ){
    set .@Replied,query_sql("SELECT `ID` FROM `E-Inquiry` WHERE `Status` = 1 AND `Sender_ID`='"+getcharid(3)+"'",.@ID );
    if( .@Replied )
        message strcharinfo(0),"You have "+.@Replied+" Replied Messages from GM Team.";
}else{
    set .@Unread,query_sql("SELECT `ID` FROM `E-Inquiry` WHERE `Status` = 0 ",.@ID );
    if( .@Unread )
        message strcharinfo(0),"GM Team received "+.@Unread+" New Message from Players.";
}
if( .@Replied || .@Unread ){
    if( select("Read the Messages:Cancel") == 2 ) close;
        goto OnStartMenu;
}
end;

}

// Main NPC
prontera,171,182,5    script    E-Inquiry#Main    757,{
    doevent "E-Inquiry::OnStartMenu";
}
    
// Duplicates NPC
// prontera,155,181,5    duplicate(E-Inquiry#Main)    E-Inquiry#1    757
// prontera,155,182,5    duplicate(E-Inquiry#Main)    E-Inquiry#2    757
// prontera,155,183,5    duplicate(E-Inquiry#Main)    E-Inquiry#3    757

Yup it should work. Just keep in mind you'll need to add the NPC Constant instead of the ID and change -1 to FAKE_NPC especially since our recent update: http://herc.ws/board/topic/11703-2015-12-31-fake-npc-and-the-npc-view-id-1/?p=68705

sir still not working i change -1 to FAKE_NPC

Edited January 20, 2016 by Mysterious
Need codebox

Mystery · January 20, 2016

What exactly doesn't work? Did you make sure to add the SQL table and remove the SQL table part between the */ and /*? The ID of the NPC "757" needs to be changed as well.

butasro · January 24, 2016

What exactly doesn't work? Did you make sure to add the SQL table and remove the SQL table part between the */ and /*? The ID of the NPC "757" needs to be changed as well.

yes sir i already added the script in my SQL table, when i click the npc, no response ,, ok ill change the 757 to any npc listing?

still not working, can you give me a script that works or sample that works? that you edited? please?

butasro · January 26, 2016

help with this one please? still not working on my server . .

butasro · January 26, 2016

http://upaste.me/08d8226956edfea7b

change Case to case

Thanks bro! Godspeed bro!

Sign In

Requesting E-Inquiry for leaving a msg on GM's

Question

Share this post

Link to post

Share on other sites

8 answers to this question

Recommended Posts

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Join the conversation

Recently Browsing 0 members

Important Information