Jump to content

Ronald

Members
 View Profile  See their activity

  • Posts

    250

  • Joined

  • Last visited

  • Days Won

    3

 Content Type 

Posts posted by Ronald

    showscript color

    in Source Support

    Posted

    1 hour ago, hakuren said:

    Hi rAthena
    is there a way to change showscript color like 0xFF0000=Red.

     

    Thank you in advance

    What do you mean change script color? Is it the NPC message?

    If so, 

    mes "[ ^FF0000 Color Test ^000000 ]";

     

    Gold room point peco

    in Tulong para sa Script at Database

    Posted

    On 9/8/2020 at 10:35 AM, Sergardo said:

    how to make no 0 point  at gold room peco poiint

    and when reach 10k point stop  

    

//  _______   __      ____      ____         __    __  ____    __  __    __   __ __      __   __  ____    _      ____       
// /__  __/  / /     / __ \      / __ \    / / / / /__  \  / / /_/ __/ /_ / // /     / /__/ / /__  \  / /__  / __ \  _____
//   / /    / /_    / /_/ /     / / / /   / / / / ____/ / / / __  /_  __// // /     / _  _ / ____/ / / // / / /_/ / / __  \
//  / /    / __ \  / ____/     / / / /   / / / / / __  / / / / /   / /   \_  /     / // /// / __  / /  __/ / ____/ / /  /_/
// / /    / / / / / /__          / /_/ /_  / /_/ / / /_/ / / / / /   / /   __/ /     / // /// / /_/ / / _ \  / /__      / /
///_/    /_/ /_/  \____/      \_______/ \____/  \____/ /_/ /_/   /_/    \__/     /_//_///  \____/ /_/ \_\ \____/ /_/
//=============================================================================
//
//   Gold Room Advance Script - Mining Gold for wealth - Please Leave Credit   \\
//=============================================================================
//POWERED by: rudolp
//[The Quality Maker]
//Time Finished :6:28 PM 6/7/2009
//Please Report any bug and suggestions.
//===== Compatible With: =================================================================
//= Any eAthena Version
//=============Gold Room Settings===================
//This should always be enable for a better Gold Room System.
//==================================================
ordeal_1-2    mapflag    noskill
ordeal_1-2    mapflag    nomemo
ordeal_1-2    mapflag    nobranch
ordeal_1-2    mapflag    noloot 
ordeal_1-2    mapflag    noexp
ordeal_1-2    mapflag    nodrop
ordeal_1-2    mapflag    novending
//ordeal_1-2    mapflag    nowarp
ordeal_1-2    mapflag    nowarpto
//=================================================

ordeal_1-2,0,0,0    script    Gold Room    -1,{

OnInit:
//No. of Mine Guardian.
//For golden peko it is default to 100 and 4 seconds~2 seconds spawn rate.
    set .guardian,130;

//Type of guardian. 0 = normal 1 = extreme
    set .@guardiantype,0;

    if(.@guardiantype == 0){
        monster "ordeal_1-2",0,0,"Guard Pacific",1369,.guardian,"";    
    }else{
        monster "ordeal_1-2",0,0,"Guard Pacific",1369,.guardian,"";
    }

end;
OnNPCKillEvent:
//===== Configurations: ========================================================================

//Max gold can a player get after killing 1 golden peko (default 5 note:this will increase if luk bonus is enable).
    set .@maxgaingold,5;

//Apply gold penalty. 0 = no 1 = yes
    set .@penalty1,0;

//The Maximum no. of gold Penalty.
    set .@maxpenalty1,0;

//Apply speed & HP penalty. 0 = no 1 = yes 
    set .@penalty2,0;

//Gold limitation penalty must be enable
    set .@maxgold,10000;

//The maximum no. of hp penalty by %.
    set .@maxpenalty2,0;

//Enable luk bonus. 0=no 1=yes
    set .@lukbonus,0;

//If luk Bonus is enable,luk divider default 49 w/ 99 max parameter. Note: the quotient of your max parameter and .@lukdiv must not grater than 5 to avoid over mining.
    set .@lukdiv,49;

//Show Server Name. 0=no 1=yes
    set .@showservername,0;

//Name of your Server
    set .@servername$,"[]";

//=========================================================================================


if (getmapxy(@mapname$,@mapx,@mapy,BL_PC) == -1) goto L_Finish;
if (@mapname$ == "ordeal_1-2"){
    set @bonus,0;
    set @deduction,0;
    set @gain,rand (.@maxgaingold);

//Luk bonus
    if (.@lukbonus != 0){
        set @bonus,readparam(bLuk)/.@lukdiv;
    }

//Gold Penalty
    if (.@penalty1 != 0){
        set @deduction,rand(.@maxpenalty1);
        if(@deduction == 0) set @deduction,1;    
    }

    set @gain, @gain + @bonus - @deduction;
    set gold, gold + @gain ;

//Displaying Gained Gold
    if(.@showservername != 0){
        if(gold%5 == 0){ //Show Server Name every 10 gold gain.
            dispbottom "";
            dispbottom "==============" + .@servername$ +"==============";
        }
    }

    if(@gain){
         dispbottom "You got: " +@gain+ " gold - Total of: " +gold+ " gold";

    }

    if (.@penalty2 != 0){
        if (gold >= .@maxgold/2 && gold <=.@maxgold/2+20){
             sc_start    SC_DECREASEAGI,240000,10;         
        }else if(gold >.@maxgold){
             percentheal (.@maxpenalty2*-1),(.@maxpenalty2*-1);
             heal 0,0; //For him to die
        }
    }

    if(paid == 0){
        mapannounce "ordeal_1-2"," x( "+strcharinfo(0)+" is a cheater!",bc_map;
        dispbottom "Go out you bastard!";
        set gold,0;
        warp "prontera", 157, 190;
    }
        end;
}


//OnPCDieEvent: 

if (getmapxy(@mapname$,@mapx,@mapy,BL_PC) == -1) goto L_Finish;
if (@mapname$ == "ordeal_1-2"){
        dispbottom "Holy Shit you died!";
        dispbottom "All of your gold will gone!";
        set alive, 0;
        set paid, 0;
        end;
}

L_Finish:
end;
}

//===============================================
//warper
//===============================================
ordeal_1-2,154,156,5    script    Gold Miner    813,{
    mes "[Gold Miner]";
    if(gold >=50){
        goto wa;
    }
    mes "Want to go now?";
    mes "Your gold is just "+gold+" you can still get more.";
    end;
wa:
    mes "Want to go now?";
     if(select("Yes", "No") == 1) {
        set alive,1;
                warp "prontera", 143, 185;
        }
    end;
}

prontera,164,172,3    script    Gold Room Warper#pront    813,{
    set @name$,"prontera";
    callfunc "goldmain";
    end;
}

function    script    goldmain    {
    if (getgmlevel() >= 90){
        mes "[Gold Room Warperer]";
    if(sex != 0){
        mes "Hello Sir what can I do for you?";
    }else{
        mes "Hello Maam what can I do for you?";
    }

    next;
    menu "Enter Mining Site",start,"Please end the mine Site. Now!",-,"Please Open the mine Site. Now!",G_open,"Nothing",C_s;
    next;
    mes "[Gold Room Warperer]";
    mapannounce "ordeal_1-2","Excuse me Miners.",bc_map;
    mes "Ok.";
    next;
    mapannounce "ordeal_1-2",strcharinfo(0) +" wants to end the Gold Room for a while",bc_map;
    mes "Just a second I will just ask them to";
    mes "go out in the mining site";
    next;
    mapannounce "ordeal_1-2","Please settle your things and move quitely",bc_map;
    mes "[Gold Room Warperer]";
    mes ".............";
    mes "........";
    next;
    mes "[Gold Room Warperer]";
    mes "Ok your done";
    set .opengoldroom,1;
    areawarp "ordeal_1-2",21,286,286,22,"prontera", 143, 185;
OnInit:
    waitingroom "Hunting Gold Room",0;
    end;
    }

    if(.opengoldroom == 0){
        goto start;
    }else{
        mes "[Gold Room Warperer]";
        mes "Sorry!";
        mes "The Mining Site is endd.";
        end;
    }
G_open:
    mes "[Gold Room Warperer]";
    mes "Ok.";
    mes "Mining Site is Already Available.";
    announce " Gold Room is open for public!",bc_map;
    set .opengoldroom,0;
end;

start:
    if ( alive == 0){
        set gold,0;
    }
    mes "[Gold Room Warperer]";
    mes "What do you want?";
    next;
    menu "To the Gold Room",-,"Exchange Gold",exchange,"Nothing",C_s;
    mes "[Gold Room Warperer]";
    mes "Hmm..";
    mes "It cost 100,000z";
        mes "Would you like to go now to the gold room?";
        if(select("Yes", "No") == 1) {
        if(@name$ == "prontera") savepoint "prontera", 156, 177;
        if(@name$ == "aldebaran") savepoint "aldebaran",166, 163;
        if(@name$ == "alberta") savepoint "alberta",16, 246;
        if(@name$ == "payon") savepoint "payon",160, 179;
        if(@name$ == "geffen") savepoint "geffen",124, 85;
        if (Zeny < 100000) goto nomoney;
        set Zeny, Zeny - 100000;
        set alive, 1;
        set paid, 1;
                warp "ordeal_1-2", 156, 155;
        
        }
        end;
nomoney:
    mes "[Gold Room Warperer]";
    mes "Sorry insufficient balance";
    end;
exchange:
    mes "[Gold Room Warperer]";
    mes "Hmm...let me see";
    mes "You have " +gold+ ".";
    if (gold == 0) goto nogold; 
    mes "Ok get this.";
    next;
        if (checkweight(969,gold) == 0) goto L_OverWeight;
    getitem 969, gold;
    set gold, 0;
    emotion e_gg;
    end;
L_OverWeight:
    mes "[Gold Room Warperer]";
    mes "Sorry your overweight";
    end;
nogold:
    end;
C_s:
    end;
}


//============================================================

//===========================================================
//========================================
//warps you may edit this one for your convenience
//========================================
ordeal_1-2,73,265,0    warp    ord500    1,1,prontera,143,185
ordeal_1-2,129,194,0    warp    ord501    1,1,prontera,143,185


//============Spawns=================

ordeal_1-2,0,0,0,0    monster    Golden Pecopeco    1369,150,0,0,0
ordeal_1-2,0,0,0,0    monster    Golden Pecopeco    1369,150,0,0,0
ordeal_1-2,0,0,0,0    monster    Golden Pecopeco    1369,100,0,0,0
ordeal_1-2,0,0,0,0    monster    Golden Pecopeco    1369,100,0,0,0
ordeal_1-2,0,0,0,0    monster    Golden Pecopeco    1369,150,0,0,0

      

    set @gain,rand (1,5);

    news about functor

    in Off Topic

    Posted

    6 hours ago, Psyz said:

    Does anyone know anything about him?
    I need this beautiful guy, I couldn't get through the forum or skype

    He is always busy but definitely he'll reach you soon. Just be patient Brother.

    • Love 2

    NPC to delete SQL items

    in Script Requests

    Posted

    7 hours ago, IsabelaFernandez said:

    I have difficulty deleting in SQL, some items do not disappear and the buggy remain there ... do you have any suggestions to help me?

    not to delete from the database, only from specific accounts.

    Do SQL query when your server is offline. 

    Ghost's Scripts [Latest: Ghost's PvP System v1.3]

    in Script Collections

    Posted

    On 9/2/2020 at 2:16 AM, n00b said:

    Hey guys , need some help plz ... i add the script and all but he wont work , only when i change the first line witch is :

    -       script  Versus  -1,{

    and i put some information like it was a npc , he work annunce and all but not the npc located on morocc...

     

    can someone help me please ?

     

    ty ! ❤️

    Search for this one on your script  

    //Added Functions
function broadcast { return ( ( getarg(0) ) ? bc_all : bc_map ); }
}

    At the bottom of that you'll find the location of the NPC.

    hourly reward

    in Scripting Support

    Posted 

    OnInit:
	.s_idle = 1; //	ban hourly rewards from idle players ? 0 no / 1 yes {if player didn't move for x time he wont get hourly reward}  , DEFAULT = 0
	.s_idle_time = 300; //1800	this the time for idle in secend  , DEFAULT = 1800 (30 min)

     

    • Upvote 1

    BTS Modify ETC

    in Scripting Support

    Posted 

    case 1: // Castle Drops
  set .@gamble1,rand(1,500);
  if ((.@gamble1 > 200) && (.@gamble1 < 205)) {
set .@gamble2,rand(1,10);
if	  ((.@gamble2 > 0) && (.@gamble2 <  3)) set .@item,7086; // esg
else if ((.@gamble2 > 2) && (.@gamble2 <  5)) set .@item,7090; // ripple
else if ((.@gamble2 > 4) && (.@gamble2 <  7)) set .@item,7091; // billow
else if ((.@gamble2 > 6) && (.@gamble2 <  9)) set .@item,7077; // silver
else if ((.@gamble2 > 8) && (.@gamble2 < 11)) set .@item,7078; // wov
  }
  else if ((.@gamble1 >   0) && (.@gamble1 < 201)) set .@item,7086; // esg
  else if ((.@gamble1 > 204) && (.@gamble1 < 301)) set .@item,7090; // ripple
  else if ((.@gamble1 > 300) && (.@gamble1 < 401)) set .@item,7091; // billow
  else if ((.@gamble1 > 401) && (.@gamble1 < 481)) set .@item,7077; // silver
  else if ((.@gamble1 > 480) && (.@gamble1 < 501)) set .@item,7078; // wov
break;
}

    Basically you just need to add more condition with the items you wanted to add.

    Functor

    in rAthena General

    Posted

    Been using  Functor's service as well (Gepard Shield) for quite sometime. So far he also help me although I agree that he is not able to answer 24/7 since he also needs to rest.

    • Love 1
×
×
  • Create New...