Jump to content

eirwanda

Members
 View Profile  See their activity

  • Posts

    59

  • Joined

  • Last visited

 Content Type 

Posts posted by eirwanda

    Emistry Vendor Script

    in Scripting Support

    Posted · Edited by eirwanda
    Adding full script

    Morning Rathena !!

    I need some help with Emistry Vendor Script.

    The main problem is, after using the box, the box are not appear again .....

     

      

    OnSetup:
getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC,"vend_slot"+.@i );
set .@npcname$,strnpcinfo(0);
while( .@map$ != "" ){
	if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
		hideonnpc .@npcname$;
	}else{
		hideoffnpc .@npcname$;
	 	//specialeffect 313;
	}
//	sleep 100;
}
end;
}

    Here's the full script :

    Quote 
    
sanctum_in,102,174,5	script	Vending Helper#1	757,{
for( set .@i,1; .@i <= .count; set .@i,.@i + 1 ){
	getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
	if( !getareausers( .map$,.@x,.@y,.@x,.@y ) && .@x > 1 && .@y > 1 ){
		set .@available,.@available + 1;
		set .@menu$,.@menu$ + "Slot - "+.@i+":";
	}else{
		set .@menu$,.@menu$ + ":";
	}
}

if( !.@available ){
	mes "Dont have any available slot.";
}else if( !getskilllv("MC_VENDING") ){
	mes "You dont have ^0055FFVending Skill^000000.";
}else{
	mes "Available Slot : "+.@available;
	mes "Please select a slot to vending.";
	set .@i,select( .@menu$ );
	getmapxy( .@map$,.@x,.@y,1,"#vend_slot"+.@i );
	if( .@x == 1 || .@y == 1 ){
		mes "This NPC at invalid location...";
	}else{
		warp .@map$,.@x,.@y;
		hideonnpc "#vend_slot"+.@i;
	}
}
close;

OnInit:
sleep 1000;
// Map for vending
set .map$,"sanctum_in";
setcell .map$,48,133,151,135,cell_novending,1;

// x and y horizone ..
setarray .x_line,83,89,95,104,110,116;
setarray .y_line,165,163,161,159,157,155,153,151,149,143,141,139,137,135,133,131,129,119,117,115,113,111,109,107,105,103,97,95,93,91,89,87,85,83;

set .x_line_size,getarraysize( .x_line );
set .y_line_size,getarraysize( .y_line );
set .count,1;
for( set .@x,0; .@x < .x_line_size; set .@x,.@x + 1 )
	for( set .@y,0; .@y < .y_line_size; set .@y,.@y + 1 )
		if( checkcell( .map$,.x_line[.@x],.y_line[.@y],cell_chkpass ) ){
			movenpc "#vend_slot"+.count,.x_line[.@x],.y_line[.@y];
			setcell .map$,.x_line[.@x],.y_line[.@y],.x_line[.@x],.y_line[.@y],cell_novending,0;
			set .count,.count + 1;
		}
npctalk "Vending Spot : "+.count;
donpcevent "::OnSetup";
end;
}

-	script	vend_slot	-1,{
getmapxy( .@map$,.@x,.@y,1 );
if( !getskilllv("MC_VENDING") ){
	mes "You dont have ^0055FFVending Skill^000000.";
}else if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
	mes "Someone already selected this spot.";
}else{
	mes "Spot : ^777777Available^000000";
	mes "^0055FF[ Vending Rules ]^000000";
	mes "^FF0000 ~ Use proper Shop Name.^000000";
	mes "^FF0000 ~ Never sell Junk/Gifts.^000000";
	mes " ";
	mes "^777777Player will failed to follow these will be punished.^000000";
	if( select( "Select this Spot","Cancel" ) == 1 ){
		warp .@map$,.@x,.@y;
		hideonnpc strnpcinfo(0);
	}
}
close;

OnSetup:
getmapxy( .@map$,.@x,.@y,UNITTYPE_NPC,"vend_slot"+.@i );
set .@npcname$,strnpcinfo(0);
while( .@map$ != "" ){
	if( getareausers( .@map$,.@x,.@y,.@x,.@y ) ){
		hideonnpc .@npcname$;
	}else{
		hideoffnpc .@npcname$;
//	 	specialeffect 313;
	}
//	sleep2 100;
}
end;
}

// Add more if needed.
sanctum_in,1,1,5	duplicate(vend_slot)	#vend_slot1	858
sanctum_in,1,1,5	duplicate(vend_slot)	#vend_slot2	858
sanctum_in,1,1,5	duplicate(vend_slot)	#vend_slot3	858

     

    Thanks in advance /thx/thx 

    help Zeny Farm System

    in Script Requests

    Posted · Edited by eirwanda

    Hi, i will explain my script request:

    1. There's 1-3rd floor to farm some zeny 

    2. Only Job Clown can enter the room 

    3. on the 1st floor you only can kill 500 mobs and instantly warp to 2nd floor after kill the mobs, on 2nd floor you only can kill 250 mobs and instantly warp to 3rd floor, last one at 3rd floor you only could kill 100 mobs and instantly warp to main town

    4. 1st Floor Mob=Dokebi | 2nd Floor Mob=Poring | 3rd Floor Mob=Drops

     

     

    sorry for my bad english but i hope u understand /sry/sry/sry 

    Thank you in advance /no1 

    GVG Script

    in Script Requests

    Posted · Edited by eirwanda

    iam looking for script like this:

    when Guild Master enter GVG Room would appear a mesage box ask for "Recall a Guild Member" or "No"

    if we select "Recall a Guild Member" all guild member recalled Like Emergency Call Skill.

    *GvG Room map guild_vs3

    thanks in advance

    /thx/thx 

    sorry for bad english

    VIP System Information

    in Source Support

    Posted

    On 19/01/2018 at 10:49 PM, BrOgBr said:

    I've never tried change it, but you can try find this lines:

    Try change this.

    Already change those line but, nothing changed.

    This is on my msgstringtable.txt :

    E X P Rate : #
    Drop Rate  : #
    Death Penalty: #
    %d%% (Internet cafe %d%% + Premium %d%% + %s Server %d%%)

    And its still showing tplus and pcroom /sob/sob

     

     

    VIP System Information

    in Scripting Support

    Posted

    Hi rAthena, i want to add more information inside this script,

    like EXP Rates, Drop Rates, and Death Penalty, Like an Official VIP Information.

    and 3 of them is connected on player.conf

    Quote 
    
OnPCLoginEvent:
		if (vip_status(1)) {
			dispbottom "========================";
			dispbottom "Account Status : VIP";
			dispbottom "Expire Date : "+vip_status(2);
			dispbottom "Time left : "+vip_status(3);
			dispbottom "========================";
			end;
		}
	}

    thanks in advance /thx 

     

    • Love 1

    VIP System Information

    in Source Support

    Posted

    Hi rAthena,

    How to change the VIP Message ? it's a bit confused to read ....

    VIP Message on my Server :

    image.png.f230fc553cba49e036943873e484a969.png

    i want to change like this one, it's really simple:

    image.png.931918f69a915f9416fbbfe803ffd8fa.png

    please tell me step by step to edit this one

     

    thanks in advance /thx/thx 

     

    • Love 1
×
×
  • Create New...