Jump to content

Ronald

Members
 View Profile  See their activity

  • Posts

    241

  • Joined

  • Last visited

  • Days Won

    2

 Content Type 

Posts posted by Ronald

    Q>>Talisman Bonus is given without equipping the item

    in Script Requests

    Posted · Edited by Ronald 

    -	script	Talisman	-1,{
	OnPCLoginEvent:
		if( countitem(30382) ) bonus_script "{ bonus bCastrate,-2; }",86400,8,1;
		if( countitem(30388) ) bonus_script "{ bonus bDelayrate,-5; }",86400,8,1;
		end;
}

    Or Lilith has a really nice mod that works pretty much the same way but with variables instead.

     

    http://rathena.org/board/topic/62150-extra-bonuses-without-items/

     

     

    As you can see Skorm already gave you other option. /pat

    You just need to add the script and load it.

    PT vs PT Manger bug.

    in Scripting Support

    Posted 

    prontera,149,178,5	script	PT vs PT Manager	52,{
mes "I am Party Match Manager.";
mes "Party Leader may create a PVP Match here.";
next;
switch( select( ( .Created )?"Join Game[ ^FF0000"+.No+"vs"+.No+"^000000 ]":"Create Game",
				( ( getgmlevel() >= .GMLevel || getcharid(0) == getpartyleader( getcharid(1),2 ) ) && .Created )?"^FF0000Remove Game^000000":"" )){

Case 1:
	switch( .Created ){
		Case 0:
			getpartymember getcharid(1),1;
			if( getcharid(0) != getpartyleader( getcharid(1),2 ) || !getcharid(1) ){
				mes "Sorry, but only a ^FF0000Party Leader^000000 can register a game here.";
			}else{
				mes "How many Players for each Party Team ?";
				mes "Min = 1    Max = "+$@partymembercount;
				mes "Because you only have "+$@partymembercount+" member right now.";
				next;
				input .No,1,$@partymembercount;
				announce "[ "+.No+"vs"+.No+" Party Match ] created by "+strcharinfo(0)+", you may register to join.",0;
				set .Team[0],getcharid(1);
				set .Created,1;
			}
			close;
		Case 1:
			if( !.Team[1] && getcharid(1) == .Team[0] ){
				mes "Please wait for ^FF0000Team 2^000000 to Register.";
			}else{
				if( getcharid(0) != getpartyleader( getcharid(1),2 ) || !getcharid(1) ){
					mes "Sorry, but only a ^FF0000Party Leader^000000 can register a game here.";
					close;
				}
				getpartymember getcharid(1),1;
				if( $@partymembercount < .No ){
					mes "You didnt have enough of "+.No+" Member for the Game.";
					mes "You only have "+$@partymembercount+" Member.";
				}else{
					mes "Confirm Registration ?";
					if( select("Yes:No") == 1 ){
						set .Team[1],getcharid(1);
						set .Created,2;
						setarray .Members[0],.No,.No;
						for( set .@party,0; .@party < 2; set .@party,.@party + 1 ){
							getpartymember .Team[.@party],1;
							for( set .@i,0; .@i < .No; set .@i,.@i + 1 )
								warpchar .Map$,0,0,$@partymembercid[.@i];
						}
						end;
					}
				}
			}
			close;
		Case 2:
			mes "^FF0000The Game is in Progress.^000000";
			mes "[ A "+.No+" vs "+.No+" Game ]";
			mes "Team ^FF0000"+getpartyname( .Team[0] )+"^000000 vs Team ^FF0000"+getpartyname( .Team[1] )+"^000000 .";
			close;
		}
		close;
Case 2:
		mes "Done, Match will be terminated right away.";
		mapannounce .Map$,"Match has been Cancelled by a GM.",0;
		close2;
	OnReset:
		deletearray .Team[0],getarraysize( .Team );
		deletearray .Members[0],getarraysize( .Members );
		if( .Winner ){
			getpartymember .Winner,2;
			for( set .@i,0; .@i < .No; set .@i,.@i + 1 ){
				getitem 7558,5,$@partymemberaid[.@i];
				getitem 12245,100,$@partymemberaid[.@i];
			}
		set .Winner,0;
		}
		sleep2 2000;
		set .Created,0;
		mapwarp .Map$,"prontera",149,178;
		end;
}
close;
		
OnPCDieEvent:
OnPCLogoutEvent:
if( strcharinfo(3) == .Map$ && .Created ){
	for( set .@i,0; .@i < 2; set .@i,.@i + 1 )	
		if( getcharid(1) == .Team[.@i] )
			set .Members[.@i],.Members[.@i] - 1;
			
	if( .Members[0] < 1 ) set .Winner,.Team[1];
	else if( .Members[1] < 1 ) set .Winner,.Team[0];
			
	if( .Winner ){
		mapannounce .Map$,"Team "+getpartyname( .Winner )+" Win the "+.No+"vs"+.No+" Game.",0;
		donpcevent strnpcinfo(0)+"::OnReset";
	}else{
		warp "prontera",149,178;
	}
}
end;
				
OnInit:
set .GMLevel,80;
set .Map$,"guild_vs2";
end;
}

    Any party leader can cancel the running event. :(

    Help Announce in PVP :)

    in Scripting Support

    Posted · Edited by Ronald 

    //= PvP 
//===== By: ==================================================
//= Destinee~
//===== Description: =========================================
//= A basic PVP script.
//===== Additional Comments: =================================
//= Dont copyright this and claiming that you've made this. Use it only for your own server.
//============================================================
prontera,164,174,4	script	Ultimate PvP Warper	796,{
mes "[PvP Warper]";
mes "You have ^FF0000"+#CASHPOINTS+" Cash Points^000000.";
mes "Do you want to warp to the PvP Arena and fight your enemies?";
menu "Sure, Bring it on!",L_Yes,"Nah, I'm not ready yet.",L_No;

L_Yes:
mes "[PvP Warper]";
mes "Which PvP Arena do you want to enter?";
menu	"PVP.1 With Costume Equip [" + getmapusers("pvp_y_1-2.gat") + " / 20]",L1,
	"PVP.2 No Donate , Costume [" + getmapusers("guild_vs3.gat") + " / 30]",L2;

L1:
if (getmapusers("pvp_y_1-2.gat") > 99) goto Lsorry;
warp "pvp_y_1-2",0,0;
close;

L2:
if (getmapusers("guild_vs3.gat") > 99) goto Lsorry;
warp "guild_vs3",0,0;
close;


Lsorry:
mes "[PvP Warper]";
mes "Sorry but this PvP Arena is full, maybe you could try another one.";
close;

L_No:
close;

OnInit:
    end;
 
}

// == Mapflags
guild_vs2	mapflag	loadevent
guild_vs2	mapflag	loadevent
guild_vs2	mapflag	nowarp
guild_vs2	mapflag	nowarpto
guild_vs2	mapflag	noteleport
guild_vs2	mapflag	nosave
guild_vs2	mapflag	nomemo
guild_vs2	mapflag	nobranch	
guild_vs2	mapflag	nogo
guild_vs2	mapflag	nodrop 

guild_vs2	mapflag	nocommand
pvp_y_1-2	mapflag	nowarp
pvp_y_1-2	mapflag	noteleport
pvp_y_1-2	mapflag	nomemo
pvp_y_1-2	mapflag	nogo 
pvp_y_1-2	mapflag	nodrop
pvp_y_1-2	mapflag	nosave
pvp_y_1-2	mapflag	nobranch

    As you can see this is a working PVP. But I want it to put in a way that if a Player enters this PvP room it will say "Playername" has entered "PVP Map"

     

    Thank you guys. :)

     

     

    Fixed already >.< Sorry please lock this thread.

    IP Address Account Protection.

    in Script Requests

    Posted · Edited by Ronald

    Hi there guys. Would it be possible to disconnect a specific account when being logged-in with different IP other than the IP that I use? If yes please help me. Thank you! :D


    I've solved this already. Sorry for this one. I don't know how to delete this. >.<

    Help :)

    in Scripting Support

    Posted 

    -	script	Sample	-1,{
	OnPCLoginEvent:
		if ( !#enabled || #pw$ == "" ) end;
		sc_start SC_BERSERK, 1000000000, 1;
		mes .npc$;
		mes "Input your account password";
		next;
		input @pass$;
		if ( @pass$ == #pw$ ) {
			sc_end SC_BERSERK;
			percentheal 100, 100;
			end;
		}
                sc_end SC_BERSERK;
		atcommand "@kick " +strcharinfo(0);
		end;
	OnSecurity:
		mes .npc$;
		mes "Hello " +strcharinfo(0)+ ", What can i do for you?";
		next;
		switch (select("Password Protection ( "+(#enabled?"^009933Enabled":"^FF0000Disabled")+"^000000 ):Setup a password:Delete my password:Nothing")) {
			case 1: if ( #pw$ == "" ) {
						mes .npc$;
						mes "You cannot enable the password protection if you don't have a password.";
						close;
					}
					if ( #enabled ) #enabled = 0;
					else #enabled = 1;
					message strcharinfo(0),"You have " +(#enabled?"enabled":"disabled")+ " the security system on your account";
					break;
			case 2: if ( #pw$ != "" ) {
						mes .npc$;
						mes "You already have a password for your account.";
						close;
					}
					mes .npc$;
					mes "Input your account password";
					next;
					input @pw$;
					if ( @pw$ == "" ) end;
					#pw$ = @pw$;
					message strcharinfo(0),"You have set your account password (" +#pw$+ ")";
					break;
			case 3: if ( #pw$ == "" ) {
						mes .npc$;
						mes "You don't have a password to delete.";
						close;
					}
					#pw$ = "";
					if ( #enabled ) #enabled = 0;
					message strcharinfo(0),"You have deleted your account password";
					break;
			case 4: break;
			default: break;
		}
		end;

	OnInit:
		.npc$ = "[ ^FF0000" +strnpcinfo(1)+ "^000000 ]";
		bindatcmd "security",strnpcinfo(3)+"::OnSecurity";
		end;
}

    So as you can see this is working already. Would it be possible that a character in this state (Berserk) couldn't be recalled by a GM or Ecalled by a Guild? Just wondering because I was trying to put a security. If  there's a way please help me :) Thank you guys

    Already solved this one w/ another script. I don't know how to delete threads. Sorry.

    Command password binding.

    in Scripting Support

    Posted

    Okay Sir Thank you. Because it would cost alot of time if I'm going to bind all the following possible case on a specific command. And Sir Emistry also told me about the charisupper and charislower this but I don't know how to use those things.

    Command password binding.

    in Scripting Support

    Posted · Edited by Ronald 

    -	script	asdjkasdj	-1,{
	end;
OnInit:
	bindatcmd "item", strnpcinfo(0)+"::Onaaa";
	end;
Onaaa:
	if ( .@atcmd_parameters$[0] == "*********" )
		atcommand "@item "+ .@atcmd_parameters$[1] +" "+ .@atcmd_parameters$[2];
	else
		message strcharinfo(0), "Wrong password SIR/MAAM";
	end;
}

    Hi guys. I just need help. Because I have a problem. As you can see I binded @item w/ a password but a Admin Level GM just needs to use @IteM or @iTem or whatever He/She wants as long as it's @item in different case sensitivity. I just want to know how would I be able to bind the command in any case-sensitive. Thank you for your help guys!

×
×
  • Create New...