Jump to content

Norm Hmuryj

Members
  • Posts

    48
  • Joined

  • Last visited

Posts posted by Norm Hmuryj

  1. File Name: Abracadabra Autoevent

    File Submitter: Norm Hmuryj

    File Submitted: 16 Aug 2014

    File Category: Games, Events, Quests

    Content Author: Norm Hmuryj


    Events start the registration and warp registered players on map.
    PvP is already off.
    Show rules of the event and start it.
    PvP On.
    When one player stay alive we will see the announce about WINner.

    Demo Video:



    Archive content:
    Abracadabra script + item_db2 script of Event hat. /no1

    Click here to download this file

  2. File Name: Running Autoevent

    File Submitter: Norm Hmuryj

    File Submitted: 16 Aug 2014

    File Category: Games, Events, Quests

    Content Author: Norm Hmuryj


    Its an event when players must to go to the end of the location.
    You receive special skill - Running from Event hat and Run-Run-Run
    At the end of the location you will see PrizeNPC. Click and receive a prize!
    Good luck!

    Demo Video:



    Archive contained:
    item_db2 script of Event Hat
    mob_db2 monsters
    Running.txt - Script of event.
    SRC modify - command @hold for event start :D
    For my event I am using this map: http://rathena.org/board/files/file/2968-race-event/
    Thanks Chemical Crush

    Click here to download this file

  3. amatsu,116,146,3 script Seyra 90,{
    
    set .@n$, "[Seyra]";
    setarray .@rwd[0],2115,1,2357,1,2421,1,2524,1; // Rewards: <item id>,<item amount>
    
    query_sql ("SELECT `last_ip` FROM `login` WHERE `account_id`=" + getcharid(3) + "", .@lip$);
    
    if ( getd("$" + .@lip$ + "_NG") > 0 || #NewbieGift > 0)
    {
    mes .@n$;
    mes "I'm sorry, the rewards are exclusively for new players.";
    close;
    }
    
    mes .@n$;
    mes "Welcome! Here are some free gifts";
    mes "for newcomers:";
    
    for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )
    mes .@rwd[.@i+1] + " x " + getitemname(.@rwd[.@i]);
    
    close2;
    set #NewbieGift, 1;
    setd "$" + .@lip$ + "_NG", getd("$" + .@lip$ + "_NG") + 1;
    
    for ( set .@i, 0; .@i < getarraysize(.@rwd); set .@i, .@i + 2 )
    getitem .@rwd[.@i], .@rwd[.@i+1];
    
    end;
    
    OnInit:
    
    waitingroom "Newbie Gift!",0;
    end;
    
    }

    With last IP check.

    by Joseph

  4. First of all - checkings

    if(getgdskilllv(.@GID,10000) < 1) goto L_GSTL;
    if(strcharinfo(0)!=getguildmaster(.@GID)) goto L_NGM;
    query_sql "SELECT `guild_lv`,`max_member` FROM `guild` WHERE `guild_id`="+getcharid(2)+"",@glvl,@max_member;
    if(@glvl < 10 || @max_member < 5) goto L_GLTL;
    
    
    L_GSTL:
    mes "Sorry, but without the Guildskill 'Guild Approval' you can't receive a GP!";
    close;
    L_NGM:
    mes .@n$;
    mes "Sorry, only the Guildleader can receive GP from me!";
    close;
    • Upvote 1
  5. You can Modify this script

    -	script	Agit2_Event	-1,{
    	end;
    
    OnClock1800:	//start time for Tues(2), Thurs(4)
    OnClock2000:	//end time for Tues(2), Thurs(4)
    OnClock2100:	//start time for Sat(6)
    OnClock2300:	//end time for Sat(6)
    
    OnAgitInit2:
    	// starting time checks
    	if((gettime(4)==2) && (gettime(3)>=18 && gettime(3)<21) ||
    	   (gettime(4)==4) && (gettime(3)>=18 && gettime(3)<21) ||
    	   (gettime(4)==6) && (gettime(3)>=22 && gettime(3)<23)) {
    		if (!agitcheck2()) {
    			AgitStart2;
    		}
    		end;
    	}
    
    	// end time checks
    	if ((gettime(4)==2) && (gettime(3)==21) ||
    	    (gettime(4)==4) && (gettime(3)==21) ||
    	    (gettime(4)==6) && (gettime(3)==23)) { 
    		if (agitcheck2()) {
    			AgitEnd2;
    		}
    		end;
    	}
    	end;
    }
    

     

     

    Maybe

     
    prontera,134,231,5    script    UFC    65,{
        mes "[ UFC ]";
        mes "Olá "+ strcharinfo(0) +"!";
        mes "Bem-Vindo ao Evento UFC.";
        next;
        mes "Deseja entrar?";
        switch(select("Sim, entrar no evento.", "Não, talvez depois.")){
            case 1:
                if ($aberto == 0) goto fechado;
                warp "ufc_pvp2",49,50;
                dispbottom "Você está dentro do Evento UFC! Boa Sorte!";
            end;
            case 2:
                close2;
            end;
    
        }
        
        fechado:
            mes "Desculpe o evento está fechado.";
            mes "Volte mais tarde";
            close;
        end;
    }
    
    ufc_pvp2,0,0,0    script    NoEvento    -1,{
        OnWhisperGlobal:
            if (getgmlevel() == 99) {
                mes "Deseja Ligar o Evento?";
                switch(select("Ligar","Sair")) {
                    case 1:
                        dispbottom "Evento Ligado com Sucesso!";
                        callsub OnEventStart;
                    close;
                    end;
                case 2:
                    close;
                end;
            }
        }
    
    
    
    -	script	Agit3_Event	-1,{
    	end;
    
    OnClock2000:	//start time for Tues(2), Thurs(4)
    OnAgitInit3:
    	// starting time checks
    	if((gettime(4)==0) && (gettime(3)>=20)) {
    		if (!agitcheck3()) {
    			OnEventStart;
    		}
    		end;
    	}
    
    
    
    
    
    
    
        OnEventStart:
            set $aberto,1;
            pvpoff "ufc_pvp2";
            atcommand "@killmonster2";
            announce "[Evento UFC]: O Evento UFC está aberto você tem 4 minutos para entrar!",0;
            
            sleep2 60000;
            announce "[Evento UFC]: Você tem 3 minutos para entrar no evento!",0;
            
            sleep2 60000;
            announce "[Evento UFC]: Você tem 2 minutos para entrar no evento!",0;
            
            sleep2 60000;
            announce "[Evento UFC]: Você tem 1 minuto para entrar no evento!",0;
        
            sleep2 60000;
            announce "[Evento UFC]: O Evento UFC Começou! Portais Fechados!",0;
            set $aberto,0;
            goto comecou;
        end;
    
        comecou:
            if(getmapusers("ufc_pvp2") == 1) goto cancelado;
            MapAnnounce "ufc_pvp2", "[Evento UFC]: O Evento terá Inicio em 30 Segundos! Preparem-Se!",0;
            
            sleep2 27000;
            MapAnnounce "ufc_pvp2", "Preparados ?",0;
        
            sleep2 1000;
            MapAnnounce "ufc_pvp2", "Vamos lá!",0;
        
            sleep2 1000;
            MapAnnounce "ufc_pvp2", "Valendoo!!!",0;
        
            pvpon "ufc_pvp2";
            atcommand "@skillon";
        end;
    
        cancelado:
            announce "[Evento UFC]: O Evento UFC foi cancelado por falta de jogadores.",0;
            sleep2 5000;
            mapwarp "ufc_pvp2","cydonia",138,86;
        end;
    }
    
    
    -    script    MortoVivo    -1,{
        OnPCKillEvent:
        if (strcharinfo(3) != "ufc_pvp2") end;
        if (getmapusers("ufc_pvp2") > 1) end;
            monster "ufc_pvp2", 49, 50, "Baú de Guerra", 1732, 1, "Entregador#func::OnQuebrarBau";
        end;
    
        OnPCDieEvent:
            if (strcharinfo(3) != "ufc_pvp2") end;
            warp "cydonia",138,86;
        end;
    }
    
    -    script    Entregador#func    -1,{
        OnQuebrarBau:
            pvpoff "ufc_pvp2";
            getitem 7539,20; //Caixa de Presença
            announce "O vencedor do Evento UFC foi o jogador "+strcharinfo( 0 )+"!",bc_all;
            warp "cydonia",138,86;
        end;
    }
    
    // MapFlags
    ufc_pvp2    mapflag    nomemo
    ufc_pvp2    mapflag    nopenalty
    ufc_pvp2    mapflag    nobranch
    ufc_pvp2    mapflag    pvp_noguild
    ufc_pvp2    mapflag    noloot
    ufc_pvp2    mapflag    noexp
    ufc_pvp2    mapflag    noteleport
    ufc_pvp2    mapflag    noreturn
    ufc_pvp2    mapflag    nowarp
    ufc_pvp2    mapflag    nowarpto
    ufc_pvp2    mapflag    nosave    SavePoint
    ufc_pvp2    mapflag    pvp
    ufc_pvp2    mapflag    pvp_noparty
    
     
    I have not free time for realise it, sorry.
    • Upvote 1
  6. Try this

    //==========================================================//
    //========= Script by RyCHIRO =========//
    //========= http://ro-crew.rpgboard.net/ =========//
    //===Updated with new Towns and monsters by Norm Hmuryj (Melbou)
    //==========================================================//
    
    
    poring_c01,1,1,3 script jumpevent 95,{
    
    
    OnClock0400:
    OnClock1600:
    announce "[Jumper] Эвент начнётся через 1 минуту!",bc_blue;
    sleep2 60000;
    set $@ran, rand(1,10);
    if ($@ran == 10) set $@jmpmap$,"hugel";
    if ($@ran == 9) set $@jmpmap$,"yuno";
    if ($@ran == 8) set $@jmpmap$,"comodo";
    if ($@ran == 7) set $@jmpmap$,"xmas";
    if ($@ran == 6) set $@jmpmap$,"aldebaran";
    if ($@ran == 5) set $@jmpmap$,"izlude";
    if ($@ran == 4) set $@jmpmap$,"payon";
    if ($@ran == 3) set $@jmpmap$,"geffen";
    if ($@ran == 2) set $@jmpmap$,"morocc";
    if ($@ran == 1) set $@jmpmap$,"prontera";
    announce "[Jumper] Ищите меня в городе: "+$@jmpmap$+"!!!",bc_blue;
    set $@JmpRnd,10;
    goto OnStart;
    
    
    OnStart:
    if ($@JmpRnd == 0){
    stopnpctimer;
    set $@JumpStart,0;
    sleep2 3000;
    announce "[Jumper] Спасибо за игру. Конец!",bc_blue;
    sleep2 15000;
    movenpc "Jumper"+$@ran+"",1,1; //move the NPC
    setnpcdisplay "Jumper"+$@ran+"",1002;
    end;
    }
    if ($@JmpRnd == 10){
    goto OnStart2;
    }
    stopnpctimer;
    sleep2 3000;
    announce "[Jumper] Следующий раунд через 15 секунд.",bc_blue;
    sleep2 15000;
    setnpcdisplay "Jumper"+$@ran+"",1002;
    movenpc "Jumper"+$@ran+"",1,1; //move the NPC
    set $@ran, rand(1,10);
    if ($@ran == 10) set $@jmpmap$,"hugel";
    if ($@ran == 9) set $@jmpmap$,"yuno";
    if ($@ran == 8) set $@jmpmap$,"comodo";
    if ($@ran == 7) set $@jmpmap$,"xmas";
    if ($@ran == 6) set $@jmpmap$,"aldebaran";
    if ($@ran == 5) set $@jmpmap$,"izlude";
    if ($@ran == 4) set $@jmpmap$,"payon";
    if ($@ran == 3) set $@jmpmap$,"geffen";
    if ($@ran == 2) set $@jmpmap$,"morocc";
    if ($@ran == 1) set $@jmpmap$,"prontera";
    announce "[Jumper] Ищите меня в городе: "+$@jmpmap$+"",bc_blue;
    goto OnStart2;
    
    
    OnStart2:
    set $monster, rand(1001,1995);
    if($monster == 1003 || $monster == 1218 || $monster == 1006 || $monster == 1017 || $monster == 1021 || $monster == 1022 || $monster == 1027 || $monster == 1043 || $monster == 1006 || $monster == 1136 || $monster == 1137 || $monster == 1168 || $monster == 1171 || $monster == 1172 || $monster == 1173 || $monster == 1181 || $monster == 1210 || $monster == 1223 || $monster == 1284 || ($monster >= 1324 && $monster <= 1363) || $monster == 1006 || $monster == 1407 || $monster == 1411 || $monster == 1414 || $monster == 1496 || $monster == 1501 || $monster == 1900){ goto OnStart2; end; }
    while(1) { //Initiate an infinite loop
    set $@jx,rand(0,300); //Set a randon X coordinate
    set $@jy,rand(0,300); //Set a random Y coordinate
    if(checkcell(""+$@jmpmap$+"",$@jx,$@jy,cell_chkpass)) break; //If cell is walkable break out of the loop
    }
    initnpctimer;
    set $@JumpStart,1;
    movenpc "Jumper"+$@ran+"",$@jx,$@jy; //move the NPC
    setnpcdisplay "Jumper"+$@ran+"",$monster;
    set $@JmpRnd,$@JmpRnd-1;
    end;
    
    
    OnTimer60000:
    set $@JumpStart,0;
    announce "[Jumper] Вы не смогли найти меня. Я был в "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue;
    sleep2 3000;
    donpcevent "jumpevent::OnStart";
    end;
    
    
    }//End Script
    
    
    - script Jumper -1,{
    if( $@JumpStart == 0 ){
    mes "[Jumper]";
    mes "Вы опоздали.";
    close;
    }
    set $@prize, rand(1,100);
    if ( $@prize <= 50 ){
    set $@JumpStart,0;
    getitem 12103,1;
    announce "[Jumper] Я был найден "+strcharinfo(0)+" ! Поздравляю! Моё местоположение: "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue;
    donpcevent "jumpevent::OnStart";
    mes "[Jumper]";
    mes "Поздравляю! Вы нашли меня!";
    getitem 2709,1;
    close;
    end;
    }
    set $@prize, rand(1,100);
    if ( $@prize <= 49 ){
    set $@JumpStart,0;
    getitem 607,1;
    announce "[Jumper] Я был найден "+strcharinfo(0)+" ! Поздравляю! Моё местоположение: "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue;
    donpcevent "jumpevent::OnStart";
    mes "[Jumper]";
    mes "Поздравляю! Вы нашли меня!";
    getitem 607,1;
    close;
    end;
    }
    set $@prize, rand(1,100);
    if ( $@prize <= 48 ){
    set $@JumpStart,0;
    getitem 607,1;
    announce "[Jumper] Я был найден "+strcharinfo(0)+" ! Поздравляю! Моё местоположение: "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue;
    donpcevent "jumpevent::OnStart";
    mes "[Jumper]";
    mes "Поздравляю! Вы нашли меня!";
    mes "Вы получаете ^008000"+ $jmp_item_amount3 +" "+ getitemname($jmp_item_id3) +"^000000";
    close;
    end;
    }
    }
    //End Script
    
    
    prontera,1,1,1 duplicate(Jumper) Jumper1 1002
    morocc,1,1,1 duplicate(Jumper) Jumper2 1002
    geffen,1,1,1 duplicate(Jumper) Jumper3 1002
    payon,1,1,1 duplicate(Jumper) Jumper4 1002
    izlude,1,1,1 duplicate(Jumper) Jumper5 1002
    aldebaran,1,1,1 duplicate(Jumper) Jumper6 1002
    xmas,1,1,1 duplicate(Jumper) Jumper7 1002
    comodo,1,1,1 duplicate(Jumper) Jumper8 1002
    yuno,1,1,1 duplicate(Jumper) Jumper9 1002
    hugel,1,1,1 duplicate(Jumper) Jumper10 1002
     
×
×
  • Create New...