radlican

February 13, 2015

nice Najara

Zenn where is the link of the old skins?

February 13, 2015

cant downlaod this!

December 6, 2014

ccidentally deleted the trunk folder, using winscp?

November 30, 2014

wala na bang iba?

November 21, 2014

where can i add this.. Costume_System_v1.diff

November 20, 2014

no ERROR in script but when i try to change my sprite it says

November 20, 2014

-	shop	donateshop	111,501:50
ra_temsky,104,99,3	script	Refine & Gym Pass	4_F_FAIRYKID,{
	set @i,0;
	mes "[Donate Shop]";
	mes "Each item will cost you some ^008800Proof oF Donations^000000";
	mes "Select only one.";
	callshop "donateshop",1;
	npcshopattach "donateshop";
	end;


OnBuyItem:
	if(.BuildQuest) {
		for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
		npcshopadditem "donateshop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
		setarray .Shop[.i],getarg(.e+2);
		set .i,.i+1;
		goto Quest_Setup;
	}
	if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
	for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
	mes "[Donate Shop]";
	mes "I require the following:";
	for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^880000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^008800":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
	if(getarg(@i)) mes "^880000" + ((Zeny>=getarg(@i))? "^008800":"") + "" + getarg(@i) + " Zeny";
	mes "^000000In exchange, I will give you:^000088";
	for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
	switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
		case 1:
			for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
				next;
				mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
				mes "Please obtain ^880000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
				close;
			}
			if(Zeny < getarg(@i)) {
				next;
				mes "You do not have enough Zeny.";
				mes "Please obtain ^880000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
				close;
			}
			for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
			set Zeny,Zeny-getarg(@i);
			for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
			if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
			close;
		case 2:
			set @bottomview, getlook(3);
			set @topview, getlook(4);
			set @midview, getlook(5);
			addtimer 1000, strnpcinfo(3)+"::On_Leave";
			set @equip,getiteminfo(@bought_nameid, 5);
			set @view, getiteminfo(@bought_nameid, 11);
			if(@equip != -1 && @view > 0) {
				if(@equip & 1) atcommand "@changelook 3 " + @view;
				if(@equip & 256) atcommand "@changelook 1 " + @view;
				if(@equip & 512) atcommand "@changelook 2 " + @view;
			}
			next;
			goto OnBuyItem;
		case 3:
			close;
	}
On_Leave:
	atcommand "@changelook 1 " + @topview;
	atcommand "@changelook 2 " + @midview;
	atcommand "@changelook 3 " + @bottomview;
	set @equip,0;
	set @view,0;
	set @topview,0;
	set @midview,0;
	set @bottomview,0;
	end;

OnInit:
	npcshopitem "donateshop",0,0;
	set .BuildQuest,1;
	set .i,1;
Quest_Setup:
	switch(.i) {
		default: set .BuildQuest,0; set .e,0; set .i,0; end;
		case 1:	callsub OnBuyItem,7179,150,0,"SZeny",6238,1;
		case 2:	callsub OnBuyItem,7179,150,0,"SZeny",6239,1;
		case 3:	callsub OnBuyItem,7179,10,0,"SZeny",7776,1;	}
}

Im having a hardtime to fix this 2 DONATION NPC'S conflict.. im just new in script editing ..

is there any dev/scripter knows how to make this works properly?

THANKYOU IN ADVANCE

- shop donateshop2 111,501:50
ra_temsky,105,102,4 script Donate Costumes 4_M_FAIRYSOLDIER,{
set @i,0;
mes "[Donate Shop]";
mes "Each item will cost you some ^008800Proof Of Donations^000000";
mes "Select only one.";
callshop "donateshop2",1;
npcshopattach "donateshop2";
end;




OnBuyItem:
if(.BuildQuest) {
for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
npcshopadditem "donateshop2",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto Quest_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
mes "[Donate Shop]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^880000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^008800":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^880000" + ((Zeny>=getarg(@i))? "^008800":"") + "" + getarg(@i) + " Zeny";
mes "^000000In exchange, I will give you:^000088";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^880000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(Zeny < getarg(@i)) {
next;
mes "You do not have enough Zeny.";
mes "Please obtain ^880000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set Zeny,Zeny-getarg(@i);
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
npcshopitem "donateshop2",0,0;
set .BuildQuest,1;
set .i,1;
Quest_Setup:
switch(.i) {
default: set .BuildQuest,0; set .e,10; set .i,0; end;
case 1: callsub OnBuyItem,7179,200,10,"SZeny",20148,1;
case 2: callsub OnBuyItem,7179,200,10,"SZeny",20097,1;
case 3: callsub OnBuyItem,7179,200,10,"SZeny",20147,1;
case 4: callsub OnBuyItem,7179,200,10,"SZeny",20184,1;
case 5: callsub OnBuyItem,7179,200,10,"SZeny",20055,1;
case 6: callsub OnBuyItem,7179,200,10,"SZeny",20060,1;
case 7: callsub OnBuyItem,7179,200,10,"SZeny",20052,1;
case 8: callsub OnBuyItem,7179,200,10,"SZeny",20019,1;
case 9: callsub OnBuyItem,7179,200,10,"SZeny",20083,1;
}
}

November 20, 2014

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

// --------------------------------------------------------------------------
// --------------------------------------------------------------------------
// --------------------------------------------------------------------------
// 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

November 11, 2014

@TS is your problem fixed?

i want it too...

@nightro can you share to me too.. ill send a messsage to your inbox bro.. please ..

November 5, 2014

How to put a restriction for example ..

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 ..

please UP !!

is this the script that we wishing bro Skorm?

October 3, 2014

up!

October 2, 2014

how to execute the sql table?

October 1, 2014

how? please share

October 1, 2014

September 30, 2014

im using hercules server , pre-renewal

my dice event didn't start

//======Name========================================
// Dice Event
//======Version=====================================
// 1.0
//======Author(s)===================================
// Sandbox
//======Comments====================================
// In loving memory of AstralRO
//==================================================



//Edit to where would you place the warper
prontera,155,179,4	script	Dice Event Warper#dice	45,{

mes "Do you want to join the Dice Event?";
menu "Yes",-;
warp "quiz_01",55,87;
close;

}

-	script	DiceTrigger	-1,{

OnMinute30:
if(gettime(3) % 2 == 0) donpcevent "DiceTrigger::OnDiceETrigger";
end;

OnInit:
disablenpc "Dice Event Warper#dice";
disablenpc "Claim Your Prize!#dice";
end;


OnDiceETrigger:
if(agitcheck() == 1) end;
enablenpc "Dice Event Warper#dice";
announce "Dice Event: We are going to have a Dice Event",bc_all,0x8A2BE2;
sleep2 1000;
announce "Dice Event: For those who want to join, please warp @ Prontera Town!",bc_all,0x8A2BE2;
sleep2 1000;
announce "Dice Event: The Warper would be open for 1 minute",bc_all,0x8A2BE2;
sleep2 30000;
announce "Dice Event: Last 30 Seconds.",bc_all,0x8A2BE2;
sleep2 30000;
announce "Dice Event: Warper Closed.",bc_all,0x8A2BE2;
disablenpc "Dice Event Warper#dice";
areawarp "ra_temsky",86,149,113,134,"ra_temsky",177,114;
donpcevent "DiceEvent::OnDiceStart";
end;

}

quiz_01,55,90,3	script	Got Stuck?#dice	779,{

mes "[ Got Stuck? ]";
mes "Do you wish to go back?";
menu "Yes",-;
warp "prontera",136,177;
close;

}


quiz_01,37,80,3	script	Box 1	111,{

warp "quiz_01",37,70;
close;

}

quiz_01,49,80,3	script	Box 2	111,{

warp "quiz_01",49,70;
close;

}

quiz_01,61,80,3	script	Box 3	111,{

warp "quiz_01",61,70;
close;

}


quiz_01,73,80,3	script	Box 4	111,{

warp "quiz_01",73,70;
close;

}

quiz_01,37,64,3	script	Go Back#1	858,{

warp "quiz_01",55,76;
close;

}


quiz_01,49,64,3	script	Go Back#2	858,{

warp "quiz_01",55,76;
close;

}

quiz_01,61,64,3	script	Go Back#3	858,{

warp "quiz_01",55,76;
close;

}

quiz_01,73,64,3	script	Go Back#4	858,{

warp "quiz_01",55,76;
close;

}


-	script	DiceEvent	-1,{

OnDiceStart:
mapannounce "quiz_01","We are about to start the Dice event.",bc_blue;
sleep2 1000;
mapannounce "quiz_01","Rules are simple:",bc_blue;
sleep2 1000;
mapannounce "quiz_01","I'm going to pick a number, 1 to 4. Then I'll do a countdown from 5 to 0",bc_blue;
sleep2 1000;
mapannounce "quiz_01","All you have to do is go to box of the number you want",bc_blue;
sleep2 1000;
mapannounce "quiz_01","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue;
sleep2 1000;
mapannounce "quiz_01","We'll do it again and again until we have 1 player left on this map.",bc_blue;
sleep2 2000;
mapannounce "quiz_01","Before I forget, you must GO INSIDE THE BOX! because if you're caught standing outside the box you'll be automatically disqualified!",bc_blue;
sleep2 2000;
mapannounce "quiz_01","That's it.. Now let's get it on!",bc_blue;
sleep2 3000;
goto L_start;
end;


L_start:
enablenpc "Go Back#1";
enablenpc "Go Back#2";
enablenpc "Go Back#3";
enablenpc "Go Back#4";
if(getmapusers("quiz_01") == 1) goto L_winner;
enablenpc "Box 1";
enablenpc "Box 2";
enablenpc "Box 3";
enablenpc "Box 4";
if(getmapusers("quiz_01") == 0) goto L_noone;
if(getmapusers("quiz_01") > 1) {
set $@number,rand(1,4);
sleep2 1000;
mapannounce "quiz_01","I'm ready to pick a number. Please go to the box of the number you want! Go go go!",bc_blue;
sleep2 20000;
mapannounce "quiz_01","5",bc_blue;
sleep2 1500;
mapannounce "quiz_01","4",bc_blue;
sleep2 1500;
mapannounce "quiz_01","3",bc_blue;
sleep2 1500;
mapannounce "quiz_01","2",bc_blue;
sleep2 1500;
mapannounce "quiz_01","1",bc_blue;
disablenpc "Box 1";
disablenpc "Box 2";
disablenpc "Box 3";
disablenpc "Box 4";
disablenpc "Go Back#1";
disablenpc "Go Back#2";
disablenpc "Go Back#3";
disablenpc "Go Back#4";
areawarp "quiz_01",32,95,79,76,"prontera",136,177;
areawarp "quiz_01",80,85,80,76,"prontera",136,177;
areawarp "quiz_01",31,85,31,76,"prontera",136,177;
if(getmapusers("quiz_01") == 0) goto L_noone;
sleep2 1000;
mapannounce "quiz_01","Time's Up. Winning number is "+$@number+"!",bc_blue;
	if($@number == 4) goto L_Lose1;
	if($@number == 3) goto L_Lose2;
	if($@number == 2) goto L_Lose3;
	if($@number == 1) goto L_Lose4;
end;

}

L_Lose1:
//Edit to where will you warp players that lost
areawarp "quiz_01",33,73,41,52,"prontera",136,177;
areawarp "quiz_01",45,73,53,52,"prontera",136,177;
areawarp "quiz_01",57,73,65,52,"prontera",136,177;
goto L_start;
end;

L_Lose2:
//Edit to where will you warp players that lost
areawarp "quiz_01",33,73,41,52,"prontera",136,177;
areawarp "quiz_01",45,73,53,52,"prontera",136,177;
areawarp "quiz_01",69,73,77,52,"prontera",136,177;
goto L_start;
end;

L_Lose3:
//Edit to where will you warp players that lost
areawarp "quiz_01",33,73,41,52,"prontera",136,177;
areawarp "quiz_01",57,73,65,52,"prontera",136,177;
areawarp "quiz_01",69,73,77,52,"prontera",136,177;
goto L_start;
end;

L_Lose4:
//Edit to where will you warp players that lost
areawarp "quiz_01",45,73,53,52,"prontera",136,177;
areawarp "quiz_01",57,73,65,52,"prontera",136,177;
areawarp "quiz_01",69,73,77,52,"prontera",136,177;
goto L_start;
end;

L_noone:
announce "No one won the Dice Event!",bc_all,0x8A2BE2;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
end;

L_winner:
enablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
end;

}

quiz_01,55,84,3	script	Claim Your Prize!#dice	904,{

getitem 7227,50; //Edit on what prize would you give to the winner
announce strcharinfo(0)+" won the Dice Event!",bc_all,0x8A2BE2;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
warp "prontera",136,177;
close;
end;

}

quiz_01	mapflag	nowarp
quiz_01	mapflag	nowarpto
quiz_01	mapflag	noskill
quiz_01	mapflag	noteleport
quiz_01	mapflag	nomemo
quiz_01	mapflag	nosave	SavePoint
quiz_01	mapflag	noicewall
quiz_01	mapflag	noloot

Sign In

radlican

Posts

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by radlican

THOR Patcher [Free] Design

THOR Patcher [Free] Design

recover deleted folders wanhosting help...

VPS hosting? saan maganda?

Costume NPC and @costumeitem

need a 3rd job sprite npc

donation NPC Error

Costume Conveter NPC cant Click

asura

Requesting for PVP PK points and PVP NPC SHOP script .TY

Pvp with bet.

Guild Pack NPC Giver (Help please)

How to show the Damage on the Battle log chat.

Refiner with proof of donation

Quests, Games: Dice Event

Docs

Get Started

Github

Community

My Account