• Content Count

  • Avg. Content Per Day

  • Joined

  • Last visited

Community Reputation

1 Neutral

About Kaleidoscope

  • Rank

Profile Information

  • Gender
  • Location

Contact Methods

  • Discord

Recent Profile Visitors

417 profile views
  1. Kaleidoscope

    Existing event managers

    I haven't seen euphy active in over a year and i am wondering if anyone has a copy of the event manager. Orrrr If anyone has something similar in stock already! Thanks in advanced
  2. Kaleidoscope

    Crazyarashi Ragnarok Services!

    I dropped down to 4 stars for only one sole reason. He POOFED on me! We were in the middle of working, had some IRL crisis told me he was back but never again have i heard from him. I had previously received great work, easy to read code and highly organized. Not to mention the guy is fun to talk with! Quality of work - 9/10 Communication - 5/10* Speed and delivery - 10/10 Pricing - 10/10
  3. Kaleidoscope

    In search of Indoor maps

    Im in search of some indoor maps that meet my servers needs. If anyone has some leads PM me! Also looking for mapper to make some minor edits to a map that i own.
  4. Kaleidoscope

    Sader's Paid Services

    Could have gotten a 5th star but one quality was missing: personality. Excellent work and great timing, couldn't ask for anything better. The only minor complaint is that i wish there was more chit chat lol I like to chit chat and joke around when it comes to working together. Overall loved the work quality and speed. Highly recommended if you need scripting.
  5. Kaleidoscope

    [Showcase] Crystal

    This is awesome! Im surprised no one commented on this already...Id love to actually get a game going with this.
  6. Kaleidoscope

    [Showcase] Navayo + Nav_in01

    This map really brings an island to life! There is so much you can do with this map Im seriously loving your work! Would you consider taking commissions?
  7. Kaleidoscope

    [Showcase] Four Battle Books

    Interesting Idea. Love the the thematics! Would use this as part of an elemental item quest for sure Great work and keep um coming!
  8. Kaleidoscope

    [Showcase] Heidelberg 2018

    The indoor quality is amazing! Would love to see some more work in the future
  9. Kaleidoscope

    Euphy quest shop duplicating

    My current script for the SECOND NPC. I am already currently using this same script and it works. I have changed the original qshop > qshop10 and changed quest_shop > quest_shop10 as well as changed the dummy shop numbers to match. // Shop NPCs -- supplying no argument displays entire menu. // callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}}; //============================================================ trin_in,118,154,3 script Basic Quests 757,{ callfunc "qshop10"; } // Script Core //============================================================ - script quest_shop10 -1,{ function Add; function Chk; function Slot; OnInit: freeloop(1); // ----------------------------------------------------------- // Basic shop settings. // ----------------------------------------------------------- set .Announce,1; // Announce quest completion? (1: yes / 0: no) set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never) set .ShowID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) set .MaxStack,100; // Max number of quest items purchased at one time. // ----------------------------------------------------------- // Points variable -- optional quest requirement. // setarray .Points$[0],"<variable name>","<display name>"; // ----------------------------------------------------------- setarray .Points$[0],"#CASHPOINTS","Cash Points"; // ----------------------------------------------------------- // Shop IDs -- to add shops, copy dummy data at bottom of file. // setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...}; // ----------------------------------------------------------- setarray .Shops$[1],"Upper","Middle","Lower"; // ----------------------------------------------------------- // Quest items -- do NOT use a reward item more than once! // Add(<shop ID>,<reward ID>,<reward amount>, // <Zeny cost>,<point cost>, // <required item ID>,<required item amount>{,...}); // ----------------------------------------------------------- Add(1,60001,1,0,0,7063,300,954,300,969,25,983,1); Add(2,1310,1,0,0,1363,1,1364,1,984,500,4362,500,7315,250); Add(3,13417,1,0,0,1132,1,1175,1,7315,250,984,500,4358,500); // ----------------------------------------------------------- freeloop(0); set .menu$,""; for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1) { set .menu$, .menu$+.Shops$[[email protected]]+":"; npcshopdelitem "qshop10"[email protected],909; } end; OnMenu: set [email protected], getarraysize(@i); if ([email protected]) set @shop_index, select(.menu$); else if ([email protected] == 1) set @shop_index, @i[0]; else { for(set [email protected],0; [email protected]<[email protected]; set [email protected],[email protected]+1) set [email protected]$, [email protected]$+.Shops$[@i[[email protected]]]+":"; set @shop_index, @i[select([email protected]$)-1]; } deletearray @i[0],getarraysize(@i); if (.Shops$[@shop_index] == "") { message strcharinfo(0),"An error has occurred."; end; } dispbottom "Select one item at a time."; callshop "qshop10"[email protected]_index,1; npcshopattach "qshop10"[email protected]_index; end; OnBuyItem: // [email protected][] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... } setarray [email protected][0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]); copyarray [email protected][3],getd(".q_"[email protected]_index+"_"[email protected][0]+"[0]"),getarraysize(getd(".q_"[email protected]_index+"_"[email protected][0])); set [email protected][2],[email protected][1]*[email protected][3]; if ([email protected][2] || [email protected][2] > 30000) { message strcharinfo(0),"You can't purchase that many "+getitemname([email protected][0])+"."; end; } mes "[Basic Quest]"; mes "Reward: ^0055FF"+(([email protected][2] > 1)[email protected][2]+"x ":"")+Slot([email protected][0])+"^000000"; mes "Requirements:"; disable_items; if ([email protected][4]) mes " > "+Chk(Zeny,[email protected][4]*[email protected][1])+([email protected][4]*[email protected][1])+" Zeny^000000"; if ([email protected][5]) mes " > "+Chk(getd(.Points$[0]),[email protected][5]*[email protected][1])+([email protected][5]*[email protected][1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+([email protected][5]*[email protected][1])+")^000000"; if ([email protected][6]) for(set [email protected],6; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2) mes " > "+Chk(countitem([email protected][[email protected]]),[email protected][[email protected]+1]*[email protected][1])+((.ShowID)?"{"[email protected][[email protected]]+"} ":"")+Slot([email protected][[email protected]])+" ("+countitem([email protected][[email protected]])+"/"+([email protected][[email protected]+1]*[email protected][1])+")^000000"; next; setarray @qe[1], getiteminfo([email protected][0],5), getiteminfo([email protected][0],11); if (@qe[2] > 0 && ((@qe[1] & EQP_HEAD_LOW) || (@qe[1] & EQP_HEAD_TOP) || (@qe[1] & EQP_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_TOP) || (@qe[1] & EQP_COSTUME_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_LOW) || (@qe[1] & EQP_GARMENT) || (@qe[1] & EQP_COSTUME_GARMENT))) set [email protected],1; addtimer 1000, strnpcinfo(0)+"::OnEnd"; while(1) { switch(select(" ~ Purchase ^0055FF"+getitemname([email protected][0])+"^000000:"+(([email protected] && [email protected][7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (@qe[0]) { mes "[Quest Shop]"; mes "You're missing one or more quest requirements."; close; } if (!checkweight([email protected][0],[email protected][2])) { mes "[Basic Quest]"; mes "^FF0000You need "+((([email protected][2]*getiteminfo([email protected][0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } if ([email protected][4]) set Zeny, Zeny-([email protected][4]*[email protected][1]); if ([email protected][5]) setd .Points$[0], getd(.Points$[0])-([email protected][5]*[email protected][1]); if ([email protected][6]) for(set [email protected],6; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2) delitem [email protected][[email protected]],[email protected][[email protected]+1]*[email protected][1]; getitem [email protected][0],[email protected][2]; if (.Announce) announce strcharinfo(0)+" has created "+(([email protected][2] > 1)[email protected][2]+"x "+getitemname([email protected][0]):callfunc("F_InsertArticle",getitemname([email protected][0])))+"!",0; specialeffect2 EF_FLOWERLEAF; close; case 2: setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1; if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2]; else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2]; else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2]; else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2]; break; case 3: close; } } OnEnd: if (@qe[7]) { changelook LOOK_HEAD_BOTTOM, @qe[3]; changelook LOOK_HEAD_TOP, @qe[4]; changelook LOOK_HEAD_MID, @qe[5]; changelook LOOK_ROBE, @qe[6]; } deletearray @qe[0],8; end; function Add { if (getitemname(getarg(1)) == "null") { debugmes "Quest reward #"+getarg(1)+" invalid (skipped)."; return; } setarray [email protected][0],getarg(2),getarg(3),getarg(4); for(set [email protected],5; [email protected]<getargcount(); set [email protected],[email protected]+2) { if (getitemname(getarg([email protected])) == "null") { debugmes "Quest requirement #"+getarg([email protected])+" invalid (skipped)."; return; } else setarray [email protected][[email protected]],getarg([email protected]),getarg([email protected]+1); } copyarray getd(".q_"+getarg(0)+"_"+getarg(1)+"[0]"),[email protected][0],getarraysize([email protected]); npcshopadditem "qshop10"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); return; } function Chk { if (getarg(0) < getarg(1)) { set @qe[0],1; return "^FF0000"; } else return "^00FF00"; } function Slot { set [email protected]$,getitemname(getarg(0)); switch(.ShowSlot) { case 1: if (!getitemslots(getarg(0))) return [email protected]$; case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return [email protected]$+" ["+getitemslots(getarg(0))+"]"; default: return [email protected]$; } } } function script qshop10 { deletearray @i[0],getarraysize(@i); for(set [email protected],0; [email protected]<getargcount(); set [email protected],[email protected]+1) set @i[[email protected]],getarg([email protected]); doevent "quest_shop10::OnMenu"; end; } // Dummy shop data -- copy as needed. //============================================================ - shop qshop11 -1,909:-1 - shop qshop12 -1,909:-1 - shop qshop13 -1,909:-1 - shop qshop14 -1,909:-1 - shop qshop15 -1,909:-1
  10. Kaleidoscope

    Euphy quest shop duplicating

    Still not working. I can make it this far: setarray .Shops$[1],"Upper","Middle","Lower"; once i select of those menus it just says pick one item at a time in the text box but with no menu pop up.
  11. Kaleidoscope

    Euphy quest shop duplicating

    Im trying to make duplicates of euphy's quest shop but im running into a slight problem: Its still loading the same items from the original NPC. Anyone know what i need to change to prevent it from calling the other shops variables?
  12. Kaleidoscope

    Brainstorm group session!

    Hey everyone! Updating the topics for the week. Please be sure to check in tonight at 9:30PM EST!
  13. Kaleidoscope

    Brainstorm group session!

    Next week we will plan for a longer session. This was on the fly and i was still semi-busy with work
  14. Kaleidoscope

    Brainstorm group session!

    Thanks to you and @TheDerpySupport for stopping by! @Cyro was a little late per usual.... but i wont punish him this time
  15. Kaleidoscope

    Brainstorm group session!

    Hey everyone! I've been in hibernation for a few months now but im ready to come out and play! My work and personal life needed some extra attention so i had to put my project on hold but I am ready to dive back into things full force and get this thing rolling. I am looking to see who would be interested in weekly brainstorming sessions to discuss various Ragnarok mechanic related gibbers. Some main topics im looking to cover in this weeks discussion are: ~Updated events // in depth dungeon planning ~Boss battling systems ~luk based formulas // using luck as an outcome for game play If anyone is interested in attending please feel free to join our Friday session tonight at 9:30PM EST. I have sent a few invites on discord out already but if you haven't received one you can just join with the link below! The Weekly Focus: https://discord.gg/TTkxpGq Ill be leading the discussion, Ill wait till about 9:45 for the ones who are usually late. ( You know who you are ) Cant wait to see you all there!