Jump to content

Kurby

Members
  • Posts

    113
  • Joined

  • Last visited

Posts posted by Kurby

  1. I message NPC:Lower to change lower headgears to available headgears in script. I try message "Black Red Aura" and it doesn't change, but I message "None" it changes?

    crystilia,72,82,4    script    Lower    793,{
    close; //Prevent them from talking to the NPC
    
    OnInit:
    
    //Arrays
    setarray .lowerid[0],19814;
    setarray .lowername$[0],"Black Red Aura";
    
    //Regular expressions
    defpattern 1, "([^:]+):.*sNone(.*)", "L_None";
    for(set .@i,0; .@i < getarraysize(.lowerid); set .@i, .@i+1) {
     defpattern 1, "([^:]+):s"+.lowerid[.@i], "L_"+.@i;  
     defpattern 1, "([^:]+):s"+.lowername$[.@i], "L_"+.@i;  
    }
    activatepset 1;
    
    end; //Finished with OnInit
    
    //Label for none
    L_None:
     if(!isequipped(19807)) end;
     setlook 3,0;
     npctalk strcharinfo(0) + " has changed his Dyna Lower Look!";
    end;
    
    //Label L_.@i ,repeat a label equal your item list (L_? == set .@view_change,?
    L_0:
    set .@view_change,0;
    goto Change_Look;
    
    L_1:
    set .@view_change,1;
    goto Change_Look;
    
    L_2:
    set .@view_change,2;
    goto Change_Look;
    
    
    Change_Look:
     if(!isequipped(19807)) end; //Make sure they have the item equipped
     setlook 3,getiteminfo(.lowerid[.@view_change],11);   // Call viewpoint of item and setlook
     npctalk strcharinfo(0) + " has changed his Dyna Lower Look!";
    end;
    
    OnWhisperGlobal:
    if(!isequipped(19807)) end;
    if((@whispervar0$ == "None")) setlook 3,0;
    for ( set .@i, 0; .@i < getarraysize(.@lowerid); set .@i, .@i +1 ) {
       for ( set .@i, 0; .@i < getarraysize(.@lowername$); set .@i, .@i +1 ) ;{    // Invert Number to String
        if(@whispervar0$ == .@lower_id$ || @whispervar0$ == .lowername$[.@i]) {
    		    setlook 3,getiteminfo(.lowerid[.@i],11);
    		    end;
                }
           }
    
       }
    }

    Actually @changelook doesn't work, it changes my equips to none everytime I try typing it or use a script..

    Up..

  2. Did you leave this as default?

    // Players' maximum HP rate? (Default is 100)
    hp_rate: 100
    // Players' maximum SP rate? (Default is 100)
    sp_rate: 100
    

    Lmfao, actually I did not :P Should I go change it back to default? /meh

    Yes you should. Leave it as default (100) and restart your server and check your novice again. Or, remake it.

    Thanks it worked :P

    Would you by any chance know where I can change how many stat points he gets per lvl? :D

  3. Did you leave this as default?

    // Players' maximum HP rate? (Default is 100)
    hp_rate: 100
    // Players' maximum SP rate? (Default is 100)
    sp_rate: 100
    

    Lmfao, actually I did not :P Should I go change it back to default? /meh

  4. I created a lvl 1 novice not on my GM account and it started out with around 600k HP.. My max HP is 1 million.

    Why does my novice start out with so much HP? When I reborn he instantly gets max HP, how do I change this..? :/

  5. phang_cas01,69,34,0,0 monster Barricade 1905,1,7200000,0,"NPCNAME::OnEVENTLABEL";
    

    edit the label..and create those label in the NPC...

    put the setcell stuff there....

    once the monster die...it will trigger the Label

    So.. Like this?

    phang_cas01,69,34,0,0	monster	Barricade	1905,1,7200000,0,0,"#phang_bar01::OnMonsterDie";
    phang_cas01,70,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,71,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,72,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,73,34,0,0	monster	Barricade	1905,1,7200000,0,0
    
    phang_cas01,63,23,5	script	#phang_bar01	-1,{
    
    OnInit:
    setcell "phang_cas01",69,34,69,34,cell_walkable,0;
    setcell "phang_cas01",70,34,70,34,cell_walkable,0;
    setcell "phang_cas01",71,34,71,34,cell_walkable,0;
    setcell "phang_cas01",72,34,72,34,cell_walkable,0;
    setcell "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    OnMonsterDie:
    setcell "phang_cas01",69,34,69,34,cell_walkable,1;
    setcell "phang_cas01",70,34,70,34,cell_walkable,1;
    setcell "phang_cas01",71,34,71,34,cell_walkable,1;
    setcell "phang_cas01",72,34,72,34,cell_walkable,1;
    setcell "phang_cas01",73,34,73,34,cell_walkable,1;
    end;
    }

    I tried this, but after monsters die I still can't move /sob

    phang_cas01,69,34,0,0	monster	Barricade	1905,1,7200000,0,0,"#phang_bar01::OnMonsterDie";
    phang_cas01,70,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,71,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,72,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,73,34,0,0	monster	Barricade	1905,1,7200000,0,0
    
    phang_cas01,63,23,5	script	#phang_bar01	-1,{
    
    if (.mobs_left==0) goto OnMonsterDie; {
    
    OnInit:
    setcell "phang_cas01",69,34,69,34,cell_walkable,0;
    setcell "phang_cas01",70,34,70,34,cell_walkable,0;
    setcell "phang_cas01",71,34,71,34,cell_walkable,0;
    setcell "phang_cas01",72,34,72,34,cell_walkable,0;
    setcell "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    
    OnMonsterDie:
    setcell "phang_cas01",69,34,69,34,cell_walkable,1;
    setcell "phang_cas01",70,34,70,34,cell_walkable,1;
    setcell "phang_cas01",71,34,71,34,cell_walkable,1;
    setcell "phang_cas01",72,34,72,34,cell_walkable,1;
    setcell "phang_cas01",73,34,73,34,cell_walkable,1;
    end;
    }
    }

    This doesn't work either.. Still can't move.. Anyone got any suggestions?

    
    phang_cas01,69,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,70,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,71,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,72,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,73,34,0,0	monster	Barricade	1905,1,7200000,0,0
    
    phang_cas01,63,23,5	script	BarricadeNPC	-1,{
    
    set .Map$,"phang_cas01";
    
    monster	.Map$,69,34,"Barricade",1905,1,"BarricadeNPC::OnMonsterDie";
    monster	.Map$,70,34,"Barricade",1905,1,"BarricadeNPC::OnMonsterDie";
    monster	.Map$,71,34,"Barricade",1905,1,"BarricadeNPC::OnMonsterDie";
    monster	.Map$,72,34,"Barricade",1905,1,"BarricadeNPC::OnMonsterDie";
    monster	.Map$,73,34,"Barricade",1905,1,"BarricadeNPC::OnMonsterDie";
    set .mobs_left, 4;
    
    OnInit:
    setcell "phang_cas01",69,34,69,34,cell_walkable,0;
    setcell "phang_cas01",70,34,70,34,cell_walkable,0;
    setcell "phang_cas01",71,34,71,34,cell_walkable,0;
    setcell "phang_cas01",72,34,72,34,cell_walkable,0;
    setcell "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    
    OnMonsterDie:
    set .mobs_left, .mobs_left-1;
    if (.mobs_left==0) {
    } else {
    	announce "["+.mobs_left+"/4] Barricades left.",bc_map;
    setcell "phang_cas01",69,34,69,34,cell_walkable,1;
    setcell "phang_cas01",70,34,70,34,cell_walkable,1;
    setcell "phang_cas01",71,34,71,34,cell_walkable,1;
    setcell "phang_cas01",72,34,72,34,cell_walkable,1;
    setcell "phang_cas01",73,34,73,34,cell_walkable,1;
    end;
    }
    }
    

    Anyone got any ideas?

    When they die, I still cant walk through.. How do I trigger monster die?

    How to when all barricades die, trigger walkable cell?

    Still need to figure out triggering cell_walkable,1; after all barricades die..

  6. setwall got 4 parameter for coordinate ?? you sure /hmm

    *setwall "<map name>",<x>,<y>,<size>,<dir>,<shootable>,"<name>";
    
    

    @Kurby

    to remove the barricade after the monster died...

    it is better to make a label for the monster....

    for example..when all barricade destroyed..

    set the cell can wall again

    that's why you need another label to make the cell walkable / remove the wall.

    I'm using setcell instead, it worked better.

    Would it work if I triggered monster killed, then goto walkable? I'm not very good with script.. Lol /meh

  7. You won't need the "On" part because it's not being triggered by anything. Other then that.. I'm not really 100% sure how to work around with this.. =/

    Well.. Actually now it's like. Setting a different part of the map for the wall? I walk through the barricade and then I can't move any further..

    phang_cas01,69,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,70,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,71,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,72,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,73,34,0,0	monster	Barricade	1905,1,7200000,0,0
    
    phang_cas01,69,34,0	script	#phang_bar01	-1,{
    
    OnInit:
    setcell "phang_cas01",69,34,69,34,cell_walkable,0;
    setwall "phang_cas01",70,34,70,34,cell_walkable,0;
    setwall "phang_cas01",71,34,71,34,cell_walkable,0;
    setwall "phang_cas01",72,34,72,34,cell_walkable,0;
    setwall "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    }

    Still attempting, but failing..

    /Edit: Got my first part done, but I can't walk after I break the barricades?

    
    phang_cas01,69,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,70,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,71,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,72,34,0,0	monster	Barricade	1905,1,7200000,0,0
    phang_cas01,73,34,0,0	monster	Barricade	1905,1,7200000,0,0
    
    phang_cas01,63,23,5	script	#phang_bar01	-1,{
    
    OnInit:
    setcell "phang_cas01",69,34,69,34,cell_walkable,0;
    setcell "phang_cas01",70,34,70,34,cell_walkable,0;
    setcell "phang_cas01",71,34,71,34,cell_walkable,0;
    setcell "phang_cas01",72,34,72,34,cell_walkable,0;
    setcell "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    }
    

  8. You walk through them are around them? Make sure you place the barricades in an area where players can't walk around it.

    No.. I made all the barricades in a line, so you must break them to get through.. They walk straight through it though.

    This gives the same effect, I walk through instead of having to break them

    phang_cas01,69,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,70,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,71,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,72,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,73,34,0,0    monster    Barricade    1905,1,7200000,0,0
    
    phang_cas01,69,34,0    script    #phang_bar01    -1,{
    
    OnBarricadeDeploy:
       setcell "phang_cas01",69,34,69,34,cell_walkable,0;
       setwall "phang_cas01",70,34,70,34,cell_walkable,0;
       setwall "phang_cas01",71,34,71,34,cell_walkable,0;
       setwall "phang_cas01",72,34,72,34,cell_walkable,0;
       setwall "phang_cas01",73,34,73,34,cell_walkable,0;
       end;
    OnBarricadeBreak:
       setcell "phang_cas01",69,34,69,34,cell_walkable,1;
       setwall "phang_cas01",70,34,70,34,cell_walkable,1;
       setwall "phang_cas01",71,34,71,34,cell_walkable,1;
       setwall "phang_cas01",72,34,72,34,cell_walkable,1;
       setwall "phang_cas01",73,34,73,34,cell_walkable,1;
       end;
    }

  9. Okay hm, try this:

    phang_cas01,69,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,70,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,71,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,72,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,73,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,69,34,0	 script  #phang_bar01	-1,{
    
    OnInit:
    setwall "phang_cas01",69,34,69,34,cell_walkable,1;
    setwall "phang_cas01",70,34,70,34,cell_walkable,1;
    setwall "phang_cas01",71,34,71,34,cell_walkable,1;
    setwall "phang_cas01",72,34,72,34,cell_walkable,1;
    setwall "phang_cas01",73,34,73,34,cell_walkable,1;
    }
    

    Because as stated:

    (0:clear flag, 1:set flag)

    So I changed 0's to 1's to set the flag.. =/

    https://rathena.svn....pt_commands.txt

    
    *setcell "<map name>",<x1>,<y1>,<x2>,<y2>,<type>,<flag>;
    
    Each map cell has several 'flags' that specify the properties of that cell.
    These include terrain properties (walkability, shootability, presence of water),
    skills (basilica, land protector, ...) and other (NPC nearby, no vending, ...).
    Each of these can be 'on' or 'off'. Together they define a cell's behavior.
    
    This command lets you alter these flags for all map cells in the specified
    (x1,y1)-(x2,y2) rectangle. The 'flag' can be 0 or 1 (0:clear flag, 1:set flag).
    The 'type' defines which flag to modify. Possible options include cell_walkable,
    cell_shootable, cell_basilica. For a full list, see const.txt.
    
    Example:
    
    setcell "arena",0,0,300,300,cell_basilica,1;
    setcell "arena",140,140,160,160,cell_basilica,0;
    setcell "arena",135,135,165,165,cell_walkable,0;
    setcell "arena",140,140,160,160,cell_walkable,1;
    
    This will add a makeshift ring into the center of the map. The ring will be
    surrounded by a 5-cell wide 'gap' to prevent interference from outside, and
    the rest of the map will be marked as 'basilica', preventing observers from
    casting any offensive skills or fighting among themselves. Note that the wall
    will not be shown nor known client-side, which may cause movement problems.
    
    Another example:
    
    OnBarricadeDeploy:
    setcell "schg_cas05",114,51,125,51,cell_walkable,0;
    end;
    OnBarricadeBreak:
    setcell "schg_cas05",114,51,125,51,cell_walkable,1;
    end;
    
    This could be a part of the WoE:SE script, where attackers are not allowed
    to proceed until all barricades are destroyed. This script would place and
    remove a nonwalkable row of cells after the barricade mobs.

    I tried the script you showed, I still walk through them ):

  10. Try:

    phang_cas01,69,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,70,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,71,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,72,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,73,34,0,0   monster Barricade	   1905,1,7200000,0,0
    phang_cas01,69,34,0	 script  #phang_bar01	-1,{
    
    OnInit:
    setwall "phang_cas01",69,34,69,34,cell_walkable,0;
    setwall "phang_cas01",70,34,70,34,cell_walkable,0;
    setwall "phang_cas01",71,34,71,34,cell_walkable,0;
    setwall "phang_cas01",72,34,72,34,cell_walkable,0;
    setwall "phang_cas01",73,34,73,34,cell_walkable,0;
    end;
    }
    

    I'm not really an expert with setwall cause I've haven't really played around with it. Though, I believe I don't need the end there.. Try with it and without it just incase x.x

    Then end wasn't needed, but now.. I can hit them, but it still walks through them. /sob

    Thanks for attempting though :D

  11. The barricades within the WoE II scripts use special cell blocks in order for you not to pass.. I'm guessing that's what you're trying to refer to?

    For example:

    
    // Barrier Summoners
    arug_cas05,2,1,0	script	#aru05_RL00	-1,{
    OnEnable:
    setcell "arug_cas05",138,136,145,110,cell_walkable,0;
    setcell "arug_cas05",138,110,145,110,cell_shootable,0;
    guardian "arug_cas05",139,111," ",1905,"#aru05_RL00::OnBarrierDestroyed"; //24;
    guardian "arug_cas05",141,111," ",1905,"#aru05_RL00::OnBarrierDestroyed"; //25;
    guardian "arug_cas05",143,111," ",1905,"#aru05_RL00::OnBarrierDestroyed"; //26;
    guardian "arug_cas05",145,111," ",1905,"#aru05_RL00::OnBarrierDestroyed"; //27;
    end;
    
    OnDisable:
    setcell "arug_cas05",138,136,145,110,cell_walkable,1;
    setcell "arug_cas05",138,110,145,110,cell_shootable,1;
    killmonster "arug_cas05","#aru05_RL00::OnBarrierDestroyed";
    end;
    
    OnBarrierDestroyed:
    end;
    }
    

    Yeah, I attempted to copy that.

    This code spawns the barricades, and doesn't allow me to run through it, but I can't hit them now? :<

    phang_cas01,69,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,70,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,71,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,72,34,0,0    monster    Barricade    1905,1,7200000,0,0
    phang_cas01,73,34,0,0    monster    Barricade    1905,1,7200000,0,0
    
    phang_cas01,69,34,0    script    #phang_bar01    -1,{
    
    Oninit:
    setwall "phang_cas01",69,34,8,6,0,"phang_bar01";
    
    end;
    }

  12. make sure you convert it first by unbollox tool. before you make it extension to thor..

    I'm using Neoncube.. Even with thor, it still doesn't work. The files are in my custom.GRF, but when I log into the server the items are still "Unknown Item".. It just doesn't make any sense to me /sob

  13. Are you use your folder/grf isn't corrupted in any way and you're at least updated? o-O

    Not exactly sure if it's corrupted, lmfao /meh I hope not :P

    All I get is this..

    
    Problem signature:
     Problem Event Name:    APPCRASH
     Application Name:    MyRO.exe
     Application Version:    0.0.0.0
     Application Timestamp:    4e41d3a8
     Fault Module Name:    MyRO.exe
     Fault Module Version:    0.0.0.0
     Fault Module Timestamp:    4e41d3a8
     Exception Code:    c0000005
     Exception Offset:    00289320
     OS Version:    6.1.7600.2.0.0.768.3
     Locale ID:    1033
     Additional Information 1:    0a9e
     Additional Information 2:    0a9e372d3b4ad19135b953a78882e789
     Additional Information 3:    0a9e
     Additional Information 4:    0a9e372d3b4ad19135b953a78882e789
    

  14. o.O

    So basically the items work when they are in your data folder but not if you use the grf??

    And you can see the files inside the grf when patched.

    Oh my gosh...

    Maybe you got the structure in your grf wrong?

    And your updated lua files are in the patch too?

    Everything is in the GRF, it just doesn't seem to work when I use the GRF. I can use the maps with the GRF though? It just doesn't seem to make any sense to me.

    By GRF structure do you mean location of where I put the items?

  15. Maybe your client is not diffed for more item ids?

    And are you sure that the grf files are in the correct order? (data.ini -> first custom then the rest)

    I can add in the item without the patcher, but I'm trying to config the patcher so my friends can get the items too. So I think my client can get more item ids

    [Data]
    0=myRO.grf
    1=data.grf
    2=rdata.grf
    3=sdata.grf
    4=koth01.grf

  16. I follow the procedure the way I would without a patcher to create items, just in a separate data folder. I use the GRFBuilder to create a GPF and merge dir to the separate data folder I created.

    Patchlist is setup correctly, it loads the patch & my custom.GRF has all the files inside it that were in the separate data folder, but I log into the server and my item still says "Unknown Item"

    I followed the procedure perfectly using maps with the patcher, they all ended up working flawlessly. I don't understand why the items won't work?

  17. I downloaded an Emperium Break NPC script, I looked through the selections in game and chose Enable hourly event. Now I can't click on the NPC to test my break?

    How do I fix this? I tried redownloading, but it still doesn't work.

    //===== rAthena Script =======================================
    //= Emperium Break Room
    //===== By: ==================================================
    //= Masao
    //===== Current Version: =====================================
    //= 1.0
    //===== Compatible With: =====================================
    //= rAthena SVN
    //===== Description: =========================================
    //= An little Emperium Break Room NPC in which you can test your
    //= strength and speed against Emperiums.
    //===== Additional Comments: =================================
    //= 1.0 First Version. [Masao]
    //============================================================
    
    -	script	EmpBrkRmTm	-1,{
    
    OnClock0000:
    OnClock0200:
    OnClock0400:
    OnClock0600:
    OnClock0800:
    OnClock1000:
    OnClock1200:
    OnClock1400:
    OnClock1600:
    OnClock1800:
    OnClock2000:
    OnClock2200:
    if($empbrkrh == 1) {
    	hideoffnpc "Emperium Breaking Room";
    }
    end;
    
    OnClock0100:
    OnClock0300:
    OnClock0500:
    OnClock0700:
    OnClock0900:
    OnClock1100:
    OnClock1300:
    OnClock1500:
    OnClock1700:
    OnClock1900:
    OnClock2100:
    OnClock2300:
    if($empbrkrh == 1) {
    	hideonnpc "Emperium Breaking Room";
    }
    end;
    }
    
    prontera,140,180,0	script	Emperium Breaking Room	1288,{
    
    if (getgmlevel() >= $empbrk_gm_restriction) goto L_GMCP;
    
    L_SM:
    set .@time,empbrk_record;
    set .@m,.@time / 60000;
    set .@s,.@time / 1000;
    set .@ms,.@time / 10000;
    set .@empbrk_time,$empbrk_record;
    set .@empbrk_m,.@empbrk_time / 60000;
    set .@empbrk_s,.@empbrk_time / 1000;
    set .@empbrk_ms,.@empbrk_time / 10000;
    mes .n$;
    mes "Current record holder is the Player ^5050A0"+$empbrk_master$+"^000000 .";
    mes "With an time of ^000080"+.@empbrk_m+"^000000Minutes ^000080"+.@empbrk_s+"^000000Seconds ^000080"+.@empbrk_ms+"^000000Milliseconds until the Emperium got broke.";
    next;
    mes .n$;
    mes "Your Own Record:";
    mes "^000080"+.@m+"^000000m ^000080"+.@s+"^000000s ^000080"+.@ms+"^000000ms";
    next;
    mes .n$;
    mes "Would you like to try to set a new record?";
    next;
    menu "Yes",-,"No",L_C,"Reset Your Record",L_RYR;
    
    cleararray .arena$[0],"",4;
    mes .n$;
    if (getareausers("pvp_n_4-5",94,128,105,139) || $@empr_occupied[0] > 0){
    	mes "^B8860BEmperium Room N° 1:^000000 ^FF0000Busy^000000";
    }else{
    	mes "^B8860BEmperium Room N° 1:^000000 ^32CD32Free^000000";
    	set .arena$[0],"^B8860BEmperium Room N° 1^000000";
    }
    if (getareausers("pvp_n_4-5",60,94,71,105) || $@empr_occupied[1] > 0){
    	mes "^B8860BEmperium Room N° 2:^000000 ^FF0000Busy^000000";
    }else{
    	mes "^B8860BEmperium Room N° 2:^000000 ^32CD32Free^000000";
    	set .arena$[1],"^B8860BEmperium Room N° 2^000000";
    }
    if (getareausers("pvp_n_4-5",94,60,105,71) || $@empr_occupied[2] > 0){
    	mes "^B8860BEmperium Room N° 3:^000000 ^FF0000Busy^000000";
    }else{
    	mes "^B8860BEmperium Room N° 3:^000000 ^32CD32Free^000000";
    	set .arena$[2],"^B8860BEmperium Room N° 3^000000";
    }
    if (getareausers("pvp_n_4-5",128,94,139,105) || $@empr_occupied[3] > 0){
    	mes "^B8860BEmperium Room N° 4:^000000 ^FF0000Busy^000000";
    }else{
    	mes "^B8860BEmperium Room N° 4:^000000 ^32CD32Free^000000";
    	set .arena$[3],"^B8860BEmperium Room N° 4^000000";
    }
    next;
    switch (select(.arena$[0],.arena$[1],.arena$[2],.arena$[3],"^FF0000Exit^000000")){
    case 1:
    	if($@empr_occupied[0] > 0){
    		mes .n$;
    		mes "Sorry but the Room has been taken.";
    		mes "Please try another Room or come back later.";
    		goto L_SM;
    	}
    	set $@empr_occupied[0],1;
    	set $@empbrk_charid[0],getcharid(0);
    	initnpctimer "EmpBrk#1";
    	sc_end SC_ALL;
    	warp "pvp_n_4-5",99,128;
    	end;
    case 2:
    	if($@empr_occupied[1] > 0){
    		mes .n$;
    		mes "Sorry but the Room has been taken.";
    		mes "Please try another Room or come back later.";
    		goto L_SM;
    	}
    	set $@empr_occupied[1],1;
    	set $@empbrk_charid[1],getcharid(0);
    	initnpctimer "EmpBrk#2";
    	sc_end SC_ALL;
    	warp "pvp_n_4-5",68,99;
    	end;
    case 3:
    	if($@empr_occupied[2] > 0){
    		mes .n$;
    		mes "Sorry but the Room has been taken.";
    		mes "Please try another Room or come back later.";
    		goto L_SM;
    	}
    	set $@empr_occupied[2],1;
    	set $@empbrk_charid[2],getcharid(0);
    	initnpctimer "EmpBrk#3";
    	sc_end SC_ALL;
    	warp "pvp_n_4-5",100,68;
    	end;
    case 4:
    	if($@empr_occupied[3] > 0){
    		mes .n$;
    		mes "Sorry but the Room has been taken.";
    		mes "Please try another Room or come back later.";
    		goto L_SM;
    	}
    	set $@empr_occupied[3],1;
    	set $@empbrk_charid[3],getcharid(0);
    	initnpctimer "EmpBrk#4";
    	sc_end SC_ALL;
    	warp "pvp_n_4-5",130,99;
    	end;
    case 5:
    	close;
    }
    
    L_GMCP:
    mes .n$;
    mes "Hello "+strcharinfo(0)+",";
    mes "what can i do for you today?";
    next;
    menu "Standard Menu",L_SM,"Set Prize",-,"Hourly Event",L_HE,"Set GM Control Panel Access Level",L_SGCPL,"Reset Offical Record",L_ROR,"Reset Rooms",L_RR,"Cancel",L_C;
    
    L_SP:
    mes .n$;
    mes "Allright, what would you like to do?";
    next;
    menu "Set Prize & Amount",-,"Enable / Disable Prize Distribution",L_EDPD,"Cancel",L_C;
    
    L_RP:
    mes .n$;
    mes "The current gloabl Prize and Amount is: "+$empbrk_amount+"x "+getitemname($empbrk_prize)+"";
    mes "The current personal Prize and Amount is: "+$empbrk_amountp+"x "+getitemname($empbrk_prizep)+"";
    next;
    mes .n$;
    mes "What would you like to do next?";
    next;
    menu "Set global Prize & Amount",-,"Set personal Prize & Amount",L_SPPA;
    
    L_RGP:
    mes .n$;
    mes "Ok, then please tell me now which Item you would like to set as global Prize if someone breaks the global Record.";
    mes "And please remember that only numbers = Item ID's as values are allowed.";
    next;
    mes "Insert 0 to cancel.";
    input .empbrk_prize;
    next;
    if(.empbrk_prize <= 0){
    	next;
    	goto L_SP;
    }
    query_sql "SELECT `id` FROM `item_db` WHERE `id` = '"+.empbrk_prize+"'",.id;
    if(!.id){
    	mes .n$;
    	mes "I'm sorry but this Item doesn't exist!";
    	mes "Please try again.";
    	next;
    	goto L_RGP;
    }
    mes .n$;
    mes "Ok, so the Prize will be "+getitemname(.empbrk_prize)+" , is that correct?";
    next;
    menu "No, that's wrong!",L_RGP,"Yes, that's correct!",-;
    
    L_RGA:
    mes .n$;
    mes "Good! Now please tell me how many pieces of this prize the new Emperium break Champion should get,";
    mes "but remember for security reasons you can't enter a higher value than 100.";
    next;
    mes "Insert 0 to cancel.";
    input .empbrk_amount;
    next;
    if(.empbrk_amount <= 0){
    	next;
    	goto L_SP;
    }
    if(.empbrk_amount >= 100){
    	mes .n$;
    	mes "I'm sorry but the entered Value exceeds the allowed amount!";
    	mes "Please try again.";
    	next;
    	goto L_RGA;
    }
    mes .n$;
    mes "Ok, so the Amount of the Prize that will be given is "+.empbrk_amount+" , is that correct?";
    next;
    menu "No, that's wrong!",L_RGA,"Yes, that's correct!",-;
    
    mes .n$;
    mes "Great! So the Prize "+getitemname(.empbrk_prize)+" will be given away with an amount of "+.empbrk_amount+" to the one who breaks the current global Emperium Breack Record, is that correct?";
    next;
    menu "No, that's wrong!",L_SP,"Yes, that's correct!",-;
    
    mes .n$;
    mes "Allright, it's all set!";
    set $empbrk_prize,.empbrk_prize;
    set $empbrk_amount,.empbrk_amount;
    next;
    goto L_GMCP;
    
    L_SPPA:
    mes .n$;
    mes "Ok, then please tell me now which Item you would like to set as personal Prize if someone breaks his personal Record.";
    mes "And please remember that only numbers = Item ID's as values are allowed.";
    next;
    mes "Insert 0 to cancel.";
    input .empbrk_prizep;
    next;
    if(.empbrk_prizep <= 0){
    	next;
    	goto L_SP;
    }
    query_sql "SELECT `id` FROM `item_db` WHERE `id` = '"+.empbrk_prizep+"'",.idp;
    if(!.idp){
    	mes .n$;
    	mes "I'm sorry but this Item doesn't exist!";
    	mes "Please try again.";
    	next;
    	goto L_SPPA;
    }
    mes .n$;
    mes "Ok, so the Prize will be "+getitemname(.empbrk_prizep)+" , is that correct?";
    next;
    menu "No, that's wrong!",L_SPPA,"Yes, that's correct!",-;
    
    L_RPA:
    mes .n$;
    mes "Good! Now please tell me how many pieces of this prize the new Player should get,";
    mes "but remember for security reasons you can't enter a higher value than 100.";
    next;
    mes "Insert 0 to cancel.";
    input .empbrk_amountp;
    next;
    if(.empbrk_amountp <= 0){
    	next;
    	goto L_SP;
    }
    if(.empbrk_amountp >= 100){
    	mes .n$;
    	mes "I'm sorry but the entered Value exceeds the allowed amount!";
    	mes "Please try again.";
    	next;
    	goto L_RPA;
    }
    mes .n$;
    mes "Ok, so the Amount of the Prize that will be given is "+.empbrk_amountp+" , is that correct?";
    next;
    menu "No, that's wrong!",L_RPA,"Yes, that's correct!",-;
    
    mes .n$;
    mes "Great! So the Prize "+getitemname(.empbrk_prizep)+" will be given away with an amount of "+.empbrk_amountp+" if someone breaks his personal Record, is that correct?";
    next;
    menu "No, that's wrong!",L_SPPA,"Yes, that's correct!",-;
    
    mes .n$;
    mes "Allright, it's all set!";
    set $empbrk_prizep,.empbrk_prizep;
    set $empbrk_amountp,.empbrk_amountp;
    next;
    goto L_GMCP;
    
    L_EDPD:
    mes .n$;
    mes "What would you like to do?";
    next;
    menu "Disable global Prize Distribution",-,"Enable global Prize Distribution",L_EGPD,"Disable personal Prize Distribution",L_DPPD,"Enable personal Prize Distribution",L_EPPD,"Cancel",L_C;
    
    if($empbrk_przdg == 0){
    	mes .n$;
    	mes "Global Prize Distribution is already disabled!";
    	next;
    	goto L_EDPD;
    }
    mes .n$;
    mes "Global Prize Distribution has been disabled!";
    set $empbrk_przdg,0;
    next;
    goto L_GMCP;
    
    L_EGPD:
    if($empbrk_przdg == 1){
    	mes .n$;
    	mes "Global Prize Distribution is already enabled!";
    	next;
    	goto L_EDPD;
    }
    mes .n$;
    mes "Global Prize Distribution has been enabled!";
    set $empbrk_przdg,1;
    next;
    goto L_GMCP;
    
    L_DPPD:
    if($empbrk_przdp == 0){
    	mes .n$;
    	mes "Personal Prize Distribution is already disabled!";
    	next;
    	goto L_EDPD;
    }
    mes .n$;
    mes "Personal Prize Distribution has been disabled!";
    set $empbrk_przdp,0;
    next;
    goto L_GMCP;
    
    L_EPPD:
    if($empbrk_przdp == 1){
    	mes .n$;
    	mes "Personal Prize Distribution is already enabled!";
    	next;
    	goto L_EDPD;
    }
    mes .n$;
    mes "Personal Prize Distribution has been enabled!";
    set $empbrk_przdp,1;
    next;
    goto L_GMCP;
    
    L_HE:
    mes .n$;
    mes "What would you like to do?";
    next;
    menu "Disable Hourly Event",-,"Enable Hourly Event",L_EHE,"Cancel",L_C;
    
    if($empbrkrh == 0){
    	mes .n$;
    	mes "Hourly Event already is disabled!";
    	next;
    	goto L_HE;
    }
    mes .n$;
    mes "Hourly Event has been disabled!";
    hideoffnpc "Emperium Breaking Room";
    set $empbrkh,0;
    next;
    goto L_GMCP;
    
    L_EHE:
    if($empbrkh == 1){
    	mes .n$;
    	mes "Hourly Event already is enabled!";
    	next;
    	goto L_HE;
    }
    mes .n$;
    mes "Hourly Event has been enabled!";
    mapwarp "pvp_n_4-5","prontera",155,180;
    stopnpctimer "EmpBrk#1";
    stopnpctimer "EmpBrk#2";
    stopnpctimer "EmpBrk#3";
    stopnpctimer "EmpBrk#4";
    killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk";
    cleararray $@empbrkr_occupied[0],0,4;
    hideonnpc "Emperium Breaking Room";
    set $empbrkh,1;
    next;
    goto L_GMCP;
    
    L_SGCPL:
    mes .n$;
    mes "What would you like to do?";
    next;
    menu "Set GM Control Panel Acces Level",-,"Cancel",L_C;
    
    mes .n$;
    mes "Allright, please insert now the GM Level at which Players / GM's should be able to enter the GM Control Panel.";
    next;
    mes .n$;
    mes "Please note that the GM Level can't be lower than 40 and can't be above 99 as well for security reasons.";
    input .gmcp;
    next;
    if(.gmcp <= 40 || .gmcp >= 99){
    	mes .n$;
    	mes "I'm sorry but you inserted an invalid Level!";
    	next;
    	goto L_SGCPL;
    }
    mes .n$;
    mes "Allright, the new GM Control Panel access Level will be "+.gmcp+" , is that correct?";
    next;
    menu "No, that's wrong!",L_SGCPL,"Yes, that's correct!",-;
    
    mes .n$;
    mes "Great! It all has been set, so the new GM Control Panel Access Level will be "+.gmcp+" .";
    set $empbrk_gm_restriction,.gmcp;
    next;
    goto L_GMCP;
    
    L_RYR:
    mes .n$;
    mes "Are you sure you want to reset your record?";
    next;
    menu "Yes",-,"No",L_C;
    
    mes .n$;
    mes "Your personal Record has been reset.";
    set empbrk_record,0;
    close;
    
    L_ROR:
    mes .n$;
    mes "Are you sure you want to reset the official Record?";
    next;
    menu "No",L_GMCP,"Yes",-;
    
    mes .n$;
    mes "It's done.";
    set $empbrk_record,0;
    set $empbrk_master$,"";
    next;
    goto L_GMCP;
    
    L_RR:
    mes .n$;
    mes "Are you sure you want to reset the Emperium Breaking Rooms?";
    next;
    menu "No",L_GMCP,"Yes",-;
    
    mes "Rooms have been reset.";
    mapwarp "pvp_n_4-5","prontera",155,180;
    stopnpctimer "EmpBrk#1";
    stopnpctimer "EmpBrk#2";
    stopnpctimer "EmpBrk#3";
    stopnpctimer "EmpBrk#4";
    killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk";
    killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk";
    cleararray $@empbrkr_occupied[0],0,4;
    next;
    goto L_GMCP;
    
    L_C:
    mes .n$;
    mes "Bye!";
    close;
    
    OnInit:
    set .n$,"[Emperium Breaking Room]";
    if(!$empbrk_gm_restriction){
    	set $empbrk_gm_restriction,40;
    }
    if($empbrkh == 1){
    	hideonnpc "Emperium Breaking Room";
    }
    end;
    }
    
    -	script	EmpBrk#1	-1,{
    
    OnTimer5000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area;
    end;
    
    OnTimer8000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area;
    end;
    
    OnTimer9000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area;
    end;
    
    OnTimer10000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area;
    end;
    
    OnTimer11000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area;
    end;
    
    OnTimer12000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area;
    end;
    
    OnTimer13000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area;
    monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#1::OnEmpBrk";
    end;
    
    OnTimer600000:
    warpchar "prontera",155,180,$@empbrk_charid[0];
    killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk";
    set $@empr_occupied[0],0;
    stopnpctimer;
    end;
    
    OnEmpBrk:
    stopnpctimer;
    set .current_time,getnpctimer(0,"EmpBrk#1");
    set .new_time,.current_time - 13000;
    if (.new_time < empbrk_record || empbrk_record == 0) {
    	areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area;
    	if($empbrk_przdp == 1){
    		getitem $empbrk_prizep,$empbrk_amountp;
    	}
    	set empbrk_record,.new_time;
    }
    if (.new_time < $empbrk_record || $empbrk_record == 0) {
    	announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all;
    	if($empbrk_przdg == 1){
    		getitem $empbrk_prize,$empbrk_amount;
    	}
    	set $empbrk_record,.new_time;
    	set $empbrk_master$,strcharinfo(0);
    }
    set .m,.new_time / 60000;
    set .s,.new_time / 1000;
    set .ms,.new_time / 10000;
    set $@empr_occupied[0],0;
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area;
    warpchar "prontera",155,180,$@empbrk_charid[0];
    end;
    
    OnInit:
    set .x1,94;
    set .y1,128;
    set .x2,105;
    set .y2,139;
    set .xe,100;
    set .ye,134;
    end;
    }
    
    pvp_n_4-5,99,125,0	script	EmpBrk#1_touch	-1,3,1,{
    
    OnTouch:
    mes "[Emperium Breaking Room]";
    mes "You're not allowed to exit your square!";
    close2;
    stopnpctimer "EmpBrk#1";
    warp "prontera",155,180;
    killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk";
    set $@empr_occupied[0],0;
    end;
    }
    
    -	script	EmpBrk#2	-1,{
    
    OnTimer5000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area;
    end;
    
    OnTimer8000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area;
    end;
    
    OnTimer9000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area;
    end;
    
    OnTimer10000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area;
    end;
    
    OnTimer11000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area;
    end;
    
    OnTimer12000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area;
    end;
    
    OnTimer13000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area;
    monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#2::OnEmpBrk";
    end;
    
    OnTimer600000:
    warpchar "prontera",155,180,$@empbrk_charid[1];
    killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk";
    set $@empr_occupied[1],0;
    stopnpctimer;
    end;
    
    OnEmpBrk:
    stopnpctimer;
    set .current_time,getnpctimer(0,"EmpBrk#2");
    set .new_time,.current_time - 13000;
    if (.new_time < empbrk_record || empbrk_record == 0) {
    	areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area;
    	if($empbrk_przdp == 1){
    		getitem $empbrk_prizep,$empbrk_amountp;
    	}
    	set empbrk_record,.new_time;
    }
    if (.new_time < $empbrk_record || $empbrk_record == 0) {
    	announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all;
    	if($empbrk_przdg == 1){
    		getitem $empbrk_prize,$empbrk_amount;
    	}
    	set $empbrk_record,.new_time;
    	set $empbrk_master$,strcharinfo(0);
    }
    set .m,.new_time / 60000;
    set .s,.new_time / 1000;
    set .ms,.new_time / 10000;
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area;
    warpchar "prontera",155,180,$@empbrk_charid[1];
    set $@empr_occupied[1],0;
    end;
    
    OnInit:
    set .x1,60;
    set .y1,94;
    set .x2,71;
    set .y2,105;
    set .xe,65;
    set .ye,99;
    end;
    }
    
    pvp_n_4-5,74,99,0	script	EmpBrk#2_touch	-1,1,3,{
    
    OnTouch:
    mes "[Emperium Breaking Room]";
    mes "You're not allowed to exit your square!";
    close2;
    stopnpctimer "EmpBrk#2";
    warp "prontera",155,180;
    killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk";
    set $@empr_occupied[1],0;
    end;
    }
    
    -	script	EmpBrk#3	-1,{
    
    OnTimer5000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area;
    end;
    
    OnTimer8000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area;
    end;
    
    OnTimer9000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area;
    end;
    
    OnTimer10000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area;
    end;
    
    OnTimer11000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area;
    end;
    
    OnTimer12000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area;
    end;
    
    OnTimer13000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area;
    monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#3::OnEmpBrk";
    end;
    
    OnTimer600000:
    warpchar "prontera",155,180,$@empbrk_charid[2];
    killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk";
    set $@empr_occupied[2],0;
    stopnpctimer;
    end;
    
    OnEmpBrk:
    stopnpctimer;
    set .current_time,getnpctimer(0,"EmpBrk#3");
    set .new_time,.current_time - 13000;
    if (.new_time < empbrk_record || empbrk_record == 0) {
    	areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area;
    	if($empbrk_przdp == 1){
    		getitem $empbrk_prizep,$empbrk_amountp;
    	}
    	set empbrk_record,.new_time;
    }
    if (.new_time < $empbrk_record || $empbrk_record == 0) {
    	announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all;
    	if($empbrk_przdg == 1){
    		getitem $empbrk_prize,$empbrk_amount;
    	}
    	set $empbrk_record,.new_time;
    	set $empbrk_master$,strcharinfo(0);
    }
    set .m,.new_time / 60000;
    set .s,.new_time / 1000;
    set .ms,.new_time / 10000;
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area;
    warpchar "prontera",155,180,$@empbrk_charid[2];
    set $@empr_occupied[2],0;
    end;
    
    OnInit:
    set .x1,94;
    set .y1,60;
    set .x2,105;
    set .y2,71;
    set .xe,99;
    set .ye,65;
    end;
    }
    
    pvp_n_4-5,100,74,0	script	EmpBrk#3_touch	-1,3,1,{
    
    OnTouch:
    mes "[Emperium Breaking Room]";
    mes "You're not allowed to exit your square!";
    close2;
    stopnpctimer "EmpBrk#3";
    warp "prontera",155,180;
    killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk";
    set $@empr_occupied[2],0;
    end;
    }
    
    -	script	EmpBrk#4	-1,{
    
    OnTimer5000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area;
    end;
    
    OnTimer8000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area;
    end;
    
    OnTimer9000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area;
    end;
    
    OnTimer10000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area;
    end;
    
    OnTimer11000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area;
    end;
    
    OnTimer12000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area;
    end;
    
    OnTimer13000:
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area;
    monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#4::OnEmpBrk";
    end;
    
    OnTimer600000:
    warpchar "prontera",155,180,$@empbrk_charid[3];
    killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk";
    set $@empr_occupied[3],0;
    stopnpctimer;
    end;
    
    OnEmpBrk:
    stopnpctimer;
    set .current_time,getnpctimer(0,"EmpBrk#4");
    set .new_time,.current_time - 13000;
    if (.new_time < empbrk_record || empbrk_record == 0) {
    	areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area;
    	if($empbrk_przdp == 1){
    		getitem $empbrk_prizep,$empbrk_amountp;
    	}
    	set empbrk_record,.new_time;
    }
    if (.new_time < $empbrk_record || $empbrk_record == 0) {
    	announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all;
    	if($empbrk_przdg == 1){
    		getitem $empbrk_prize,$empbrk_amount;
    	}
    	set $empbrk_record,.new_time;
    	set $empbrk_master$,strcharinfo(0);
    }
    set .m,.new_time / 60000;
    set .s,.new_time / 1000;
    set .ms,.new_time / 10000;
    areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area;
    warpchar "prontera",155,180,$@empbrk_charid[3];
    set $@empr_occupied[3],0;
    end;
    
    OnInit:
    set .x1,128;
    set .y1,94;
    set .x2,139;
    set .y2,105;
    set .xe,134;
    set .ye,99;
    end;
    }
    
    pvp_n_4-5,125,100,0	script	EmpBrk#4_touch	-1,1,3,{
    
    OnTouch:
    mes "[Emperium Breaking Room]";
    mes "You're not allowed to exit your square!";
    close2;
    stopnpctimer "EmpBrk#4";
    warp "prontera",155,180;
    killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk";
    set $@empr_occupied[3],0;
    end;
    }
    
    pvp_n_4-5	mapflag	nowarp
    pvp_n_4-5	mapflag	nowarpto
    pvp_n_4-5	mapflag	notrade
    pvp_n_4-5	mapflag	nochat
    pvp_n_4-5	mapflag	nocommand
    pvp_n_4-5	mapflag	novending
    pvp_n_4-5	mapflag	gvg_castle
    pvp_n_4-5	mapflag	nobranch
    pvp_n_4-5	mapflag	noicewall
    pvp_n_4-5	mapflag	noloot
    pvp_n_4-5	mapflag	nomemo
    pvp_n_4-5	mapflag	nosave
    pvp_n_4-5	mapflag	noreturn

×
×
  • Create New...