Jump to content
  • Sign Up

ShankS

Members
 View Profile  See their activity

  • Content Count

    85

  • Joined

  • Last visited

Posts posted by ShankS

  5. Posted · Edited by ShankS

    i dont know if this is the right thread to post this.

     

    I dont know how to fix this bug.

    if anyone here knows how to deal with this,

    I realy need a guide/tutorial, for the matter..

     

    see the picture bellow..

    anyway sorry wrong Text on the picture its "Maya Card"

     

     

    also the paladin used Skill ->  Refelect Shield,Endure,Auto Guard,Defender

    but only the Defender Skill received the Devoted Champion..

    23jsewl.jpg

  6. Posted · Edited by ShankS 

    i Like this script for my pvp ladder, i like this function and dota announce, but my sql cant read italso my flux cant read the top pvp player, also top guild ..i need help for this to work with flux and sql..please anyone here gimme some guide for this matter   

     

    //===== eAthena Script =======================================//= eAthena PVP-Ladder//===== By: ==================================================//= Terces//===== Current Version: =====================================//= 1.7.2//===== Compatible With: =====================================//= Any Athena Version that has "for" implemented//===== Credits: =============================================//= The whole eAthena Board and the eAthena Chat//===== Notes: ===============================================//= Note 1://= Experience gain works like this formula://= ($@LadderLength-(<new position>-1))*$@LadderExp//= so if someone gets the first place he'll get//= $@LadderLength*$@LadderExp experience points.//============================================================//= Fixxed by Dante//= V1.7.2//= Hosted by Dant3 aka Dante// HAFE FUN! READ THE TOPIC! IT DONT WORKS MAYBE ON OLDER REV//////  LAST UPDATE: 12th,February.2008//// Main Script - Terces (Main Thanks to Terces )// V1.7.0 - Dant3// v1.7.1 - AnnieRuRu// v1.7.2 - Dant3// THIS SCRIPT WORKS ONLY ON THE NEW EATHENA REVISIONS! ENJOY!-	script	PVPLADDEROPTIONS	-1,{end;OnInit:// 0 = Disabled (NO)// 1 = Enable   (YES)set $@languageselect, 0;	//Enable/Disable language selection [English/German] (Default: 1)set $@Ladderannounce, 1;	//Enable/Disable the announcement when a char reaches a new position in the ladder (Default: 1)set $@LadderLength, 30;		//Set the length of the Ladder [!Not higher than 128!] (Default: 30)set $@LadderSteps, 10;		//Set the views per page (Default: 10)set $@LadderExpGain, 1;		//Enable/Disable experience gain when reaching a new position in the ladder (*Note1)set $@LadderExp, 50;		//Set Experience gain value (*Note1)// Update v1.7.0set $@LadderZenyGain, 1;	//Enable/Disable zeny gain when reaching a new position in the ladderset $@LadderZeny, 50;		//Set Zeny gain value set $@LadderChatRoom, 1;	//Enable/Disable an Chat Room over the NPC with the message "PvP" (Users can not enter the Chat room) // Update v1.7.1 (Thanks to AnnieRuRu)// Added GM PvP Ladder Reset Function// Update v1.7.2// Thanks to for the Feedbackset $@LadderAskLogin, 1;	//Enable/Disable that the NPC asks about the Broadcast when a Player logins / or  with the Npc Chat (0 = Login Ask , 1 = Npc Chat) Related: 0}-	script	PVPLADDER	-1,{OnPCKillEvent:if (terces_PVP_resets != $terces_PVP_resets) {	dispbottom "Please relog your character, in order to get the correct kills for you in the PVP ladder.";	dispbottom "Because a GM just reset the ladder.";	end;}if ( killedrid == getcharid(3) ) {	set PVPDeaths, PVPDeaths +1;	set #PVPDeathsAccount, #PVPDeathsAccount +1;	set @PVPDeathstoday, @PVPDeathstoday +1;	end;}set $@PVPcounter,$@PVPcounter+1;set getd("$@PVPKill"+$@PVPcounter),getcharid(3);	//getd to avoid errors when more than 1 people kill someoneattachrid(killedrid);set PVPDeaths,PVPDeaths+1;set @PVPDeathstoday,@PVPDeathstoday+1;set #PVPDeathsAccount,#PVPDeathsAccount+1;set getd("$@PVPkilledplayer"+$@PVPcounter+"$"), strcharinfo(0);	//again, getd to avoid possible glitchesdetachrid;attachrid(getd("$@PVPKill"+$@PVPcounter));CountKills:	set PVPKills,PVPKills+1;	set @PVPKillstoday,@PVPKillstoday+1;	set #PVPKillsAccount,#PVPKillsAccount+1;	setarray @playerstats[0],@PVPKillstoday,@PVPDeathstoday,PVPKills,PVPDeaths,#PVPKillsAccount,#PVPDeathsAccount;l_ladder:	set @considerdeath,0;	for (set @PosinLadder, 0; @PosinLadder < $@LadderLength; set @PosinLadder, @PosinLadder + 1){		if (PVPKills >= $terces_PVP_kills[@PosinLadder]){	//Player deserves to be in the ladder			//Check if Death plays a role on the position			if ((PVPKills == $terces_PVP_kills[@PosinLadder]) && (PVPDeaths > $terces_PVP_deaths[@PosinLadder])) set @considerdeath,1; //Consider Deaths			//Check if the player only topped his own scores			if ($terces_PVP_names$[@PosinLadder] == strcharinfo(0)){				set $terces_PVP_kills[@PosinLadder],PVPKills;				set $terces_PVP_deaths[@PosinLadder],PVPDeaths;				end;			}			//Moves all characters in the Ladder			for (set @beginmoving, $@LadderLength; @beginmoving >= (@PosinLadder+@considerdeath); set @beginmoving, @beginmoving - 1){				if ($terces_PVP_names$[@beginmoving] == strcharinfo(0)){					//If the player already is in the Ladder it only has to move players between characters new position and characters old position					callsub l_ladderMove,0;					end;				}				else if (@beginmoving == (@PosinLadder+@considerdeath)){					//Player is not in the Ladder and therefor it has to move all players from characters new position downwards					callsub l_ladderMove,1;					end;				}			}			end;		}	}l_ladderMove:	if (getarg(0) == 0) set @length,@beginmoving;	if (getarg(0) == 1) set @length,$@LadderLength;	for (set @movecycle, @length; @movecycle > (@PosinLadder+@considerdeath);	 set @movecycle, @movecycle - 1){		set $terces_PVP_names$[@movecycle],$terces_PVP_names$[(@movecycle-1)];		set $terces_PVP_kills[@movecycle],$terces_PVP_kills[(@movecycle-1)];		set $terces_PVP_deaths[@movecycle],$terces_PVP_deaths[(@movecycle-1)];		set $terces_PVP_times[@movecycle],$terces_PVP_times[(@movecycle-1)];	}	//sets the character's stats in the new position	set $terces_PVP_names$[(@PosinLadder+@considerdeath)],strcharinfo(0);	set $terces_PVP_kills[(@PosinLadder+@considerdeath)],PVPKills;	set $terces_PVP_deaths[(@PosinLadder+@considerdeath)],PVPDeaths;	set $terces_PVP_times[(@PosinLadder+@considerdeath)],gettimetick(2);	//Experience Gain	if ($@LadderExpGain == 1){		set BaseExp,BaseExp+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp);		dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp)+" base experience points";	}	//Zeny Gain	if ($@LadderZenyGain == 1){		set Zeny,Zeny+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny);		dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny)+" Zeny";	}	//Announcement (Setting for Char)	if (pvpbroadcast == 2){	announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;	}	//Announcement (Setting for Account)	if (#pvpbroadcast == 2){	announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;	}	end;OnPCLoginEvent:if (terces_PVP_resets != $terces_PVP_resets){		set PVPDeaths,0;		set @PVPDeathstoday,0;		set #PVPDeathsAccount,0;		set PVPKills,0;		set @PVPKillstoday,0;		set #PVPKillsAccount,0;		set terces_PVP_resets,$terces_PVP_resets;	}if ($@LadderAskLogin == 0){	if (#pvpbroadcast == 2) goto L_ignore;	if (pvpbroadcast == 2) goto L_ignore;	if (#pvpbroadcast == 1) goto L_ignore;	if (pvpbroadcast == 1) goto L_ignore;	if (pvpbroadcast == 0)	mes "Hi, "+strcharinfo(0)+"";	mes "Me is the PvP Top Management!";	mes "Let me ask you one Question and i will let you play!";	menu "Later please",L_close,"Okay, fine",L_fine;	L_fine:	next;	mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";	menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;	L_accept:	next;	mes "Yay, thank you! ^_^";	mes "Will this Setting work on all your Chars on this account or only this char?";	menu "Account",L_account,"Only this char",L_char;	L_account:	set #pvpbroadcast,2;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	close;	L_char:	set pvpbroadcast,2;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	goto access_eng;	close;		L_accept_2:	next;	mes "Yay, thank you! ^_^";	mes "Will this Setting work on all your Chars on this account or only this char?";	menu "Account",L_account_2,"Only this char",L_char_2;	L_close:	close;	L_account_2:	set #pvpbroadcast,1;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	close;	L_char_2:	set pvpbroadcast,1;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	goto access_eng;	close;	L_broadcast:	mes "Broadcasts are this yellow messages from  the GMs";	goto L_fine;	}}prontera,161,187,4	script	PvP Ladder	853,{if ($@LadderChatRoom == 1) {		//waitingroom "• PvP Top "+$@LadderLength+" •",0;   // Look on the configuration!}	set @name$,"[PvP-Ladder]";	//Colour of:			Position	Name		Kills		Deaths		Time	setarray @colour$[0],	"^996600",	"^006699",	"^00AA00",	"^FF0000",	"^EE8800";if ($@LadderAskLogin == 1){	if (#pvpbroadcast == 2) goto 	access_eng;	if (pvpbroadcast == 2) goto 	access_eng;	if (#pvpbroadcast == 1) goto 	access_eng;	if (pvpbroadcast == 1) goto 	access_eng;	if (pvpbroadcast == 0)	mes "Hi, "+strcharinfo(0)+"";	mes "Me is the PvP Top Management!";	mes "Let me ask you one Question and i will let you play!";	menu "Later please",L_close,"Okay, fine",L_fine;	L_fine:	next;	mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";	menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;	L_accept:	next;	mes "Yay, thank you! ^_^";	mes "Will this Setting work on all your Chars on this account or only this char?";	menu "Account",L_account,"Only this char",L_char;	L_account:	set #pvpbroadcast,2;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	close;	L_char:	set pvpbroadcast,2;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	goto access_eng;	close;		L_accept_2:	next;	mes "Yay, thank you! ^_^";	mes "Will this Setting work on all your Chars on this account or only this char?";	menu "Account",L_account_2,"Only this char",L_char_2;	L_close:	close;	L_account_2:	set #pvpbroadcast,1;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	close;	L_char_2:	set pvpbroadcast,1;	next;	mes "Okay, "+strcharinfo(0)+"";	mes "Thank you for your time and have fun!";	goto access_eng;	close;	L_broadcast:	mes "Broadcasts are this yellow messages from  the GMs";	goto L_fine;}	access_eng:	mes @name$;	mes "Hello "+strcharinfo(0)+"...";	mes "If you want to I can show you your PVP stats.";	next;	M_selection_eng:	if ( getgmlevel () < 99 )		menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Cancel",M_abbrechen_eng;	else		menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Reset Ladder",L_reset,"Cancel",M_abbrechen_eng;	M_Ladder_eng:	mes "Alright...I'll show you the Top "+ $@LadderLength +" with "+$@LadderSteps+" entries per page.";	mes "It'll be viewed like this:";	mes @colour$[0]+"Place^000000: "+@colour$[1]+"<name>^000000 :"+@colour$[2]+"<kills>^000000:"+@colour$[3]+"<deaths>^000000 "+@colour$[4]+"<time>";	next;	callsub l_ladder;	goto M_selection_eng;	M_seitLogin_eng:	mes @name$;	mes "Your stats since your login:";	mes @PVPKillstoday+"/"+@PVPDeathstoday+"(Kills/Deaths)";	next;	goto M_selection_eng;	M_dieserChar_eng:	mes @name$;	mes "Your stats of this Char:";	mes PVPKills+"/"+PVPDeaths+"(Kills/Deaths)";	next;	goto M_selection_eng;	M_vomAccount_eng:	mes @name$;	mes "Your stats of the whole account:";	mes #PVPKillsAccount+"/"+#PVPDeathsAccount+"(Kills/Deaths)";	next;	goto M_selection_eng;	M_abbrechen_eng:	mes @name$;	mes "OK. You can come back to me and see your stats whenever you want.";	close;L_reset:	if (getgmlevel() < 99) end;	mes "Do you want to reset the ladder?";	if (select ("Yes","No") == 2) goto L_end;	mes "Are you really really sure you want to reset it?";	menu "Yes, ffs!!",-,"No",L_end;	deletearray $terces_PVP_kills,128;	deletearray $terces_PVP_deaths,128;	deletearray $terces_PVP_names$,128;	deletearray $terces_PVP_times,128;	set $terces_PVP_resets,$terces_PVP_resets +1;	L_end:	mes "Okay...cya";	close;		l_ladder:	for (set @y,0; @y < $@LadderLength; set @y,@y+$@LadderSteps){		for (set @x,@y; (@x < (@y+$@LadderSteps)) && (@x < ($@LadderLength)); set @x,@x+1){			if ($terces_PVP_names$[@x] != ""){				mes @colour$[0]+(@x+1)+"^000000: "+@colour$[1]+$terces_PVP_names$[@x]+"^000000 "+@colour$[2]+$terces_PVP_kills[@x]+"^000000:"+@colour$[3]+$terces_PVP_deaths[@x]+"^000000 ~ "+@colour$[4]+callfunc ("Gettime",$terces_PVP_times[@x])+"^000000";			} else {				mes "^DD0000"+(@x+1)+": ^006699None^000000 ";			}		}		next;	}	return;}function	script	Gettime	{if (getarg(0)==0) return;set @difftimedays,(gettimetick(2) - getarg(0));set @difftimehours,@difftimedays%86400;set @difftimeminutes,@difftimehours%3600;set @difftimeseconds,@difftimeminutes%60;set @days,@difftimedays/86400;set @hours,@difftimehours/3600;set @minutes,@difftimeminutes/60;set @seconds,@difftimeseconds;set @result$,"";if(@days != 0) set @result$,@result$+@days+"d ";if(@hours != 0) set @result$,@result$+@hours+"h ";if(@minutes != 0) set @result$,@result$+@minutes+"m ";if(@seconds != 0) set @result$,@result$+@seconds+"s";return (@result$);}

  13. Posted · Edited by ShankS

    anyone here familiar with thie error? can you guys help me :D 

     


    // --------------------------------------------------------------------------
    // --------------------------------------------------------------------------
    // --------------------------------------------------------------------------
    // Script Name : Headgear to Costume converter
    // --------------------------------------------------------------------------
    // Description :
    // Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
    // costume item. It will remove any card and refine of the Item.
    // --------------------------------------------------------------------------
     
    prontera,153,181,4 script Costume Converter 430,{
    mes "[Costume Converter]";
    mes "I can convert your original headgear into a costume headgear.";
    mes " ";
    mes "Note: Stats, Cards & Refine will be removed. Costume is placed in your Costume Tab (ALT+Q)";
    next;
     
    setarray .@Position$[1],"Top","Mid","Low";
    setarray .@Position[1],     1,    9,   10;
     
    set .@Menu$,"";
    for( set .@i, 1; .@i < 4; set .@i, .@i + 1 )
    {
    if( getequipisequiped(.@Position[.@i]) )
    set .@Menu$, .@Menu$ + .@Position$[.@i] + " - " + "[ " + getequipname(.@Position[.@i]) + " ]";
     
    set .@Menu$, .@Menu$ + ":";
    }
     
    set .@Part, .@Position[ select(.@Menu$) ];
    if( !getequipisequiped(.@Part) )
    {
    mes "[Costume Converter]";
    mes "Your not wearing anything there...";
    close;
    }
     
    mes "[Costume Converter]";
    mes "Are you sure you want to make your headgear into a costume?";
    mes " ";
    mes "Note: Stats, Cards & Refine will be removed. Costume is placed in your Costume Tab (ALT+Q)";
    next;
    if( select("No, I am sorry.:Yes, please convert my item.") == 2 )
    {
    costume .@Part; // Convert the Headgear
    mes "[Costume Converter]";
    mes "Done, enjoy your costume headgear!";
    close;
    }
    mes "[Costume Converter]";
    mes "Need some time to think about it, huh?";
    mes "Alright, I can understand.";
    close;
    }
     
    // --------------------------------------------------------------------------
    // Use duplicates to put your npc on different cities
    // --------------------------------------------------------------------------
     
    //prontera,155,180,4 duplicate(Costume-IT) Costume-IT#1 864
     

     

    34xji41.jpg

  20. Posted 

    case NJ_ISSEN:		case MO_EXTREMITYFIST:			{				short x, y, i = 0; // Move 2 cells for Issen(from target)				struct block_list *mbl = bl;				short dir = 0;								skill->attack(BF_WEAPON,src,src,bl,skill_id,skill_lv,tick,flag);				if( skill_id == MO_EXTREMITYFIST ) {					mbl = src;					i = 1; // for Asura(from caster)					status->set_sp(src, 0, 0);					status_change_end(src, SC_EXPLOSIONSPIRITS, INVALID_TIMER);					status_change_end(src, SC_BLADESTOP, INVALID_TIMER);#ifdef RENEWAL					sc_start(src, src,SC_EXTREMITYFIST2,100,skill_lv,skill->get_time(skill_id,skill_lv));#endif // RENEWAL				} else {					status_change_end(src, SC_NJ_NEN, INVALID_TIMER);					status_change_end(src, SC_HIDING, INVALID_TIMER);#ifdef RENEWAL					status->set_hp(src, max(status_get_max_hp(src)/100, 1), 0);#else // not RENEWAL					status->set_hp(src, 1, 0);#endif // RENEWAL				}				dir = map->calc_dir(src,bl->x,bl->y);				if( dir > 0 && dir < 4) x = -i;				else if( dir > 4 ) x = i;				else x = 0;				if( dir > 2 && dir < 6 ) y = -i;				else if( dir == 7 || dir < 2 ) y = i;				else y = 0;				if( (mbl == src || (!map_flag_gvg2(src->m) && !map->list[src->m].flag.battleground) ) // only NJ_ISSEN don't have slide effect in GVG				 && unit->movepos(src, mbl->x+x, mbl->y+y, 1, 1)				) {					//clif->slide(src, src->x, src->y);					clif->fixpos(src);					clif->spiritball(src);				}			}			break;

    by doing this //clif->fixpos(src); 

    makes ninja not sliding when using final strike, but the asura strike is affected.

  22. Posted

     

    Change :
    OnPCKillEvent:    if( strcharinfo(3)!=.map$ ) end;    pk_points++;    dispbottom "You've gained one point! Your total is ["+pk_points+"] PK point(s).";    end;

    To :

    OnPCKillEvent:	if ( strcharinfo( 3 ) != .map$ || killedrid == last_killed ) end;	last_killed = killedrid;	pk_points++;	dispbottom "You've gained one point! Your total is ["+pk_points+"] PK point(s).";	end;

    thankyou bro patskie.. ur the man !!! 

  25. Posted · Edited by ShankS

    please anyone im requesting this script to have a restriction like

    If the Player kill twice the same players, for the third kill or succeeding kills in same players it will not give a Point .. Thanks ..

     

     

    -	shop	custom_seller2	-1,501:500prontera,95,99,5	script	PK Points Dealer	100,{	mes "[PK Points Dealer]";	mes "I will sell you items for PK points.";	mes "Each time you kill a player on "+.map$+" you'll get 1 PK point to spend here!";	next;	mes "[PK Points Dealer]";	mes "You currently have [^0000ff"+pk_points+"^000000] PK points to spend.";	callshop "custom_seller2",1;	npcshopattach "custom_seller2";	end;	OnBuyItem:	for(set .@i,0; .@i<getarraysize(.customs); set .@i,.@i+1) {		for(set .@d,0; .@d<getarraysize(@bought_nameid); set .@d,.@d+1) {			if(@bought_nameid[.@d]==.customs[.@i]) {				if(checkweight(@bought_nameid[.@d],@bought_quantity[.@d])) {					if(pk_points >= .Price[.@i]*@bought_quantity[.@d]) {						set pk_points, pk_points - .Price[.@i]*@bought_quantity[.@d];						getitem @bought_nameid[.@d],@bought_quantity[.@d];					} else dispbottom "You don't have enough PK points to purchase that item.";				} else dispbottom "Purchasing these items will put you over the weight limit!";			}		}	}	deletearray @bought_quantity, getarraysize(@bought_quantity);	deletearray @bought_nameid, getarraysize(@bought_nameid);	close;OnPCKillEvent:	if( strcharinfo(3)!=.map$ ) end;	pk_points++;	dispbottom "You've gained one point! Your total is ["+pk_points+"] PK point(s).";	end;		OnInit:	set .map$, "guild_vs3";	setarray .customs[0],12103,607,678; // Enter the ID of customs here...	setarray .Price[0],  20   ,40 ,300; // Price for each custom here...	npcshopitem "custom_seller2",0,0; // Don't touch any coding beyond here..	for(set .i,0; .customs[.i]; set .i,.i+1) npcshopadditem "custom_seller2",.customs[.i],.Price[.i];	end;} 

     

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

  I accept