HappyMan

December 13, 2016

bonus2 bMagicAddRace,RC_DemiHuman,50;

bonus2 bMagicAddRace,RC_Player,50;

December 5, 2016

@Mhalicot ang pre-renewal ba bawal mo imodify ng lvl 100+ ang monsters?

At sa pagkaka alam ko fixed cast time ang renewal, dito ba pumapasok ung hercules feature na built in "anti rpe/wpe" or sa src na ito kahit pre-re or renewal ka gagana itong feature na to?

maiiba mo pa din ang cast time sa renewal also delay

October 24, 2016

prontera,129,192,5	script	Fisher Man::Fisher	709,{
	mes "Hello There!";
	mes "Want to go Fishing?";
	mes "You need 100 Butil ng Bigas for the Entrance Fee";
	next;
	mes "You still need";
	mes "15 Butil Ng Bigas";
	mes "To catch a Fish";
	next;
	mes "Still want to go?";
	menu "Yeah",yes,"No",no;
no:
	mes "okay";
	close;
yes:

if( countitem( 7539 ) >= 100 ){
	warp "lhz_dun05",209,133;
	delitem 7539,100;
}	
	else {
		mes "You Need 100 Butil Ng Bigas to get In.";
		close;

}
}


lhz_dun05	mapflag	nowarp
lhz_dun05	mapflag	noteleport
lhz_dun05	mapflag	nomemo
lhz_dun05	mapflag	nogo 
lhz_dun05	mapflag	nodrop
lhz_dun05	mapflag	nosave
lhz_dun05	mapflag	nobranch





lhz_dun05,213,130,4	script	Fishing Spot::fishing	1158,{
	if(countitem(7539) > 15){
delitem 7539,15;
		specialeffect2 EF_BUBBLE;

			if (rand(1,20) == 2) {
				getitem 7539,50; //Bnb
				specialeffect EF_BUBBLE;
				announce "" + strcharinfo(0) + " Ay Nakakuha ng Isang Kilong Bigas Sa Pangingisda!!!",bc_map,"0xff77ff";
				end;
			}
		set .@rhea_ran,rand(1,70);
		if (.@rhea_ran < 20) {
			getitem 604,1; //Dead Branch
		}
		else if (.@rhea_ran == 20) {
			getitem 678,1; //Gayuma
		}
		else if (.@rhea_ran == 21) {
			getitem 909,2; //Jellopy
		}
		else if (.@rhea_ran == 22) {
			getitem 14232,10; //Yggdrasil Berry Box
		}
		else if (.@rhea_ran == 23) {
			getitem 7227,1; //B-RO Card
		}
		else if (.@rhea_ran == 24) {
			getitem 7227,1; //B-RO Card
		}
		else if (.@rhea_ran == 25) {
			getitem 14232,10; //Yggdrasil Berry Box
		}
		else if (.@rhea_ran == 26) {
			getitem 678,1; //Gayuma
		}
		else if (.@rhea_ran == 27) {
			getitem 604,10; //Dead Branch
		}
		else if (.@rhea_ran == 28) {
			getitem 678,1; //Gayuma
		}
		else if ((.@rhea_ran > 28) && (.@rhea_ran < 40)) {
			getitem 12103,1; //bloody
		}
		else {
			close;
		}
		if (rand(1,200) == 3) {
			getitem 7539,50; //bnb
		}
		if (rand(1,500) == 3) {
			getitem 7828,50; //bnb
			mapannounce "prontera","" + strcharinfo(0) + " Has Caught 50 Badges From Fishing",bc_map,"0x00ffff";
		}
		if (rand(1,3000) == 3) {
			getitem 12103,100; //bloody Branch
			mapannounce "prontera","" + strcharinfo(0) + " Has Caught an 100 Bloody Branch!!",bc_map,"0x44ff44";
		}
		end;
	}
	else {
		mes "You Need 15 Butil ng bigaS.";
		close;
	}
}

lhz_dun05,206,137,1	duplicate(fishing)	Fishing Spot#10	1158
lhz_dun05,213,123,1	duplicate(fishing)	Fishing Spot#11	1158
lhz_dun05,206,116,1	duplicate(fishing)	Fishing Spot#12	1158
lhz_dun05,208,116,1	duplicate(fishing)	Fishing Spot#13	1158
lhz_dun05,210,116,1	duplicate(fishing)	Fishing Spot#14	1158
lhz_dun05,208,123,1	duplicate(fishing)	Fishing Spot#15	1158
lhz_dun05,210,123,1	duplicate(fishing)	Fishing Spot#16	1158
lhz_dun05,212,139,1	duplicate(fishing)	Fishing Spot#17	1158

try this one.

October 24, 2016

if you want to create another npc just rename the HeadGear_Upper also the npc name

//////////////////////////////////////////HEADGEAR UPPER//////////////////////////////////////////
-    shop    HeadGear_Upper    -1,501:50
force_1-1,21,32,5    script    Headgear Upper    405,{
set @i,0;
mes "[Shop Quest NPC]";
mes "Which item do you wish to obtain?";
mes "Select only one.";
callshop "HeadGear_Upper",1;
npcshopattach "HeadGear_Upper";
end;

OnBuyItem:
  if(.BuildQuest) {
    for(set .e,0; !compare(getarg(.e+1) + "","Zeny"); set .e,.e+2) {}
    npcshopadditem "HeadGear_Upper",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 "[Shop Quest NPC]";
  mes "I require the following:";
  for(set @i,0; !compare(getarg(@i+1) + "","Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
  if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
  mes "^000000In exchange, I will give you:^0000FF";
  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 ^FF0000" + (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 ^FF0000" + (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 "HeadGear_Upper",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,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20053,1,"Announce";
        case 2: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20061,1,"Announce";
        case 3: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20076,1,"Announce";
                case 4: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20082,1,"Announce";
        case 5: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20145,1,"Announce";
        case 6: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20146,1,"Announce";
                case 7: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20150,1,"Announce";
        case 8: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20153,1,"Announce";
        case 9: callsub OnBuyItem,7120,250,913,200,1008,80,969,100,7227,25,10000000,"Zeny",20179,1,"Announce";

    

  }
}

October 23, 2016

anyone?

October 21, 2016

bump

October 19, 2016

yea you can block 3rd party programs by just editing src.

October 19, 2016

create new folder in your ro folder

name it as BGM

put the 08.mp3 and ur done

if you want to double check prontera bgm and other map go to

data/mp3nametable.txt

October 19, 2016

anyone here can give 2 hours woe countdown script?

thanks in advance.

bump

anyone??

October 19, 2016

anyone can help me to modified my soul link effects

i want my soul link effects increase hp by 25% or 50%

thanks in advance.

Sign In

HappyMan

Content Count

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Staff Applications

Calendar

Posts posted by HappyMan

Item bonus script help

Pre-renewal and Renewal Paki explain!

HI NEED HELP IN FISHING

need help please ??

Soul Link Effects

Soul Link Effects

Reverse xrag using a script (pvp script)

Hi script for playing song or mp3 as bgm in prontera

2 hours woe countdown

Soul Link Effects

Chat

GitHub

Community

Documentation

Important Information