Jump to content

MukkiesftKies

Members
  • Posts

    123
  • Joined

  • Last visited

Everything posted by MukkiesftKies

  1. script error on npc/myheart/custom/test.txt line 29 parse_callfunc: expected ')' to close argument list 24 : set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":"; 25 : } 26 : set .@Rune,select( .@RuneMenu$ ) - 1; 27 : mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000"; 28 : next; * 29 : .@slot = select("Slot 1"':'"Slot 2":"Slot 3":"Slot 4"); 30 : next; 31 : if( select("Confirm:Cancel") == 1 ){ 32 : delitem .EquipID[.@Equip],1; 33 : if(.@slot == 1) 34 : getitem2 .EquipID[.@Equip],1,1,0,0,.RuneID[.@Rune],0,0,0; i found error at line 29.
  2. how about 2nd and 3rd ? I want players may choose to place their slot on 2nd 3rd and 4th.
  3. who can help me to add slot for 2nd , 3rd and 4th ? prontera,155,181,5 script Sample 757,{ mes "Which Armor you want to Enchant ?"; mes "Make sure there is no Card / Rune in it."; next; setarray .EquipID[0],2301,2302,2303,2304,2305,2306,2307,2308,2309,2310; for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ){ set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":"; } set .@Equip,select( .@EquipMenu$ ) - 1; if( !countitem( .EquipID[.@Equip] ) ){ mes "You didnt have this Equipment with you."; close; } mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000"; switch( select( "Strength:Intelligent:Dexterity:Agility:Vitality:Luck" )){ Case 1: setarray .RuneID[0],4700,4701,4702,4703,4704,4705,4706,4707,4708,4709; break; Case 2: setarray .RuneID[0],4710,4711,4712,4713,4714,4715,4716,4717,4718,4719; break; Case 3: setarray .RuneID[0],4720,4721,4722,4723,4724,4725,4726,4727,4728,4729; break; Case 4: setarray .RuneID[0],4730,4731,4732,4733,4734,4735,4736,4737,4738,4739; break; Case 5: setarray .RuneID[0],4740,4741,4742,4743,4744,4745,4746,4747,4748,4749; break; Case 6: setarray .RuneID[0],4750,4751,4752,4753,4754,4755,4756,4757,4758,4759; break; } for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 ){ set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":"; } set .@Rune,select( .@RuneMenu$ ) - 1; mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000"; next; if( select("Confirm:Cancel") == 1 ){ delitem .EquipID[.@Equip],1; getitem2 .EquipID[.@Equip],1,1,0,0,0,0,0,.RuneID[.@Rune]; mes "Done."; mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000"; mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000"; } close; }
  4. Can help me to modify this script. make list for heagear to slot only. example :- Upper Headgear List: - 5105 - 5106 - 5107 after you select one of them which is in list. you can put orb inside headgear. prontera,151,166,4 script Enchant Expert 712,{ mes .npc$; mes "Hello there!"; mes "I can enchant your items,"; mes "for a small fee of "+.pric+"z."; emotion e_no1,0; next; if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; } if(Zeny<.pric) { mes .npc$; mes "I'm sorry you don't have enough Zeny, please come back later."; close; } mes .npc$; mes "Which item would you like to enchant?"; next; for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ) set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":"; set .@Equip,select( .@EquipMenu$ ) - 1; if( !countitem( .EquipID[.@Equip] ) ){ mes "You didnt have this Equipment with you."; close; } select(.@EquipMenu$); set .@eq_loc, @menu; set .@eq_itm, getequipid(.@eq_loc); if(.@eq_itm<0) { mes .npc$; mes "Hmm, I don't think you have anything equipped there."; close; } set .@EquipMenu$, ""; set .@a, .en_orb[0]; while((set(.@a,.@a+1)-1)<=.en_orb[1]) if(getiteminfo(.@a-1,2)>-1) if(set(.@c,countitem(.@a-1))) { set .@EquipMenu$, .@EquipMenu$+getitemname(.@a-1)+" x"+.@c+":"; set .@b,.@b+1; set .@item[.@b], .@a-1; } if(.@EquipMenu$=="") { mes .npc$; mes "Hmm, you don't seem to have any enchantment orbs."; close; } mes .npc$; mes "Please, select an enchantment from the menu."; next; select(.@EquipMenu$); set .@itm, .@item[@menu]; set .@EquipMenu$, ""; set .@a, 0; while((set(.@a,.@a+1))<4) { if(getequipcardid(.@eq_loc,.@a)) set .@EquipMenu$, .@EquipMenu$+(.@a+1)+.crd_c$[.@a]+" Slot- [^a92435"+getitemname(getequipcardid(.@eq_loc,.@a))+"^000000]:"; else set .@EquipMenu$, .@EquipMenu$+(.@a+1)+.crd_c$[.@a]+" Slot- [^30ad25Empty^000000]:"; } setarray .@card, getequipcardid(.@eq_loc,0), getequipcardid(.@eq_loc,1), getequipcardid(.@eq_loc,2), getequipcardid(.@eq_loc,3); mes .npc$; mes "Select a slot."; next; set .@men, select(.@EquipMenu$); set .@eqrf, getequiprefinerycnt(.@eq_loc); if(getequipcardid(.@eq_loc,@menu)) { mes .npc$; mes "Would you like me to remove this card?"; next; if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; } getitem getequipcardid(.@eq_loc,.@men),1; unequip(.@eq_loc); delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3]; set .@card[.@men], 0; getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3]; } if(rand(100)>.perc) { mes .npc$; mes "I'm sorry but I've failed you!"; misceffect 155; emotion e_sob,0; set Zeny,Zeny-.pric; close; } set Zeny,Zeny-.pric; delitem .@itm,1; delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3]; set .@card[.@men], .@itm; getitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@card[0], .@card[1], .@card[2], .@card[3]; misceffect .efet; emotion e_no1,0; mes .npc$; mes "All done!"; equip .@eq_itm; close; //NPC Constants OnInit: //=-=-=-=-=-=-=Configuration=-=-=-=-=-=-= set .npc$ , "[^0000FFEnchant Expert^000000]"; // NPC Name set .pric , 1000000; // Price set .efet , 154; // Effect Number set .perc , rand(50,80); // Percent setarray .crd_c$, "st", "nd", "rd", "th"; // Count setarray .en_orb, 4700, 4862; // Range of IDs selected for enchanting. setarray .EquipID[0], 2220,2221,2226,2227,2224,2225,2222,2223,2264,5170; //=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-= }
  5. I use the example at rathena/eathena and combine but be like that. so OnPCLoadMapEvent: no function for showevent and without OnPCLoadMapEvent: can use for showevent ?? btw thanks, your script very simple.
  6. Hello, i would like to try use showevent using different npc but error. This npc works like this. When new player login, the emotion will show at Newbie Gift NPC. prontera,164,174,4 script Newbie Gift 115,{ if( !#Freebiess ){ set #Freebiess,1; mes "Welcome...this is your gift..."; getitem 1530,1; showevent 0,0; }else{ mes "You have claim the Reward already."; } close; OnNewbie: showevent 1,0; end; } - script loginaa -1,{ OnPCLoginEvent: donpcevent "Receptionist::OnNewbie"; end; } [Error]: script_rid2sd: fatal error ! player not attached! [Debug]: Function: showevent (2 parameters): [Debug]: Data: number value=1 [Debug]: Data: number value=0 [Debug]: Source (NPC): Receptionist at prontera (164,174)
  7. sorry for the post. can i know, how to change directly to the 2nd slot until 4th slot only?
  8. how many percent if Apple of Idun is 190 on SC_INCMHPRATE ? i want make npc buff have skill apple of idun .
  9. it work Emistry ! Thanks Emistry and Anakid for help me :3
  10. still did not work. it's still the same. only works on if(point> 2)
  11. Hi here you go ! http://www.mediafire.com/download/01tr6n0f5b290d3/Coliseum_Map.rar Credits to the creator of the map. SlashGeeGee thank you so much SlashGeeGee !
  12. anyone can give me . http://www.eathena.ws/board/lofiversion/index.php/t239164.html
  13. This point is used to OnPCDieEvent. every time a player dies, they will get a point until player die 3 times in a row. players will be able to sc_start. Farebury,146,139,5 script Arena Master 808,{ if( select("PvP Colosseum [ "+getmapusers("arena01")+"/50 ]:PvP Deathmatch [ "+getmapusers("arena02")+"/30 ]") == 1 ) { if( getmapusers("arena01") >= 50 ) { mes "[Arena Master]", "I'm sorry but the PVP Room is already full!"; close; } warp "arena01",49,24; percentheal 100,100; close; } if( getmapusers("arena02") >= 30 ) { mes "[Arena Master]", "I'm sorry but the PVP Room is already full!"; close; } addtimer 300000,"Arena Master::OnTimeout"; set points,0; warp "arena02",0,0; percentheal 100,100; sc_end SC_ALL; close; OnPCDieEvent: set points,points+1; getmapxy .@map$, .@x, .@y, 0; if( .@map$ != "arena02" ) end; sleep2 2; dispbottom "You will respawn in 5 Seconds."; cutin "respawn",4; sleep2 5000; warp .@map$, .@x, .@y; percentheal 100,100; if(points > 2) { sc_start SC_BLESSING,360000,10; if(points > 3) { sc_start SC_EDP,360000,5; sc_start SC_ENDURE,360000,10; sc_start SC_ANGELUS,360000,10; if(points > 4) { sc_start SC_MAGNIFICAT,360000,5; sc_start SC_GLORIA,360000,5; sc_start SC_ADRENALINE2,360000,1; sc_start SC_IMPOSITIO,360000,5; sc_start SC_SUFFRAGIUM,360000,3; sc_start SC_BLESSING,360000,10; sc_start SC_INCREASEAGI,360000,10; sc_start SC_WEAPONPERFECTION,360000,10; sc_start SC_OVERTHRUST,360000,5; end; OnTimeout: dispbottom "5 minutes has been elapsed."; warp "SavePoint",0,0; end; } When I do like this, it only works on if(points > 2) { if(points > 2) { sc_start SC_BLESSING,360000,10; if(points > 3) { sc_start SC_EDP,360000,5; sc_start SC_ENDURE,360000,10; sc_start SC_ANGELUS,360000,10; if(points > 4) { sc_start SC_MAGNIFICAT,360000,5; sc_start SC_GLORIA,360000,5; sc_start SC_ADRENALINE2,360000,1; sc_start SC_IMPOSITIO,360000,5; sc_start SC_SUFFRAGIUM,360000,3; sc_start SC_BLESSING,360000,10; sc_start SC_INCREASEAGI,360000,10; sc_start SC_WEAPONPERFECTION,360000,10; sc_start SC_OVERTHRUST,360000,5; end;
  14. I think by account I'm very jealous of you for not being able to make this simple script -__-"
  15. Hard to i explain cause i don't know to speak english , hehe. like this i mean :- Play a total of 1 hour each day (limit: 1 item per day). I have tried the script, but there is an error in else if( checkidle() > 300 ) {
  16. Hmm , player get item 1 time per day but need to online 60minutes.
  17. How can get item every 60 minutes but per day ? - script hourlypoints -1,{ //--Start of the Script OnPCLoginEvent: attachnpctimer ""+strcharinfo(0)+""; initnpctimer; end; OnTimer30000: //Check if Vending (normal or @at) if(checkvending() >= 1 || checkchatting() == 1) { dispbottom "The hourly points event stopped because you were vending / chatting. Please relog if you wish to start again."; stopnpctimer; end; } //Check if Idle getmapxy( .@map$, .@x, .@y, 0 ); if(@map$ == .@map$ && @x == .@x && @y == .@y) { set @afk, @afk + 1; } //If move timer resets else { set @afk, 0; } set @map$, .@map$; set @x, .@x; set @y, .@y; //Idle Check for 5 Minutes if(@afk == 5) { dispbottom "The hourly points event stopped because you were idle for 5 minutes. Please relog if you wish to start again."; stopnpctimer; end; } end; OnTimer60000: set @minute, @minute + 1; //Check for 1 Minute if(@day<1) { dispbottom "I'm sorry but you've already get this day"; } if(@minute == 60){ set @minute,0; getitem 7227,1; dispbottom "You received 1 "+getitemname( 7227 )+" by staying ingame for 1 hour"; set @consecutive_hour, @consecutive_hour + 1; } //Check for 12 hours consecutive if(@consecutive_hour == 6) { set @consecutive_hour,0; getitem 7227,1; dispbottom "You received 6 "+getitemname( 7227 )+" by staying ingame for consecutive of 6 hour"; } stopnpctimer; initnpctimer; end; }
  18. @Saisho done Thanks Saisho. I really don't know about this . Sorry
  19. @kenshn111 spam what ? @Saisho Yaa , cause my function pot useful for on and off the custom mount . Like RO2 Riding Skill >.<" for sure it's hard to make riding skill so I just use the pot.
  20. Hello , I am looking for a Pot can be Expired . I have tried but did not work because when eating pot , it will spam a expired time .
  21. Thanks Capuche and nanakiwurtz . You will make my PvP more interesting: D
×
×
  • Create New...