Jump to content

skymia

Members
 View Profile  See their activity

  • Posts

    296

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by skymia

    @afk with AFK Hat

    in Source Releases

    Posted

    13 hours ago, Takerio said:

    -    script    AFK_1    -1,{
          
    OnInit:
        bindatcmd("afk", strnpcinfo(3) +"::OnAFK");
    end;
     
    OnAFK:
        if (@AFK) {
        set @AFK, 0;
        changelook 4,headupper;
        dispbottom "AFK mode is OFF.";
    end;
        } else {
        set @AFK, 1;
        headupper=getlook(4);
        changelook 4,471;
        dispbottom "AFK mode is ON.";
        end;
    }
    }

     

    is this script have afk hat?

    if yes how to remove it thanks

     

    Race to 99 Per Class

    in Script Requests

    Posted

    7 hours ago, Tyrfing said:

    Been very busy and I'm not really very active in rAthena (or any other RO community) anylonger, but I had some spare time so here you go. 

    
///////////////////////////////////////////////////////
//  ___________               _____.__
//  \__    ___/__.__.________/ ____\__| ____    ____
//    |    | <   |  |\_  __ \   __\|  |/    \  / ___\
//    |    |  \___  | |  | \/|  |  |  |   |  \/ /_/  >
//    |____|  / ____| |__|   |__|  |__|___|  /\___  /
//            \/       Scripts             \//_____/
//
//=====================================================
// Name: Race to Max Level (v2)
//
// Description:
// This NPC allows for Game Masters to set rewards to
// be given to the first player of each 2nd class that
// reaches the maximum level (base and class).
//
// Changes relative to v1:
// - Support for multiple rewards in two categories
// (rare and common).
// - Support for setting rewards by name in-game
// (requires SQL item_db). Otherwise, specify item ID.
// - Support for setting the rare rates in-game.
//
// Additional info:
// - Remember to change .@sql_item_db to 1 if you use
// a SQL item_db.
//=====================================================
///////////////////////////////////////////////////////
prontera,147,180,5	script	Race to Max Level	58,{
	// GM level required to change the reward
	set .@gm_level, 99;

	// Set this to 1 if you are using SQL item_db.
	set .@sql_item_db, 0;

	// The item_db SQL table name.
	set .@item_db_table$, "item_db_re";

	// Base and job levels required
	set .@maxbase, 99;
	set .@maxjob, 50;

	// The default/initial percentage for rare items.
  set .@rare_chance, 30;

  // Rewards. Remember, you can change these in-game too!
  setarray .@default_rare_rewards[0], 510, 511, 512, 513, 514;
  setarray .@default_common_rewards[0], 510, 511, 512, 513, 514;

	if ($r99_rare_chance == 0)
		$r99_rare_chance = .@rare_chance;
	if (getarraysize($rare_rewards) == 0)
		copyarray $rare_rewards[0], .@default_rare_rewards[0], getarraysize(.@default_rare_rewards);

	if (getarraysize($common_rewards) == 0)
		copyarray $common_rewards[0], .@default_common_rewards[0], getarraysize(.@default_common_rewards);

	setarray .@rewardablejobs[0], Job_Knight, Job_Alchemist, Job_Assassin, Job_Bard, Job_Blacksmith, Job_Crusader, Job_Dancer, Job_Hunter, Job_Monk, Job_Priest, Job_Rogue, Job_Sage, Job_Wizard;

	function SelectFromArray;
	function ListRewards;

	Begin:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Hello, " + ((getgmlevel() >= .@gm_level) ? "master! What do you want to do today?" : "are you here for your reward?");
		if (getgmlevel() >= .@gm_level) {
			.@select$ = "Change rare item chance:Update rewards:Restart race:Test reward:View explanation:Show rewarded players:Cancel";
			switch(select(.@select$)) {
				case 1:
					goto ChangeRate;
				case 2:
					goto UpdateRewards;
				case 3:
					goto RestartRace;
				case 4:
					goto GetReward;
				case 5:
					goto ExplainRace;
				case 6:
					goto ShowRewarded;
				default:
					end;
			}
		} else {
			.@select$ = "YES!:...What reward?:Who was rewarded?:Cancel";
			switch(select(.@select$)) {
				case 1:
					goto GetReward;
				case 2:
					goto ExplainRace;
				case 3:
					goto ShowRewarded;
				default:
					end;
			}
		}

	ChangeRate:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "The rare item rate is currently set to ^0099cc" + $r99_rare_chance + "%^000000.";
		mes "What do you want to change it to?";
		input .@new_rate;
		set $r99_rare_chance, .@new_rate;
		mes "Done!";
		next;
		goto Begin;

  // TODO: Provide a means to update the rewards arrays
	UpdateRewards:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Choose which rewards you want to review or update.";
		switch (select("Rare rewards:Common rewards:Cancel")) {
			case 1:
				goto UpdateRareRewards;
			case 2:
				goto UpdateCommonRewards;
			default:
				end;
		}
		// mes "The reward is " + getitemname($reward) + " (ID: " + $reward + ").";
		// mes "Do you want to change it?";
		// if (select("Yes:No") == 1) {
		// 	clear;
		// 	mes "[ ^0099ccRace to Max Level^000000 ]";
		// 	mes "Please enter the new reward item ID.";
		// 	input .@rewardid;
		// 	clear;
		// 	mes "[ ^0099ccRace to Max Level^000000 ]";
		// 	mes "Set " + getitemname(.@rewardid) + " as the reward?";
		// 	if(select("Yes:No") == 1) {
		// 		set $reward, .@rewardid;
		// 	}
		// }
		goto Begin;

	UpdateRareRewards:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "These are the rare rewards:";
		ListRewards($rare_rewards);
		if (select("Change reward:Cancel") == 1) {
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Which reward do you want to change?";
			.@selected_reward = SelectFromArray($rare_rewards);
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Ah, the ^0099cc" + getitemname($rare_rewards[.@selected_reward - 1]) + "^000000.";
			if (.@sql_item_db == 1) {
				mes "What do you want to change it to? (Item name)";
				input .@new_reward$;
				.@sql$ = "SELECT id from `"+ .@item_db_table$ +"` WHERE name_japanese LIKE '%"+ escape_sql(.@new_reward$) +"%'";
				query_sql(.@sql$, .@sql_results);
				.@selected = SelectFromArray(.@sql_results);
				.@selected = .@sql_results[.@selected - 1];
			} else {
				mes "What do you want to change it to? (Item ID)";
				input .@selected;
			}
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Update to ^0099cc" + getitemname(.@selected) + "^000000?";
			if (select("Yes:No") == 1) {
				clear;
				mes "[ ^0099ccRace to Max Level^000000 ]";
				mes "Item updated.";
				$rare_rewards[.@selected_reward - 1] = .@selected;
				next;
			}
		}
		goto Begin;

	UpdateCommonRewards:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "These are the common rewards:";
		ListRewards($common_rewards);
		if (select("Change reward:Cancel") == 1) {
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Which reward do you want to change?";
			.@selected_reward = SelectFromArray($common_rewards);
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Ah, the ^0099cc" + getitemname($common_rewards[.@selected_reward - 1]) + "^000000.";
			if (.@sql_item_db == 1) {
				mes "What do you want to change it to? (Item name)";
				input .@new_reward$;
				.@sql$ = "SELECT id from `"+ .@item_db_table$ +"` WHERE name_japanese LIKE '%"+ escape_sql(.@new_reward$) +"%'";
				query_sql(.@sql$, .@sql_results);
				.@selected = SelectFromArray(.@sql_results);
				.@selected = .@sql_results[.@selected - 1];
			} else {
				mes "What do you want to change it to? (Item ID)";
				input .@selected;
			}
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Update to ^0099cc" + getitemname(.@selected) + "^000000?";
			if (select("Yes:No") == 1) {
				clear;
				mes "[ ^0099ccRace to Max Level^000000 ]";
				mes "Item updated.";
				$common_rewards[.@selected_reward - 1] = .@selected;
				next;
			}
		}
		goto Begin;

	RestartRace:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Are you sure you want to restart the race?";
		if (select("Yes:No") == 1) {
			for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
				set $rewarded$[.@rewardablejobs[.@i]], "";
			}
			announce "The Race to Max Level has begun! Claim a reward once you reach " + .@maxbase + " base and " + .@maxjob + " class!", bc_all;
		}
		goto Begin;

	GetReward:
		mes "Let's see... " + strcharinfo(0) + ", huh?";

		set .@competitioner, 0;
		for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
			if (Class == .@rewardablejobs[.@i]) {
				set .@competitioner, 1;
				if (BaseLevel < .@maxbase || JobLevel < .@maxjob) {
					mes "I'm sorry, but you still need to level a bit more.";
				} else if ($rewarded$[Class] == strcharinfo(0)) {
					mes "You have already claimed your reward.";
				} else if ($rewarded$[Class] != "") {
					mes "Too late!";
					mes "The reward for " + jobname(Class) + " was already claimed by " + $rewarded$[Class] + ".";
				} else goto GiveReward;
			}
		}
		if (.@competitioner == 0)
			mes "You need to change your job.";
		close;

	GiveReward:
		set $rewarded$[Class], strcharinfo(0);
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Congratulations! You were the first " + jobname(Class) + " to reach " + .@maxbase + " base and " + .@maxjob + " class!";

		// Choose item category based on probability
    set .@itemCategory, 0;
    set .@chance, rand(100);
    if (.@chance < $r99_rare_chance) {
      set .@itemCategory, 1;
    }

    if (.@itemCategory == 0) {
      set .@reward, $common_rewards[rand(getarraysize($common_rewards))];
			.@type$ = "Common";
    } else {
      set .@reward, $rare_rewards[rand(getarraysize($rare_rewards))];
			.@type$ = "Rare";
    }

		getitem .@reward, 1;
		announce strcharinfo(0) + " (" + jobname(Class) + ") reached Max. Level and received " + getitemname(.@reward) + " ("+ .@type$ +") !", bc_all;
		close;

	ExplainRace:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Yes! When you reach the maximum level for your class, talk to me and you'll be rewarded with a special item.";
    if ($r99_rare_chance > 0) {
      mes "There is ^0099cc" + $r99_rare_chance + "%^000000 of chance that you'll get a rare item!";
      mes "Possible rare items:";
			set .@length, getarraysize($rare_rewards);
      for (.@i = 0; .@i < .@length; .@i++) {
        set .@item, $rare_rewards[.@i];
        mes " - " + getitemname(.@item);
      }
    }
		mes "Possible common items:";
		set .@length, getarraysize($common_rewards);
		for (.@i = 0; .@i < .@length; .@i++) {
			set .@item, $common_rewards[.@i];
			mes " - " + getitemname(.@item);
		}
		next;
		goto Begin;

	ShowRewarded:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
			mes jobname(.@rewardablejobs[.@i]) + ": " + (($rewarded$[.@rewardablejobs[.@i]] != "") ? "^0055ff" + $rewarded$[.@rewardablejobs[.@i]] + "^000000" : "^999999Nobody^000000");
		}
		next;
		goto Begin;

	function SelectFromArray {
		.@size = getarraysize(getarg(0));
		.@rewards_s$ = "";
		for (.@i = 0; .@i < .@size; .@i++) {
			.@rewards_s$ = .@rewards_s$ + getitemname(getelementofarray(getarg(0), .@i )) + ":";
		}
		return select(.@rewards_s$);
	}

	function ListRewards {
		.@rewards = getarg(0);
		.@size = getarraysize(getarg(0));
		for (.@i = 0; .@i < .@size; .@i++) {
			mes .@i + 1 + ". " + getitemname(getelementofarray(getarg(0), .@i));
		}
	}
}

    It would probably take me longer to make a version that supports transcendental classes, which I can't really afford to do now.

    i will try this later thanks sir

    Card Announce

    in Script Requests

    Posted

    How to recreate this for only common cards to be announce? 

    -	script	MVP_CARD_ANNOUNCER	-1,{

        OnInit:

                setarray( .@mvpIdList, 1871, 1874, 1719, 1492, 1147, 1688, 1583, 1623, 1389, 1046, 1087, 1190, 1272, 1115, 1418, 1779, 1157, 1685, 1734, 1658, 1647, 1649, 1651, 1646, 1650, 1648, 1630, 1059, 1159, 1038, 1511, 1373, 1751, 1150, 1039, 1086, 1785, 1768, 1832, 1112, 1312, 1251, 1252 );

                setarray( .mvpCardIds, 4441, 4145, 4386, 4263, 4146, 4376, 4302, 4342, 4134, 4142, 4143, 4135, 4168, 4123, 4330, 4419, 4148, 4374, 4403, 4352, 4359, 4363, 4365, 4357, 4367, 4361, 4372, 4132, 4121, 4144, 4236, 4276, 4407, 4131, 4147, 4128, 4425, 4408, 4430, 4137, 4305, 4318, 4324 );

                

                // Rate : 1 = 0.01%  /  1000 = 10%  /  10000 = 100%

                setarray( .mvpCardRates, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300, 300 );

 

                for(.@i = 0; .@i < getarraysize( .@mobIdList ); .@i++ ) {

                        .mvpIds[ .@mvpIdList[ .@i ] ] = .@i;

                        delmonsterdrop( .@mvpIdList[ .@i ],  .mvpCardIds[ .@i ] );

                }

        end;

        OnNPCKillEvent:

                .@mvpIndex = .mvpIds[ killedrid ];

                if( !.@mvpIndex ) end;

 

                if( rand( 10000 ) <= .mvpCardRates[ .@mvpIndex ] ){

                        getitem( .mvpCardIds[ .@mvpIndex ], 1 );

                        announce( "[ " + strcharinfo(PC_NAME) + " ] just got a " + getitemname( .mvpCardIds[.@mvpIndex] ), bc_all );

                }

        end;

}

     

    race to 99 rewards

    in Script Requests

    Posted

    On 4/6/2018 at 10:44 PM, pajodex said:

    Here, forgot to add check if player is lower than lvl 99.

    Tick solve and upvote if I helped you, Thanks. 

    
// by pajodex
// Optimized by AnnieRuru
prontera,150,150,0	script	Race-To-99	100,{
	if (BaseLevel < 99) {
        npctalk "Sorry, Only Lvl 99 can claim the reward!";
        end;
    }
    if ($ItemGive == 100) {
        npctalk "Sorry, all rewards has been taken!";
        end;
    }
    if (getreward) {
        npctalk "Sorry, Nothing for you!";
        end;
    }
    announce "Congratulations! "+strcharinfo(0)+" has claimed his reward for Race to 99 Event", bc_all;
    getitem 501, 100;
    ++$ItemGive;
    getreward = 1;
    sleep 2000;
    announce "There are "+(100 - $ItemGive)+" rewards left to give!", bc_all;
    end;
}

    How to set the reward with random item?

    Rare item: costume 1,costume 2,costume 3, etc.... with a 30% chance

    Normal item: costume 1,costume 2,costume 3, etc.... with a 70% chance

    Race to 99 Per Class

    in Script Requests

    Posted

    On 5/22/2018 at 8:13 AM, Tyrfing said:

    I'm sorry, I made a mistake. Here you go, please upvote my post. 

    
///////////////////////////////////////////////////////
//  ___________               _____.__                
//  \__    ___/__.__.________/ ____\__| ____    ____  
//    |    | <   |  |\_  __ \   __\|  |/    \  / ___\ 
//    |    |  \___  | |  | \/|  |  |  |   |  \/ /_/  >
//    |____|  / ____| |__|   |__|  |__|___|  /\___  / 
//            \/       Scripts             \//_____/  
//
//=====================================================
// Name: Race to Max Level
//
// Description:
// This NPC allows for Game Masters to set a reward to
// be given to the first player of each 2nd class that
// reaches maximum level (base and class).
//=====================================================
///////////////////////////////////////////////////////
prontera,147,180,5	script	Race to Max Level	58,{
	set .@gm_level, 99; // GM level required to set the reward
	set .@maxbase, 99;
	set .@maxjob, 50;
	set .@defaultreward, 510;
	setarray .@rewardablejobs[0], Job_Knight, Job_Alchemist, Job_Assassin, Job_Bard, Job_Blacksmith, Job_Crusader, Job_Dancer, Job_Hunter, Job_Monk, Job_Priest, Job_Rogue, Job_Sage, Job_Wizard;
	
	Begin:
	clear;
	mes "[ ^0099ccRace to Max Level^000000 ]";
	mes "Hello, " + ((getgmlevel() >= .@gm_level) ? "master! What do you want to do today?" : "are you here for your reward?");
	switch(select(((getgmlevel() >= .@gm_level) ? "Set Reward:Restart Race" : ":") + ":YES!:...Reward?:Who was rewarded?:Cancel")) {
		case 1:
			goto SetReward;
		case 2:
			goto RestartRace;
		case 3:
			goto GetReward;
		case 4:
			goto ExplainRace;
		case 5:
			goto ShowRewarded;
		default:
			end;
	}
	
	SetReward:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		if ($reward == 0)
			set $reward, .@defaultreward;
		mes "The reward is " + getitemname($reward) + " (ID: " + $reward + ").";
		mes "Do you want to change it?";
		if (select("Yes:No") == 1) {
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Please enter the new reward item ID.";
			input .@rewardid;			
			clear;
			mes "[ ^0099ccRace to Max Level^000000 ]";
			mes "Set " + getitemname(.@rewardid) + " as the reward?";
			if(select("Yes:No") == 1) {
				set $reward, .@rewardid;
			}
		}
		goto Begin;
	
	RestartRace:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Are you sure you want to restart the race?";
		if (select("Yes:No") == 1) {
			for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
				set $rewarded$[.@rewardablejobs[.@i]], "";
			}
			announce "The Race to Max Level has begun! Claim a reward once you reach " + .@maxbase + " base and " + .@maxjob + " class!", bc_all;
		}
		goto Begin;
	
	GetReward:
		mes "Let's see... " + strcharinfo(0) + ", huh?";
		
		set .@competitioner, 0;
		for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
			if (Class == .@rewardablejobs[.@i]) {
				set .@competitioner, 1;
				if (BaseLevel < .@maxbase || JobLevel < .@maxjob) {
					mes "I'm sorry, but you still need to level a bit more.";
				} else if ($rewarded$[Class] == strcharinfo(0)) {
					mes "You have already claimed your reward.";
				} else if ($rewarded$[Class] != "") {
					mes "Too late!";
					mes "The reward for " + jobname(Class) + " was already claimed by " + $rewarded$[Class] + ".";
				} else goto GiveReward;
			}
		}
		if (.@competitioner == 0)
			mes "You need to change your job.";
		close;
	
	GiveReward:
		set $rewarded$[Class], strcharinfo(0);
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Congratulations! You were the first " + jobname(Class) + " to reach " + .@maxbase + " base and " + .@maxjob + " class!";
		getitem $reward, 1;
		announce strcharinfo(0) + " (" + jobname(Class) + ") reached Max. Level and received " + getitemname($reward) + "!", bc_all;
		close;
	
	ExplainRace:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		mes "Yes! When you reach the maximum level for your class, talk to me and you'll be rewarded with a special item.";
		next;
		goto Begin;
		
	ShowRewarded:
		clear;
		mes "[ ^0099ccRace to Max Level^000000 ]";
		for (.@i = 0; .@i < getarraysize(.@rewardablejobs); .@i++) {
			mes jobname(.@rewardablejobs[.@i]) + ": " + (($rewarded$[.@rewardablejobs[.@i]] != "") ? $rewarded$[.@rewardablejobs[.@i]] : "^ff0000Nobody^000000");
		}
		next;
		goto Begin;
}

    You can change the maxbase and maxjob variables to match your server configuration, as well as define the minimum GM level to set the rewards on the NPC by changing gm_level variable.

    How to set the reward with random item?

    Rare item: costume 1,costume 2,costume 3, etc.... with a 30% chance

    Normal item: costume 1,costume 2,costume 3, etc.... with a 70% chance

    Buffer NPC with buff for VIP and non VIP

    in Script Requests

    Posted

    On 8/27/2018 at 12:11 PM, sader1992 said: 
    
prontera,0,0,0	script	buffer	444,{
	//buffs for everyone
	specialeffect2 EF_INCAGILITY;
	sc_start SC_INCREASEAGI,60000,10;
	specialeffect2 EF_BLESSING;
	sc_start SC_BLESSING,60000,10;
	specialeffect2 EF_HEAL2;
	percentheal 100,100;
	
	//vip buffs
	if(vip_status(VIP_STATUS_ACTIVE)){
		sc_start SC_STRFOOD,60000,10;
		sc_start SC_INTFOOD,60000,10;
		sc_start SC_DEXFOOD,60000,10;
		sc_start SC_AGIFOOD,60000,10;
		sc_start SC_VITFOOD,60000,10;
		sc_start SC_LUKFOOD,60000,10;
	}
end;
}

     

    how to make 8am will appear the buffer npc and it will announce if will appear and 3mins before it will disappear again

    and next appear will 1pm and next will 6pm again

    sorry if i cant explain so clearly hope someone can understand what i want in this script hehehe

    R>GM Reward NPC

    in Script Requests

    Posted

    On 6/7/2016 at 1:50 PM, hikashin-rae said:

     

    Your welcome :)

    here already done . you can choose now and please just set up what ever you want to reward if you want to change :)

    just change this script if you want to change reward

     

    Reward < amount > 

    
getitem 7227,5

    Here's the code you request i hope you enjoy it /no1

    
prontera,163,173,4    script    GM Helper    980,{    
if( getgmlevel() < 80 ) {
mes "You are not a GM with level 80 or higher, GTFO!";
close;
}
set .@Gm$,"[GM Helper]";

digit:
mes "Hello GM "+strcharinfo(0)+", what do you wish to do?";
next;
switch( select ("Set a winner","Exit")) {

    case 1:
    mes .@Gm$;
    mes "Enter char name";
    next;
    while(!.@id) {
        input .@name$;
        mes "[GM Helper]";
        set .@id,getcharid(3,.@name$);
        if(!.@id) {
            mes "Character not online. Please try again";
            next;
            continue;
        }
    }
    mes "["+.@name$+"] is correct?";
    if( select ("Yes:No") == 2) close;
    next;
    mes "Select your prize you want to give, Tcg or Coins";
    //Selection if TCG Or Coins
    if( select ("Tcg:Coins") == 1 ) {
    //Selected Option 1
    if( isloggedin(getcharid(3,.@name$))) getitem 7227,5,getcharid(3,.@name$);
    mes "Given reward to " + .@name$;
    announce "GM " + strcharinfo(0) + " rewarded "+.@name$ + " for the winner of the event and has gotten 5 event TCG as a reward!",bc_all;
    }else{
    //Selected Option 2
    if( isloggedin(getcharid(3,.@name$))) getitem 7720,5,getcharid(3,.@name$);
    mes "Given reward to " + .@name$;
    announce "GM " + strcharinfo(0) + " rewarded " + .@name$ + " for the winner of the event and has gotten 5 event Coins as a reward!",bc_all;
    }
    close;
    break;
    
    case 2:
    mes .@Gm$;
    mes "Nothing to do.";
    close;
    break;
    

}
}

     

    On 6/7/2016 at 1:50 PM, hikashin-rae said:

     

    Your welcome :)

    here already done . you can choose now and please just set up what ever you want to reward if you want to change :)

    just change this script if you want to change reward

     

    Reward < amount > 

    getitem 7227,5

    Here's the code you request i hope you enjoy it /no1

    prontera,163,173,4    script    GM Helper    980,{    
if( getgmlevel() < 80 ) {
mes "You are not a GM with level 80 or higher, GTFO!";
close;
}
set .@Gm$,"[GM Helper]";

digit:
mes "Hello GM "+strcharinfo(0)+", what do you wish to do?";
next;
switch( select ("Set a winner","Exit")) {

    case 1:
    mes .@Gm$;
    mes "Enter char name";
    next;
    while(!.@id) {
        input .@name$;
        mes "[GM Helper]";
        set .@id,getcharid(3,.@name$);
        if(!.@id) {
            mes "Character not online. Please try again";
            next;
            continue;
        }
    }
    mes "["+.@name$+"] is correct?";
    if( select ("Yes:No") == 2) close;
    next;
    mes "Select your prize you want to give, Tcg or Coins";
    //Selection if TCG Or Coins
    if( select ("Tcg:Coins") == 1 ) {
    //Selected Option 1
    if( isloggedin(getcharid(3,.@name$))) getitem 7227,5,getcharid(3,.@name$);
    mes "Given reward to " + .@name$;
    announce "GM " + strcharinfo(0) + " rewarded "+.@name$ + " for the winner of the event and has gotten 5 event TCG as a reward!",bc_all;
    }else{
    //Selected Option 2
    if( isloggedin(getcharid(3,.@name$))) getitem 7720,5,getcharid(3,.@name$);
    mes "Given reward to " + .@name$;
    announce "GM " + strcharinfo(0) + " rewarded " + .@name$ + " for the winner of the event and has gotten 5 event Coins as a reward!",bc_all;
    }
    close;
    break;
    
    case 2:
    mes .@Gm$;
    mes "Nothing to do.";
    close;
    break;
    

}
}

     how to change this script? i want is Gm will type the reward id in game 

    if( isloggedin(getcharid(3,.@name$))) getitem 7720,5,getcharid(3,.@name$);

    Issue for 2018-06-20e Client

    in Installation Support

    Posted · Edited by skymia

    i have no error in server but when i try to create account using _M/_F it will always says Disconnect from server...can anyone help me with this?

    i try to use 2015-11-04 client it works fine...but i want to use newer clients for renewal purposes...thanks in advance

    [PACKETVER 20180620] Client Release 2018-06-20eRagexeRE

    in Client Releases

    Posted

    On 10/13/2018 at 6:58 AM, MathReaper said:

    Works fine to me.

      Reveal hidden contents

    dd63Acc.png

    9iIgWBu.png

    My NEMO's profile:

      Hide contents


    33 Always Call SelectKoreaClientInfo() (Recommended)
    103 Disable Auto follow
    246 Increase hair style limit in game

     

    I cant select this 3 options in client settings...how to fix this? i cant register using the client and always say disconnected from the server

     

    R> This type of NPC

    in Script Requests

    Posted · Edited by skymia

    Anyone have npc like this?

    Npc will give reward if he completes 10hrs of playing if he or she logout and login again it will continue the time he/she earns and if its completed and recieve the item the this will reset to zero and earn 10hrs again...hope someone have this type of script already thanks in advance

    Q>sprite folder in data folder

    in Graphics Support

    Posted

    15 hours ago, utofaery said:

    You do know how to use window file system do you?

    Create "New Folder"???

    do it yourself... which is DIY...

    if its not there DIY...

    say if you are hungry and meals aren't prepared you gonna wait till someone do it or DIY??

    all we could do here is provide you suggestions and way to deal with what you got.

    but you gonna DIY...

     

    Side Guide:

     
    not sure which one...google is slow again on my internet connection
    so GIYF (aka google is your friend) search it your search for which one is right one on the next 2 items

    ohhh i see thanks for the info

    Q>sprite folder in data folder

    in Graphics Support

    Posted

    21 hours ago, utofaery said:

    1

    does they appear as apple ingame???

    if yes,  Update your kro installation.  (error of missing sprite)

     

    2. because default kro installation has no folder which you mention'ed 

    and those folder only be required in data folder

    if you patch your client on nemo with the option of "Read data folder first"

    in the latest data folder there are no sprite folder

    https://github.com/zackdreaver/ROenglishRE/tree/master/Ragnarok/data

    Stat Seller

    in Scripting Support

    Posted

    how to fix this warnings? 

    //===== eAthena Script ======================================= 
//= Stats Seller
//===== By: ================================================== 
//= DeadChild
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= Any eAthena Version 
//===== Description: ========================================= 
//= Stats Seller
//===== Additional Comments: =================================
//= Have fun with it ^^
//============================================================
prontera,166,201,0	script	STP/SKP Seller	86,{
set @price, 476000;
mes "[STP/SKP Seller]";
mes "Hi, I'm the STP/SKP Seller";
mes "It cost 476,000z each point";
mes "which one you wanna buy?";
next;
menu "Status Point",ST,"Skill Point",SK,"No thanks I'm fine",EXIT;
ST:
mes "[STP/SKP Seller]";
mes "What do you want to buy?";
next;
menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;
SK:
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (zeny < (@quantity * @price)) goto NZ;
mes "[STP/SKP Seller]";
mes "Done";
set zeny, zeny - (@quantity * @price);
set SkillPoint, SkillPoint + @quantity;
close;
STR:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bStr,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
AGI:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bAgi,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
VIT:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bVit,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
INT:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bInt,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
DEX:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bDex,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
LUK:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bLuk,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
WT:
mes "[STP/SKP Seller]";
mes "Please don't waste my time";
close;
TM:
mes "[STP/SKP Seller]";
mes "Sorry but you can only get 999 Status Point";
close;
NZ:
mes "[STP/SKP Seller]";
mes "Sorry but you do not have enough zeny.";
close;
EXIT:
mes "[STP/SKP Seller]";
mes "Okay then...";
close;
}

     

    Untitled.png

×
×
  • Create New...