Jump to content

HappyMan

Members
  • Content Count

    21
  • Joined

  • Last visited

About HappyMan

  • Rank
    Member

Profile Information

  • Gender
    Male
  • Location:
    Philippines
  • Github
    HappyMan
  • Emulator
    Hercules

Recent Profile Visitors

1367 profile views
  1. bonus2 bMagicAddRace,RC_DemiHuman,50; bonus2 bMagicAddRace,RC_Player,50;
  2. maiiba mo pa din ang cast time sa renewal also delay
  3. 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.
  4. 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"; } }
  5. yea you can block 3rd party programs by just editing src.
  6. 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
  7. anyone here can give 2 hours woe countdown script? thanks in advance. bump anyone??
  8. 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.
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.