Phantom Of Rogue-Gon

August 25, 2013

if (select("Yes I want.:Not now.") == 2) close;

change to

if (select("Yes I want.:Not now.") == 2) close;
if(Class == 4010 || Class == 9)
{
    mes "you cant warp";
    close;
}

August 25, 2013

i post my script about goldroom

August 25, 2013

hello guys can i request somethine and how can add the script

Example

who have script never enter the high wizard to goldroom for easy farm?.



prontera,165,149,4	script	Gold Room	896,{



set .@name$, "[^0000FFGold Room^000000]";


mes .@name$;

mes "Hello, do you want to join here? there are " +getmapusers("1@nyd") +" users inside.";

mes "Entrance Fee ^362ED65 TCG^000000";  

	next; 

	menu "Yes",-,"Cancel",L_Cancel;


	mes "[" + strcharinfo(0) + "]";

	mes "Good good, let me just check"; 

	next;

	if(countitem(7227)<5) goto L_NoMake; 

	delitem 7227,5;

next;

if (select("Yes I want.:Not now.") == 2) close;

mes .@name$;

mes "Okay let's go.";

close2;

warp "1@nyd",301,249;

close;

OnInit:

	waitingroom "Gold Arena",0;

	end;

end;




L_NoMake:

	mes "[" + strcharinfo(0) + "]";

	mes "You don't have the requirements.";

	mes "Please come back another time...";

	close;


L_Bl: 

	mes "[" + strcharinfo(0) + "]";

	mes "i need this "; 

	mes "^362ED61st Quiz Entry^000000"; 

	mes "Please Talk " + strcharinfo(0) + " at Prontera"; 

	mes "Please Bring me this items"; 

	mes "^362ED6Fragment of Rossata Stone 3pcs^000000"; 

	mes "^362ED6Tiger's Footskin 5pcs^000000"; 

	next;

	menu "Accept",-, "Leave",L_Leave;


	mes "[" + strcharinfo(0) + "]";

	mes "When you are done, bring the items to me.  Ok good luck finding those items.";

	close;


L_Leave:

	mes "[" + strcharinfo(0) + "]";

	mes "Maybe another time?";

	close;


L_Cancel:

	mes "[" + strcharinfo(0) + "]";

	mes "Aw, what a shame";

	mes "Giving up already?";

	close;

August 24, 2013

during woe the normal player cant entrance to castle

example

me i dont have guild i cant entrance to castle for woe

August 24, 2013

if add more mvp?

!getmonsterinfo(killedrid,1031,1904)

!getmonsterinfo( killedrid == 5001 || killedrid == 5002 || killedrid == 5003 || killedrid == 5004 || killedrid == 5005 )

i try to combine but error

August 24, 2013

i mean this master bot check to mvp

lets say the normal player killed the mvp then the bot check pop up

August 24, 2013

/sob

August 24, 2013

delay the time how can i change the time and date?

server time delay , date and day

August 24, 2013

{ sc_start SC_ITEMBOOST,1800000,200; },{},{}

how can change the droprate

example the normal droprate is 10% for all mvp mobs when i use this id or bubble gum my droprate become 2x10%=30%?

August 23, 2013

-	script	Anti123	-1,{
OnNPCKillEvent:
		if (killedrid == 5001 || killedrid == 5002 || killedrid == 5003 || killedrid == 5004 || killedrid == 5005 ) {
			set @bot_chk, @bot_chk+1;
			if (@bot_chk < 60) end;
			else set @bot_chk,0;
			atcommand "@die";
			atcommand "@adjgmlvl -1 "+strcharinfo(0);
			set .@A,rand(5000);
			set .@B,rand(5000);
			mes "If A = "+.@A+"   B = "+.@B;
			cutin "kafra_08",2;
			switch( rand(1) ){
			Case 0:
			set .@Answer,.@A + .@B;
			mes "How many is A + B ?";
			break;
			//Case 1:
			set .@Answer,.@A - .@B;
			mes "How many is A - B ?";
			break;
			//Case 2:
			set .@Answer,.@A * .@B;
			mes "How many is A * B ?";
			break;
			//Case 3:
			set .@Answer,.@A / .@B;
			mes "How many is A / B ?";
			break;
			}
			input .@Input;
			if( .@Input != .@Answer ){
			mes "Wrong";
			atcommand "@kick "+strcharinfo(0);
			}
			else if( .@Input == .@Answer ){
			mes "Good Job!";
			atcommand "@raise";
			atcommand "@adjgmlvl 0 "+strcharinfo(0);
			}
			close;
		
	}
}

i try this is not working i change the id to poporing when i kill poporing nothing happen

August 23, 2013

-	script	Anti123	-1,{
OnNPCKillEvent:
		if (killedrid == 5001 || killedrid == 5002 || killedrid == 5003 || killedrid == 5004 || killedrid == 5005 ) {
			set .@m,getarraysize(.@MVP);
    for ( .@i = 0; .@i < .@m; .i++ ) {
        if (killedrid == .@MVP[.@i]) {
			set @bot_chk, @bot_chk+1;
			if (@bot_chk < 60) end;
			else set @bot_chk,0;
			atcommand "@die";
			atcommand "@adjgmlvl -1 "+strcharinfo(0);
			set .@A,rand(5000);
			set .@B,rand(5000);
			mes "If A = "+.@A+"   B = "+.@B;
			cutin "kafra_08",2;
			switch( rand(1) ){
			Case 0:
			set .@Answer,.@A + .@B;
			mes "How many is A + B ?";
			break;
			//Case 1:
			set .@Answer,.@A - .@B;
			mes "How many is A - B ?";
			break;
			//Case 2:
			set .@Answer,.@A * .@B;
			mes "How many is A * B ?";
			break;
			//Case 3:
			set .@Answer,.@A / .@B;
			mes "How many is A / B ?";
			break;
			}
			input .@Input;
			if( .@Input != .@Answer ){
			mes "Wrong";
			atcommand "@kick "+strcharinfo(0);
			}
			else if( .@Input == .@Answer ){
			mes "Good Job!";
			atcommand "@raise";
			atcommand "@adjgmlvl 0 "+strcharinfo(0);
			}
			close;
		}
	}
}

Like this?

August 23, 2013

the normal player Open the Box she/he get cashpoint

August 23, 2013

ok i try this

ok i got error master

Btw im EA

August 23, 2013

hello and good day mam and sir

i here again for requesting

anti bot for mvp

after i kill the mvp the antibot pop up

-	script	Anti123	-1,{
OnNPCKillEvent:
  set @bot_chk, @bot_chk+1;
  if (@bot_chk < 60) end;
  else set @bot_chk,0;
atcommand "@die";
atcommand "@adjgmlvl -1 "+strcharinfo(0);
set .@A,rand(5000);
set .@B,rand(5000);
mes "If A = "+.@A+"   B = "+.@B;
cutin "kafra_08",2;
switch( rand(1) ){
Case 0:
set .@Answer,.@A + .@B;
mes "How many is A + B ?";
break;
//Case 1:
set .@Answer,.@A - .@B;
mes "How many is A - B ?";
break;
//Case 2:
set .@Answer,.@A * .@B;
mes "How many is A * B ?";
break;
//Case 3:
set .@Answer,.@A / .@B;
mes "How many is A / B ?";
break;
}
input .@Input;
if( .@Input != .@Answer ){
mes "Wrong";
atcommand "@kick "+strcharinfo(0);
}
else if( .@Input == .@Answer ){
mes "Good Job!";
atcommand "@raise";
atcommand "@adjgmlvl 0 "+strcharinfo(0);
}
close;
}

this my script can i add all mvp id

August 22, 2013

MANY PEOPLE SAY ANTI BOT CAN BY PASS USING CMD

ANY ONE HAVE ANTI BOT WORKING EA

August 21, 2013

sorry this is long topic about teleport with party

August 21, 2013

i try do edit your script master

function	script	warptomap_func	{
	mes "Enter Map Name";
	do{
		input .@map$;
	
	}while( getmapusers( .@map$ ) < 0 );
	set .@party_id,getcharid(1);
	if( .@party_id ){
		warpparty .@map$,0,0,.@party_id;
	}else{
		warp .@map$,;
	}
	return;
}

is work but all my party member ramdom position???? in one map can change to 1 position where we are master

August 21, 2013

August 21, 2013

function	warptomap	{
	mes "Enter Map Name";
	do{
		input .@map$;
	}while( getmapusers( .@map$ ) < 0 );
	set .@party_id,getcharid(1);
	if( .@party_id ){
		warpparty .@map$,0,0,.@party_id;
	}else{
		warp .@map$,0,0;
	}
	return;
}

and item db

,,,,,,{ callfunc "warptomap" },{},{}

error

//By Skorm eA Version2
-	script	Party-Summoner	-1,{
OnEvent:
	set(.@pid,getcharid(1));
	if(!.@pid){ dispbottom "You're not in a party!"; end; }
	mes ((@arg)?"Would you like to warp you and your party members to a map?":"Would you like to summon your party members?");
	next;
	if(select("Yes:No")-1) close;
	getpartymember getcharid(1),2;
	copyarray(getd(".paid"+.@pid+"[0]"),$@partymemberaid[0],128);
	set(.@len,$@partymembercount);
	if(@arg) {
		mes "Where would you like to warp you and your party members?";
		mes "(All lower-case please!)";
		input(.@map$);
		warp .@map$,0,0;
	}
	
	for(setd(".i"+.@pid,0); getd(".i"+.@pid)<.@len; setd(".i"+.@pid,getd(".i"+.@pid)+1)) {
		set(.pid,.@pid);
		donpcevent "PartyWarp#"+getd(".i"+.@pid)+"::OnStart";
	}
	set(@arg,0);
	close;
}

-	script	PartyWarp#0	-1,{
OnStart:
	set(.@pid,getvariableofnpc(.pid,"Party-Summoner"));
	set(.@i,getvariableofnpc(getd(".i"+.@pid ),"Party-Summoner"));
	set(.@aid,getvariableofnpc(getd(".paid"+.@pid+"["+.@i+"]"),"Party-Summoner"));
	set(.@pl$,rid2name(getpartyleader(.@pid,1)));
	getmapxy(.@map$,.@x,.@y,0,.@pl$);
	attachrid(.@aid);
	if(!playerattached()) end;
	if(.@pl$==strcharinfo(0)) end;
	attachnpctimer;
	startnpctimer;
	specialeffect2(35);
	mes "The party leader has summoned you would you like to join him/her?";
	mes "This link can only be maintained for 60 seconds!";
	if( prompt("Yes:No")==1&&!.@a&&playerattached() ) {
		stopnpctimer;
		specialeffect2(36);
		warp .@map$,.@x,.@y;
	}
	stopnpctimer;
	specialeffect2(73);
	close;
	
OnTimer60000:
	stopnpctimer;
	mes "-Time-Out-";
	mes "...Link Disengage!...";
	specialeffect2(73);
	set(.@a,1);
	close;
}

-	duplicate(PartyWarp#0)	PartyWarp#1	-1
-	duplicate(PartyWarp#0)	PartyWarp#2	-1
-	duplicate(PartyWarp#0)	PartyWarp#3	-1
-	duplicate(PartyWarp#0)	PartyWarp#4	-1
-	duplicate(PartyWarp#0)	PartyWarp#5	-1
-	duplicate(PartyWarp#0)	PartyWarp#6	-1
-	duplicate(PartyWarp#0)	PartyWarp#7	-1
// Add more party member slots like..
// -	duplicate(PartyWarp#0)	PartyWarp#8	-1

item db

{ doevent("Party-Summoner::OnEvent"); },{},{}

or

{set(@arg,1); doevent("Party-Summoner::OnEvent");},{},{}

i try but not working

August 21, 2013

how to use this?

i try to say like this

0:08 1 person use this 501 and warp to another place with party

or like this

please watch timeline

21:06

http://www.youtube.com/watch?v=PdcGjdvjVSI

gon use 1 item to teleport with killua

im using EA

i got erro master

August 21, 2013

min_group_id_to_connect: -1?

August 21, 2013

if my party warp to another 1map?

lets say i have only one in party member 501 then i want to warp to another place and my party with me

August 19, 2013

can i requesting script auto kick when the player login :Dbut not gm normal account

August 19, 2013

function	script	warpto_func	{

i think this is the error BTW um using EA

i got error now  the scroll not healing item  i replace to red potion is work
7099 to 501

master can you change the @goto. to Party warp lets say

i have 4 members of my party when i use this id 7099 my party members and me warp to poeple?

August 18, 2013

prontera,184,177,5	script	Refine Master	851,{
	mes .npc$;
	mes "Hello there!";
	mes "I can refine your items,";
	mes "without fail if you have";
	mes "the correct refinement deed,";
	mes "and "+.price+" "+.cost$+".";
	emotion e_no1,0; next;
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(getd(.cost$)<.price) { mes .npc$; mes "You don't have enough "+.cost$+". You need "+(.price-getd(.cost$))+" more."; close; }
	
	mes .npc$;
	mes "Which equipment would you like to refine?"; next;
	while(set(.@a,.@a+1)<=.e_len) {
		if(getequipid(.@a)>-1)
			set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.@a))+"^000000]:";
		else set .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:";
	}
		
	select(.@menu$);
	set .@eq_loc, @menu;
	set .@eq_itm, getequipid(.@eq_loc);
	if(.@eq_itm<0) {
		mes .npc$;
		mes "Hmm, I don't think you have anything equipped there.";
		close;
	}
	if(!getequipisenableref(.@eq_loc)) {
		mes .npc$;
		mes "I'm sorry but it seem that item cannot be refined...";
		close;
	}
	
	set .@menu$, "";
	set .@a, -1;
	while(set(.@a,.@a+1)<getarraysize(.en_deed))
		if(getiteminfo(.en_deed[.@a],2)>-1)
			if(set(.@c,countitem(.en_deed[.@a]))) {
				set .@menu$, .@menu$+getitemname(.en_deed[.@a])+" - x"+.@c+":";
				set .@b,.@b+1; set .@item[.@b], .en_deed[.@a];
			}
			
	if(.@menu$=="") {
		mes .npc$;
		mes "Hmm, you don't seem to have any refinement deeds(tickets).";
		close;
	}

	mes .npc$;
	mes "Please, choose the ^314a34Weapon or Armor refine deed^000000 you want to use."; next;
	select(.@menu$);
	set .@itm, .@item[@menu];
	set .@itm_n$, getitemname(.@itm);
	set .@a, 4;
	
	if(.@eq_loc!=4&&getiteminfo(getequipid(.@eq_loc),2)!=4) {
		if(compare(.@itm_n$,"Weapon")) {
			mes .npc$;
			mes "You may only use Weapon deeds on weapons..";
			emotion e_ag,0;
			close;
		}
	} else {
		if(compare(.@itm_n$,"Armor")) {
			mes .npc$;
			mes "You may only use Armor deeds on armor equipment..";
			emotion e_ag,0;
			close;
		}
	}
	set .@eqrf,	getequiprefinerycnt(.@eq_loc);
	while(set(.@a,.@a+1))
		if(compare(.@itm_n$,""+.@a))
			break;

	if(.@a<=.@eqrf) {
		mes .npc$;
		mes "I'm sure you don't want to waste a";
		mes "deed by refining that to a lesser";
		mes "or equal value.";
		emotion e_swt,0;
		close;
	}
		
	
	mes .npc$;
	mes "Great.";
	mes "as you wish!";
	mes "i have my own special way to";
	mes "refine..."; sleep2 1000;
	misceffect 901;
	misceffect 101;
	mes "......Kaboom!";
	next;
	
	delitem .@itm,1;
	setd(.cost$,getd(.cost$)-.price);
	set .@crd0, getequipcardid(.@eq_loc,0); set .@crd1, getequipcardid(.@eq_loc,1);
	set .@crd2, getequipcardid(.@eq_loc,2); set .@crd3, getequipcardid(.@eq_loc,3);
	delitem2 .@eq_itm, 1, 1, .@eqrf, 0, .@crd0, .@crd1, .@crd2, .@crd3;
	getitem2 .@eq_itm, 1, 1, .@a, 0, .@crd0, .@crd1, .@crd2, .@crd3;
	emotion e_no1,0;
	mes .npc$;
	mes "All done!";
	equip .@eq_itm;
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set      .npc$  ,	"[^0000FFRefine Master^000000]"; // NPC Name
		set      .cost$ ,	"#CASHPOINTS";
		set      .price ,	10000;
		setarray .en_deed,	6228, 6229, 6230, 6231, 6232,
							6233, 6234, 6235, 6238, 6239,
							6456;     // Range of IDs selected for enchanting.
		setarray .eqp$  ,	"Upper Headgear", "Armor", "Left Hand", "Right Hand", "Garment",
		                	"Shoes", "Accessory1", "Accessory2", "Mid Headgear", "Low Headgear";
		set      .e_len ,	getarraysize(.eqp$);
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

i try this master can you change you +7 only master this imba /heh Lets say i have this item 6230 then i want to ups any part of my equipment or shoes to +7 limit and max

master this item for weapon only? 6230

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by Phantom Of Rogue-Gon