Jump to content
The forums will be going offline for an extended maintenance period at 1400hrs GMT on 19th June 2025. The number of hours for this downtime is intentionally not advertised due to the nature of these upgrades. ×

PapaZola

Members
  • Posts

    925
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by PapaZola

  1. hello anyone have devil square event script? and the reward is 100 Cash Point
  2. //======================================= // Script By: // eAthenanabs // // http://astral-RO.net // //======================================= //= Info: // //= This event triggers every 15 minutes of the server time. //======================================= //= Mechanics: // //= Players have to run / choose a box between box 1 up to box 4 //= After that, that NPCs picks a number randomly //= (obviously,between 1-4) //= All players that are not inside the box that the NPC chose will //= all be eliminated. //= This event would run until there's only 1 player left. //= Winner would get an incrementation on its #EVENTPOINTS variable //= (users can simply just change the prize given.) // //======================================== - script DiceTrigger -1,{ OnInit: disablenpc "Dice Event Warper#dice"; disablenpc "Claim Your Prize!#dice"; end; OnMinute15: if(agitcheck() == 1 || $@diceon == 1) end; enablenpc "Dice Event Warper#dice"; announce "Dice Event: We are going to have a Dice Event",bc_all; sleep2 1000; announce "Dice Event: For those who want to join, please warp @ prontera 178 135",bc_all; sleep2 1000; announce "Dice Event: The Warper would be open for 1 minute",bc_all; sleep2 30000; announce "Dice Event: Last 30 Seconds.",bc_all; sleep2 30000; announce "Dice Event: Warper Closed.",bc_all; disablenpc "Dice Event Warper#dice"; donpcevent "DiceEvent::OnDiceStart"; set $@diceon,1; end; } prontera,179,135,3 script Dice Event Warper#dice 723,{ mes "Do you want to join the Dice Event?"; menu "Yes",-; warp "quiz_02",55,87; close; } quiz_02,55,90,3 script Got Stuck?#dice 779,{ mes "[ Got Stuck? ]"; mes "Do you wish to go back?"; menu "Yes",-; warp "prontera",0,0; close; } quiz_02,37,80,3 script Box 1 111,{ warp "quiz_02",37,70; close; } quiz_02,49,80,3 script Box 2 111,{ warp "quiz_02",49,70; close; } quiz_02,61,80,3 script Box 3 111,{ warp "quiz_02",61,70; close; } quiz_02,73,80,3 script Box 4 111,{ warp "quiz_02",73,70; close; } quiz_02,37,64,3 script Go Back#1 858,{ warp "quiz_02",55,76; close; } quiz_02,49,64,3 script Go Back#2 858,{ warp "quiz_02",55,76; close; } quiz_02,61,64,3 script Go Back#3 858,{ warp "quiz_02",55,76; close; } quiz_02,73,64,3 script Go Back#4 858,{ warp "quiz_02",55,76; close; } - script DiceEvent -1,{ OnDiceStart: mapannounce "quiz_02","We are about to start the Dice event.",bc_blue; sleep2 1000; mapannounce "quiz_02","Rules are simple:",bc_blue; sleep2 1000; mapannounce "quiz_02","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_02","All you have to do is go to box of the number you want",bc_blue; sleep2 1000; mapannounce "quiz_02","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue; sleep2 1000; mapannounce "quiz_02","We'll do it again and again until we have 1 player left on this map.",bc_blue; sleep2 2000; mapannounce "quiz_02","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_02","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_02") == 1) goto L_winner; enablenpc "Box 1"; enablenpc "Box 2"; enablenpc "Box 3"; enablenpc "Box 4"; if(getmapusers("quiz_02") == 0) goto L_noone; if(getmapusers("quiz_02") > 1) { set $@number,rand(1,4); sleep2 1000; mapannounce "quiz_02","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_02","5",bc_blue; sleep2 1500; mapannounce "quiz_02","4",bc_blue; sleep2 1500; mapannounce "quiz_02","3",bc_blue; sleep2 1500; mapannounce "quiz_02","2",bc_blue; sleep2 1500; mapannounce "quiz_02","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_02",32,95,79,76,"prontera",0,0; areawarp "quiz_02",80,85,80,76,"prontera",0,0; areawarp "quiz_02",31,85,31,76,"prontera",0,0; if(getmapusers("quiz_02") == 0) goto L_noone; sleep2 1000; mapannounce "quiz_02","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: areawarp "quiz_02",33,73,41,52,"prontera",0,0; areawarp "quiz_02",45,73,53,52,"prontera",0,0; areawarp "quiz_02",57,73,65,52,"prontera",0,0; goto L_start; end; L_Lose2: areawarp "quiz_02",33,73,41,52,"prontera",0,0; areawarp "quiz_02",45,73,53,52,"prontera",0,0; areawarp "quiz_02",69,73,77,52,"prontera",0,0; goto L_start; end; L_Lose3: areawarp "quiz_02",33,73,41,52,"prontera",0,0; areawarp "quiz_02",57,73,65,52,"prontera",0,0; areawarp "quiz_02",69,73,77,52,"prontera",0,0; goto L_start; end; L_Lose4: areawarp "quiz_02",45,73,53,52,"prontera",0,0; areawarp "quiz_02",57,73,65,52,"prontera",0,0; areawarp "quiz_02",69,73,77,52,"prontera",0,0; goto L_start; end; L_noone: announce "No one won the Dice Event!",bc_all; disablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; set $@diceon,0; end; L_winner: enablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; end; } quiz_02,55,84,3 script Claim Your Prize!#dice 904,{ set #EVENTPOINTS,#EVENTPOINTS+1; announce strcharinfo(0)+" won the Dice Event!",bc_all; disablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; dispbottom "You now have "+#EVENTPOINTS+" Event Point(s)."; warp "prontera",0,0; set $@diceon,0; close; end; } how to change to cash point?
  3. gepard i already make clean before use make sql
  4. sir emistry can help me? i pm u via facebook
  5. just edit max storage i change 600 to 900
  6. i cannot find the real problem anybody can help me?
  7. arcenciel i already try but the image pink not all full pink thats make hard
  8. /*========================================== * @afk by Rad, built on by Tubby * same as autotrade, but works without vending *------------------------------------------*/ ACMD_FUNC(afk) { nullpo_retr(-1, sd); if( map[sd->bl.m].flag.autotrade == battle_config.autotrade_mapflag ) { if (!message || !*message) { chat_createpcchat(sd, "(@afk) mail me~", "", 1, 1); trade_tradeack(sd,4); sd->state.autotrade = 1; if( battle_config.at_timeout ) { int timeout = atoi(message); status_change_start(&sd->bl, SC_AUTOTRADE, 10000, 0, 0, 0, 0, ((timeout > 0) ? min(timeout,battle_config.at_timeout) : battle_config.at_timeout) * 60000, 0); } clif_authfail_fd(fd, 15); } if((strlen(message) < 0)||(strlen(message) > 36)) { chat_createpcchat(sd, "(@afk) mail me~", "", 1, 1); trade_tradeack(sd,4); sd->state.autotrade = 1; if( battle_config.at_timeout ) { int timeout = atoi(message); status_change_start(&sd->bl, SC_AUTOTRADE, 10000, 0, 0, 0, 0, ((timeout > 0) ? min(timeout,battle_config.at_timeout) : battle_config.at_timeout) * 60000, 0); } clif_authfail_fd(fd, 15); } chat_createpcchat(sd, message, "", 1, 1); trade_tradeack(sd,4); sd->state.autotrade = 1; if( battle_config.at_timeout ) { int timeout = atoi(message); status_change_start(&sd->bl, SC_AUTOTRADE, 10000, 0, 0, 0, 0, ((timeout > 0) ? min(timeout,battle_config.at_timeout) : battle_config.at_timeout) * 60000, 0); } clif_authfail_fd(fd, 15); } else clif_displaymessage(fd, "AFK is not allowed on this map."); return 0; } here jaypee
  9. hello guys who have custom illust? can share it for me? or anyone can make for me like naruto character,dota hero hehhe like this example http://i.pictr.com/12agx716vi.bmp
  10. hello guys i already added commands @afk but i want make it diiferent like when i use @afk no chat room will show thx
  11. thx slim,ifoxkun and emistry
  12. when i @reloadscript i need set back the prize can help me make no need setup the prize everytimes i @reloadscript
  13. prontera,147,85,4 script NPC NEW GIFT 465,{ if(##sorry == 1) goto L_1; mes "Welcome To Diablo Ragnarok Online " + strcharinfo(0) + " !!"; next; mes "So You Is A New Player Here Right?"; next; mes "Take My Reward Now And Have Fun With DiabloRO"; next; getitem 7539,3000; getitem 30391,1; getitem 30392,1; getitem 30393,1; getitem 4302,1; getitem 4174,1; getitem 4403,1; announce "DiabloRO : Happy New year To [ "+strcharinfo(0)+" ] !!",1; emotion e_thx; set ##sorry,1; close; OnInit: waitingroom "2012 GIFT",0; end; L_1: mes "Hey! you Already Get Reward From Me."; mes "Sorry I Cant Give You Anymore Again More Than 1 Times."; next; mes "I dont Care You Crying Or Not. Tell You Mom Also Me not Scare~wu!!"; emotion e_bzz; close; } how i can added gift +500 cash point
  14. anyone know how i can fix this problem?
  15. ok thx sir emistry sorry for my mistake
  16. ok sir emistry sorry but its not working ani_dun01,61,129,5 script Diablo Akatsuki Suit 718,{ setarray .Item[0], 25000,100, setarray .Map$[0], "pvp_n_1-3", "pvp_n_2-3", "pvp_n_3-3", "pvp_n_4-3", "pvp_n_5-3", "pvp_n_6-3", "pvp_n_7-3", "pvp_n_8-3"; for( set .@i,0; .@i < getarraysize( .Item ) - 1; set .@i,.@i + 2 ) if( countitem( .Item[.@i] ) < .Item[.@i + 1] ){ mes "You required "+.Item[.@i + 1]+" x "+getitemname( .Item[.@i] )+" ."; close; } mes "Go in Kill Kage to get Custom Suit ?"; if( select("Hunt Kage:Cancel") == 2 ) close; mes "Which Room ?"; for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){ set .@Menu$,.@Menu$ + .Map$[.@i]+":"; } set @i,select( .@Menu$ ) - 1; if( getmapusers( .Map$[@i] ) ){ mes "Room is Occupied."; close; } killmonster .Map$[@i],"All"; monster .Map$[@i],0,0,"Akatsuki Quest",2252,1,strnpcinfo(0)+"::OnMobKill"; warp .Map$[@i],101,102; attachnpctimer strcharinfo(0); initnpctimer; dispbottom "You have 10 Minutes to finish it."; end; OnTimer300000: message strcharinfo(0),"Time's Up....",0; stopnpctimer; killmonster .Map$[@i],"All"; mapwarp .Map$[@i],"prontera",155,181; end; OnMobKill: getitem 7539,100; stopnpctimer; warp "prontera",155,181; end; }
  17. thx sir emistry now its work but how to make its 1 room only for 1 person?
  18. this will make many NPC i just want make like room and player can choose
  19. thx sir emistry its work now how i can many room like room 1,room2,room3,room4,room5,room6,room7,room8 bump
  20. yeah maybe i should make it colourful
×
×
  • Create New...