Jump to content

GMxMomi

Members
  • Posts

    48
  • Joined

  • Last visited

Everything posted by GMxMomi

  1. winning team first team with 3 flag take to npc at base as winner, the player with flag get quaqmire skill warp all winning team to some map for claim prize and remove from party losing team warp to prontera and remove from party yes is 5vs5 pvp but need to take flag to base. video : lease i very need it~!! winning team first team with 3 flag take to npc at base as winner, the player with flag get quaqmire skill warp all winning team to some map for claim prize and remove from party losing team warp to prontera and remove from party yes is 5vs5 pvp but need to take flag to base. video : lease i very need it~!!
  2. i done with 3 script that
  3. Before you decide to pay me for do this, let you know it's not easy first : http://bit.ly/RUTp7t in fact, you can suggest your player to make a team by themselves. xD.. ok
  4. so so. -- Here is my release : http://rathena.org/b...pture-the-flag/ and this other my release : http://rathena.org/b...stom-map-added/ Only add new commands to create and break party, and that wouldn't hard. Or change to battle ground, then can also done it. (PS:I just want to let you know this information.) cant make it for me? i make it paid services~!
  5. later i try.. thank.. if have any problem i pm you fb
  6. i have +10 item npc seller but only can buy use item~!! i want make can buy +10 item with cashpoint ra_temsky,96,134,8 script +10 Quest Set 1656,{ Main: mes "Please Choose your items that you want to buy."; MES "By Using Various Items."; mes "^ff0000MAKE SURE YOU WEIGHT IS BELOW 50%.^000000"; next; switch(select("^C0C0C0Information^000000", "+10 Black Sakkat Bamboo", "+10 Dark Black Fairy Wing", "^0000FF+10 Blue Sakkat Bamboo^000000", "^0000FF+10 Dark Blue Fairy Wing^000000", "^FFFF00+10 Gold Sakkat Bamboo^000000", "^FFFF00+10 Dark Gold Fairy Wing^000000", "^00FFFF+10 Cyan Sakkat Bamboo^000000", "^00FFFF+10 Dark Cyan Fairy Wing^000000", "^800080+10 Purple Sakkat Bamboo^000000", "^800080+10 Dark Purple Fairy Wing^000000", "^FF0000+10 Red Sakkat Bamboo^000000", "^FF0000+10 Dark Red Fairy Wing^000000", "^FFFFFF+10 White Sakkat Bamboo^000000", "^FFFFFF+10 Dark White Fairy Wing^000000", "^00FF00+10 Green Sakkat Bamboo^000000", "^00FF00+10 Dark Green Fairy Wing^000000", "^C0C0C0Cancel^000000")) { Case 1: mes "This is a Dynamic SHop that buy items using Items instead of Zeny."; close; // callsub DynamicShop,<ItemNeed>,<Amount>,<GetItem>,<Amount>,<Refine>; Case 2: callsub DynamicShop,7720,250,20102,1,10; Case 3: callsub DynamicShop,7720,250,20584,1,10; Case 4: callsub DynamicShop,7720,250,20169,1,10; Case 5: callsub DynamicShop,7720,250,20593,1,10; Case 6: callsub DynamicShop,7720,250,20423,1,10; Case 7: callsub DynamicShop,7720,250,20595,1,10; Case 8: callsub DynamicShop,7720,250,20274,1,10; Case 9: callsub DynamicShop,7720,250,20594,1,10; Case 10: callsub DynamicShop,7720,250,20698,1,10; Case 11: callsub DynamicShop,7720,250,20597,1,10; Case 12: callsub DynamicShop,7720,250,20753,1,10; Case 13: callsub DynamicShop,7720,250,20598,1,10; Case 14: callsub DynamicShop,7720,250,20864,1,10; Case 15: callsub DynamicShop,7720,250,20615,1,10; Case 16: callsub DynamicShop,7720,250,20779,1,10; Case 17: callsub DynamicShop,7720,250,20596,1,10; Case 18: close; } DynamicShop: if ( countitem(getarg(0)) < getarg(1) ){ mes "You didnt have enough items to buy this."; mes "You need "+getarg(1)+" "+getitemname(getarg(0))+" to buy this items."; next; goto Main; } delitem getarg(0),getarg(1); getitem2 getarg(2),getarg(3),1,getarg(4),0,0,0,0,0; mes "You have Brought a +"+getarg(4)+" "+getitemname(getarg(2))+" with "+getarg(1)+" of "+getitemname(getarg(0))+"."; close; }
  7. Help Me Compile My LUB TO LUA~!! I want added new monster please 10000x datainfo.rar
  8. Good day! In my server I have a Capture the Flag script. It allows many people to enter that makes it worst and boring. I would like to have a Capture the Flag like in this images. NPC Characteristics: 1. 10 people could enter the Capture the Flag event NPC. 2. These ten people will immediately be divided into 2 parties automatically. 3. The 2 parties are the RED and the BLUE team. 4. A player who dies goes back to the party team base. 5. After a Party Team wins, each 5 members will receive five pieces of item and be warped out. 6. Win or Lose Party Teams should also automatically leave their party after the event. 7. Another 10 people can enter the Capture the flag NPC. 8. Back to number 1 above. I Know This Script Very Hard~!! Thats Why i think must paid for this services~!! no one will give for free just pm me you price..seriusly i very2 need it
  9. Help About Capture The Flag~!! help me how to make start when 2 party register or 4 player with waiting list register not waiting for gm activate it~!! and please learn me how to add source code for make party organize ( when player enter the ctf, he is automatically join party etc blue team) Credits @goddameit //Author Goddameit //Version 2012/06/08 //Web http://bit.ly/Ja4udH guild_room,236,283,4 script CTF-Reward 100,{ getitem 607,1; warp "prontera",150,180; end; } prontera,150,185,4 script CTF 100,{ if(getgmlevel()) goto OnStart; function c_flagon { while(set(.@i,.@i+1)<=6) { if(getd("$@flag"+.@i+"_a")==getarg(0)) return .@i; } return 0; } function bx { switch(getarg(0)) { case 1: return 90; case 2: return 97; case 3: return 104; case 4: return 91; case 5: return 98; case 6: return 105; } } function by { switch(getarg(0)) { case 1: case 2: case 3: return 178; case 4: case 5: case 6: return 18; } } if(!.game) { mes "No game now."; close; } if(.game==2) { mes "Starting."; close; } select("Join"); mes "OK"; set @ctf_tid,.join==0?1:.join==1?2:.join%2; setd ".join_j"+.join,getcharid(3); set .join,.join+1; close;[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]OnTimer120000: set .w,0; if(.ctf_tp1!=.ctf_tp2) { announce "[CTF] Team "+set(.w,(.ctf_tp1>.ctf_tp2?1:2))+" win.",0; for(set .@io,0;.@io<=.join;set .@io,.@io+1) { if(attachrid(getd(".join_j"+.@io))) { getmapxy(@cm$,@cx,@cy,0); if(@cm$=="prt_maze02") { if(.w==@ctf_tid) { warp "guild_room",236,283; }else warp "prontera",150,180; } setd ".join_j"+.@io,0; } } set .join,0; } mapwarp "prt_maze02","prontera",150,180; announce "[CTF] Game Over",0; end; OnStart: set .game,1; set .join,0; set .ctf_tn1,0; set .ctf_tn2,0; set .ctf_tp1,0; set .ctf_tp2,0; sleep2(10000); set .game,2; setmapflag "prt_maze02",mf_pvp; announce "[CTF]!!!",0; for(set .@io,0;.@io<=.join;set .@io,.@io+1) { if(attachrid(getd(".join_j"+.@io))) { warp "prt_maze02",bx(@ctf_tid*3),by(@ctf_tid*3); } } initnpctimer; initnpctimer "CTF-Point#1"; initnpctimer "CTF-Point#2"; end; OnPCDieEvent: getmapxy(@cm$,@cx,@cy,0); if(@cm$!="prt_maze02"||.game!=2||!@ctf_tid) end; addtimer 5000,"CTF-Point#"+@ctf_tid+"::OnDie"; OnPCEnd: OnPCLogoutEvent: set @ctf_tu,0; set @CTF,0; if(set(.@i,c_flagon(getcharid(0)))) { deltimer "FlagTimer::OnTimerStart"; callfunc "CTF_LimitSkillWhenCareFlag",0; getmapxy(.@cm$,.@cx,.@cy,0); hideoffnpc "Flag#"+.@i; stopnpctimer "Flag#"+.@i; setd "$@flag"+.@i+"_a",0; movenpc "Flag#"+.@i,.@cx,.@cy; if(@ctf_xt&&@ctf_tid) { specialeffect2 666; set @ctf_xt,0; mapannounce "prt_maze02","[CTF] Team "+@ctf_tid+" +1",0; setd ".ctf_tp"+@ctf_tid,getd(".ctf_tp"+@ctf_tid)+1; mapannounce "prt_maze02","[sorce] "+.ctf_tp1+" : "+.ctf_tp2,0; movenpc "Flag#"+.@i,bx(.@i),by(.@i); getmapxy(getvariableofnpc(.cm$,"Flag#"+.@i),getvariableofnpc(.cx,"Flag#"+.@i),getvariableofnpc(.cy,"Flag#"+.@i),1,"Flag#"+.@i); } end; } set @ctf_xt,0; end; } prt_maze02,90,178,4 script Flag#1 722,{ if(getvariableofnpc(.game,"CTF")!=2||!@ctf_tid) end; function bx { switch(getarg(0)) { case 1: return 90; case 2: return 97; case 3: return 104; case 4: return 91; case 5: return 98; case 6: return 105; } } function by { switch(getarg(0)) { case 1: case 2: case 3: return 178; case 4: case 5: case 6: return 18; } } function flag_tid { if(getarg(0)<4) return 1; else return 2; } set .k,atoi(strnpcinfo(2)); if(@ctf_tid!=flag_tid(.k)) { getmapxy(.cm$,.cx,.cy,1); getmapxy(.@cm$,.@cx,.@cy,0); if(pow(.cx-.@cx,2)>9||pow(.cy-.@cy,2)>9) { message strcharinfo(0),"Too far!!"+rand(1000)+""+rand(1000); end; } if(@CTF) end; set @CTF,1; setd "$@flag"+.k+"_a",getcharid(0); hideonnpc strnpcinfo(0); callfunc "CTF_LimitSkillWhenCareFlag",1; addtimer 500,"FlagTimer::OnTimerStart"; end; }else{ getmapxy(.@cm$,.@cx,.@cy,1); if(.@cx==bx(.k)&&.@cy==by(.k)) end; callfunc "CTF_LimitSkillWhenCareFlag",0; movenpc strnpcinfo(0),bx(.k),by(.k); set @CTF,1; end; } } - script FlagTimer -,{[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]OnTimerStart: set @ctf_tu,@ctf_tu+1; if(@ctf_tu>120) { unitskilluseid getcharid(3),173,1; doevent "CTF::OnPCEnd"; end; } specialeffect2 589; addtimer 500,"FlagTimer::OnTimerStart"; end; }[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]prt_maze02,97,178,4 duplicate(Flag#1) Flag#2 722 prt_maze02,104,178,4 duplicate(Flag#1) Flag#3 722 prt_maze02,91,18,4 duplicate(Flag#1) Flag#4 722 prt_maze02,98,18,4 duplicate(Flag#1) Flag#5 722 prt_maze02,105,18,4 duplicate(Flag#1) Flag#6 722[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]prt_maze02,97,182,4 script CTF-Point#1 111,3,3,{ end;[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]OnDie: warp "prt_maze02",@ctf_tid==1?97:98,@ctf_tid==1?182:15; end; OnTouch: if(getvariableofnpc(.game,"CTF")!=2||!@ctf_tid) end; if(@ctf_tid!=atoi(strnpcinfo(2))) end; set @ctf_xt,1; doevent "CTF::OnPCEnd"; end;[/font][/color] [color=#282828][font=helvetica, arial, sans-serif]OnTimer500: specialeffect 225; sleep(500); specialeffect 236; sleep(500); specialeffect 237; sleep(500); specialeffect 238; initnpctimer; end; } prt_maze02,98,15,4 duplicate(CTF-Point#1) CTF-Point#2 45,3,3 prt_maze02 mapflag nowarpto prt_maze02 mapflag nosave prt_maze02 mapflag nobranch prt_maze02 mapflag nopenalty prt_maze02 mapflag noreturn prt_maze02 mapflag nowarp prt_maze02 mapflag noicewall prt_maze02 mapflag nomemo prt_maze02 mapflag pvp bump!!!
  10. like xilero lol hahahaha
  11. help me how to make start when 2 party register not wait for gm activate it~!! and please learn me how to add source code for make party organize ( when player enter the ctf, he is automatically join party etc blue team)
  12. Help About Soul Collector Error~!! I dont know what is problem~!! npc no response when click and NO SOUL COUNT WHEN KILL MONSTER~!! Help Please job_wiz,39,95,6 script Soul Collector 437,{ if ( SoulQuest == 0 ) goto Start; if ( SoulQuest == 1 ) goto One; if ( SoulQuest == 2 ) goto Two; if ( SoulQuest == 3 ) goto Three; Start: mes "Bring me 50,000 Souls then i will talk with you."; mes "You can hunt it by killing any monster."; set SoulQuest,1; close; } One: if ( Soul < 50000 ) { mes "I need 50,000 Souls..."; mes "But currently you only have "+Soul+" Soul."; close; } mes "Look like you have done a great work."; set Soul,0; set SoulQuest,2; next; goto Two; Two: if ( ECH < 30 || Dull < 15 || BM < 7 || Lori < 7 || BK < 5 ){ mes "Second round.."; mes "Go get me these Souls."; mes "["+ECH+" / 30] Evil Cloud Hermit Souls."; mes "["+Dull+" / 15] Dullahan Souls."; mes "["+BM+" / 7] Bloody Murderer Souls."; mes "["+Lori+" / 7] Loli Ruli Souls."; mes "["+BK+" / 5] Bloody Knight Souls."; close; } mes "Look like you have done a great work again."; set ECH,0; set Dull,0; set BM,0; set Lori,0; set BK,0; set SoulQuest,3; next; goto Three; Three: if ( countitem(7511) < 2000 ){ mes "Last Round...hunt me this.": mes "["+countitem(7511)+" / 2000] Darkness Rune."; close; } mes "OMG !! You have done all my requests."; delitem 7511,2000; getitem 12035,1; getitem 12036,1; getitem 12037,1; next; mes "Due to your hard work i will randomly reward you with an unique equipments.": set @Random,rand(1,10); if ( @Random < 5 ){ getitem 12039,1; } if ( @Random < 9 && @Random > 4 ){ getitem 12039,1; } if ( @Random > 8 ){ getitem 12039,1; } set SoulQuest,0; close; OnNPCKillEvent: if ( SoulQuest == 1 ){ set Soul,Soul+1; dispbottom "You have collected "+Soul+" Souls."; } if ( SoulQuest == 2 ){ if ( killedrid == 1412 ){ set ECH,ECH+1; } if ( killedrid == 1504 ){ set Dull,Dull+1; } if ( killedrid == 1507 ){ set BM,BM+1; } if ( killedrid == 1505 ){ set Lori,Lori+1; } if ( killedrid == 1268 ){ set BM,BM+1; } dispbottom "Total you have killed ["+ECH+"/30] Evil Cloud Hermit."; dispbottom "Total you have killed ["+Dull+"/15] Dullahan."; dispbottom "Total you have killed ["+BM+"/7] Bloody Murderer."; dispbottom "Total you have killed ["+Lori+"/7] Loli Ruri."; dispbottom "Total you have killed ["+BK+"/5] Bloody Knight."; } if ( SoulQuest == 3 ){ if ( countitem(7511) < 2000 ){ dispbottom "You have collected "+countitem(7511)+" Darkness Rune."; } } end; }
  13. Guna luadec http://files.luaforg...adec/luadec/0.6 ade tutorial mcm mne nak gune?
  14. i dont know what to say~!! seriusly I LOVE YOU~!!
  15. mintak tolong compile my LUB to LUA files~!! /sob /sob datainfo.rar
  16. Help Me Compile LUB to LUA~!! i already try many way to compile it~!! need help 10000x i want added new custom item please~!! please /sob /sob /sob /sob datainfo.rar
×
×
  • Create New...