Jump to content

Dev Blaze

Members
 View Profile  See their activity

  • Posts

    212

  • Joined

  • Last visited

 Content Type 

Posts posted by Dev Blaze

    Help me guys

    in Scripting Support

    Posted

    I try this script its not working any one help me

    The amount of HP a player will respawn with 50%HP and SP

    -    script    Heal    -1,{
    OnPCDieEvent:
    sleep2 1300;
    if(killerrid != getcharid(3)) {
       dispbottom "50% of Max HP/SP will be restored";
       if(HP == 0);
       percentheal 50,50;
    } 
    end;
    } 

    Help me guys

    in Scripting Support

    Posted

    Player.conf setting

    // The amount of HP a player will respawn with, 0 is default.
    // (Unit is in percentage of total HP, 100 is full heal of HP, 0 is respawn with 1HP total.)
    restart_hp_rate: 50

    // The amount of SP a player will respawn with, 0 is default.
    // (Unit is in percentage of total SP, 100 is full heal of SP, 0 is respawn with 1SP total.)
    restart_sp_rate: 50

    How to set On respawn, 50% of Max HP/SP will be restored.??

    When i try to set restart_hp_rate: 50  the formula not working any idea how fix restart_hp_rate & restart_sp_rate? im using old revision thanks

    hlUBRb7.png

    Hourly Points

    in Script Requests

    Posted · Edited by Akkarin
    Put code into codebox instead of quotes.

    Any idea?

    Every Hour you get reward points
    After 8 consecutive hours, rewarding will start all over again
    Rewards without Voting Events Triggered
    First Hour: 10 Rewards Points
    Second Hour: 20 Reward Points
    Third Hour: 30 Reward Points
    Fourth Hour: 40 Reward Points
    Fifth Hour: 50 Reward Points
    Sixth Hour: 60 Reward Points
    7th Hour: 70 Reward Points
    8th Hour: 80 Reward Points

    I thought this is script not working any posible script please help me.. thanks B)B)

    //===== Hourly Points Script =========================================
//===== By: ==========================================================
//= GorthexTiger modified by Nibi
//===== Current Version: =============================================
//= 1.0
//===== Compatible With: =============================================
//= Any eAthena Version
//===== Description: =================================================
//= Get Points every successful hours of gameplay, you cannot get
//= the points even if you miss a second or a minute. A player will
//= get a very big bonus if they played 3 hours consecutively
//= or without logging out of the game. If the player is vending
//= the script will then stop.
//===== Additional Comments: =========================================
//= You can modify the script to your liking.
//= The default points is Kafrapoints change it anyway if you like.
//= 1.1 = Check Chatting too
//= 1.2 = 5 Minute Idle Check & @at/@autotrade check.
//= 1.3 = Corrected the current balance line on 12 Hours Consecutive
//====================================================================
-    script    hourlypoints    -1,{
//--Start of the Script
OnPCLoginEvent:
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
OnPointGet:
    //while(checkvending() >= 1 || checkchatting() == 1 || checkidle()>=.dlimit) {
        //sleep2 .delay;
        //if(.@mes$=="")
            //dispbottom set(.@mes$,"The hourly points event haulted because you were vending, chatting, or idle.");
    //}
    set #KAFRAPOINTS, #KAFRAPOINTS + .point_amt;
    dispbottom "You received "+.point_amt+" Reward Cash Points by staying ingame for 1 hour";
    dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    set @consecutive_hour, @consecutive_hour + 1;

    //Check for 2 hours consecutive
    if(@consecutive_hour == 2) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .2cpoint_amt;
        dispbottom "You received "+.2cpoint_amt+" Reward Cash Points due to playing for 2 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
    //Check for 3 hours consecutive
    if(@consecutive_hour == 3) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .3cpoint_amt;
        dispbottom "You received "+.3cpoint_amt+" Reward Cash Points due to playing for 3 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
     //Check for 4 hours consecutive
    if(@consecutive_hour == 4) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .4cpoint_amt;
        dispbottom "You received "+.4cpoint_amt+" Reward Cash Points due to playing for 4 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
    //Check for 5 hours consecutive
    if(@consecutive_hour == 5) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .5cpoint_amt;
        dispbottom "You received "+.5cpoint_amt+" Reward Cash Points due to playing for 5 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
    //Check for 6 hours consecutive
    if(@consecutive_hour == 6) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .6cpoint_amt;
        dispbottom "You received "+.6cpoint_amt+" Reward Cash Points due to playing for 6 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
    //Check for 7 hours consecutive
    if(@consecutive_hour == 7) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .7cpoint_amt;
        dispbottom "You received "+.7cpoint_amt+" Reward Cash Points due to playing for 7 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;
    
    //Check for 8 hours consecutive
    if(@consecutive_hour == 8) {
        set @consecutive_hour,0;
        set #KAFRAPOINTS, #KAFRAPOINTS + .8cpoint_amt;
        dispbottom "You received "+.8cpoint_amt+" Reward Cash Points due to playing for 8 consecutive hours";
        dispbottom "Current Balance = "+#KAFRAPOINTS+" Reward Cash Points";
    }
    addtimer .timer,"hourlypoints::OnPointGet";
    end;

OnInit:
    set .timer, 1000*60*60; //Timer in milliseconds.
    set .2cpoint_amt, 20; //Points gained for consecutive time online.
    set .3cpoint_amt, 30; //Points gained for consecutive time online.
    set .4cpoint_amt, 40; //Points gained for consecutive time online.
    set .5cpoint_amt, 50; //Points gained for consecutive time online.
    set .6cpoint_amt, 60; //Points gained for consecutive time online.
    set .7cpoint_amt, 70; //Points gained for consecutive time online.
    set .8cpoint_amt, 80; //Points gained for consecutive time online.    
    set .point_amt, 10; //Normal points gained.
    //set .delay, 1000; //Delay for idle re-check check.
    //set .dlimit, 60*5; //Stop points if afk greater then in seconds.
}

     

    R> FLOATING RATES

    in Script Requests

    Posted · Edited by Dev Blaze

    Help me 

     

    Monday to Friday Double Exp Rate 4:00PM ~ 11:00PM
    Weekend Triple EXP Event  Starting Saturday 12:00AM it will give x3 Exp until Monday 12:00AM

     

    The problem is 12:00am Satuday the Triple Exp Event was not open what is the problem Any idea???

     

    - script triple_exp -1,{

    OnInit:
    // original Base/Job Exp and Drop Rates
    set .bexp_rate, 8; //Put you rate...
    set .jexp_rate, 8; //put you rate...
     
     
    OnHour16:
    OnHour23:
    if( gettime(4) != 0 && gettime(4) != 6 || ( gettime(4) == 1 && gettime(3) >= 16 ) ) { // Monday to Friday
    if( gettime(3) >= 23 || gettime(3) < 16 ) {
    announce "Double Event is finished!",bc_all,0xFF6060;
    callsub L_ratio, 1;
    }
    else {
    announce "Double Exp Event is currently in affect, Enjoy and have a great day!",bc_all,0xFF6060;
    callsub L_ratio, 2;
    }
    }
    OnHour12:
    if( !gettime(4) || ( gettime(4) == 6 && gettime(3) >= 12 ) || ( gettime(4) == 1 && gettime(3) < 12 ) ) {
    announce "Weekend Triple Exp Event is currently in affect, Enjoy and have a great day!",bc_all,0xFF6060;
    callsub L_ratio, 3;
    }
    else if( gettime(4) == 1 && gettime(3) == 12 ) {
    announce "Triple Event is finished!",bc_all,0xFF6060;
    callsub L_ratio, 1;
    }
    else
    callsub L_ratio, 1;
    end;
     
     
    L_ratio:
    setbattleflag "base_exp_rate", .bexp_rate * 100 * getarg( 0 );
    setbattleflag "job_exp_rate", .jexp_rate * 100 * getarg( 0 );
    set .ratio, getarg( 0 );
    atcommand "@reloadmobdb";
    end;
     
    OnMinute01:
    if( .ratio == 3 )
    announce "Weekend Triple EXP Event is currently in affect, Enjoy and have a great day!",bc_all,0xFF6060;
    end;
    }

    how to trigger reset status only once

    in Script Requests

    Posted

    Any one need help i need like this but need 1 time only? where i can put this line if(resetskill!=1) // check if they already been reset??

    Please help me

     

    -    script    Reset    -1,{
    OnPCLoginEvent:
    if(( JobLevel >= 120 ) && (BaseLevel >= 255)){
        set BaseLevel,99;
        set JobLevel,70;
        resetskill;
        set SkillPoint,118;
    }
    end;
    }

    Help me please

    in Scripting Support

    Posted 

    poring_w02,167,176,4 script teamwar::teamwar 414,{
if (getgmlevel() >= 99){
menu "Standard Menu",standard,"Reset",lend;
}
standard:
set $@members,9; // number of party members change this to your party size you want
set $@start,0;
getpartymember(getcharid(1));
set @partymembercount,$@partymembercount;
if ( $@start == 1 ) {
mes "The Sign Ups are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}
if ( @partymembercount == $@members ) {
if ( $@TeamID1 == getcharid(1) ) {
mes "Do you wish to sign out your team?";
next;
if (select("I Give up ~.","Never Say Quit !!")==2) close;
announce "Team 1 : [ " + getpartyname($@TeamID1) + " ] has sign out. We need another Party to sign up now!",bc_yellow|bc_map;
set $@TeamID1, 0;
close;
}
if ($@TeamID2==getcharid(1)) {
mes "Do you wish to sign out your team?";
next;
if (select("I Give up ~.","Never Say Quit !!")==2) close;
announce "Team 2 : [ " + getpartyname($@TeamID2) + " ] has sign out. We need another Party to sign up now!",bc_yellow|bc_map;
set $@TeamID2, 0;
close;
}
mes "Hello "+strcharinfo(0)+" what do you want?";
if (($@TeamID1!=0) && ($@TeamID2!=0)) {
mes "The Sign Ups are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}
if ( getpartyleader(getcharid(1),2) != getcharid(0) ) {
mes "Only party leader have the right to sign up / out from the game with me..";
close;
}
mes "Choose your team to register.";
switch(select("Red Team - [" + GetPartyName($@TeamID1) + "] :Blue Team - [" + GetPartyName($@TeamID2) + "]")) {
case 1: mes "[  Team War  ]";
if ($@TeamID1==0 || getpartyname($@TeamID1)=="null") {
getpartymember(getcharid(1)),1;
getpartymember(getcharid(1)),2;
copyarray $@partymembercidt1[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidt1[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidt1[.@i],$@partymembercidt1[.@i]))  set .@count,.@count+1;
}
if(.@count < $@members) {
mes "You need all your party members to be online to Register";
close;
}
set $@TeamID1, getcharid(1);
initnpctimer;
mes "Your Party is now subscribed, good luck!";
announce "Team 1 : [ " +getpartyname($@TeamID1)+ " ] has sign up For the Team War!",bc_blue|bc_map;
doevent "teamwar::OnSubscriptionTeam";
close;
} else {
mes "I'm sorry! Another Team has sign up before you...";
close;
}
case 2: mes "[  Team War  ]";
if ($@TeamID2==0 || getpartyname($@TeamID2)=="null") {
getpartymember(getcharid(1)),1;
getpartymember(getcharid(1)),2;
copyarray $@partymembercidt2[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidt2[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidt2[.@i],$@partymembercidt2[.@i])) set .@count,.@count+1;
}
if(.@count < $@members) {
mes "You need all your party members to be online to Register";
close;
}
set $@TeamID2, getcharid(1);
initnpctimer;
mes "Your Party is now subscribed, good luck!";
announce "Team 2 : [ " +getpartyname($@TeamID2)+ " ] has sign up For the Team War!",bc_blue|bc_map;
doevent "teamwar::OnSubscriptionTeam";
close;
} else {
mes "I'm sorry! Another Team has sign up before you...";
close;
}
}
} else {
mes "[Event Handler]";
mes "Please contact your party leader.";
mes "Your team must have a party consisting of "+$@members+" members.";
close;
}

OnSubscriptionTeam:
getpartymember($@TeamID2),1;
getpartymember($@TeamID2),2;
copyarray $@partymembercidtc2[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidc2[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidc2[.@i],$@partymembercidtc2[.@i])) set .@countx,.@countx+1;
}
if(.@countx < $@members) {
announce "Team War : "+getpartyname($@TeamID2)+"are not all online the match has been canceled",0;
announce "Team War : registration for 2 new teams are now available",0;
goto lend;
}
if ( $@TeamID2 && $@partymembercount != $@members ) {
announce getpartyname($@TeamID2) +" has extra party members !", 0;
goto lend;
}
if ( callsub( L_checkjob ) ) goto lend;
getpartymember($@TeamID1),1;
getpartymember($@TeamID1),2;
copyarray $@partymembercidtc1[0],$@partymembercid[0],$@members;
copyarray $@partymemberaidc1[0],$@partymemberaid[0],$@members;
for (set .@i,0; .@i<$@members; set .@i,.@i+1) {
if(isloggedin($@partymemberaidc1[.@i],$@partymembercidtc1[.@i])) set .@countz,.@countz+1;
}
if(.@countz < $@members) {
announce "Team War : "+getpartyname($@TeamID1)+"are not all online the match has been canceled",0;
announce "Team War : registration for 2 new teams are now available",0;
goto lend;
}
if ( $@TeamID1 &&  $@partymembercount != $@members ) {
announce getpartyname($@TeamID1) +" has extra party members !", 0;
goto lend;
}
if ( callsub( L_checkjob ) ) goto lend;
if($@TeamID1!=0 && $@TeamID2!=0){
announce "Team War : We have 2 Teams signed up now : "+getpartyname($@TeamID1)+" and "+getpartyname($@TeamID2)+".",bc_blue|bc_map;
set @win1, 0;
set @win2, 0;
goto Onstart;
}
end;
L_checkjob:
while( .@i < $@partymembercount ) {
.@job$ = jobname( readparam( 19, $@partymembername$[.@i] ) );
if ( compare( .@concat_job$, .@job$ ) ) return 1;
.@concat_job$ = .@concat_job$ + .@job$ +"|";
.@i++;
}
return 0;

OnTimer50000:
if (($@TeamID1!=0) && ($@TeamID2!=0)) {
stopnpctimer;
end;
}
stopnpctimer;
set $@TeamID1, 0;
set $@TeamID1, 0;
announce "Team War : we lack teams to start registration for two teams are now available",0;
end;

OnStart:
warpparty "rwc03",87,50,$@TeamID1;
warpparty "rwc03",12,50,$@TeamID2;
set $@start,1;
end;

lend:
stopnpctimer;
set $@TeamID1,0;
set $@TeamID2,0;
set $@start,0;
set @win1,0;
set @win2,0;
set @partymembercount,$@members;
announce "Thanks for playing",0;
end;

OnTimer250000:
Announce "Team War : No Party won due to time limit!",0;
mapwarp "rwc03","prontera",156,191;
goto lend;
end;

OnPCDieEvent:
OnPCLogoutEvent:
if(strcharinfo(3) != "rwc03") end;
warp "prontera",155,170;
for(set .@i, 0; .@i < $@members; set .@i, .@i + 1) {
if ( $@partymembercidt1[.@i] == getcharid(0)) {
deletearray $@partymembercidt1[.@i], 1;
deletearray $@partymemberaidt1[.@i], 1;
if( getarraysize($@partymembercidt1) == 0 ) {
set @win2,getarraysize($@partymembercidt2);
goto onwin;
}
}
if ( $@partymembercidt2[.@i] == getcharid(0) ) {
deletearray $@partymembercidt2[.@i], 1;
deletearray $@partymemberaidt2[.@i], 1;
if( getarraysize($@partymembercidt2)  == 0 ) {
set @win1,getarraysize($@partymembercidt1);
goto onwin;
}
}
}
end;


onwin:
if (@win1==0) {
warpparty "prontera",155,170,$@TeamID1;
warpparty "prontera",155,170,$@TeamID2;
Announce "Team War :"+GetPartyName($@TeamID2)+" won",0;
for ( .@i = 0; .@i < @win2; .@i++ )
getitem 14003, rand(1,9), $@partymemberaidt2[.@i];
goto lend;
}
if (@win2==0) {
warpparty "prontera",155,170,$@TeamID1;
warpparty "prontera",155,191,$@TeamID2;
Announce "Team War :"+GetPartyName($@TeamID1)+" won",0;
for ( .@i = 0; .@i < @win1; .@i++ )
getitem 14003, rand(1,9), $@partymemberaidt1[.@i];
goto lend;
}
end;
}

rwc03 mapflag nosave SavePoint
rwc03 mapflag nomemo
rwc03 mapflag nobranch
rwc03 mapflag pvp_noguild
rwc03 mapflag nocommand 60
rwc03 mapflag noicewall
rwc03 mapflag pvp
rwc03 mapflag partylock 

    How to add Set time the npc you can click every 24hrs? gettimetick or set time every 24hrs any idea??

×
×
  • Create New...