Jump to content

Snap

Members
  • Posts

    186
  • Joined

  • Last visited

Posts posted by Snap

  1. Can you try to make this automated?

    gm_room_pl,192,325,4 script PoringInvasion 909,{
    if (getgmlevel() >= 80) goto poringadmin;
    end;
    
    poringadmin:
     mes "[poringers]";
     mes "poring poring! ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000";
     mes "poring poring... poring! ^FF0000~Just tell me what to do!~^000000";
     switch(select("Start Event:Stop Event")) {
    case 1:
    next;
    mes "[poringers]";
    mes "poring! ^FF0000~Sure thing!~^000000";
    emotion 33;
    close2;
    goto L_poringannounce;
    case 2:
    next;
    mes "[poringers]";
    mes "poring poring poring...";
    close2;
    goto endingevent;
    end;
    }
    OnClock0900:
    goto L_poringannounce;
    L_poringannounce:
    setmapflag "prontera",mf_nomobloot;
    set $@EventPorON,1;
    set $@EventPorONSes,$@EventPorONSes+1;
    donpcevent "PoringInvasion#evnt3::OnEnable";
    initnpctimer;
    end;
    OnTimer3600000:
    set $@RoundCountPor,0;
    killmonster "prontera","All";
    announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
    stopnpctimer;
    removemapflag "prontera",mf_nomobloot;
    set $@RoundCountPor,0;
    set $@EventPorON,0;
    end;
    
    endingevent:
    set $@RoundCountPor,0;
    killmonster "prontera","All";
    announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
    stopnpctimer;
    removemapflag "prontera",mf_nomobloot;
    set $@RoundCountPor,0;
    set $@EventPorON,0;
    end;
    }
    //--------------------------------------------------
    - script PoringInvasion#evnt3 -1,{
    OnEnable:
    announce "Poring family seems to have started angry because it continues to hurt ...",0;
    sleep2 5000;
    announce "It seems today they had planned to raid the city of Prontera massive!",0;
    sleep2 5000;
    announce "They've been not too fear from Prontera,",0;
    sleep2 5000;
    announce "Prepare yourself, Warrior of Rune Midgard!",0;
    sleep2 5000;
    announce "They have begun approaching ...",0;
    sleep2 5000;
    announce "and  The Prontera Guarder really not able to fight it.",0;
    sleep2 5000;
    announce "They are no longer as usual ...",0;
    sleep2 5000;
    announce "session "+ $@EventPorONSes +"Poring invasion begins!",0;
    goto L_Start;
    end;
    
    L_Start:
    areamonster "prontera",1,1,278,356,"Poring",1002,300,"";
    areamonster "prontera",1,1,278,356,"Poring",1002,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Poporing",1031,300,"";
    areamonster "prontera",1,1,278,356,"Poporing",1031,2,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Drops",1113,300,"";
    areamonster "prontera",1,1,278,356,"Drops",1113,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Marin",1242,300,"";
    areamonster "prontera",1,1,278,356,"Marin",1242,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Metaling",1613,300,"";
    areamonster "prontera",1,1,278,356,"Metaling",1613,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Stapo",1784,300,"";
    areamonster "prontera",1,1,278,356,"Stapo",1784,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Arc Angeling",1388,10,"";
    areamonster "prontera",1,1,278,356,"Deviling",1582,40,"";
    areamonster "prontera",1,1,278,356,"Deviling",1582,1,"PoringInvasionWin::OnMobKilled2";
    areamonster "prontera",1,1,278,356,"Ghostring",1120,40,"";
    areamonster "prontera",1,1,278,356,"Ghostring",1120,1,"PoringInvasionWin::OnMobKilled1";
    areamonster "prontera",1,1,278,356,"Santa Poring",1062,300,"";
    areamonster "prontera",1,1,278,356,"Santa Poring",1062,3,"PoringInvasionWin::OnMobKilled3";
    areamonster "prontera",1,1,278,356,"Mastering",1090,40,"";
    areamonster "prontera",1,1,278,356,"Angeling",1096,40,"";
    areamonster "prontera",1,1,278,356,"Angeling",1096,1,"PoringInvasionWin::OnMobKilled1";
    end;
    }
    - script PoringInvasionWin -1,{
    OnMobKilled1:
    if ($@EventPorON == 1) {
    announce "Poring Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
    set $@RoundCountPor,$@RoundCountPor+1;
    getitem 7539,1;
    goto checkingend;
    }
    end;
    OnMobKilled2:
    if ($@EventPorON == 1) {
    announce "Silver Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
    set $@RoundCountPor,$@RoundCountPor+1;
    getitem 675,1;
    goto checkingend;
    }
    end;
    OnMobKilled3:
    if ($@EventPorON == 1) {
    announce "Bronze Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
    set $@RoundCountPor,$@RoundCountPor+1;
    getitem 673,1;
    goto checkingend;
    }
    end;
    checkingend:
    if ($@RoundCountPo=23) {
    set $@RoundCountPor,0;
    killmonster "prontera","All";
    announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
    stopnpctimer;
    removemapflag "prontera",mf_nomobloot;
    set $@RoundCountPor,0;
    set $@EventPorON,0;
    end;
    }
    end;
    }
    

×
×
  • Create New...