Jump to content

Blue Jem

Members
  • Posts

    393
  • Joined

  • Last visited

Everything posted by Blue Jem

  1. http://rathena.org/board/topic/65197-capture-the-flag/
  2. i got error if my choose is correct there are no close need to put alt m and type @go 0
  3. how can add the password if i use this command @item
  4. i cant save using borf map editor i use old not latest can you remove for me please... from this link http://rathena.org/board/topic/86584-free-release-moon-haven-from-epic/ UP!
  5. Blue Jem

    R>PVP Title

    how about pernament tittle?
  6. from what? login or npc?
  7. //=========== PORING CATCHER MADE ==============\\ //=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\ //= Please Report if you encounter some errors =\\ //===== https://www.facebook.com/ShogsGfx ======\\ //==============================================\\ //==FUNCTIONS===================================\\ /* GM Can start the event manualy GM Can also stop the event manualy HOW: just PM this npc (npc:pcatch) The Next Guide Will Be Given by the Manager */ //======= PLEASE DO NOT REMOVE CREDITS =========\\ //==============================================\\ //== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\ //===== https://www.facebook.com/ShogsGfx ======\\ //==============================================\\ //====LEVEL OF GM CAN CONTROL THE EVENT=========\\ - script GMCONTROL -1,{ OnInit: set $gmcontrol,60; end; } //---------------END OF SETUP-------------------\\ //================ON WHISPER=========================\\ - script pcatch -1,{ //====LEVEL OF GM CAN CONTROL THE EVENT=========\\ //OnInit: //set $gmcontrol,60; //end; //---------------END OF SETUP-------------------\\ OnWhisperGlobal: if(getgmlevel() >= $gmcontrol) { mes "^3399FF[Poring Catcher]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Nothing")) { case 1: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "Announcer2::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "Announcer2::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Good bye"; close; } } } } //====================ANNOUNCER======================\\ - script Announcer2 -1,{ OnGMStart: killmonster "poring_w01.gat","All"; announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0; sleep 3000; announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0; enablenpc "PoringCatcher"; sleep 2000; announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0; sleep 2000; announce "(Poring Manager) : The portal is going to close in one minute.",0; sleep 60000; announce "(Poring Manager) : The portal has been closed.",0; disablenpc "PoringCatcher"; if(getmapusers("poring_w01") == 0) { disablenpc "Poring Banker"; announce "Event Poring Catcher didn't start because there's no players.",0; end; } donpcevent "Poring Banker::OnEnable"; end; OnGMStop: killmonster "poring_w01.gat","All"; announce "A Gamemaster has stopped the Poring Catcher Event",0; mapwarp "poring_w01.gat","prontera.gat",155,173; disablenpc "Poring Banker"; disablenpc "PoringCatcher"; end; OnClock0600: OnClock0700: OnClock0800: OnClock0900: OnClock1000: OnClock1100: killmonster "poring_w01.gat","All"; announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0; sleep 3000; announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0; enablenpc "PoringCatcher"; sleep 2000; announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0; sleep 2000; announce "(Poring Manager) : The portal is going to close in one minute.",0; sleep 60000; announce "(Poring Manager) : The portal has been closed.",0; disablenpc "PoringCatcher"; if(getmapusers("poring_w01") == 0) { disablenpc "Poring Banker"; announce "Event Poring Catcher didn't start because no players found in map.",0; end; } donpcevent "Poring Banker::OnEnable"; end; OnInit: disablenpc "Poring Banker"; disablenpc "PoringCatcher"; } //---------All Job Registration---------------------------------------- prontera,155,173,0 warp PoringCatcher 2,2,poring_w01,105,128 //--------------------------------------------------------------------- //--------------------------------------------------------------------- - script Poring Banker -1,{ OnEnable: mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0; sleep2 10000; mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0; sleep2 10000; mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0; sleep2 10000; goto L_Start; end; L_Start: if(getmapusers("poring_w01") == 0) goto L_None; if(getmapusers("poring_w01") >= 1) { mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0; sleep2 6000; mapannounce "poring_w01","Poring Manager: 5",0; sleep2 5000; mapannounce "poring_w01","Poring Manager: 4",0; sleep2 4000; mapannounce "poring_w01","Poring Manager: 3",0; sleep2 3000; mapannounce "poring_w01","Poring Manager: 2",0; sleep2 2000; mapannounce "poring_w01","Poring Manager: 1",0; donpcevent "Poringsummoner::OnSummon"; end; } L_None: disablenpc "Poring Banker"; killmonster "poring_w01.gat","All"; end; } //==================SUMMONER OF PORINGS ======================\\ - script Poringsummoner -1,{ OnSummon: if(getmapusers("poring_w01") == 0) goto L_2None; monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled"; monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"P@ring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end; L_2None: disablenpc "Poring Banker"; killmonster "poring_w01.gat","All"; end; } //==================REAL PORING FOR WIN======================\\ - script poringwin -1,{ OnMobKilled: killmonster "poring_w01.gat","All"; atcommand "@doommap"; getitem 7227,1; getitem 671, 10; announce "Poring Banker: We have a winner! well done " + strcharinfo(0) + ".",0; warp "SavePoint",0,0; end; } //==================DUMY PORINGS FOR LOSERS======================\\ - script poringlose -1,{ OnMobKilled: dispbottom "Your out of the game, You did not catch the right Poring !"; percentheal -99,-99; warp "SavePoint",0,0; end; } //==================Mapflags========================\\ poring_w01 mapflag nowarp poring_w01 mapflag nowarpto poring_w01 mapflag noteleport poring_w01 mapflag nosave poring_w01 mapflag nomemo poring_w01 mapflag nobranch poring_w01 mapflag noloot poring_w01 mapflag noskill poring_w01 mapflag nopenalty -how can add 3 life's for every player enter the event -if the player wrong killed remove 1 life
  8. never use or cant use the donate for 2nd job like champion,creator etc 2nd job class ang about 3rd job can use the donate item or like this every woe of 2nd job auto remove the items if the character enter the woe castle.
  9. Blue Jem

    Anti AFK?

    - script -1,{ if ( checkidle() >= 3000 ) atcommand "@kick " +strcharinfo(0); end; } like this?
  10. Blue Jem

    Anti AFK?

    this 3000 stand for how long in mins or hours?
  11. Blue Jem

    Anti AFK?

    this script --- idle ?? stand for?
  12. Blue Jem

    Anti AFK?

    if the player or character is AFK for 50mins auto kick or logout.
  13. - script pvppoints -1,{ OnPCKillEvent: if ( strcharinfo(3) == "morocc" ) { if ( kill >= 2 ) { set arenapoint,arenapoint+10; specialeffect 88; dispbottom "You have gained 10 Arena Points. Total is "+arenapoint+" Arena Points."; set kill, 0; } set kill, kill + 1; } end; OnPCDieEvent: if ( strcharinfo(3) == "morocc" ) { if ( death >= 5 ) { set arenapoint,arenapoint+10; dispbottom "You have gained 10 Arena Points. Total is "+arenapoint+" Arena Points."; set death, 0; } set death, death + 1; } end; } how can change this 2 killed have 10 point 3 killed have 15 point 4 killed have 20 point 5 killed have 25 point 6 killed have 30 point
  14. Blue Jem

    VIP NPC

    lhz_fild02,58,231,5 script Kulzie 118,{ mes "[" + strcharinfo(0) + "]"; mes "Hi, There...."; next; menu "Yes",-,"Cancel",L_Cancel; mes "[" + strcharinfo(0) + "]"; mes "Good good, let me just check"; next; if(countitem(7280)<1) goto L_NoMake; next; mes "[" + strcharinfo(0) + "]"; mes "Give me a second....."; next; mes "[Bubai]"; mes "excited?"; next; mes "o.0 =)"; next; mes "Okay Read Carefully"; next; mes "Please be Remind that if you doing this quest you must follow the step else you wont able to finish it"; mes "please use your SS/ScreenShot for this Quest"; mes "in case emergency if you forgot the Question"; mes " "; next; mes "Please Find this name ^362ED6Lamazore^000000 at Morocc Field"; mes "you need to give this ^362ED62st Quiz Entry^000000 for next challenge"; next; mes "you have 2st Quiz Entry"; getitem 7281,1; next; mes "goodluck Buddy"; close; L_NoMake: mes "[" + strcharinfo(0) + "]"; mes "You don't have the requirements."; mes "Please come back another time..."; close; L_Bl: mes "[" + strcharinfo(0) + "]"; mes "i need this "; mes "^362ED61st Quiz Entry^000000"; mes "Please Talk " + strcharinfo(0) + " at Prontera"; mes "Please Bring me this items"; mes "^362ED6Fragment of Rossata Stone 3pcs^000000"; mes "^362ED6Tiger's Footskin 5pcs^000000"; next; menu "Accept",-, "Leave",L_Leave; mes "[" + strcharinfo(0) + "]"; mes "When you are done, bring the items to me. Ok good luck finding those items."; close; L_Leave: mes "[" + strcharinfo(0) + "]"; mes "Maybe another time?"; close; L_Cancel: mes "[" + strcharinfo(0) + "]"; mes "Aw, what a shame"; mes "Giving up already?"; close; } this part. how can change this to VIP user only if(countitem(7280)<1) goto L_NoMake; change to if(countitem(#prmm)<1) goto L_NoMake; is not workung #prmm stand for Prerium member
  15. Blue Jem

    VIP

    sc_end SC_ASPDPOTION2,360000,0; sc_end SC_STRFood,360000,10; sc_end SC_AGIFood,360000,10; sc_end SC_VITFood,360000,10; sc_end SC_INTFood,360000,10; sc_end SC_DEXFood,360000,10; sc_end SC_LUKFood,360000,10; sc_end SC_HitFood,1200000,30; sc_end SC_FleeFood,1200000,30; sc_end SC_BATKFood,1200000,10; sc_end SC_MATKFood,120000,10; how can use this if add npc for vip and everytime use this npc for normal player cant use only vip
  16. Blue Jem

    VIP

    using this #prm = premium members - script login -1,{ OnPCLoginEvent: if (vip_status(1)) {
  17. Blue Jem

    VIP

    skilleffect 384,0; sc_start SC_MELTDOWN,360000,5; skilleffect 383,0; sc_start SC_WINDWALK,360000,5; skilleffect 378,0; sc_start SC_EDP,360000,5; skilleffect 465,0; sc_start SC_KAITE,360000,7; skilleffect 464,0; sc_start SC_KAUPE,360000,3; skilleffect 463,0; sc_start SC_KAAHI,360000,7; skilleffect 462,0; sc_start SC_KAIZEL,360000,7; skilleffect 8,0; sc_start SC_ENDURE,360000,10; skilleffect 33,0; sc_start SC_ANGELUS,360000,10; skilleffect 45,0; sc_start SC_CONCENTRATE,360000,10; skilleffect 74,0; sc_start SC_MAGNIFICAT,360000,5; skilleffect 75,0; sc_start SC_GLORIA,360000,5; skilleffect 459,0; sc_start SC_ADRENALINE2,360000,1; skilleffect 66,0; sc_start SC_IMPOSITIO,360000,5; skilleffect 67,0; sc_start SC_SUFFRAGIUM,360000,3; skilleffect 34,0; sc_start SC_BLESSING,360000,10; skilleffect 29,0; sc_start SC_INCREASEAGI,360000,10; skilleffect 112,0; sc_start SC_WEAPONPERFECTION,360000,10; skilleffect 113,0; sc_start SC_OVERTHRUST,360000,5; skilleffect 114,0; sc_start SC_MAXIMIZEPOWER,360000,5; skilleffect 357,0; sc_start SC_CONCENTRATION,360000,5; skilleffect 355,0; sc_start SC_AURABLADE,360000,5; skilleffect 155,0; sc_start SC_LOUD,360000,1; skilleffect 157,0; sc_start SC_ENERGYCOAT,360000,1; sc_start SC_ASPDPOTION2,360000,0; sc_start SC_STRFood,360000,10; sc_start SC_AGIFood,360000,10; sc_start SC_VITFood,360000,10; sc_start SC_INTFood,360000,10; sc_start SC_DEXFood,360000,10; sc_start SC_LUKFood,360000,10; sc_start SC_HitFood,1200000,30; sc_start SC_FleeFood,1200000,30; sc_start SC_BATKFood,1200000,10; sc_start SC_MATKFood,120000,10; skilleffect 380,0; sc_start SC_TRUESIGHT,360000,5; skilleffect 361,0; sc_start SC_ASSUMPTIO,360000,5; how can improve this i wanna add username for vip players
  18. how can make small mob i try put this but is not working p_track01,58,38,0,0 duplicate(pori_race) Lost Dragon#prace1 2131,1,0,0,{,0,0} // Capuche cleaning Base on the poring race by Zell_ff8, xianz, Neko prontera,139,184,5 script Poring Race 882,{ if( .access_Prace == 0 ) { mes "[Poring Race Staff]"; mes "Poring Race has ended."; close; } mes "[Poring Race Staff]"; mes "Do you want to participate on Poring Race?"; if( select( "Yes","No" ) -1 ) { next; mes "[Poring Race Staff]"; mes "See you again next time!"; close; } if( .access_Prace == 0 ) { next; mes "[Poring Race Staff]"; mes "..."; mes "..."; mes "Cheater!!~~"; close; } close2; @prace_winner$ = ""; warp "p_track01",52,41; end; // OnInit: OnMinute11: if( gettime(3)%2 ) end; set .access_Prace, 1; announce "Poring Race is now open!",0,0xFFAB54; setnpctimer 100000,"Bidder#prace0"; startnpctimer "Bidder#prace0"; end; OnPraceEnd: set .access_Prace, 0; announce "Poring Race is over!",0,0xFFAB54; end; } p_track01,58,41,3 script Bidder#prace0 877,{ function checkevent; mes "[Bidder]"; if( getstrlen( @prace_winner$ ) ) { mes "You have choose ^00bb00"+ @prace_winner$ +"^000000"; close; } else if ( checkevent() || .start ) { mes "There is a race in progress..."; close; } else if( !getvariableofnpc( .access_Prace,"Poring Race" ) ) { mes "There is no race."; close; } mes "Choose the poring you want to bet:"; mes "It will cost "+ .zeny_req +" Zeny."; .@s = select( .menu_$ ); if( .@s == 7 ) { next; mes "[Bidder]"; mes "Goodbye."; close; } .@c$ = .monst_$[ .@s -1 ]; if ( checkevent() ) { next; mes "[Bidder]"; mes "..."; mes "..."; mes "Cheater!!~~"; close; } else if( Zeny < .zeny_req ) { next; mes "[Bidder]"; mes "You don't have enough Zeny."; close; } Zeny -= .zeny_req; @prace_winner$ = .@c$; .prace_bidders[ .prace_bets ] = getcharid(3); .prace_bets++; next; mes "[Bidder]"; mes "I have "+ .prace_bets +" bets."; initnpctimer; npctalk "I got "+ strcharinfo(0) +" bet!"; close; OnTimer60000: npctalk "I got "+ .prace_bets +" bets. Anyone else?"; end; OnTimer80000: npctalk "The race will start soon. Last chance."; end; OnTimer90000: stopnpctimer; .start = 1; mapannounce "p_track01","Dragon's, on your marks...",1,0xFFAB54; sleep 2500; for( .@i = 3; .@i > 0; .@i-- ) { mapannounce "p_track01","..."+ .@i +"...",1,0xFFAB54; sleep 1000; } donpcevent strnpcinfo(0) +"::OnStartRace"; sleep 1000; mapannounce "p_track01","Gooo!!!",1,0xFFAB54; end; OnTimer320000: mapwarp "p_track01","prontera",142,170; donpcevent "Poring Race::OnPraceEnd"; .prace_winner$ = ""; .start = .prace_bets = 0; donpcevent strnpcinfo(0) +"::OnReturnRace"; end; OnStartRace: callsub L_label, "OnRace"; OnStopRace: callsub L_label, "OnStop"; OnReturnRace: callsub L_label, "OnReturn"; L_label: donpcevent "Bakonawa#prace3::"+ getarg(0); donpcevent "Lost Dragon#prace1::"+ getarg(0); donpcevent "Mutant Dragon#prace6::"+ getarg(0); donpcevent "Nidhoggr's Shadow#prace2::"+ getarg(0); donpcevent "Hydrolancer#prace5::"+ getarg(0); donpcevent "Detale#prace4::"+ getarg(0); if( getarg(0) == "OnStop" && .prace_winner$ != "" ) callsub L_WinRace; end; L_WinRace: mapannounce "p_track01", "The winner is "+ .prace_winner$,1,0xFFAB54; donpcevent strnpcinfo(0) +"::OnChequeo"; sleep 3000; donpcevent strnpcinfo(0) +"::OnReturnRace"; sleep 10000; mapwarp "p_track01","prontera",142,170; donpcevent "Lost Dragon Race::OnPraceEnd"; .prace_winner$ = ""; .start = .prace_bets = 0; end; OnChequeo: for( .@i = 0 ; .@i < getarraysize( .prace_bidders ); .@i++ ) { if( attachrid( .prace_bidders[.@i] ) && getstrlen( @prace_winner$ ) ) { dispbottom "The winner is "+ .prace_winner$ +" and you have bet for "+ @prace_winner$ +"."; if( @prace_winner$ == .prace_winner$ ) { dispbottom "You have won!"; mapannounce "p_track01"," Congratulations! "+ strcharinfo(0) +" has won!",1,0xFFAB54; getitem .item_gained, .item_num_gain; emotion 21,1; } else { dispbottom "You have lost."; emotion 28,1; } @prace_winner$ = ""; } } deletearray .prace_bidders; end; OnInit: .zeny_req = 3500; .item_gained = 7199; .item_num_gain = 2; setarray .monst_$,"Lost Dragon","Nidhoggr's Shadow","Bakonawa","Detale","Hydrolancer","Mutant Dragon","None"; .menu_$ = implode( .monst_$, ":" ); end; function checkevent { getmapxy .@mapname$, .@x1, .@y, 1, "Lost Dragon#prace1"; getmapxy .@mapname$, .@x2, .@y, 1, "Nidhoggr's Shadow#prace2"; getmapxy .@mapname$, .@x3, .@y, 1, "Bakonawa#prace3"; getmapxy .@mapname$, .@x4, .@y, 1, "Detale#prace4"; getmapxy .@mapname$, .@x5, .@y, 1, "Hydrolancer#prace5"; getmapxy .@mapname$, .@x6, .@y, 1, "Mutant Dragon#prace6"; .@t = ( .@x1 + .@x2 + .@x3 + .@x4 + .@x5 + .@x6 ) != 58 * 6; return .@t; } } //----------------------------------- // Racer NPC's //----------------------------------- - script pori_race -1,{ OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: sleep 1000; while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++; movenpc strnpcinfo(3), 58, .walk_t[.@i]; end; OnTimer1100: getmapxy .@mapname$,.@x,.@y,1, strnpcinfo(3); if( rand(100) < .prace_random ) npcwalkto .@x-1, .@y; .@r = rand( .prace_random2 ); if ( .@x -1 == 29 ) { while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++; set getvariableofnpc( .prace_winner$, "Bidder#prace0" ), .monst$[ .@i ]; emotion 29; donpcevent "Bidder#prace0::OnStopRace"; end; } stopnpctimer; setnpctimer .@r; startnpctimer; end; OnInit: deletearray .walk_t; deletearray .monst$; setarray .walk_t, 38, 36, 34, 32, 30, 28; setarray .monst$, "Lost Dragon", "Nidhoggr's Shadow", "Bakonawa", "Detale", "Hydrolancer", "Mutant Dragon"; .prace_random = 70; .prace_random2 = 600; end; } p_track01,58,38,0,0 duplicate(pori_race) Lost Dragon#prace1 2131 p_track01,58,36,2 duplicate(pori_race) Nidhoggr's Shadow#prace2 2022 p_track01,58,34,2 duplicate(pori_race) Bakonawa#prace3 2321 p_track01,58,32,2 duplicate(pori_race) Detale#prace4 1817 p_track01,58,30,2 duplicate(pori_race) Hydrolancer#prace5 1756 p_track01,58,28,2 duplicate(pori_race) Mutant Dragon#prace6 1449 p_track01,78,42,0 warp p_track002 1,3,prontera,142,170 p_track01 mapflag nobranch p_track01 mapflag noicewall p_track01 mapflag nomemo p_track01 mapflag noreturn p_track01 mapflag noteleport p_track01 mapflag nowarpto p_track01 mapflag nowarp p_track01 mapflag pvp off p_track01 mapflag nosave
  19. lets say i have all items for Quest location of my character prt_fild01 and Quest NPC in prontera if i have all item my character is autowarp to Quest npc
×
×
  • Create New...