MukkiesftKies

i think this like quest/exchange shop but i want to use sell window for player choosing their headgear from inventory to trade with 1 poring coin. 1 any headgear trade 1 poring coin

@Technoken @Zell thank you so much. it work now.

i just want to make array pass from end; when the script ends. for example :- setarray [email protected]$[0], "Warp","Fly","Shit"; set @menu$,""; for (set @i,0; @i < getarraysize([email protected]$); set @i,@i+1) { if (@i) set @menu$,@menu$+":"; set @menu$,@[email protected]$[@i]; } set @selection,select(@menu$)-1; i take this from https://rathena.org/board/topic/87190-how-to-use-array-as-a-menu/. but when i try to put end; to the end script. array can not be read. because i change menu to id number. like my first post. @Technoken can you show me some example ? hehe

someone help

setarray [email protected][0],501,502; switch(select("Use Super Power:Set Super Power:Close")) { case 1: if (isequipped( )) goto L_Check; case 2: for( set [email protected],0; [email protected] < getarraysize([email protected][[email protected]]); set [email protected],[email protected] + 1 ) set [email protected]$,[email protected]$+getitemname([email protected][[email protected]])+":"; [email protected] = select( [email protected]$ ) - 1; end; << if i remove this countitem can detect what item i choose but straight to L_Check, without select USE SUPER POWER. } L_Check: if( !countitem ([email protected][[email protected]]) ) goto L_NotEnough; delitem [email protected][[email protected]],1; mes "You got Meteor Storm Skill";

setarray [email protected][0],501,502; switch(select("Use Super Power:Set Super Power:Close")) { case 1: if (isequipped( )) goto L_Check; case 2: for( set [email protected],0; [email protected] < getarraysize([email protected][[email protected]]); set [email protected],[email protected] + 1 ) set [email protected]$,[email protected]$+getitemname([email protected][[email protected]])+":"; [email protected] = select( [email protected]$ ) - 1; end; << if i remove this countitem can detect what item i choose but straight to L_Check, without select USE SUPER POWER. } L_Check: if( !countitem ([email protected][[email protected]]) ) goto L_NotEnough; delitem [email protected][[email protected]],1; mes "You got Meteor Storm Skill";

it work. but when i set to yellow potion, countitem still read red potion.

yaa i already try. can count. but when i choose Yellow Potion. my map show this [Error]: buildin_delitem: failed to delete 1 items (AID=2000000 item_id=501).

setarray [email protected][0],501,502; switch(select("Adjust Effect:Close")) { case 1: for( set [email protected],0; [email protected] < getarraysize([email protected][[email protected]]); set [email protected],[email protected] + 1 ) set [email protected]$,[email protected]$+getitemname([email protected][[email protected]])+":"; [email protected] = select( [email protected]$ ) - 1; end; } L_Check: if( countitem ([email protected][[email protected]]) ) goto L_NotEnough; delitem [email protected][[email protected]],1; mes" Ok, Your effect"; Countitem can not find item, what problem with my script ?

i like to use this script for fishing ranking top 10 ( i think this is support section ) Fishing ranking for player got the biggest fish. Top 10. prontera,160,172,0 script Fishing Hole 844,{ //Fishing rod set [email protected],2764; //Fishing Lure set [email protected],2775; //Auto-Fish set [email protected],1; //Auto-Fish on Fail set [email protected],1; Fish: if (isequipped([email protected])) && (isequipped([email protected])){ specialeffect EF_BUBBLE,"Fishing Hole"; soundeffect "fishingrod.wav",0; dispbottom "[Fishing] Casting..."; set [email protected],15; if (isequipped(2550)) { //Fisher's Muffler set [email protected],[email protected] - 2; } if (isequipped(2443)) { //Fisher's Boots set [email protected],[email protected] - 2; } if (isequipped(2764)) { //Fishing Pole set [email protected],[email protected] - 3; } if (isequipped(2775)) { //Fishing Lure set [email protected],[email protected] - 1; } progressbar "ffffff",[email protected]; if (rand(1,20) == 2){ getitem 6096,1; //Fish with Blue Back specialeffect2 EF_TEMP_OK; soundeffectall "success.wav",0,strcharinfo(3); mapannounce strcharinfo(3),strcharinfo(0)+" has caught a Blue Fish!",bc_map,"0xff77ff"; if([email protected]==1){ goto Fish;}else{ end;} } if (rand(1,6) == 1) ||(rand(1,6) == 3) || (rand(1,6) == 6){ setarray [email protected][0],579,908,909,963,956,6049,918,960,910,938,624;// List of Junk/Other set [email protected],[email protected][rand(getarraysize([email protected]))]; getitem [email protected],1; } else { dispbottom "[Fishing] Nothing was caught..."; if([email protected] == 1){ goto Fish;} else{ end;} } if (rand(1,100) == 3){ setarray [email protected][0],644,603,617; set [email protected], [email protected][rand(getarraysize([email protected]))]; getitem [email protected],1; //Reward mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname([email protected])+"!",bc_map,"0x33CC00"; } if([email protected] == 1){ goto Fish;} else{ end;} } else { dispbottom "[Fishing] You need a Rod and Lure."; end; } } and the last. if you remember about hangman event with cutin.

so var must be ($count > 3) right ? i already try and it work. lol lol lol lol lol i spend time with this var for 3 hour and i don't know what i do.

this is my full script prontera,155,157,5 script Haruhi Suzumiya 500,{ if (.knsON) goto L_START; set [email protected]$,"*** ^800000Event Employee^000000 ***"; //--- Dialog When Event Start ----\\ L_Start: if (.count > 5 ) goto L_ANGRY; mes [email protected]$; mes"I lost my school bag. I think someone steal and I know"; mes"him but I'm no sure."; emotion ET_CRY; next; mes [email protected]$; mes"Very big and tall."; mes"Maybe people, maybe monster!"; next; mes [email protected]$; mes"Arghh! I don't know."; next; switch(select("Cooldown. Your school bag safe now.:Hahaha, I dont care about you.")){ case 1: if ( countitem(501) ) { mes [email protected]$; //-- bring item and get reward --\\ mes"Thank you so much!"; mes"Take this as my thanks"; getitem 502,100; close; } else { mes [email protected]$; //-- not enough item. --\\ mes"Are you try to kidding me?"; emotion ET_HNG; sleep2 1000; mes"How dare you?!"; close; } case 2: mes [email protected]$; mes"How dare you?!"; sleep2 1000; mes"I will make sure"; mes"you will regret."+ .count +""; if (!#onetimes) { set #onetimes,1; .count++; sleep2 1000; emotion ET_HNG; close; } sleep2 1000; emotion ET_HNG; close; } L_ANGRY: MES"I HATE YOU!"; CLOSE; OnInit: set .knsON,0; end; OnClock1633: // - start event - \\ set .knsON,1; end; OnClock1711: // - end event - \\ set .knsON,0; end; } - script 100times -1,{ OnClock1634: if (.count < 1) goto L_SUM; end; L_SUM: for( [email protected] = 0; [email protected] < .size; [email protected]++ ){ killmonster .Map$[[email protected]],"All"; monster .Map$[[email protected]],0,0,"--ja--",.MobID,1,strnpcinfo(0)+"::OnKilled"; } end; OnKilled: set .count,.count-50; end; OnInit: .MobID = 1785; setarray .Map$[0],"prontera"; .size = getarraysize( .Map$ ); end; } this script like quest and npc revenge to player who play her.

i use OnClock1601: if (.count < 1) goto L_SUM; end; it work. but when i use like this if (.count > 1) goto L_SUM; or if (.count >= 1) goto L_SUM;. nothing happen. i just want to make if player click npc more than 100 times. monster will spawn. - script 100times -1,{ OnClock1601: if (.count > 1) goto L_SUM; end; L_SUM: for( [email protected] = 0; [email protected] < .size; [email protected]++ ){ killmonster .Map$[[email protected]],"All"; monster .Map$[[email protected]],0,0,"--ja--",.MobID,1,strnpcinfo(0)+"::OnKilled"; } end; OnKilled: set .count,.count - 50; end; OnInit: .MobID = 1785; setarray .Map$[0],"prontera"; .size = getarraysize( .Map$ ); end; }

still don't know. i use 2018-05-16. don't have any clue with this error.

you can try this - script 8to9pm -1,{ OnClock2000: set [email protected],1; end; OnClock2100: set [email protected],0; end; } prontera,150,150,4 script Player vs Player 871,{ mes "[PvP Warper]"; mes "Which arena do you want to go to?"; switch(select("PVP SOLO["+getmapusers("pvp_y_1-2")+"]")){ case 1: if([email protected]) { if( getmapusers( "pvp_y_1-2" ) > 1) goto L_Full; next; warp "pvp_y_1-2",0,0; end; }else{ next; mes"8PM TO 9PM ONLY"; end; } L_Full: mes "Room Full, Please wait"; end; } }

i need this one but doesn't work on latest SVN

when i edit using SQL everything fine. if in-game. my map crash.

player wear any equip but no effect when play any event. like a novice 1/1lvl without change main class to novice..

thanks. i already found it. just need to update all item. credit to owner Shoper 2.1 TH.rar

work! thank you. but can be multi item ?

same. nothing happen with RewardItem. maybe like this RewardItemList = { }, i dont know how. here translated quest OngoingQuestInfoList.lub

[70001] = { Title = "Welcome to Ragnarok Online!", NpcSpr = "4_F_01", Description = { "Spoke with Father Mareusis to become an Acolyte. He ordered you to visit ^000077Father Rubalkabara^000000, who has been Practicing Asceticism near the Relics, Northeast of Prontera City.", }, RewardEXP = "1000", RewardJEXP = "1000", Summary = "Talk to Father Rubalkabara." How to i add monster and reward list ? i already try and try but nothing happen function GetOngoingRewardInfo(questID) local reward = QuestInfoList[questID].RewardItemList if nil == reward then return end for k, v in pairs(QuestInfoList[questID].RewardItemList) do AddOngoingRewardInfo(questID, v.ItemID, v.ItemNum) end end from data\luafiles514\lua files\datainfo\questinfo_f.lub

i think this software is missing. https://rathena.org/board/index.php?/files/file/2597-shoper/ who have this shoper software. can share with me. because i want to create my own shop. thank you. sorry if wrong section. i dont know where to post.

nice one. i can feel like reality.

Thank you maken06 and WhiteEagle