dikapramantya

by a command use item like a vip voucher.. 25016,VIP_1D_coupon,VIP 1day coupon,18,20,,0,,,,,0xFFFFFFFF,63,2,,,,,,{ atcommand "@vip +1d "+strcharinfo(0)+""; dispbottom "Your account privillege Premium Now."; dispbottom "You can use Premium Agent NPC to Get Special Buff."; dispbottom "Your Premium Service will Expired : "+vip_status(2);},{},{}

Hi, i've check and try your script. Its very helpfull but i'm confuse, when FAW refine is +7 / +8 this npc didn't give 2nd enchantment. if FAW Refine is +9 this npc give a 2nd and 3rd enchantment. Only +7 Refine didn't give enchantment (Only give 1 Enchantment) I've try to fix it to change the separator but doesn't work. Can you give me clue?

Hello i've error in this script with newer rAthena. can you give me how to fix it?? Error : When FAW +7 or +9 is possible to give more than 1 enchant but this script error and make FAW can't get more than 1 enchant in any refine. When try to reset enchant, this npc need silvervine fruit. If we have silvervine fruit, NPC will deleted Silvervine Fruit but not reset the enchantment //===== rAthena Script ======================================= //= Unofficial Fallen Angel Wing (FAW) Enchants //===== By: ================================================== //= Nerfwood //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= rAthena Project //===== Description: ========================================= //= Enchants FAW as per iROWiki's information //= Dialogue are unofficial //===== Additional Comments: ================================= //= 1.0 First Version //============================================================ //Decreasing Chance of Enchantment // 60% low, 30% mid, 10% high for 1st & 2nd enchant slot //40% low, 30% mid, 20% high, 10% special for 3rd enchant slot function script EnchantStat_1 { .chance = rand(1,10); if(@card2 && @card3) { //For 4th Slot aka 3rd Enchant Slot if(.chance<5) .x=0; else if(.chance<7) .x=1; else if(.chance<9) .x=2; else .x=3; } else { //For 2nd and 3rd card slot aka 1st and 2nd Enchant Slot if(.chance<7) .x=0; else if(.chance<10) .x=1; else .x=2; } return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), .x ); } //Equal Chance of Enchanting function script EnchantStat_0 { if(@card2 && @card3) return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), rand(0,3) ); else return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), rand(0,2) ); } //=======MAIN NPC prontera,148,169,3 script Dark Luhir 403,{ mes .npc$; mes "I am here to enchant the", "magnificent ^000099Fallen Angel Wing^000000.", "Would you like to enchant yours?"; if(countitem(2589)) { set .@menu$, "Enchant Fallen Angel Wing"; } else .@menu$=""; next; switch(select("Information:" + .@menu$ + ":Reset Enchantment")) { case 1: goto OnInformation; case 2: goto OnEnchantNow; case 3: goto OnResetEnchant; default: close; } OnInformation: mes .npc$, "I can enchant your", "^000099Fallen Angel Wing^000000 for", (.cost?callfunc("F_InsertComma",.cost)+"z":"free")+" to give it various.", "effects. In fact, I can do it", "twice if its refinement level is", "+7 ~ +8, and thrice if its", "+9 and above."; next; mes .npc$, "The 3rd enchantment has a", "chance to be more powerful", "than the first two."; next; mes .npc$, "There is no chance to", "fail, so enchant away", "as much as you like."; next; mes .npc$, "But if you're not happy", "with the results, you can", "reset the enchantments", "for ^009900"+ callfunc("F_InsertComma",.cost2) + "z^000000."; next; mes .npc$, "That's about everything."; close; OnEnchantNow: mes .npc$; if( (getequipid(EQI_GARMENT)!=2589) ) { mes "Please equip your", "^000099Fallen Angel Wing^000000 if", "you want to have it enchanted."; if(!.autoequip) close; next; if(select("Equip:Don't Equip")==2) close; equip 2589; mes .npc$; } .@refeq = getequiprefinerycnt(EQI_GARMENT); if(.@refeq<7) .@refeq2 = 1; else if(.@refeq>8) .@refeq2 = 3; else .@refeq2 = 2; mes "You have a ^000099+" +.@refeq + " Fallen Angel Wing^000000.", "It can have a total of " + .@refeq2 + " enchantment" +( .@refeq2>1?"s.":".")+" Please"; mes "select your preferred","enchantment."; next; setd ".@enc$", select("Fighting Enchant:Magic Enchant:Archer Enchant:Critical/Fatal Enchant:Max HP Enchant:Max SP Enchant:ASPD Enchant:STR Enchant:AGI Enchant:DEX Enchant:VIT Enchant:INT Enchant:LUK Enchant"); if(.cost) callsub OnCostlyEnchant; .@card1 = getequipcardid(4,0); .@card2 = getequipcardid(4,1); .@card3 = getequipcardid(4,2); .@card4 = getequipcardid(4,3); if( @card2 && @card3 && @card4) { mes .npc$, "Hmm.. it seems that all", "slots have already been enchanted."; close; } .@EnStat = callfunc( (.chancetype?"EnchantStat_1":"EnchantStat_0"), .@enc$) ; if(!@card2) callsub OnFawEnchant , .@EnStat , @card3 , @card4 , .@refeq; else if(!@card3 && .@refeq>6) callsub OnFawEnchant , @card2 , .@EnStat , @card4 , .@refeq; else if(!@card4 && .@refeq>8) callsub OnFawEnchant , @card2 , @card3 , .@EnStat , .@refeq; else { mes .npc$, "Sorry, but your", "^000099Fallen Angel Wing^000000's", "refinement level is too", "low to continue"; close; } mes .npc$, "Your ^000099Fallen Angel Wing^000000 has", "been enchanted with ^000099"+getitemname(.@EnStat)+"^000000."; close; OnFawEnChant: if ( !countitem( 2589 ) ) { mes "You dont have the items."; close; } delitem2 2589, 1, 1, getarg(3), 0, @card1, @card2, @card3, @card4; getitem2 2589, 1, 1, getarg(3) , 0, @card1, getarg(0), getarg(1), getarg(2); equip 2589; specialeffect2 1019; specialeffect2 98; return; OnResetEnchant: mes .npc$, "This will cost 1x Silvervine Fruit.", "Are you sure?"; next; if(select("Yes:No")==2) close; mes .npc$; if(countitem(6417)<1) { mes "You don't bring enough silvervine Fruit."; close; } delitem 6417,1; mes "Your ^000099Fallen Angel Wing^000000's", "enchantments have been reset."; .@refeq = getequiprefinerycnt(EQI_GARMENT); .@card1 = getequipcardid(4,0); .@card2 = getequipcardid(4,1); .@card3 = getequipcardid(4,2); .@card4 = getequipcardid(4,3); delitem2 2589, 1, 1, .@refeq, 0, @card1, @card2, @card3, @card4; getitem2 2589, 1, 1, .@refeq, 0, @card1, 0, 0, 0; equip 2589; specialeffect2 261; specialeffect2 119; close; //Only called when .cost is defined OnCostlyEnchant: if(Zeny<.cost) { mes .npc$, "You don't have enough zeny."; close; } Zeny -= .cost; return; OnInit: .npc$ = "[^AA0000Valkyrie^000000]"; setarray .enc1[0], 4809,4808,4820, 4821; //Fighting 3~5 setarray .enc2[0], 4812,4826,4827, 4828; //Magic 4~6 setarray .enc3[0], 4832,4833,4834, 4835; //Expert Arc 1~3 setarray .enc4[0], 4863,4864,4865, 4866; //Fatal 1~3 setarray .enc5[0], 4861,4862,4867, 4868; //MHPP 1~3% setarray .enc6[0], 4870,4800,4871, 4801; //MaxSP 25,50,75 setarray .enc7[0], 4869,4872,4873, 4807; //ASPD 1~3 // setarray .enc7[0], 4869,4872,4873, 4881; //ASPD 1~3 setarray .enc8[0], 4702,4703,4704, 4853; //STR 3~5 | Special Str setarray .enc9[0], 4731,4732,4733, 4854; //AGI 2~4 setarray .enc10[0], 4722,4723,4724, 4857; //DEX 3~5 setarray .enc11[0], 4742,4743,4744, 4855; //VIT 3~5 setarray .enc12[0], 4712,4713,4714, 4856; //INT 3~5 setarray .enc13[0], 4752,4753,4754, 4858; //LUK 3~5 // 1 = 60% low, 30% mid, 10% high for 1st & 2nd enchant slot && 40% low, 30% mid, 20% high, 10% special for 3rd enchant slot // 0 = Equal Chance .chancetype = 1; //Turn on Equip Selection if garment is unequipped? 1 = Yes .autoequip = 0; //Cost for Enchanting. It's free in iRO .cost=6000000; //Cost to reset | Costs 1Mz in iRO .cost2 = 6000000; } This is the script if you forget XD The requirement item is reduce / deleted but doesn't give any effect for FAW Reset.

Hello i've error in this script with newer rAthena. can you give me how to fix it?? I try to reset enchantment but server is say error like this.. This is the script if you forget XD //===== rAthena Script ======================================= //= Unofficial Fallen Angel Wing (FAW) Enchants //===== By: ================================================== //= Nerfwood //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= rAthena Project //===== Description: ========================================= //= Enchants FAW as per iROWiki's information //= Dialogue are unofficial //===== Additional Comments: ================================= //= 1.0 First Version //============================================================ //Decreasing Chance of Enchantment // 60% low, 30% mid, 10% high for 1st & 2nd enchant slot //40% low, 30% mid, 20% high, 10% special for 3rd enchant slot function script EnchantStat_1 { .chance = rand(1,10); if(@card2 && @card3) { //For 4th Slot aka 3rd Enchant Slot if(.chance<5) .x=0; else if(.chance<7) .x=1; else if(.chance<9) .x=2; else .x=3; } else { //For 2nd and 3rd card slot aka 1st and 2nd Enchant Slot if(.chance<7) .x=0; else if(.chance<10) .x=1; else .x=2; } return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), .x ); } //Equal Chance of Enchanting function script EnchantStat_0 { if(@card2 && @card3) return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), rand(0,3) ); else return getelementofarray(getvariableofnpc( getd(".enc" + getarg(0) ) , "Dark Luhir"), rand(0,2) ); } //=======MAIN NPC prontera,148,169,3 script Dark Luhir 403,{ mes .npc$; mes "I am here to enchant the", "magnificent ^000099Fallen Angel Wing^000000.", "Would you like to enchant yours?"; if(countitem(2589)) { set .@menu$, "Enchant Fallen Angel Wing"; } else .@menu$=""; next; switch(select("Information:" + .@menu$ + ":Reset Enchantment")) { case 1: goto OnInformation; case 2: goto OnEnchantNow; case 3: goto OnResetEnchant; default: close; } OnInformation: mes .npc$, "I can enchant your", "^000099Fallen Angel Wing^000000 for", (.cost?callfunc("F_InsertComma",.cost)+"z":"free")+" to give it various.", "effects. In fact, I can do it", "twice if its refinement level is", "+7 ~ +8, and thrice if its", "+9 and above."; next; mes .npc$, "The 3rd enchantment has a", "chance to be more powerful", "than the first two."; next; mes .npc$, "There is no chance to", "fail, so enchant away", "as much as you like."; next; mes .npc$, "But if you're not happy", "with the results, you can", "reset the enchantments", "for ^009900"+ callfunc("F_InsertComma",.cost2) + "z^000000."; next; mes .npc$, "That's about everything."; close; OnEnchantNow: mes .npc$; if( (getequipid(EQI_GARMENT)!=2589) ) { mes "Please equip your", "^000099Fallen Angel Wing^000000 if", "you want to have it enchanted."; if(!.autoequip) close; next; if(select("Equip:Don't Equip")==2) close; equip 2589; mes .npc$; } .@refeq = getequiprefinerycnt(EQI_GARMENT); if(.@refeq<7) .@refeq2 = 1; else if(.@refeq>8) .@refeq2 = 3; else .@refeq2 = 2; mes "You have a ^000099+" +.@refeq + " Fallen Angel Wing^000000.", "It can have a total of " + .@refeq2 + " enchantment" +( .@refeq2>1?"s.":".")+" Please"; mes "select your preferred","enchantment."; next; setd ".@enc$", select("Fighting Enchant:Magic Enchant:Archer Enchant:Critical/Fatal Enchant:Max HP Enchant:Max SP Enchant:ASPD Enchant:STR Enchant:AGI Enchant:DEX Enchant:VIT Enchant:INT Enchant:LUK Enchant"); if(.cost) callsub OnCostlyEnchant; .@card1 = getequipcardid(4,0); .@card2 = getequipcardid(4,1); .@card3 = getequipcardid(4,2); .@card4 = getequipcardid(4,3); if( @card2 && @card3 && @card4) { mes .npc$, "Hmm.. it seems that all", "slots have already been enchanted."; close; } .@EnStat = callfunc( (.chancetype?"EnchantStat_1":"EnchantStat_0"), .@enc$) ; if(!@card2) callsub OnFawEnchant , .@EnStat , @card3 , @card4 , .@refeq; else if(!@card3 && .@refeq>6) callsub OnFawEnchant , @card2 , .@EnStat , @card4 , .@refeq; else if(!@card4 && .@refeq>8) callsub OnFawEnchant , @card2 , @card3 , .@EnStat , .@refeq; else { mes .npc$, "Sorry, but your", "^000099Fallen Angel Wing^000000's", "refinement level is too", "low to continue"; close; } mes .npc$, "Your ^000099Fallen Angel Wing^000000 has", "been enchanted with ^000099"+getitemname(.@EnStat)+"^000000."; close; OnFawEnChant: if ( !countitem( 2589 ) ) { mes "You dont have the items."; close; } delitem2 2589, 1, 1, getarg(3), 0, @card1, @card2, @card3, @card4; getitem2 2589, 1, 1, getarg(3) , 0, @card1, getarg(0), getarg(1), getarg(2); equip 2589; specialeffect2 1019; specialeffect2 98; return; OnResetEnchant: mes .npc$, "This will cost 1x Silvervine Fruit.", "Are you sure?"; next; if(select("Yes:No")==2) close; mes .npc$; if(countitem(6417)<1) { mes "You don't bring enough silvervine Fruit."; close; } delitem 6417,1; mes "Your ^000099Fallen Angel Wing^000000's", "enchantments have been reset."; .@refeq = getequiprefinerycnt(EQI_GARMENT); .@card1 = getequipcardid(4,0); .@card2 = getequipcardid(4,1); .@card3 = getequipcardid(4,2); .@card4 = getequipcardid(4,3); delitem2 2589, 1, 1, .@refeq, 0, @card1, @card2, @card3, @card4; getitem2 2589, 1, 1, .@refeq, 0, @card1, 0, 0, 0; equip 2589; specialeffect2 261; specialeffect2 119; close; //Only called when .cost is defined OnCostlyEnchant: if(Zeny<.cost) { mes .npc$, "You don't have enough zeny."; close; } Zeny -= .cost; return; OnInit: .npc$ = "[^AA0000Valkyrie^000000]"; setarray .enc1[0], 4809,4808,4820, 4821; //Fighting 3~5 setarray .enc2[0], 4812,4826,4827, 4828; //Magic 4~6 setarray .enc3[0], 4832,4833,4834, 4835; //Expert Arc 1~3 setarray .enc4[0], 4863,4864,4865, 4866; //Fatal 1~3 setarray .enc5[0], 4861,4862,4867, 4868; //MHPP 1~3% setarray .enc6[0], 4870,4800,4871, 4801; //MaxSP 25,50,75 setarray .enc7[0], 4869,4872,4873, 4807; //ASPD 1~3 // setarray .enc7[0], 4869,4872,4873, 4881; //ASPD 1~3 setarray .enc8[0], 4702,4703,4704, 4853; //STR 3~5 | Special Str setarray .enc9[0], 4731,4732,4733, 4854; //AGI 2~4 setarray .enc10[0], 4722,4723,4724, 4857; //DEX 3~5 setarray .enc11[0], 4742,4743,4744, 4855; //VIT 3~5 setarray .enc12[0], 4712,4713,4714, 4856; //INT 3~5 setarray .enc13[0], 4752,4753,4754, 4858; //LUK 3~5 // 1 = 60% low, 30% mid, 10% high for 1st & 2nd enchant slot && 40% low, 30% mid, 20% high, 10% special for 3rd enchant slot // 0 = Equal Chance .chancetype = 1; //Turn on Equip Selection if garment is unequipped? 1 = Yes .autoequip = 0; //Cost for Enchanting. It's free in iRO .cost=6000000; //Cost to reset | Costs 1Mz in iRO .cost2 = 6000000; } The requirement item is reduce / deleted but doesn't give any effect for FAW Reset.

Can you give me fixed script? i have same error too . The emistry suggest to changed script is not work

+1 link please haha

//PremiumNPC IDRO Version //Made by Dhika Pramantya - shop Premium Item -1,17229:35000,12591:35000,12274:25000,12275:25000 - script PremiumFUNC -1,{ mes "[Premium Agent]"; mes "Hallo."; mes "Hanya untuk pemain yang menggunakan Premium Service,"; mes "Kami menawarkan beberapa layanan."; mes "Saya akan periksa"; mes "Jika kamu adalah pemain yang menggunakan Premium Service."; next; if(vip_status(1) < 1) goto l_raktjatdjelata; else if(vip_status(1) > 0) goto l_premium; l_raktjatdjelata: mes "[Premium Agent]"; mes "Kamu tidak bisa mendapatkan"; mes "premium service."; mes "datang lagi setelah"; mes "mendapatkan premium account."; end; l_premium: mes "[Premium Agent]"; mes "Kamu adalah orang yang tepat"; mes "Premium accountmu Expired : "+vip_status(2); //Checking Expired Time VIP Account next; mes "[Premium Agent]"; mes "Untuk mendapat layanan ini."; mes "Silahkan periksa layanan"; mes "Yang kamu mau"; next; menu "Membeli barang.",buyitem, "Dapatkan Special Buff.",buffp, "Batal",-; mes "[Premium Agent]"; mes "Kapan saja kamu membutuhkan layanan,"; mes "kamu dapat datang kembali."; end; buyitem: close2; callshop "Premium Item",1; end; buffp: specialeffect2 EF_HEAL2; percentheal 100,100; sc_start SC_FOOD_STR_CASH,1800000,3; sc_start SC_FOOD_AGI_CASH,1800000,3; sc_start SC_FOOD_VIT_CASH,1800000,3; sc_start SC_FOOD_INT_CASH,1800000,3; sc_start SC_FOOD_DEX_CASH,1800000,3; sc_start SC_FOOD_LUK_CASH,1800000,3; mes "[Premium Agent]"; mes "saya harap buff ini"; mes "berguna untukmu."; end; } Hello this is my Own Premium / VIP Script for Player who want get special buff / check time left. Its a basic from Official Gravindo / Indonesia Ragnarok Online. So maybe anyone help to make it if vip_status(2) = expired , its make user disconnect / change account group_id to Normal user ?? if work i will add the credit in the script to you

bump

Hi hendra. Can you help me about this ? thanks if you can help me hihihih

Hello Rathena. I want to ask ... When i tried use VIP System, is WORK all. Thanks :D. But i have a problem when user VIP Account is Finish/Expired. User not auto back to Normal Account (Need Disconnect to Back Premium Account.) So, my question is, how to make User back to Normal Account automatic after VIP Account Period is Finish / Expired ?? Example to explain: So account in the picture is Expired in 22:33... But when server time is 22:35, The account is Still VIP Mode and can Use Premium Agent NPC (NPC Special only can access by VIP Account). Need make user disconnect to make account normal again.

Hello @Stolao .. I've try your last rev script Daily Login . This is my started config. // Basic Settings // 1: Item | 2: Points | 4: Exp // 8: Gain Buffs Every X Consecutive Days logged in // 16: Show Cutins | 32: Bound Items // 64: No Rewards ffor Autotraders // 128: Show Next Day Cutin // (a bit value, e.g. 3 = Items & Points from Multi) .Mode = 1|16|64; // Number of times same IP can recive rewards // 0 = unlimited .IPCheck = 0; // Number of times same Computer (MacAdress) can recive rewards // 0 = unlimited .MacCheck = 1; // Item Binding Mode // Bound_Account : Account Bound item // Bound_Guild : Guild Bound item // Bound_Party : Party Bound item // Bound_Char : Character Bound item .Bound_Mode = Bound_Account; // To disable the command '@loginreward' comment the next lines // * Needs extra commands for typos bindatcmd("relog",strnpcinfo(3)+"::OnLoginCmnd",0,99); bindatcmd("collectreward",strnpcinfo(3)+"::OnLoginCmnd",0,99); bindatcmd("dailyreward",strnpcinfo(3)+"::OnLoginCmnd",0,99); bindatcmd("collectdaily",strnpcinfo(3)+"::OnLoginCmnd",0,99); bindatcmd("nextreward",strnpcinfo(3)+"::OnNextCmnd",0,99); // GM Command to fix the negative time till reward issue // #fixreward <playername> // * Needs extra commands for typos bindatcmd("fixreward",strnpcinfo(3)+"::OnFixCmnd",99,99); // Minimum minutes between collecting daily reward // Day: 22*60 - 24*60 // Week: 10080 .MinWait = 1320; // Minutes before losing the consecutive reward // Day: 48*60 - 50*60 // Week: 20160 .MaxWait = 3000; // What to do upon reaching last day defined // [0] Repeat last day // [1] Restart at 1 .Reset = 1; // Number of mins after logging before collecting prize .Rest = 10; But when i login in game. "This script is say, Reward are limited to 1 per computer sorry" . Whats wrong with my script / config ? Note : - Its my first login so its not Second ID to try login . - When i test use command @dailyreward, etc its say same "This script is say, Reward are limited to 1 per computer sorry" . Please see my attachment for more details.

its work thank you !!

Hello, sorry from my newbie question. I still dont understand about how to set starting item in char.conf. I've set to new player get 1x Neuralizer, 2 Battle Manual, 1 Knife, 1 Cotton Shirt. But player only get 1x Neuralizer and in chat box showing text "Unknown item has taken off". Please give me example when i want to set starting item : 1x Neuralizer, 2 Battle Manual, 1 Knife, 1 Cotton Shirt. Whats the right format in char.conf? Please see my attachment for more details.

Ah thanks for your answer. i will see it

I've use 2015-11-04aRagexe and see the achievement system here. But after i install rathena i'm not found a file to setting / config the achievement system. So i want to ask, are rathena have implement this feature now ? if no, anyone know how to make this feature work ?

Ok after i found it what should i do? ah found it thank you !!

i have disable renewal but doram still appear when i want to make character. how to fix it?

okayy 2015-11-04 noted, thanks !!

2015-11-04 is stable client?? yeaaa if rodex not support for now its ok.. but i see some private server have a doram class in their server?? are is not using rathena?? i just need a doram sprite its work for fun fun only

What newest stable client for using in rathena? so i can use doram system, clan system, all new feature like a roulette/rodex mail.

ok srhmike i will try. Thanks !!

The 99 its changed to 255 all emistry??

My Server its changed max level from 175 to 255 . How to make Aura max level is showed ? i test with /aura on / off its not any aura showed

AH , i'm forget it >.< atoi(gettimestr("%Y%m%d,21)); << what this is mean? so its impossible make a comeback npc ?

Hey rathena. i want to make some script like this illustration : Player a last login is 1 june 2016 player a can claim special reward from comeback is real npc because lastlogin player a is 1 june 2016 so i want to make some npc can read sql at table 'login' column lastlogin , who was a last login is 1 june 2016 or less (31 may 2016 , and previous) can claim special reward from comeback is real npc. anyone have suggestion?