Jump to content

zein

Members
 View Profile  See their activity

  • Posts

    34

  • Joined

  • Last visited

 Content Type 

Posts posted by zein

    Black Shiba Inu Script

    in Database Support

    Posted

    Hello rAthena Community !
    How to make script like this?
    This hat pretty cool, you can transform into Atroce  /slur
     
    post-3151-0-74652900-1378741686.jpg  post-3151-0-23916900-1378741688.jpg
     
    18756#
    It was from ancient times to the country with the east hat that mimics the hunting dog. 
    It is obedience to the owner. But because vigilance is high, it is to be facing the watchdog. 
    Increases physical damage against Brute monsters by 10%.
    [+ Fidelity_Necklace ]
    Add a chance for 5 seconds to transform into monster "Atroce" when the user receives physical damage.
    Each refine value increase transformation time into monster "Atroce" by 1 second.
    Type : Headgear
    Defense : 6
    Location : Upper
    Weight : 40
    Required Level : 50
    Applicable Job : All Jobs
    #

     

    18756,Black_Shiba_Inu_Hat,Black Shiba Inu Hat,5,20,,400,,6,,1,0xFFFFFFFF,63,2,256,,50,1,894,{},{},{}
2959,Fidelity_Necklace,Fidelity Necklace,5,20,,300,,0,,1,0xFFFFFFFF,63,2,136,,50,0,0,{ bonus bAgi,2; bonus2 bSubRace,RC_Brute,3; },{},{}

     

     
     

    R> @loadnpc Npc

    in Script Requests

    Posted

    What do you mean they aren't loaded automatically?

    are you using rathena?

     

    If you're using rathena, mapflag loaded automatically when you start server at first time.

    trunk/npc/scripts_mapflags.conf

    npc: npc/mapflag/nowarpto.txt

     

    for DB you can set in src/map/itemdb.c" class="bbc_url" title="SVN" rel="external">trunk/src/map/itemdb.c

    /*====================================
 * read all item-related databases
 *------------------------------------*/
static void itemdb_read(void) {

	if (db_use_sqldbs)
		itemdb_read_sqldb();
	else
		itemdb_readdb();

	itemdb_read_combos();
	itemdb_read_itemgroup();
	sv_readdb(db_path, "item_avail.txt",         ',', 2, 2, -1, &itemdb_read_itemavail);
	sv_readdb(db_path, DBPATH"item_noequip.txt", ',', 2, 2, -1, &itemdb_read_noequip);
	sv_readdb(db_path, DBPATH"item_trade.txt",   ',', 3, 3, -1, &itemdb_read_itemtrade);
	sv_readdb(db_path, "item_delay.txt",         ',', 2, 2, -1, &itemdb_read_itemdelay);
	sv_readdb(db_path, "item_stack.txt",         ',', 3, 3, -1, &itemdb_read_stack);
	sv_readdb(db_path, DBPATH"item_buyingstore.txt",   ',', 1, 1, -1, &itemdb_read_buyingstore);
	sv_readdb(db_path, "item_nouse.txt",		 ',', 3, 3, -1, &itemdb_read_nouse);

	itemdb_uid_load();
}

    What is the name of this headgear?

    in Graphics Support

    Posted

    RMSC 2012 (Ragnarok Malaysia Singapore Championship 2012)

    http://ro3.gameflier.com.my/rmsc2012/prize_E.html

     

    post-3151-0-16731200-1377322753_thumb.jpg

    18828,2012RMSCNO1,2012RMSCNO1,5,0,,1000,,5,,1,0xFFFFFFFF,7,2,256,,95,1,942,{ bonus bAllStats,5; bonus bMdef,5; bonus bUnbreakableHelm,0; skill "AL_TELEPORT",1; bonus bSpeedRate,25; },{},{}
18829,2012RMSCNO2,2012RMSCNO2,5,0,,1000,,5,,1,0xFFFFFFFF,7,2,256,,95,1,943,{ bonus bAllStats,4; bonus bMdef,5; bonus bUnbreakableHelm,0; skill "AL_TELEPORT",1; bonus bSpeedRate,25; },{},{}
18830,2012RMSCNO3,2012RMSCNO3,5,0,,1000,,5,,1,0xFFFFFFFF,7,2,256,,95,1,944,{ bonus bAllStats,3; bonus bMdef,5; bonus bUnbreakableHelm,0; skill "AL_TELEPORT",1; bonus bSpeedRate,25; },{},{}
18831,2012RMSCNO4,2012RMSCNO4,5,0,,1000,,5,,1,0xFFFFFFFF,7,2,256,,95,1,945,{ bonus bAllStats,2; bonus bMdef,5; bonus bUnbreakableHelm,0; bonus bSpeedRate,25; },{},{}
    • Upvote 1

    Indonesian Bandana

    in Graphics Support

    Posted

    There is a problem with Indonesian Bandana..

     

    post-3151-0-82850200-1376773246.jpg post-3151-0-17491100-1376773251.jpg post-3151-0-46534700-1376773255.jpg

     

    Does anyone have a corrected sprite?

    This problem only on female character while sit or walk.

    5321,Indonesian_Bandana,Bandana Merah Putih,5,20,,500,,2,,0,0xFFFFFFFF,7,2,256,,0,1,342,{ bonus2 bAddMonsterDropItem,518,300; },{},{}

    data.rar

    Spesific Item Broadcast

    in Script Requests

    Posted

    Hi,

     

    This script will broadcast any item you obtained from Old Purple Box.

    617,Old_Violet_Box,Old Purple Box,2,10000,,200,,,,,0xFFFFFFFF,7,2,,,,,,{ set .@id, groupranditem(IG_VioletBox); getitem .@id,1; announce "[" + strcharinfo(0) + "] got " + getitemname(.@id) + " from Old Purple Box !",bc_all|bc_yellow; },{},{}
 

     

    I want modify this script when obtained a spesific item it will broadcast.
    For an example when I got a Poison Bottle it will announce [Name] got Poison Bottle from Old Purrple Box !
    If I obtained the other item, it won't broadcast.
     
    Thanks!

     

    Quest Shop: Costume Preview

    in Script Requests

    Posted 

    -    shop    costume1    -1,501:50

prontera,166,178,4    script    Costume 01    47,{
set @i,0;
callshop "costume1",1;
npcshopattach "costume1";
end;

OnBuyItem:
if(.BuildQuest) {
for(set .e,0; !compare(getarg(.e+1) + "","Zeny"); set .e,.e+2) {}
npcshopadditem "costume1",getarg(.e+2),getarg(.e)*compare(getarg(.e+1) + "","SZeny");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto Quest_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
mes "[Shop Quest NPC]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1) + "","Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1) + "","Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(Zeny < getarg(@i)) {
next;
mes "You do not have enough Zeny.";
mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1) + "","Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set Zeny,Zeny-getarg(@i);
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0) + "","announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
    npcshopitem "costume1",0,0;
    npcshopdelitem "costume1",0,0;
    set .BuildQuest,1;
    set .i,1;
Quest_Setup:
switch(.i) {
default: set .BuildQuest,0; set .e,0; set .i,0; end;

case 1: callsub OnBuyItem,6153,5,0,"Zeny",19516,1; //singing bird
case 2: callsub OnBuyItem,6153,5,0,"Zeny",19518,1; //rainbow


}
}

     

     

    How to modify this script can preview costume item?

     

    Thanks b4 :)

    Dynamic Time Lucky Pick Event

    in Script Requests

    Posted

    @Emistry

    The dynamic time doesn't work, it still run every 12-24 hour

    I want make it to one hour + randomly minute.

    any suggestion?

    Thanks,

    //http://rathena.org/board/topic/53877-lucky-pick-event/
//emistry script

-	script	AutoFunEvent	-1,{
OnInit:
OnClock0000:
set .LuckyTime,rand(24);

OnMinute00:
if( gettime(3) == .LuckyTime ){
set .DelayMin,rand(60);
sleep ( rand(60) * 1000 );
while(1){
 query_sql "select account_id from `char` where online = 1 order by rand() limit 1", .@aid;
 attachrid .@aid;
 if( CheckVending() ){
  DetachRID();
  continue;
  }
 announce strcharinfo(0) +" won 500 cash in Lucky Pick Event ", 0,0x00FF00;
 set #CASHPOINTS,#CASHPOINTS+500;
 dispbottom "You got 500 cash point";
 break;
}
}
end;
}

×
×
  • Create New...