How to convert this script to hercules?

[Celes 0]

 

brasilis,104,333,5    script    Monster Raid    119,{

 

    mes "[Raider]";

    mes "The Raid Room consists of different monsters you can fight.";

    mes " ";

    mes "For harder room, I suggest to create a party to make it more successful.";

    select(.menu$);

    warp getd(".room"+(@menu-1)+"$[1]"),0,0;

    end;

 

OnNPCKillEvent:

//OnMobDeath:

    for(set .@p,0;getarraysize(getd(".room"+.@p+"$"));set(.@p,.@p+1))

        if( playerattached() ) {

            if( getd(".room"+.@p+"$[1]") == strcharinfo(3) ) {

                monster strcharinfo(3),0,0,"--ja--",killedrid,1/*,"Training Room::OnMobDeath"*/;

                break;

            }

        }

    end;

    

Oninit:

//Configuration

//                  #   Room Name                                ,  Map         ,  MobLvlRngLow ,  MobLvlRngHigh,  #SpawnMobs,  Mobs Limit(MAX 128),   Optional Search String    ;

    setarray .room0$, "Novice Room %s~%s (<mob>,<mob>...)"     ,  "06guild_01",  "0"          ,  "10"         ,  "30"      ,  "128"              ,   "`iName` LIKE '%Por%'"    ; // Would make a novice poring room.

    setarray .room1$, "Beginner Room %s~%s (<mob>,<mob>...)"   ,  "06guild_02",  "11"         ,  "20"         ,  "1"       ,  "128"              ,   ""                        ;

    setarray .room2$, "Adept Room %s~%s (<mob>,<mob>...)"      ,  "06guild_03",  "21"         ,  "30"         ,  "2"       ,  "128"              ,   ""                        ;

    setarray .room3$, "Advanced Room %s~%s (<mob>,<mob>...)"   ,  "06guild_04",  "31"         ,  "40"         ,  "2"       ,  "128"              ,   ""                        ;

    setarray .room4$, "Experts Room %s~%s (<mob>,<mob>...)"    ,  "06guild_05",  "41"         ,  "50"         ,  "2"       ,  "128"              ,   ""                        ;

    setarray .room5$, "Veterans Room %s~%s (<mob>,<mob>...)"   ,  "06guild_06",  "51"         ,  "60"         ,  "2"       ,  "128"              ,   ""                        ;

    setarray .room6$, "MVP Room %s~%s (<mob>,<mob>...)"        ,  "06guild_07",  "61"         ,  "70"         ,  "2"       ,  "128"              ,   ""                        ;

    setarray .room7$, "Like a Boss Room %s~%s (<mob>,<mob>...)",  "06guild_08",  "71"         ,  "98"         ,  "1"       ,  "128"              ,   ""                        ;

    

    

    set .srch$, "<mob>"; //String searched and replaced with mob name in the Room Name Feild.

    set .mvps, 1; //Mvps Summoned or not? 0=Off 1=On

//End

 

    for(set(.@a,0);getarraysize(getd(".room"+.@a+"$"));set(.@a,.@a+1)) {

        set .rmn$, ".room"+.@a+"$";

        set .nam$, ".name"+.@a+"$";

        set .mid$, ".id"+.@a;

        

        set .rrm$, getd(.rmn$+"[0]");

        set .map$, getd(.rmn$+"[1]");

        set .lrl$, getd(.rmn$+"[2]");

        set .lrh$, getd(.rmn$+"[3]");

        set .nsms, atoi(getd(.rmn$+"[4]"));

        set .mlim, atoi(getd(.rmn$+"[5]"));

        set .ops$, getd(.rmn$+"[6]");

        

        set .length, countstr(getd(.rmn$+"[0]"), .srch$);

        set .lengt, countstr(getd(.rmn$+"[0]"), "%s");

        if(.lengt>1) set .mes$[.@a], sprintf(.rrm$,.lrl$,.lrh$);

        

        set .len, query_sql("SELECT `ID`,`iName` FROM `mob_db` WHERE `LV` > "+.lrl$+" AND `LV` < "+.lrh$+" "+((.ops$!="")?"AND "+.ops$+" ":"")+((!.mvps)?"AND `MEXP` <= 0 ":"")+"ORDER BY RAND() LIMIT "+((.mlim>128)?128:.mlim )+";",.id,.name$);

        set .lens, getarraysize(.name$);

        

        copyarray getd(.nam$+"[0]"), .name$, .lens;

        copyarray getd(.mid$+"[0]"), .id, .lens;

        deletearray .name$;

        deletearray .id;

        

        while(.@i++<=.length )

        if(.@i<=.lens) set .mes$[.@a], replacestr(.mes$[.@a], .srch$, getd(.nam$+"["+(.@i-1)+"]"), 1, 1);

        set .@i,0;

        

        for(set(.@h,0);.@h<.lens;set(.@h,.@h+1)) {

            monster .map$,0,0,"--ja--",getd(.mid$+"["+.@h+"]"),.nsms/*,"Training Room::OnMobDeath"*/;

        }

    }

    

    set .menu$, implode(.mes$,":");

}