Requesting Dyna hat

elcontrol00 · May 20, 2014

Really simple just read the Topic so what i'm requesting here today is a Headgear Idk the real name back in the day 4 years ago in a server called RebelRO they used to have it and i really like that Headgear so basically what it is its a Headgear that you can change to any type of style you want without having to actually change your headgear i'll explain.

Ex. Lets say i have on Dyna hat upper Basically what would happen is if I whisper NPC:Dyna and say (for example) upper#5381 it will change my characters upper dyna to look like headgear 5381 but i will still be wearing the Dyna hat.

So what i'm basically asking for is a headgear disguise lol

Skorm · May 20, 2014

//Morphogenic Hat Script
//Allows a player to change their look to absolutely any hat available or to a defined upper limit. Check the "OnInit" label for information on this.
//
//By Slam

-	script	Morpho	-1,{
	OnWhisperGlobal:
		goto Validation_whisp;
		end;

	Validation_whisp:
		set .@var0$, @whispervar0$;
		set .@var1$, @whispervar1$;
	//	set .@i,0;
	//	while(.@i < getarraysize(.morpho_disallowed)){
        //           if(@whispervar1$ == .morpho_disallowed$[.@i]){
        //                goto denied_unauthorized;
        //            } else {
        //                set .@i,.@i+1;
        //            }
        //        }
		set .@ii,0;
		while(.@ii < 6){
			if(@whispervar0$ == .keywords$[.@ii]){
				goto keyword;
			}
		set .@ii,.@ii+1;
		}
		dispbottom "---------------[Morphohat Helper]---------------";
		dispbottom " ";
		dispbottom "Sorry, I didn't understand the option you have";
		dispbottom "have given me. Please type 'help' for more info";
		dispbottom " ";
		end;

	keyword:

	switch(.@ii){

		case 0:
			goto help;

		case 1:
			goto tophead;

		case 2:
			goto midhead;

		case 3:
			goto lowhead;

		case 4:
			goto clear;

		case 5:

			goto info;

}

	help:

		dispbottom "---------------[Morphohat Helper]---------------";
		dispbottom " ";
		dispbottom "Welcome to the Morphohat Settings NPC!";
		dispbottom "I can help you set what your Morphohat looks like";
		dispbottom " ";
		dispbottom "To use this NPC, whisper NPC:Morpho (you should";
		dispbottom "know this already) with upper/middle/lower or ";
		dispbottom "wing. The wing section is not yet implemented";
		dispbottom "however. Now, to set your Morphohat use the ";
		dispbottom "following layout:";
		dispbottom " ";
		dispbottom "upper#5232 - This will make it a Pink Kitty";
		dispbottom " ";
		dispbottom "Protip: Use RateMyServer.net for item IDs.";
		end;

	tophead:

		if(!isequipped(.top_morpho)){
			goto wrong_headgear;
		}

		set .@viewid,getiteminfo(.@var1$,11);
		set .@equipslot,getiteminfo(.@var1$,5);
	//	if(.@equipslot != 256 && .@equipslot != 768){ //Upper and Upper+Mid Only. Comment out this line and the two below it to remove this functionality.
	//		goto denied_wrongslot;
	//	}
		set viewid_top,.@viewid;
		if(.@viewid != 0 && .@viewid != -1){
			dispbottom "Selected headgear ID: "+.@viewid;
				setlook 4,.@viewid;
		} else {
                dispbottom "Invalid headgear ID.";
                }
		end;

	midhead:

        if(!isequipped(.mid_morpho)){
            goto wrong_headgear;
        }
        set .@viewid,getiteminfo(.@var1$,11);
		set .@equipslot,getiteminfo(.@var1$,5);
     //   if(.@equipslot != 512 && .@equipslot != 513){ //Mid and Mid+Lower only. Comment out this line and the two below it to remove this functionality.
     //       goto denied_wrongslot;
     //   }
        set viewid_mid,.@viewid;
        if(.@viewid != 0 && .@viewid != -1){
        dispbottom "Selected headgear ID: "+.@viewid;
        setlook 5,.@viewid;
        } else {
        dispbottom "Invalid headgear ID.";
        }


        end;

	lowhead:

        if(!isequipped(.low_morpho)){
             goto wrong_headgear;
        }
        set .@viewid,getiteminfo(.@var1$,11);
		set .@equipslot,getiteminfo(.@var1$,5);
      //  if(.@equipslot != 1){ // Lower Only. Comment out this line and the two below it to remove this functionality.
      //      goto denied_wrongslot;
      // }
        set viewid_low,.@viewid;
        if(.@viewid != 0 && .@viewid != -1){
        dispbottom "Selected headgear ID: "+.@viewid;
        setlook 3,.@viewid;
        } else {
        dispbottom "Invalid headgear ID.";
        }

        end;

	clear:

		set viewid_low, 0;
		set viewid_mid, 0;
		set viewid_top, 0;
		if (getequipid(1) == .top_morpho)
			setlook 5,0;
		if (getequipid(9) == .mid_morpho)
			setlook 4,0;
		if (getequipid(10) == .low_morpho)
			setlook 3,0;
		dispbottom "Your Morphing Hats list has been cleared.";
		end;

	info:

		dispbottom "---------------[Morphohat Helper]---------------";
		dispbottom " ";
		dispbottom "You currently have the following items set for your Morpho hat:";
		dispbottom "Upper - "+viewid_top;
		dispbottom "Middle - "+viewid_mid;
		dispbottom "Lower - "+viewid_low;
		end;

	denied_wrongslot:
		dispbottom "Sorry, this headgear was not designed for this headgear slot.";
		end;

	denied_unauthorized:

		dispbottom "Sorry, you cannot change your Morphohat into this headgear. Please try another.";
		end;

	wrong_headgear:

		dispbottom "Sorry, you do not currently have your Morphohat equipped. Please equip it and try again!";

		end;

	OnInit:
		//Array of keywords for the script
		setarray .keywords$[0],"help","upper","middle","lower","clear","info","wing";

		//Change this to the upper limit of the headgears that you wish to make available
		setarray .morpho_disallowed$[0],"9001","5386","5387","5391","5394","5407","5408","5419","5428","5436","5437","5438","5439","5440","5441","5442","5443","5444","5445","5446","5447","5448","5449","5459","5481","5486","5487","5488","5492","5493","5494","5495","5508","5516","5517","5520","5532","5533","5534","5535","5540","5541","5542","5543","5544","5551","5552","5553","5560","5561","5562","5571","5575","5576","5577","5578","5583","5584","5587","5595","5600","5601","5602","5603","5604","5605","5606","5607","5608","5609","5610","5611","5612","5613","5614","5615","5616","5617","5618","5619","5620","5621","5622","5623","5624","5625","5626","5627","5628","5629","5630","5631","5632","5633","5634","5635","5636","5637","5638","5639","5640","5641","5642","5643","5644","5645","5646","5647","5648","5649","5650","5651","5652","5653","5654","5655","5656","5657","5658","5659","5660","5661","5662","5663","5664","5665","5666","5667","5668","5669","5670","5671","5672","5673","5674","5675","5676","5677","5678","5679","5680","5681","5682","5683","5684","5685","5686","5687","5688","5689","5690","5691","5692","5693","5694","5695","5696","5697","5698","5699","5700","5701","5702","5703","5704","5705","5706","5707","5708","5709","5710","5711","5712","5713","5714","5715","5716","5717","5718","5719","5720","5721","5722","5723","5724","5725","5726","5727","5728","5729","5730","5731","5732","5733","5734","5735","5736","5737","5738","5739","5740","5741","5742","5743","5744","5745","5746","5747","5748","5749","5750","5751","5752","5753","5754","5755","5756","5757","5758","5759","5760","5761","5762","5763","5764","5765","5766","5767","5768","5769","5770","5771","5772","5773","5774","5775","5776","5777","5778","5779","5780","5781","5782","5783","5784","5785","5786","5787","5788","5789","5790","5791","5792","5793","5794","5795","5796","5797","5798","5799","5809","5812","5814","5824","23134","5070"; //inb4OVERNINETHOUSAND

		//Equip IDs - Change these to the ID numbers of the hat you wish to designate as the Morphing hat
		set .top_morpho,25092;
		set .mid_morpho,25093;
		set .low_morpho,25094;
		end;
}
//Use 'callfunc "MorphoEquip",<1,2,3>;' for the "OnEquip" script to let people know that they need to set the view ID or to set the viewid if the person has already set one.
//If you wish to make the "Morph" an Account bound variable, simply change all instances of "viewid_" with "#viewid_"
function	script	MorphoEquip	{
	set .@equipslot,getarg(0);
	switch(.@equipslot) {
		case 1:  //Upper
			if (!uppernotify) {
					dispbottom "No headgear set for upper. PM \"NPC:Morpho\" with the word \"help\" for more information.";
					set uppernotify,1;
					end;
				}
			setlook 4,viewid_top;
			end;
		case 2: //Mid
			
			if (!middlenotify) {
					dispbottom "No headgear set for middle. PM \"NPC:Morpho\" with the word \"help\" for more information.";
					set middlenotify,1;
					end;
				}
			setlook 5,viewid_mid;
			end;
		case 3: //Lower
			if (!lowernotify) {
				dispbottom "No headgear set for lower. PM \"NPC:Morpho\" with the word \"help\" for more information.";
				set lowernotify,1;
				end;
			}
			setlook 3,viewid_low;
			end;
    }
}

Script as is...

Pneuma · May 20, 2014

Really simple just read the Topic so what i'm requesting here today is a Headgear Idk the real name back in the day 4 years ago in a server called RebelRO they used to have it and i really like that Headgear so basically what it is its a Headgear that you can change to any type of style you want without having to actually change your headgear i'll explain.

Ex. Lets say i have on Dyna hat upper Basically what would happen is if I whisper NPC:Dyna and say (for example) upper#5381 it will change my characters upper dyna to look like headgear 5381 but i will still be wearing the Dyna hat.

So what i'm basically asking for is a headgear disguise lol

Thats just a global whisper system with a check if they're wearing the headgear

It's a script, not graphical.

Edited May 20, 2014 by Pneuma

elcontrol00 · May 20, 2014

Oh wrong section -.- my bad close! ~But if anyone has this script pm me!

Really simple just read the Topic so what i'm requesting here today is a Headgear Idk the real name back in the day 4 years ago in a server called RebelRO they used to have it and i really like that Headgear so basically what it is its a Headgear that you can change to any type of style you want without having to actually change your headgear i'll explain.

Ex. Lets say i have on Dyna hat upper Basically what would happen is if I whisper NPC:Dyna and say (for example) upper#5381 it will change my characters upper dyna to look like headgear 5381 but i will still be wearing the Dyna hat.

So what i'm basically asking for is a headgear disguise lol

Thats just a global whisper system with a check if they're wearing the headgear

It's a script, not graphical.

i was looking arround again and i found this is think this is it O.o not sure i'm going to test it out http://rathena.org/board/topic/82774-stolaos-all-in-one-headgear-function-v100/

Edited May 20, 2014 by elcontrol00

Pneuma · May 20, 2014

Oh wrong section -.- my bad close! ~But if anyone has this script pm me!

Really simple just read the Topic so what i'm requesting here today is a Headgear Idk the real name back in the day 4 years ago in a server called RebelRO they used to have it and i really like that Headgear so basically what it is its a Headgear that you can change to any type of style you want without having to actually change your headgear i'll explain.

Ex. Lets say i have on Dyna hat upper Basically what would happen is if I whisper NPC:Dyna and say (for example) upper#5381 it will change my characters upper dyna to look like headgear 5381 but i will still be wearing the Dyna hat.

So what i'm basically asking for is a headgear disguise lol

Thats just a global whisper system with a check if they're wearing the headgear

It's a script, not graphical.

i was looking arround again and i found this is think this is it O.o not sure i'm going to test it out http://rathena.org/board/topic/82774-stolaos-all-in-one-headgear-function-v100/

That sounds like what you're talking about but in a different method.

elcontrol00 · May 20, 2014

Oh i see well i guess keeping looking thanks though /no1 /bo

Najara · May 20, 2014

Moved to Script Request.

elcontrol00 · May 20, 2014

Thanks this looks good I still haven't tested it out have to change the ID numbers for the assigned morphing hat i want and add all the custom headgear i wish to make available but when I'm done I'll test it thanks!

Unknown · May 20, 2014

Is it possible to create a command that works only if you are wearing that hat and allows you to change its look?

Skorm · May 20, 2014

Is it possible to create a command that works only if you are wearing that hat and allows you to change its look?

	OnWhisperGlobal:
		if(isequipped(<item_id>))
			goto Validation_whisp;
		end;

If the head gear doesn't take all the head slots they can still morph other parts.

elcontrol00 · May 20, 2014

It works thanks! also some ID's don't work such as 5401 do i have to add it on the script line :

setarray .morpho_disallowed$[0],"9001","5386","5387","5391","5394","5407","5408","5419","5428","5436"

Edited May 20, 2014 by elcontrol00

elcontrol00 · July 19, 2014

Is it possible to create a command that works only if you are wearing that hat and allows you to change its look?
	OnWhisperGlobal:
		if(isequipped(<item_id>))
			goto Validation_whisp;
		end;
If the head gear doesn't take all the head slots they can still morph other parts.

Is it possible to put this script to save the last item headgear you had on when you un equip and equip it back? Ex. I have headgear A on if i change heqadgear A to let's say Angel Wings when i take off headgear A and put Headgear A back on it will stay as Angel Wings untill i change it with the commands like upper#ID

BTW Headgear A= Dyna hat

Skorm · July 20, 2014

Is it possible to create a command that works only if you are wearing that hat and allows you to change its look?
	OnWhisperGlobal:
		if(isequipped(<item_id>))
			goto Validation_whisp;
		end;
If the head gear doesn't take all the head slots they can still morph other parts.
Is it possible to put this script to save the last item headgear you had on when you un equip and equip it back? Ex. I have headgear A on if i change heqadgear A to let's say Angel Wings when i take off headgear A and put Headgear A back on it will stay as Angel Wings untill i change it with the commands like upper#ID

BTW Headgear A= Dyna hat

If you add "callfunc "MorphoEquip",<1,2,3>;" to the OnEquip segment of item A's datum it should already do that...

elcontrol00 · July 22, 2014

20228,_Dyna_Upper, Dyna Upper,5,5,0,10,,0,,4,0xFFFFFFFF,7,2,256,,1,,0,{ bonus bAllStats,35; bonus2 bAddRace,RC_DemiHuman,20; bonus2 bAddRace,RC_Player,20; },{callfunc "MorphoEquip",<1,2,3>;},{}

Edited July 30, 2014 by elcontrol00

Skorm · July 30, 2014

20228,_Dyna_Upper,Dyna Upper,5,5,0,10,,0,,4,0xFFFFFFFF,7,2,256,,1,,0,{ bonus bAllStats,35; bonus2 bAddRace,RC_DemiHuman,20; bonus2 bAddRace,RC_Player,20; },{ callfunc "MorphoEquip", 1; },{}

elcontrol00 · July 31, 2014

Thanks a lot man it works now!

Sign In

Requesting Dyna hat

Question

Link to comment

Share on other sites

15 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members