kronobr

/*========================================== * @dropequip [FE] * Drop spesific equipment to the ground *------------------------------------------*/ ACMD_FUNC(dropequip) { int i; unsigned short pos; nullpo_retr(-1, sd); if (!message || !*message) { clif_displaymessage(fd, "Please enter equip location: @dropequip <equip_location>"); clif_displaymessage(fd, " 1: Head Low 2: Hand Right 4: Garment 8: Acc Left"); clif_displaymessage(fd, " 16: Armor 32: Hand Left 64: Shoes 128: Acc Right"); clif_displaymessage(fd, "256: Head Top 512: Head Mid"); return -1; } pos = atoi(message); for (i = 0; i < MAX_INVENTORY; i++) { if (sd->status.inventory[i].amount && sd->inventory_data[i]->equip&pos) { if(sd->status.inventory[i].equip&pos) { pc_unequipitem(sd, i, 3); pc_dropitem(sd, i, sd->status.inventory[i].amount); } //-Delete code below if you only want to drop an equipped item--- else if (!sd->status.inventory[i].equip) pc_dropitem(sd, i, sd->status.inventory[i].amount); //--------------------------------------------------------------- } } return 0; } Could someone help transform this code from 2012 atcommand to work in atcommand.cpp from rathena 2019? Thanks a lot ? the errors are related to ''status.inventory'' and status.inventory[i] equip%pos it looks like it has changed over time.

can you adjust to reactivate when the whole party dies? The event is locked with no way to enter.

brasilis,253,355,5 script testE 811,{ OnPCDieEvent: if (countitem(501) < 1){ set .@deadplayer,getcharid(0); message strcharinfo(0),"Game Over"; sleep2 600; atcommand "@clearcart "+strcharinfo(0); end; } else delitem 501,1; end; close; } Hi everyone, everything fine? I need help checking if the player is on the prt_fild08 map right after death, and if he is on that map, the rest of the script doesn't run. Thanks

prontera,157,178,5 script dedoduro 757,{ if ( getgmlevel() < 80 ) end; mes "Input Player Name"; if ( input( .@input$, 4, 23 ) ) { mes "invalid name length"; close; } if ( set( .@nb, query_sql( "select name, online from `char` where account_id = ( select account_id from `char` where name = '"+ escape_sql(.@input$) +"' ) order by char_num", .@name$, .@online ) ) ) for ( set .@i, 0; .@i < .@nb; set .@i, .@i +1 ) mes " > "+ .@name$[.@i] +" "+( ( .@online[.@i] )? "^00FF00[Online]" : "^FF0000[Offline]" )+"^000000"; //here// mes .@name$ + !getmapxy( .@map$, .@x, .@y, 0, .name$[.@s] ) && .@map$ != strcharinfo(3); else mes "No character found"; close; } HELLO EVERYONE, I need help with this npc. I need this npc to show the map the player is on. I tried to do it but it's not working . Thanks

I would like to request an npc that works as public storage with access for all players.

Sometimes when I trade the card it doesn't give me a card. Where can I fix that? ** I have same problem 5% of the time when i use the npc. Can someone help?

Can anyone help? I need the English descriptions of the correct skills for renewal 20180620 Skilldescript

OnWBossDied: announce " " + strcharinfo(0) + " Find a Mob treasure!", bc_all, 0xFF0000; getitem 617,1; if (getcharid(1) == 0){ getexp 80000,0; end; } else { if( getcharid(1) ) { getpartymember( getcharid(1),2 ); getpartymember( getcharid(1),1 ); for( .@i = 0; .@i < $@partymembercount; .@i++ ) { if (attachrid($@partymemberaid[.@i])) { if (strcharinfo(3) == .map_event$) { getexp 80000,0; } detachrid; } } end; }}} I need the player to receive the exp and the party also to receive the exp. But I was bugging when there is no party person online. Can anyone help adjust? The item (getitem) is just for who kill and this is ok. When I was at a party created, but all offline, I was not receiving the exp.

I can use this npc but for other types of items that are not cards? like equipment for example or usable items? I don't know much code, if anyone can make this change I would appreciate it.

Hi, someone can help with this? i need something like this. But can be a npc what identify and put a random card/enchant gems from item id on 4º slot from equips.

//===== rAthena Script ======================================= //= Card Trader //===== By: ================================================== //= Elias (og2) //===== Current Version: ===================================== //= 1.4 //===== Compatible With: ===================================== //= rAthena Project; SVN r15340+ //===== Description: ========================================= //= Card and Points Trader //===== Additional Comments: ================================= //= 1.0 Translated from the Official [Elias] //= 1.1 Fixed variables and optimized script [Elias] //= 1.2 Fixed char being stuck with breaks [Elias] (bugreport:5374) //= 1.3 Optimized: reduced from 123kb to 7kb! [Euphy] //= 1.4 Variables don't need to load OnInit. [Euphy] //= 1.4a Misc. [Capuche] //============================================================ prontera,54,70,4 script CardGirl 770,{ disable_items; setarray .@card1[0], 4001,4006,4009,4019,4075,4033,4012,4016,4026,4022, 4027,4028,4038,4025,4021,4050,4079,4081,4090,4094, 4101,4104,4110,4114,4119,4108,4095,4231,4280,4008, 4011,4013,4014,4015,4020,4032,4037,4039,4041,4045, 4046,4010,4023,4029,4052,4048,4056,4071,4093,4031, 4036,4034,4042,4055,4061,4087,4096,4116,4122,4170, 4215,4220,4228,4226,4212,4227,4267,4257,4278,4286, 4287,4292,4311,4315,4319,4322,4084,4078,4113,4149, 4153,4196,4240,4247,4256,4057,4066,4067,4112,4150, 4152,4186,4187,4181,4173,4167,4162,4176,4195,4193, 4200,4223,4194,4190,4189,4192,4224,4244,4248,4261, 4260,4259,4274,4275,4313,4299,4304,4294,4076,4127, 4154,4157,4156,4213,4214,4225,4235; setarray .@card2[0], 4293,4297,4288,4283,4295,4307,4308,4309,4132,4326, 4341,4335,4337,4345,4344,4331,4333,4332,4089,4161, 4177,4178,4180,4184,4191,4206,4199,4273,4282,4268, 4289,4321,4316,4343,4339,4369,4377,4385,4383,4382, 4380,4381,4378,4379,4390,4389,4388,4391,4405,4400, 4401,4402,4404,4002,4003,4004,4005,4007,4017,4024, 4030,4035,4040,4043,4044,4049,4051,4053,4058,4060, 4062,4063,4064,4065,4068,4069,4070,4072,4073,4074, 4077,4080,4082,4083,4085,4086,4088,4091,4092,4097, 4098,4099,4100,4102,4103,4106,4107,4109,4111,4115, 4117,4118,4120,4124,4125,4126,4138,4139,4141,4151, 4158,4164,4165,4182,4185,4159,4160,4166,4172,4175, 4188,4201,4202,4204,4205,4208,4209; setarray .@card3[0], 4120,4216,4217,4219,4221,4222,4230,4234,4233,4232, 4237,4238,4242,4243,4245,4246,4249,4252,4255,4258, 4262,4264,4276,4270,4271,4218,4239,4251,4253,4269, 4334,4105,4133,4136,4229,4272,4277,4279,4281,4284, 4285,4290,4296,4298,4301,4310,4314,4317,4325,4327, 4328,4329,4338,4340,4346,4347,4348,4349,4350,4351, 4353,4354,4355,4356,4358,4360,4362,4364,4366,4368, 4370,4371,4373,4375,4387,4406,4129,4155,4291,4392, 4393,4394,4409,4410,4411,4412,4413,4414,4415,4416, 4417,4418,4420,4421,4422,4423,4424,4427,4427,4428, 4429,4431,4432,4433,4434,4435,4436,4437,4438,4439, 4440,4442,4443,4444,4445,4447,4448,4449,4450,4452, 4453; setarray .@size_card[1], getarraysize(.@card1), getarraysize(.@card2), getarraysize(.@card3); .@points = oversea_event9; if (!.@points) { mes "[Putty]"; mes "Hi there."; mes "I don't know if I can be"; mes "of any assistance, but I"; mes "am trying to help older veterans"; mes "by exchaning the cards that"; mes "they are no longer using."; next; switch(select("Ask for more information!","I don't have any cards right now.")) { case 1: mes "[Putty]"; mes "I am giving 1 point for each card that you bring me."; mes "The points can be used to exchange for items that I have."; next; mes "[Putty]"; mes "For ^CC00005 points^000000: ^0000CC1 Old Card Album^000000."; // mes "For ^CC000050 points^000000: ^0000CC20 Yggdrasil Berry^000000."; // mes "For ^CC000020 points^000000: ^0000CC10 Blue Potion^000000."; // mes "For ^CC00001 point^000000: ^0000CC4 Honey^000000."; next; break; case 2: mes "[Putty]"; mes "Well, remember this offer!"; close; } } else { mes "[Putty]"; mes "Welcome back!"; mes "I see you already have some"; mes "trading points. Actually, you currently have ^00cc00" + .@points + "^000000."; next; mes "[Putty]"; mes "Would you like to exchange these"; mes "points now, or you would like to exchange more cards?"; next; } switch(select("I would like to exchange cards.","Can I exchange the points?")) { case 1: mes "[Putty]"; mes "Please tell me what card you want to exchange."; next; input .@i$; .@input$ = "_"+.@i$; freeloop(1); for(.@j = 1; .@j<4; .@j++) { for(.@i = 0; .@i<.@size_card[.@j]; .@i++) if (compare(.@input$,"_"+getitemname(getd(".@card"+.@j+"["+.@i+"]")))) { .@card = getd(".@card"+.@j+"["+.@i+"]"); break; } sleep2 10; // For good measure if (.@card) break; } freeloop(0); mes "[Putty]"; if (!.@card) mes "Please, come back here if you want to exchange a monster card."; else { .@count = countitem(.@card); if (!.@count) { mes "You don't have any ^0055FF"+callfunc("F_GetPlural",getitemname(.@card))+"^000000 with you!"; close; } mes "You've got ^0055FF"+callfunc("F_InsertPlural",.@count,getitemname(.@card))+"^000000."; mes " "; mes "Would you like to exchange 1 point for each of them?"; next; switch(select("Yes, please!","No, thank you.")) { case 1: delitem .@card,.@count; oversea_event9 = (.@points+.@count); mes "[Putty]"; mes "Alright, you have received ^CC0000"+.@count+"^000000 points."; break; case 2: mes "[Putty]"; mes "Okay, let me know if I can help you with something else."; break; } } close; case 2: if (.@points) { mes "[Putty]"; mes "These are the items that I have."; next; switch(select("1 Old Card Album - 5 Points","^777777Nerver mind.^000000")) { case 1: if (.@points < 5) break; mes "[Putty]"; mes "Great, I wish you the best"; mes "of luck with this album. I have a"; mes "very good feeling about this one!"; oversea_event9 = .@points - 5; getitem 616,1; close; case 2: mes "[Putty]"; mes "Alright, come back when you have more points."; close; } mes "[Putty]"; mes "Sorry, but you don't have enough points."; close; } else { mes "[Putty]"; mes "You have 0 points. You need at least 5 points to exchange."; close; } } } how to make the input find by the item id instead of the name? Thanks

how to enable the pet to catch loot? Use renewal rathena. even with the equipped item the poring does not pick up the loot. Support is enabled. There is no petloot option in pet_db and the import pet_db is empty.

I need the item be deleted only If name exist.

prontera,150,114,4 script God Connection 811,{ mes "You can bring to life a old friend if you have a God item gift."; next; if (countitem(6293) < 1) end; input .@input$; delitem 6293,1; set @success, atcommand ("@unjail "+.@input$); if(!@success) { mes "Something's wrong, maybe the player doesn't exist."; } mes "Done!"; close; } Hi ,I need help to delete the item only if the player spells the other's name correctly for UNjail. Currently, if he misses the name, he loses the item anyway because the unjail fails. Thanks you all

How should be? Im learning yet about that. Thanks.