DevilSupremeRO

October 20, 2021

is there a way to disable GM commands inside the castles?

September 15, 2021

//===== rAthena Script =======================================
//= Stylist
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= Changes your hair style, hair color, and cloth color.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.1 Switched to 'getbattleflag', credits to Saithis. [Euphy]
//= 1.2 Added Dressroom function for 3rd class only. [Masao]
//============================================================

iz_ac02,132,172,6    script    Stylist#custom_stylist    2_M_DYEINGER,{
OnTalk:
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
    setarray .@Look[1],
        LOOK_CLOTHES_COLOR,
        LOOK_HAIR,
        LOOK_HAIR_COLOR;
    mes .npc$;
    mes "Hey ^008aff"+strcharinfo(0)+"^000000. Im a super stylist. Want to try out my services?";
    mes "I can customize your character's appearance in a hand full of ways.";
    next;
    set .@s, select(.bcor$+"Cloth color:"+.bcor$+"Hairstyle:"+.bcor$+"Hair color:"+.bcor$+"Dress Room");
    if(.@s == 4){
        callfunc "F_DRESSROOM";
        close;
    }
    if(.@s == 1){
    if (( getlook(LOOK_BODY2) == 5 ) || ( getlook(LOOK_BODY2) == 2 ) || ( getlook(LOOK_BODY2) == 3 ) || ( getlook(LOOK_BODY2) == 4 )) {
        setlook    LOOK_CLOTHES_COLOR,0;
        mes .npc$;
        mes "Cloathes color not available for Body Custom.";
        close;
        }
    }
    if(Class == Job_Summoner){
    setarray .@Styles[1],
        3,//max_cloth_color
        10,//max_hair_style
        8;//max_hair_color
    }else{
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
            }

    set .@Revert, getlook(.@Look[.@s]);
    set .@Style,1;
    while(1) {
        setlook .@Look[.@s], .@Style;
        message strcharinfo(0),"This is style #"+.@Style+".";
        switch(select(.bcor$+"Next (^0055FF"+((.@Style!=.@Styles[.@s])?.@Style+1:0)+"^000000):"+.bcor$+"Previous (^0055FF"+((.@Style!=0)?.@Style-1:.@Styles[.@s])+"^000000):"+.bcor$+"Jump to...:"+.rcor$+"Revert to original (^0055FF"+.@Revert+"^000000)")){

        case 1:
            set .@Style, ((.@Style != .@Styles[.@s]) ? .@Style+1 : 0);
            break;
        case 2:
            set .@Style, ((.@Style != 0) ? .@Style-1 : .@Styles[.@s]);
            break;
        case 3:
            message strcharinfo(0),"Choose a style between 1 - "+.@Styles[.@s]+".";
            input .@Style,0,.@Styles[.@s];
            if (!.@Style)
                set .@Style, rand(1,.@Styles[.@s]);
            break;
        case 4:
            set .@Style, .@Revert;
            setlook .@Look[.@s], .@Revert;
            break;
        }
    }

OnInit:
    .npc$ = "^FF7F00[ Super Stylist ]^000000";        // Name of NPC;
    .bcor$ = "^008aff[>]^000000 ";                // Option Button Symbol;
    .rcor$ = "^ff0000[>]^000000 ";                // Cancel button symbol;
    end;
    }

i want to change this into item not zeny for example instead of 10,000 zeny it will became 1 yggdrasil berry in order to change into 3rd job

April 29, 2021

Thanks mate

April 27, 2021

here's an example instead of choosing i wanted it as random stats will appear

image.png.62e38282091fa290452e091effc2120e.png

April 26, 2021

mes .n$;
mes "Hello, "+strcharinfo(0)+"!";
mes "If you like I can enchant your costume equipment with any enchantment I have in store";
mes ( (.exchange_cost[0] > 0)?"in exchange for "+.enchant_cost[1]+"x "+getitemname(.enchant_cost[0]):"for free")+".";
mes "I can also reset an Enchantment "+ ((.enchant_reset[0] > 0)?", but I require "+.enchant_reset[1]+"x "+getitemname(.enchant_reset[0]):"for free")+".";
next;
switch(select("- Enchant Costumes:- Reset Enchantment:- Nevermind")) {
	
	case 1:
	mes .n$;
	mes "Please select the Costume you want me to enchant:";
	for ( set .@s,0; .@s < getarraysize(.enchant_slot); set .@s,.@s + 1) {
		switch(.enchant_slot[.@s]) {
			case EQI_COSTUME_HEAD_TOP: set .@c_slot$,"Top Headgear"; break;
			case EQI_COSTUME_HEAD_MID: set .@c_slot$,"Mid Headgear"; break;
			case EQI_COSTUME_HEAD_LOW: set .@c_slot$,"Low Headgear"; break;
			case EQI_COSTUME_GARMENT: set .@c_slot$,"Garment"; break;
			case EQI_SHADOW_ARMOR: set .@c_slot$,"Armor"; break;
			case EQI_SHADOW_WEAPON: set .@c_slot$,"Weapon"; break;
			case EQI_SHADOW_SHIELD: set .@c_slot$,"Shield"; break;
			case EQI_SHADOW_SHOES: set .@c_slot$,"Shoes"; break;
			case EQI_SHADOW_ACC_R: set .@c_slot$,"Accessory Right"; break;
			case EQI_SHADOW_ACC_L: set .@c_slot$,"Accessory Left"; break;
		}
		set .@c_m$,.@c_m$ + ((getequipid(.enchant_slot[.@s]) != -1)?.@c_slot$ + " - "+getitemname(getequipid(.enchant_slot[.@s])):"") + ( (.enchant_slot[.@s+1] != 0)?":":"");
	}
	set .@c_m$,.@c_m$ + ":- Cancel";
	set .@c,select(.@c_m$);
	if(.@c >= getarraysize(.enchant_slot)) close;
	set .@part,.enchant_slot[.@c-1];
	next;
	mes .n$;
	if(getequipid(.@part) == -1) {
		mes "It looks like you don't have any costume equipped on there.";
		close;
	}
	set .@hg,getequipid(.@part); // Saving Item ID
	set .@ref,getequiprefinerycnt(.@part); 	// Saving Refine Level, if there is one
	set .@card1,getequipcardid(.@part,0); // Save Item ID of Card Slot 1
	mes "Selected Costume: "+getitemname(getequipid(.@part));
	if(getequipcardid(.@part,3) != 0) {
		mes "But it looks like you already have an enchantment in this costume.";
		close;
	}
	mes "Now please select the Enchantment:";
	next;
	for ( set .@e,0; .@e < getarraysize(.enchant_id); set .@e,.@e + 1)
		set .@e_m$,.@e_m$ + "> "+getitemname(.enchant_id[.@e])+ ( (.enchant_id[.@e+1] != 0)?":":"");
	set .@rune,select(.@e_m$) - 1;
	mes .n$;
	mes "Selected Enchantment: "+getitemname(.enchant_id[.@rune]);
	if(.enchant_cost[0] > 0 && countitem(.enchant_cost[0]) < .enchant_cost[1]) {
		mes "But it looks like you don't have enough "+getitemname(.enchant_cost[0])+"!";
		close;
	}
	mes "Proceed?";
	if(select("- Yes:- No") - 1) close;
	next;
	if(.enchant_cost[0] > 0)
		delitem .enchant_cost[0],.enchant_cost[1];
	delequip .@part;
	getitem2 .@hg,1,1,.@ref,0,.@card1,0,0,.enchant_id[.@rune];
	equip .@hg;
	mes .n$;
	mes "The enchantment was a success.";
	mes "See ya next time.";
	enable_items;
	break;
		
	case 2:
	mes .n$;
	mes "Please select the Costume you want me to reset the enchantment!";
	for ( set .@s,0; .@s < getarraysize(.enchant_slot); set .@s,.@s + 1) {
		switch(.enchant_slot[.@s]) {
			case EQI_COSTUME_HEAD_TOP: set .@c_slot$,"Top Headgear"; break;
			case EQI_COSTUME_HEAD_MID: set .@c_slot$,"Mid Headgear"; break;
			case EQI_COSTUME_HEAD_LOW: set .@c_slot$,"Low Headgear"; break;
			case EQI_COSTUME_GARMENT: set .@c_slot$,"Garment"; break;
			case EQI_SHADOW_ARMOR: set .@c_slot$,"Armor"; break;
			case EQI_SHADOW_WEAPON: set .@c_slot$,"Weapon"; break;
			case EQI_SHADOW_SHIELD: set .@c_slot$,"Shield"; break;
			case EQI_SHADOW_SHOES: set .@c_slot$,"Shoes"; break;
			case EQI_SHADOW_ACC_R: set .@c_slot$,"Accessory Right"; break;
			case EQI_SHADOW_ACC_L: set .@c_slot$,"Accessory Left"; break;
		}
		set .@c_m$,.@c_m$ + ((getequipid(.enchant_slot[.@s]) != -1)?.@c_slot$ + " - "+getitemname(getequipid(.enchant_slot[.@s])):"") + ( (.enchant_slot[.@s+1] != 0)?":":"");
	}
	set .@c_m$,.@c_m$ + ":- Cancel";
	set .@c,select(.@c_m$);
	if(.@c >= getarraysize(.enchant_slot)) close;
	set .@part,.enchant_slot[.@c-1];
	next;
	mes .n$;
	if(getequipcardid(.@part,3) == 0) {
		mes "It looks like you don't have any enchantment in this costume.";
		close;
	}
	set .@hg,getequipid(.@part); // Saving Item ID
	set .@ref,getequiprefinerycnt(.@part); 	// Saving Refine Level, if there is one
	set .@card1,getequipcardid(.@part,0); // Save Item ID of Card Slot 1
	mes "Selected Costume: "+getitemname(getequipid(.@part));
	if(.enchant_reset[0] > 0 && countitem(.enchant_reset[0]) < .enchant_reset[1]) {
		mes "But you don't have the required Items to reset the enchantment!";
		close;
	}
	mes "Proceed?";
	if(select("- Yes:- No") - 1) close;
	next;
	if(.enchant_reset[0]) 
		delitem .enchant_reset[0],.enchant_reset[1];
	delequip .@part;
	getitem2 .@hg,1,1,.@ref,0,.@card1,0,0,0;
	equip .@hg;
	mes .n$;
	mes "The enchantment has been reseted.";
	mes "See ya next time.";
	break;
	
	case 3: break;
}
end;

OnInit:
set .n$,"[Costume Enchanter]";
// Enter here every Costume Slot, which you want to be enchantable
// Valid Entries:
// - EQI_COSTUME_HEAD_TOP
// - EQI_COSTUME_HEAD_MID
// - EQI_COSTUME_HEAD_LOW
// - EQI_COSTUME_GARMENT
// - EQI_SHADOW_ARMOR
// - EQI_SHADOW_WEAPON
// - EQI_SHADOW_SHIELD
// - EQI_SHADOW_SHOES
// - EQI_SHADOW_ACC_R
// - EQI_SHADOW_ACC_L
setarray .enchant_slot[0],EQI_COSTUME_HEAD_TOP,EQI_COSTUME_HEAD_MID,EQI_COSTUME_HEAD_LOW;
// Enchantment ID's
setarray .enchant_id[0],6636,6637,6638,6639,6640,6641;
// Price for enchanting:
// To disable the price, put 0 as values
setarray .enchant_cost[0],501,10; // Item ID,Amount
// Price for reseting:
// To disable the price, put 0 as values
setarray .enchant_reset[0],501,10; // Item ID,Amount
end;
}

can anyone with random enchant?

April 18, 2021

i was hoping for a monster arena that looks like an instance of Endless tower once you enter there's a 3hours time limit to it and a cooldown of 1hour before you can be able to go inside the dungeon again TIA

April 15, 2021

🚩Website:
https://devilsupreme-ro.com/
🚩Facebook Official Group:
www.facebook.com/DSRO2
🚩Discord:
https://discord.gg/85Q6EHa
🔵DevilSupremeRO🔵

✅Android Platform
✅7 Months Old Server
✅No OP/Full Donates
✅Friendly Community
✅High Rate Server
✅Server Location: Singapore
✅Client: 2018
✅Lifetime Gepard 3.0 & LGP
✅DDOS Protected
🚩SERVER INFO:
✅Farm/Quest Server
✅Instant Job Changer
✅255/100| Trans Jobs
✅PK & Unfro
✅Pre-renewal Server
✅Rates: 10k/10k/1k |
✅Cards: 10%/5% Rare:1%
✅Guild Capacity: 15 max
✅Macro/Autopots On
✅Dual Client only
✅Guild Package
✅Solo Package
✅Freebies Reward
✅Streamers Program
✅Gold Room
✅PVP Room
✅MVP Room
✅Break The Seal Quest
✅Treasure Hunter Quest
✅Token Quest
✅Hourly Shop
✅Soul Link Modified
✅Monster Arena
✅Endless Tower
✅World Boss
✅Automated Events
✅In Game Events
& More...

April 11, 2021

1 hour ago, betlogboi said:

This is the 2nd time i add a custom headgear but this error comes up, the first headgear was able to make it work but suddenly the .act .spr error shows up

I'm willing to pay T_T

i think its suppose to be ¿©_c_nut_cracker.act same goes with the sprite

March 13, 2021

guild_vs1,54,54,6    script    Stylist#custom_stylist    2_M_DYEINGER,{
OnTalk:
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
    setarray .@Look[1],
        LOOK_CLOTHES_COLOR,
        LOOK_HAIR,
        LOOK_HAIR_COLOR;
    mes .npc$;
    mes "Hey ^008aff"+strcharinfo(0)+"^000000. Im a super stylist. Want to try out my services?";
    mes "I can customize your character's appearance in a hand full of ways.";
    next;
    set .@s, select(.bcor$+"Cloth color:"+.bcor$+"Hairstyle:"+.bcor$+"Hair color:"+.bcor$+"Dress Room");
    if(.@s == 4){
        callfunc "F_DRESSROOM";
        close;
    }
    if(.@s == 1){
    if (( getlook(LOOK_BODY2) == 5 ) || ( getlook(LOOK_BODY2) == 2 ) || ( getlook(LOOK_BODY2) == 3 ) || ( getlook(LOOK_BODY2) == 4 )) {
        setlook    LOOK_CLOTHES_COLOR,0;
        mes .npc$;
        mes "Cloathes color not available for Body Custom.";
        close;
        }
    }
    if(Class == Job_Summoner){
    setarray .@Styles[1],
        3,//max_cloth_color
        10,//max_hair_style
        8;//max_hair_color
    }else{
    setarray .@Styles[1],
        getbattleflag("max_cloth_color"),
        getbattleflag("max_hair_style"),
        getbattleflag("max_hair_color");
            }

    set .@Revert, getlook(.@Look[.@s]);
    set .@Style,1;
    while(1) {
        setlook .@Look[.@s], .@Style;
        message strcharinfo(0),"This is style #"+.@Style+".";
        switch(select(.bcor$+"Next (^0055FF"+((.@Style!=.@Styles[.@s])?.@Style+1:0)+"^000000):"+.bcor$+"Previous (^0055FF"+((.@Style!=0)?.@Style-1:.@Styles[.@s])+"^000000):"+.bcor$+"Jump to...:"+.rcor$+"Revert to original (^0055FF"+.@Revert+"^000000)")){

        case 1:
            set .@Style, ((.@Style != .@Styles[.@s]) ? .@Style+1 : 0);
            break;
        case 2:
            set .@Style, ((.@Style != 0) ? .@Style-1 : .@Styles[.@s]);
            break;
        case 3:
            message strcharinfo(0),"Choose a style between 1 - "+.@Styles[.@s]+".";
            input .@Style,0,.@Styles[.@s];
            if (!.@Style)
                set .@Style, rand(1,.@Styles[.@s]);
            break;
        case 4:
            set .@Style, .@Revert;
            setlook .@Look[.@s], .@Revert;
            break;
        }
    }

OnInit:
    .npc$ = "^FF7F00[ Super Stylist ]^000000";        // Name of NPC;
    .bcor$ = "^008aff[>]^000000 ";                // Option Button Symbol;
    .rcor$ = "^ff0000[>]^000000 ";                // Cancel button symbol;
    end;
    }

i wanted this script to have a certain item before you could be converted to 4th job.

February 19, 2021

i dont know why this dosnt affect lvl 255 but if a lvl 1 novice coma takes effect can anyone? i already tried 10000 before and turned it back to 100 since it didnt work

case 9: // DEATH - curse, coma and poison
   {
       status_change_start(src, target, SC_COMA, 100, skill_lv, 0, src->id, 0, 0, SCSTART_NONE);
       sc_start(src, target, SC_CURSE, 100, skill_lv, skill_get_time2(status_sc2skill(SC_CURSE), 1));
       sc_start2(src, target, SC_POISON, 100, skill_lv, src->id, skill_get_time2(status_sc2skill(SC_POISON), 1));
       break;
   }

February 9, 2021

when my other character is level 1 coma on tarot card takes effect but when my level 1 character became 255 suddenly coma dosnt take effect anymore can anyone help me with this?

February 9, 2021

i need barricades here everytime they destroy the emperium on koe the barricade respawns and you have to destroy all of the barricades in order enter and destroy the emperium.

image.png.c7a91230302f546b506efd7fca627577.png

February 7, 2021

can anyone help me with the koe barricade?

Sign In

DevilSupremeRO

Content Count

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Staff Applications

Calendar

Posts posted by DevilSupremeRO

WOE GM COMMAND

stylist item to exchange

Random Enchant

Random Enchant

Random Enchant

Monster Arena

DevilSupremeRO

Help Custom item not showing, failed to load resource

changelook 4th

tarot card problem

tarot card problem

koe barricade

koe barricade

Chat

GitHub

Community

Documentation

Important Information