Spawn Mob with NPC by GM Char

// Custom Script
// by : Hendra814
// Ym : hendra762002@yahoo.com
// Note :
// Menspawn beberapa monster melalui NPC oleh char GM.
// Silakan mengganti monster id dan jumlahnya sesuai keinginan.
// Untuk memberikan hadiah cek baris ke 61
//========================SPAWN MONSTER========================
prontera,143,179,6  script  Spawn Monster   814,{

mes "[Monster Spawn]";
if(getgmlevel() < 50) {
    if(.Event == 0) mes "Event belum berjalan untuk sekarang.";
    else {
        mes "Event sedang berjalan di map prt_fild08!";
    }
    end;
}
mes "Selamat datang GM.";
if(.Event == 0) mes "Event belum berjalan untuk sekarang.";
    else {
        mes "Event sedang berjalan di map prt_fild08!";
    }
next;
menu    "Start Event",Start,
    "Turn off Event",Turn_off;

    Start:OnHour07: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!
        OnHour09:
        OnHour11:
        OnHour13:
        OnHour15:
        OnHour17:
        OnHour19:
        OnHour21:
        set .Map$,"prt_fild08";
        set .Event,1;
        announce "Monster menyerang daerah prontera (prt_fild08)",bc_all;
        monster .Map$,0,0,"attacker",1867,10,"mobkill::OnMobKilled";    //banshee
        monster .Map$,0,0,"attacker",2085,10,"mobkill::OnMobKilled";    //antler scaraba
        monster .Map$,0,0,"attacker",2137,10,"mobkill::OnMobKilled";    //miming
        monster .Map$,0,0,"attacker",2221,10,"mobkill::OnMobKilled";    //Randel
        monster .Map$,0,0,"attacker",1956,1,"mobkill::OnMobKilled"; //naght sieger
        monster .Map$,0,0,"attacker",1313,10,"mobkill::OnMobKilled";    //mobster
        monster .Map$,0,0,"attacker",1371,10,"mobkill::OnMobKilled";    //fake angel
        monster .Map$,0,0,"attacker",1755,10,"mobkill::OnMobKilled";    //skeggiold
        monster .Map$,0,0,"attacker",2224,10,"mobkill::OnMobKilled";    //champ
        monster .Map$,0,0,"attacker",1734,1,"mobkill::OnMobKilled"; //kiel
        mes "Event sudah berhasil dijalankan";
        end;
    Turn_off:
        mes "Ok, sampai ketemu lain kali GM";
        goto EndEvent;
        end;

OnTimer216000000:
    announce "Event has ended.",bc_all;
    killmonster .Map$,"All";
    set .Event,0;
    end;
EndEvent:
    if(.Event) announce "The Event is now over!",bc_all;
    killmonster .Map$,"All";
    set .Event,0;
    end;
}

-   script  mobkill -1,{
end;

OnMobKilled:
getitem 7539,1;
end;

}