-
Posts
1445 -
Joined
-
Last visited
-
Days Won
10
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Everything posted by Kido
-
Well, in my server i have the npc poll to know what my players thinks and in base of that make some change on the stuff, but i noticed that a player made around 7 acc. to vote more the option it likes i want to change this npc so it can check ip and only let 1 same ip account to vote this is my script //===== eAthena Script ======================================= //= Votaciones //===== by: ================================================== //= Hattori //===== Repaired by: ================================================== //= DRAXTER (Emperium RO) //===== Current Version: ===================================== //= 2.0 //===== Compatible With: ===================================== //= Cualquier Version eAthena //===== Description: ========================================= //= Se toma en cuenta una encuesta,en la cual participan los users y es modificable x GMs //===== Comentarios: ================================= //= Reparado Por DRAXTER BUGS:mapa,duplicate(QUITADO) y condicionales GM(Estaban erroneos los valores) //= Cambiado a Mapa Prontera //============================================================ izlude.gat,123,151,4 script Encuesta 831,{ if ($poll_question$ == "") goto L_NoQuestion; L_Begin: mes "[Poll]"; mes "^FF0000" + $poll_question$ + "^000000"; if (#pollid != $pollid) goto L_NotVoted; // Sets bar length set @PB$[0], " "; set @PB$[1], "^0077BF| ^000000"; set @PB$[2], "^0081CF|^0077BF| ^000000"; set @PB$[3], "^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[4], "^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[5], "^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[6], "^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[7], "^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[8], "^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[9], "^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[10], "^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[11], "^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[12], "^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[13], "^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[14], "^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[15], "^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[16], "^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[17], "^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[18], "^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[19], "^DFF1FF|^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000"; set @PB$[20], "^EFF8FF|^DFF1FF|^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF|^000000"; // Calculates percentage set @total,$PA[1]+$PA[2]+$PA[3]+$PA[4]+$PA[5]+$PA[6]+$PA[7]+$PA[8]+$PA[9]; set @PC[1],$PA[1]*100/@total; set @PC[2],$PA[2]*100/@total; set @PC[3],$PA[3]*100/@total; set @PC[4],$PA[4]*100/@total; set @PC[5],$PA[5]*100/@total; set @PC[6],$PA[6]*100/@total; set @PC[7],$PA[7]*100/@total; set @PC[8],$PA[8]*100/@total; set @PC[9],$PA[9]*100/@total; // Displays results if ($PQ$[1] != "") mes $PQ$[1]; if ($PQ$[1] != "") mes "["+@PB$[@PC[1]/5]+"] " + $PA[1] + " ("+@PC[1]+"%)"; if ($PQ$[2] != "") mes $PQ$[2]; if ($PQ$[2] != "") mes "["+@PB$[@PC[2]/5]+"] " + $PA[2] + " ("+@PC[2]+"%)"; if ($PQ$[3] != "") mes $PQ$[3]; if ($PQ$[3] != "") mes "["+@PB$[@PC[3]/5]+"] " + $PA[3] + " ("+@PC[3]+"%)"; if ($PQ$[4] != "") mes $PQ$[4]; if ($PQ$[4] != "") mes "["+@PB$[@PC[4]/5]+"] " + $PA[4] + " ("+@PC[4]+"%)"; if ($PQ$[5] != "") mes $PQ$[5]; if ($PQ$[5] != "") mes "["+@PB$[@PC[5]/5]+"] " + $PA[5] + " ("+@PC[5]+"%)"; if ($PQ$[6] != "") mes $PQ$[6]; if ($PQ$[6] != "") mes "["+@PB$[@PC[6]/5]+"] " + $PA[6] + " ("+@PC[6]+"%)"; if ($PQ$[7] != "") mes $PQ$[7]; if ($PQ$[7] != "") mes "["+@PB$[@PC[7]/5]+"] " + $PA[7] + " ("+@PC[7]+"%)"; if ($PQ$[8] != "") mes $PQ$[8]; if ($PQ$[8] != "") mes "["+@PB$[@PC[8]/5]+"] " + $PA[8] + " ("+@PC[8]+"%)"; if ($PQ$[9] != "") mes $PQ$[9]; if ($PQ$[9] != "") mes "["+@PB$[@PC[9]/5]+"] " + $PA[9] + " ("+@PC[9]+"%)"; mes "total de votos" + @total; if (getgmlevel() > 90) menu "Continuar",-,"Opción de encuesta de revisión",L_Edit,"Cuenta de encuesta de revisión",L_EditCount,"Añada la opción de encuesta",L_Add,"Juego nueva encuesta",L_SetQuestion,"Permita a revotación",L_ReVote; close; // Vote menu L_NotVoted: menu $PQ$[1],P1, $PQ$[2],P2, $PQ$[3],P3, $PQ$[4],P4, $PQ$[5],P5, $PQ$[6],P6, $PQ$[7],P7, $PQ$[8],P8, $PQ$[9],P9, "Cancel",L_Cancel; P1: set @vote,1; goto P_Vote; P2: set @vote,2; goto P_Vote; P3: set @vote,3; goto P_Vote; P4: set @vote,4; goto P_Vote; P5: set @vote,5; goto P_Vote; P6: set @vote,6; goto P_Vote; P7: set @vote,7; goto P_Vote; P8: set @vote,8; goto P_Vote; P9: set @vote,9; goto P_Vote; P_Vote: if ($PQ$[@vote] == "") goto L_Begin; set $PA[@vote],$PA[@vote]+1; set #pollid,$pollid; next; mes "[Poll]"; mes "Gracias por tu voto!"; next; goto L_Begin; // No question is set L_NoQuestion: mes "[Poll]"; mes "No hay preguntas"; if (getgmlevel() > 90) goto L_SetQuestion; close; // Set question L_SetQuestion: set $PQ$[1],""; set $PQ$[2],""; set $PQ$[3],""; set $PQ$[4],""; set $PQ$[5],""; set $PQ$[6],""; set $PQ$[7],""; set $PQ$[8],""; set $PQ$[9],""; set $PA[1],""; set $PA[2],""; set $PA[3],""; set $PA[4],""; set $PA[5],""; set $PA[6],""; set $PA[7],""; set $PA[8],""; set $PA[9],""; next; mes "[Poll]"; mes "Pregunta de juego?"; next; menu "Si",-,"No",L_Cancel; input $poll_question$; set $pollid,rand (100000,999999); mes "Sistema de pregunta: " + $poll_question$; next; mes "[Poll]"; mes "Las opciones de la entrada"; mes "escriba 'el final' para pararse"; next; P_Set: input $PQ$[1]; if ($PQ$[1] == "end") goto P_Set; // Disallows no option poll P_Set2: input $PQ$[2]; if ($PQ$[2] == "end") goto P_Set2; // Disallows 1 option poll input $PQ$[3]; set @last,3; if ($PQ$[3] == "end") goto L_SetEnd; input $PQ$[4]; set @last,4; if ($PQ$[4] == "end") goto L_SetEnd; input $PQ$[5]; set @last,5; if ($PQ$[5] == "end") goto L_SetEnd; input $PQ$[6]; set @last,6; if ($PQ$[6] == "end") goto L_SetEnd; input $PQ$[7]; set @last,7; if ($PQ$[7] == "end") goto L_SetEnd; input $PQ$[8]; set @last,8; if ($PQ$[8] == "end") goto L_SetEnd; input $PQ$[9]; set @last,9; if ($PQ$[9] == "end") goto L_SetEnd; // Add poll field L_Add: next; mes "[Poll]"; if ($PQ$[3] == "") goto PA3; if ($PQ$[4] == "") goto PA4; if ($PQ$[5] == "") goto PA5; if ($PQ$[6] == "") goto PA6; if ($PQ$[7] == "") goto PA7; if ($PQ$[8] == "") goto PA8; if ($PQ$[9] == "") goto PA9; mes "Lamentable, las opciones estan llenas."; close; PA3: set @add,3; goto L_Add2; PA4: set @add,4; goto L_Add2; PA5: set @add,5; goto L_Add2; PA6: set @add,6; goto L_Add2; PA7: set @add,7; goto L_Add2; PA8: set @add,8; goto L_Add2; PA9: set @add,9; goto L_Add2; L_Add2: mes "Entre en el nombre de la votación que usted desea que usted agrega."; input $PQ$[@add]; next; mes "[Poll]"; mes "Opción añadió"; close; // Edit poll count L_EditCount: next; mes "[Poll]"; mes "Qué opción tienes gusto de cambiar la cuenta de?"; next; menu $PQ$[1],PEC1, $PQ$[2],PEC2, $PQ$[3],PEC3, $PQ$[4],PEC4, $PQ$[5],PEC5, $PQ$[6],PEC6, $PQ$[7],PEC7, $PQ$[8],PEC8, $PQ$[9],PEC9, "Cancel",L_Cancel; PEC1: input $PA[1]; goto L_EditCountSet; PEC2: input $PA[2]; goto L_EditCountSet; PEC3: input $PA[3]; goto L_EditCountSet; PEC4: input $PA[4]; goto L_EditCountSet; PEC5: input $PA[5]; goto L_EditCountSet; PEC6: input $PA[6]; goto L_EditCountSet; PEC7: input $PA[7]; goto L_EditCountSet; PEC8: input $PA[8]; goto L_EditCountSet; PEC9: input $PA[9]; goto L_EditCountSet; L_EditCountSet: mes "[Poll]"; mes "Opcion cambiada"; close; // Edit poll field L_Edit: next; mes "[Poll]"; mes "¿Qué opción le gustaría para revisar?"; next; menu $PQ$[1],PE1, $PQ$[2],PE2, $PQ$[3],PE3, $PQ$[4],PE4, $PQ$[5],PE5, $PQ$[6],PE6, $PQ$[7],PE7, $PQ$[8],PE8, $PQ$[9],PE9, "Cancel",L_Cancel; PE1: input $PQ$[1]; goto L_EditSet; PE2: input $PQ$[2]; goto L_EditSet; PE3: input $PQ$[3]; goto L_EditSet; PE4: input $PQ$[4]; goto L_EditSet; PE5: input $PQ$[5]; goto L_EditSet; PE6: input $PQ$[6]; goto L_EditSet; PE7: input $PQ$[7]; goto L_EditSet; PE8: input $PQ$[8]; goto L_EditSet; PE9: input $PQ$[9]; goto L_EditSet; L_EditSet: mes "[Poll]"; mes "Opcion cambiada"; close; L_SetEnd: Announce "Se ha fijado una nueva encuesta!",8; Announce $poll_question$,8; set $PQ$[@last],""; mes "[Poll]"; mes "Sistema de la encuesta"; close; // Allow players to re-cast their vote L_ReVote: next; set $pollid,rand (100000,999999); mes "[Poll]"; mes "Re-voto permitido"; close; L_Cancel: mes "[Poll]"; mes "Adios!!!"; close; } Thanks! i hope i gave enought information, if not, i will give more thanks again!
-
OnKilled: announce "MVP Event : End...MVP Died",0; set mvp_point, mvp_point + 1;// +1 mvp point end; to get points when killing a mvp - script iounoin -1,{ OnNPCKillEvent: if ( getmonsterinfo( killedrid,22 ) )// mvp exp set mvp_point, mvp_point + 1;// +1 mvp point end; } thanks o:! do i need to create a table or something in sql? or a script? i just want to add a npc that exchanges that mvp points por some goods o:
-
kind of both 'till now many players have leave my server because they get crash when they open storage o see new pet's armor o merchants with with new carts x_X
-
it says and is not working ): that's the code 27159,Sea_Valkyrie_Helm,Sea_Valkyrie_Helm,5,,,0,,0,,1,0xFFFFFFFF,7,2,256,,1,1,1559,{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ if(Class==Job_Soul_Linker) { sc_start4 sc_spirit, 360000, 5, 461,0,0; skilleffect 461, 5; } },{ } ):
-
is not working ): 27159,Sea_Valkyrie_Helm,Sea_Valkyrie_Helm,5,,,0,,0,,1,0xFFFFFFFF,7,2,256,,1,1,1559,{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{callfunc "soullink";},{ } i also tryied 27159,Sea_Valkyrie_Helm,Sea_Valkyrie_Helm,5,,,0,,0,,1,0xFFFFFFFF,7,2,256,,1,1,1559,{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ callfunc "soullink"; },{ } edit: o it works now, but it gives link to every char, how can i make it only for soul linker?
-
Hello, im having problems with a custom item i want to make it when equiped by a soul linker, it will auto cast its soul linker spirit on the player at lvl 5 this is my script 27159,Sea_Valkyrie_Helm,Sea_Valkyrie_Helm,5,,,0,,0,,1,0xFFFFFFFF,7,2,256,,1,1,1559,{ if(Class==Job_Soul_Linker) { bonus bMatkRate,15; } },{ sc_start4 SL_SOULLINKER,60000,10,0,0,1; },{ sc_end SL_SOULLINKER; } Also i need a similar to make auto-cast a soul link to the player's job when equiped, help please i just can not figure it out ):
-
hello, how may i add when a player kills a mvp, get mvp point and then that mvp point exchange it for something with other npc? i forgot to mention also, how to make the players earns points too when killing out of the event?
-
hello, how may i add when a player kills a mvp, get mvp point and then that mvp point exchange it for something with other npc?
-
i already did that, i even turned off the server and then turned on again and nothing ):
-
i tryied to install this http://rathena.org/board/topic/62868-emperium-breaking-room/ and everything went fine 'till i hit something and now i can't talk to the npc when i click it, the npc just does nothing on putty i got these errors, i think they have something to do but im not sure [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'16'. Renaming 'EmpBrkRmTm' to '1_-1_0_0'. [Debug]: this npc: display name 'EmpBrkRmTm' unique name 'EmpBrkRmTm' map=(not on a map), x=0, y=0 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrkRmTm' unique name 'EmpBrkRmTm' map=(not on a map), x=0, y=0 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'498'. Renaming 'EmpBrk#1' to '2_-1_0_0'. [Debug]: this npc: display name 'EmpBrk#1' unique name 'EmpBrk#1' map=(not on a map), x=0, y=0 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#1' unique name 'EmpBrk#1' map=(not on a map), x=0, y=0 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'573'. Renaming 'EmpBrk#1_touch' to '1_149_99_125'. [Debug]: this npc: display name 'EmpBrk#1_touch' unique name 'EmpBrk#1_touch' map=pvp_n_4-5, x=99, y=125 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#1_touch' unique name 'EmpBrk#1_touch' map=pvp_n_4-5, x=99, y=125 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'586'. Renaming 'EmpBrk#2' to '3_-1_0_0'. [Debug]: this npc: display name 'EmpBrk#2' unique name 'EmpBrk#2' map=(not on a map), x=0, y=0 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#2' unique name 'EmpBrk#2' map=(not on a map), x=0, y=0 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'661'. Renaming 'EmpBrk#2_touch' to '1_149_74_99'. [Debug]: this npc: display name 'EmpBrk#2_touch' unique name 'EmpBrk#2_touch' map=pvp_n_4-5, x=74, y=99 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#2_touch' unique name 'EmpBrk#2_touch' map=pvp_n_4-5, x=74, y=99 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'674'. Renaming 'EmpBrk#3' to '4_-1_0_0'. [Debug]: this npc: display name 'EmpBrk#3' unique name 'EmpBrk#3' map=(not on a map), x=0, y=0 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#3' unique name 'EmpBrk#3' map=(not on a map), x=0, y=0 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'749'. Renaming 'EmpBrk#3_touch' to '1_149_100_74'. [Debug]: this npc: display name 'EmpBrk#3_touch' unique name 'EmpBrk#3_touch' map=pvp_n_4-5, x=100, y=74 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#3_touch' unique name 'EmpBrk#3_touch' map=pvp_n_4-5, x=100, y=74 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'762'. Renaming 'EmpBrk#4' to '5_-1_0_0'. [Debug]: this npc: display name 'EmpBrk#4' unique name 'EmpBrk#4' map=(not on a map), x=0, y=0 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#4' unique name 'EmpBrk#4' map=(not on a map), x=0, y=0 [Warning]: npc_parsename: Duplicate unique name in file 'npc/custom/emp.txt', line'837'. Renaming 'EmpBrk#4_touch' to '1_149_125_100'. [Debug]: this npc: display name 'EmpBrk#4_touch' unique name 'EmpBrk#4_touch' map=pvp_n_4-5, x=125, y=100 [Debug]: other npc in 'npc/custom/emp.txt' : display name 'EmpBrk#4_touch' unique name 'EmpBrk#4_touch' map=pvp_n_4-5, x=125, y=100 and this is the script //===== rAthena Script ======================================= //= Emperium Break Room //===== By: ================================================== //= Masao //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= An little Emperium Break Room NPC in which you can test your //= strength and speed against Emperiums. //===== Additional Comments: ================================= //= 1.0 First Version. [Masao] //============================================================ - script EmpBrkRmTm -1,{ OnClock0000: OnClock0200: OnClock0400: OnClock0600: OnClock0800: OnClock1000: OnClock1200: OnClock1400: OnClock1600: OnClock1800: OnClock2000: OnClock2200: if($empbrkrh == 1) { hideoffnpc "Emperium Breaking Room"; } end; OnClock0100: OnClock0300: OnClock0500: OnClock0700: OnClock0900: OnClock1100: OnClock1300: OnClock1500: OnClock1700: OnClock1900: OnClock2100: OnClock2300: if($empbrkrh == 1) { hideonnpc "Emperium Breaking Room"; } end; } quiz_02,344,376,0 script Emperium Breaking Room 1288,{ if (getgmlevel() >= $empbrk_gm_restriction) goto L_GMCP; L_SM: set .@time,empbrk_record; set .@m,.@time / 60000; set .@s,.@time / 1000; set .@ms,.@time / 10000; set .@empbrk_time,$empbrk_record; set .@empbrk_m,.@empbrk_time / 60000; set .@empbrk_s,.@empbrk_time / 1000; set .@empbrk_ms,.@empbrk_time / 10000; mes .n$; mes "Current record holder is the Player ^5050A0"+$empbrk_master$+"^000000 ."; mes "With an time of ^000080"+.@empbrk_m+"^000000Minutes ^000080"+.@empbrk_s+"^000000Seconds ^000080"+.@empbrk_ms+"^000000Milliseconds until the Emperium got broke."; next; mes .n$; mes "Your Own Record:"; mes "^000080"+.@m+"^000000m ^000080"+.@s+"^000000s ^000080"+.@ms+"^000000ms"; next; mes .n$; mes "Would you like to try to set a new record?"; next; menu "Yes",-,"No",L_C,"Reset Your Record",L_RYR; cleararray .arena$[0],"",4; mes .n$; if (getareausers("pvp_n_4-5",94,128,105,139) || $@empr_occupied[0] > 0){ mes "^B8860BEmperium Room N° 1:^000000 ^FF0000Busy^000000"; }else{ mes "^B8860BEmperium Room N° 1:^000000 ^32CD32Free^000000"; set .arena$[0],"^B8860BEmperium Room N° 1^000000"; } if (getareausers("pvp_n_4-5",60,94,71,105) || $@empr_occupied[1] > 0){ mes "^B8860BEmperium Room N° 2:^000000 ^FF0000Busy^000000"; }else{ mes "^B8860BEmperium Room N° 2:^000000 ^32CD32Free^000000"; set .arena$[1],"^B8860BEmperium Room N° 2^000000"; } if (getareausers("pvp_n_4-5",94,60,105,71) || $@empr_occupied[2] > 0){ mes "^B8860BEmperium Room N° 3:^000000 ^FF0000Busy^000000"; }else{ mes "^B8860BEmperium Room N° 3:^000000 ^32CD32Free^000000"; set .arena$[2],"^B8860BEmperium Room N° 3^000000"; } if (getareausers("pvp_n_4-5",128,94,139,105) || $@empr_occupied[3] > 0){ mes "^B8860BEmperium Room N° 4:^000000 ^FF0000Busy^000000"; }else{ mes "^B8860BEmperium Room N° 4:^000000 ^32CD32Free^000000"; set .arena$[3],"^B8860BEmperium Room N° 4^000000"; } next; switch (select(.arena$[0],.arena$[1],.arena$[2],.arena$[3],"^FF0000Exit^000000")){ case 1: if($@empr_occupied[0] > 0){ mes .n$; mes "Sorry but the Room has been taken."; mes "Please try another Room or come back later."; goto L_SM; } set $@empr_occupied[0],1; set $@empbrk_charid[0],getcharid(0); initnpctimer "EmpBrk#1"; sc_end SC_ALL; warp "pvp_n_4-5",99,128; end; case 2: if($@empr_occupied[1] > 0){ mes .n$; mes "Sorry but the Room has been taken."; mes "Please try another Room or come back later."; goto L_SM; } set $@empr_occupied[1],1; set $@empbrk_charid[1],getcharid(0); initnpctimer "EmpBrk#2"; sc_end SC_ALL; warp "pvp_n_4-5",68,99; end; case 3: if($@empr_occupied[2] > 0){ mes .n$; mes "Sorry but the Room has been taken."; mes "Please try another Room or come back later."; goto L_SM; } set $@empr_occupied[2],1; set $@empbrk_charid[2],getcharid(0); initnpctimer "EmpBrk#3"; sc_end SC_ALL; warp "pvp_n_4-5",100,68; end; case 4: if($@empr_occupied[3] > 0){ mes .n$; mes "Sorry but the Room has been taken."; mes "Please try another Room or come back later."; goto L_SM; } set $@empr_occupied[3],1; set $@empbrk_charid[3],getcharid(0); initnpctimer "EmpBrk#4"; sc_end SC_ALL; warp "pvp_n_4-5",130,99; end; case 5: close; } L_GMCP: mes .n$; mes "Hello "+strcharinfo(0)+","; mes "what can i do for you today?"; next; menu "Standard Menu",L_SM,"Set Prize",-,"Hourly Event",L_HE,"Set GM Control Panel Access Level",L_SGCPL,"Reset Offical Record",L_ROR,"Reset Rooms",L_RR,"Cancel",L_C; L_SP: mes .n$; mes "Allright, what would you like to do?"; next; menu "Set Prize & Amount",-,"Enable / Disable Prize Distribution",L_EDPD,"Cancel",L_C; L_RP: mes .n$; mes "The current gloabl Prize and Amount is: "+$empbrk_amount+"x "+getitemname($empbrk_prize)+""; mes "The current personal Prize and Amount is: "+$empbrk_amountp+"x "+getitemname($empbrk_prizep)+""; next; mes .n$; mes "What would you like to do next?"; next; menu "Set global Prize & Amount",-,"Set personal Prize & Amount",L_SPPA; L_RGP: mes .n$; mes "Ok, then please tell me now which Item you would like to set as global Prize if someone breaks the global Record."; mes "And please remember that only numbers = Item ID's as values are allowed."; next; mes "Insert 0 to cancel."; input .empbrk_prize; next; if(.empbrk_prize <= 0){ next; goto L_SP; } query_sql "SELECT `id` FROM `item_db` WHERE `id` = '"+.empbrk_prize+"'",.id; if(!.id){ mes .n$; mes "I'm sorry but this Item doesn't exist!"; mes "Please try again."; next; goto L_RGP; } mes .n$; mes "Ok, so the Prize will be "+getitemname(.empbrk_prize)+" , is that correct?"; next; menu "No, that's wrong!",L_RGP,"Yes, that's correct!",-; L_RGA: mes .n$; mes "Good! Now please tell me how many pieces of this prize the new Emperium break Champion should get,"; mes "but remember for security reasons you can't enter a higher value than 100."; next; mes "Insert 0 to cancel."; input .empbrk_amount; next; if(.empbrk_amount <= 0){ next; goto L_SP; } if(.empbrk_amount >= 100){ mes .n$; mes "I'm sorry but the entered Value exceeds the allowed amount!"; mes "Please try again."; next; goto L_RGA; } mes .n$; mes "Ok, so the Amount of the Prize that will be given is "+.empbrk_amount+" , is that correct?"; next; menu "No, that's wrong!",L_RGA,"Yes, that's correct!",-; mes .n$; mes "Great! So the Prize "+getitemname(.empbrk_prize)+" will be given away with an amount of "+.empbrk_amount+" to the one who breaks the current global Emperium Breack Record, is that correct?"; next; menu "No, that's wrong!",L_SP,"Yes, that's correct!",-; mes .n$; mes "Allright, it's all set!"; set $empbrk_prize,.empbrk_prize; set $empbrk_amount,.empbrk_amount; next; goto L_GMCP; L_SPPA: mes .n$; mes "Ok, then please tell me now which Item you would like to set as personal Prize if someone breaks his personal Record."; mes "And please remember that only numbers = Item ID's as values are allowed."; next; mes "Insert 0 to cancel."; input .empbrk_prizep; next; if(.empbrk_prizep <= 0){ next; goto L_SP; } query_sql "SELECT `id` FROM `item_db` WHERE `id` = '"+.empbrk_prizep+"'",.idp; if(!.idp){ mes .n$; mes "I'm sorry but this Item doesn't exist!"; mes "Please try again."; next; goto L_SPPA; } mes .n$; mes "Ok, so the Prize will be "+getitemname(.empbrk_prizep)+" , is that correct?"; next; menu "No, that's wrong!",L_SPPA,"Yes, that's correct!",-; L_RPA: mes .n$; mes "Good! Now please tell me how many pieces of this prize the new Player should get,"; mes "but remember for security reasons you can't enter a higher value than 100."; next; mes "Insert 0 to cancel."; input .empbrk_amountp; next; if(.empbrk_amountp <= 0){ next; goto L_SP; } if(.empbrk_amountp >= 100){ mes .n$; mes "I'm sorry but the entered Value exceeds the allowed amount!"; mes "Please try again."; next; goto L_RPA; } mes .n$; mes "Ok, so the Amount of the Prize that will be given is "+.empbrk_amountp+" , is that correct?"; next; menu "No, that's wrong!",L_RPA,"Yes, that's correct!",-; mes .n$; mes "Great! So the Prize "+getitemname(.empbrk_prizep)+" will be given away with an amount of "+.empbrk_amountp+" if someone breaks his personal Record, is that correct?"; next; menu "No, that's wrong!",L_SPPA,"Yes, that's correct!",-; mes .n$; mes "Allright, it's all set!"; set $empbrk_prizep,.empbrk_prizep; set $empbrk_amountp,.empbrk_amountp; next; goto L_GMCP; L_EDPD: mes .n$; mes "What would you like to do?"; next; menu "Disable global Prize Distribution",-,"Enable global Prize Distribution",L_EGPD,"Disable personal Prize Distribution",L_DPPD,"Enable personal Prize Distribution",L_EPPD,"Cancel",L_C; if($empbrk_przdg == 0){ mes .n$; mes "Global Prize Distribution is already disabled!"; next; goto L_EDPD; } mes .n$; mes "Global Prize Distribution has been disabled!"; set $empbrk_przdg,0; next; goto L_GMCP; L_EGPD: if($empbrk_przdg == 1){ mes .n$; mes "Global Prize Distribution is already enabled!"; next; goto L_EDPD; } mes .n$; mes "Global Prize Distribution has been enabled!"; set $empbrk_przdg,1; next; goto L_GMCP; L_DPPD: if($empbrk_przdp == 0){ mes .n$; mes "Personal Prize Distribution is already disabled!"; next; goto L_EDPD; } mes .n$; mes "Personal Prize Distribution has been disabled!"; set $empbrk_przdp,0; next; goto L_GMCP; L_EPPD: if($empbrk_przdp == 1){ mes .n$; mes "Personal Prize Distribution is already enabled!"; next; goto L_EDPD; } mes .n$; mes "Personal Prize Distribution has been enabled!"; set $empbrk_przdp,1; next; goto L_GMCP; L_HE: mes .n$; mes "What would you like to do?"; next; menu "Disable Hourly Event",-,"Enable Hourly Event",L_EHE,"Cancel",L_C; if($empbrkrh == 0){ mes .n$; mes "Hourly Event already is disabled!"; next; goto L_HE; } mes .n$; mes "Hourly Event has been disabled!"; hideoffnpc "Emperium Breaking Room"; set $empbrkh,0; next; goto L_GMCP; L_EHE: if($empbrkh == 1){ mes .n$; mes "Hourly Event already is enabled!"; next; goto L_HE; } mes .n$; mes "Hourly Event has been enabled!"; mapwarp "pvp_n_4-5","prontera",155,180; stopnpctimer "EmpBrk#1"; stopnpctimer "EmpBrk#2"; stopnpctimer "EmpBrk#3"; stopnpctimer "EmpBrk#4"; killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk"; cleararray $@empbrkr_occupied[0],0,4; hideonnpc "Emperium Breaking Room"; set $empbrkh,1; next; goto L_GMCP; L_SGCPL: mes .n$; mes "What would you like to do?"; next; menu "Set GM Control Panel Acces Level",-,"Cancel",L_C; mes .n$; mes "Allright, please insert now the GM Level at which Players / GM's should be able to enter the GM Control Panel."; next; mes .n$; mes "Please note that the GM Level can't be lower than 40 and can't be above 99 as well for security reasons."; input .gmcp; next; if(.gmcp <= 40 || .gmcp >= 99){ mes .n$; mes "I'm sorry but you inserted an invalid Level!"; next; goto L_SGCPL; } mes .n$; mes "Allright, the new GM Control Panel access Level will be "+.gmcp+" , is that correct?"; next; menu "No, that's wrong!",L_SGCPL,"Yes, that's correct!",-; mes .n$; mes "Great! It all has been set, so the new GM Control Panel Access Level will be "+.gmcp+" ."; set $empbrk_gm_restriction,.gmcp; next; goto L_GMCP; L_RYR: mes .n$; mes "Are you sure you want to reset your record?"; next; menu "Yes",-,"No",L_C; mes .n$; mes "Your personal Record has been reset."; set empbrk_record,0; close; L_ROR: mes .n$; mes "Are you sure you want to reset the official Record?"; next; menu "No",L_GMCP,"Yes",-; mes .n$; mes "It's done."; set $empbrk_record,0; set $empbrk_master$,""; next; goto L_GMCP; L_RR: mes .n$; mes "Are you sure you want to reset the Emperium Breaking Rooms?"; next; menu "No",L_GMCP,"Yes",-; mes "Rooms have been reset."; mapwarp "pvp_n_4-5","prontera",155,180; stopnpctimer "EmpBrk#1"; stopnpctimer "EmpBrk#2"; stopnpctimer "EmpBrk#3"; stopnpctimer "EmpBrk#4"; killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk"; killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk"; cleararray $@empbrkr_occupied[0],0,4; next; goto L_GMCP; L_C: mes .n$; mes "Bye!"; close; OnInit: set .n$,"[Emperium Breaking Room]"; if(!$empbrk_gm_restriction){ set $empbrk_gm_restriction,40; } if($empbrkh == 1){ hideonnpc "Emperium Breaking Room"; } end; } - script EmpBrk#1 -1,{ OnTimer5000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area; end; OnTimer8000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area; end; OnTimer9000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area; end; OnTimer10000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area; end; OnTimer11000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area; end; OnTimer12000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area; end; OnTimer13000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area; monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#1::OnEmpBrk"; end; OnTimer600000: warpchar "prontera",155,180,$@empbrk_charid[0]; killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk"; set $@empr_occupied[0],0; stopnpctimer; end; OnEmpBrk: stopnpctimer; set .current_time,getnpctimer(0,"EmpBrk#1"); set .new_time,.current_time - 13000; if (.new_time < empbrk_record || empbrk_record == 0) { areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area; if($empbrk_przdp == 1){ getitem $empbrk_prizep,$empbrk_amountp; } set empbrk_record,.new_time; } if (.new_time < $empbrk_record || $empbrk_record == 0) { announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all; if($empbrk_przdg == 1){ getitem $empbrk_prize,$empbrk_amount; } set $empbrk_record,.new_time; set $empbrk_master$,strcharinfo(0); } set .m,.new_time / 60000; set .s,.new_time / 1000; set .ms,.new_time / 10000; set $@empr_occupied[0],0; areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area; warpchar "prontera",155,180,$@empbrk_charid[0]; end; OnInit: set .x1,94; set .y1,128; set .x2,105; set .y2,139; set .xe,100; set .ye,134; end; } pvp_n_4-5,99,125,0 script EmpBrk#1_touch -1,3,1,{ OnTouch: mes "[Emperium Breaking Room]"; mes "You're not allowed to exit your square!"; close2; stopnpctimer "EmpBrk#1"; warp "prontera",155,180; killmonster "pvp_n_4-5","EmpBrk#1::OnEmpBrk"; set $@empr_occupied[0],0; end; } - script EmpBrk#2 -1,{ OnTimer5000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area; end; OnTimer8000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area; end; OnTimer9000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area; end; OnTimer10000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area; end; OnTimer11000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area; end; OnTimer12000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area; end; OnTimer13000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area; monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#2::OnEmpBrk"; end; OnTimer600000: warpchar "prontera",155,180,$@empbrk_charid[1]; killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk"; set $@empr_occupied[1],0; stopnpctimer; end; OnEmpBrk: stopnpctimer; set .current_time,getnpctimer(0,"EmpBrk#2"); set .new_time,.current_time - 13000; if (.new_time < empbrk_record || empbrk_record == 0) { areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area; if($empbrk_przdp == 1){ getitem $empbrk_prizep,$empbrk_amountp; } set empbrk_record,.new_time; } if (.new_time < $empbrk_record || $empbrk_record == 0) { announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all; if($empbrk_przdg == 1){ getitem $empbrk_prize,$empbrk_amount; } set $empbrk_record,.new_time; set $empbrk_master$,strcharinfo(0); } set .m,.new_time / 60000; set .s,.new_time / 1000; set .ms,.new_time / 10000; areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area; warpchar "prontera",155,180,$@empbrk_charid[1]; set $@empr_occupied[1],0; end; OnInit: set .x1,60; set .y1,94; set .x2,71; set .y2,105; set .xe,65; set .ye,99; end; } pvp_n_4-5,74,99,0 script EmpBrk#2_touch -1,1,3,{ OnTouch: mes "[Emperium Breaking Room]"; mes "You're not allowed to exit your square!"; close2; stopnpctimer "EmpBrk#2"; warp "prontera",155,180; killmonster "pvp_n_4-5","EmpBrk#2::OnEmpBrk"; set $@empr_occupied[1],0; end; } - script EmpBrk#3 -1,{ OnTimer5000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area; end; OnTimer8000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area; end; OnTimer9000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area; end; OnTimer10000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area; end; OnTimer11000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area; end; OnTimer12000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area; end; OnTimer13000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area; monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#3::OnEmpBrk"; end; OnTimer600000: warpchar "prontera",155,180,$@empbrk_charid[2]; killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk"; set $@empr_occupied[2],0; stopnpctimer; end; OnEmpBrk: stopnpctimer; set .current_time,getnpctimer(0,"EmpBrk#3"); set .new_time,.current_time - 13000; if (.new_time < empbrk_record || empbrk_record == 0) { areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area; if($empbrk_przdp == 1){ getitem $empbrk_prizep,$empbrk_amountp; } set empbrk_record,.new_time; } if (.new_time < $empbrk_record || $empbrk_record == 0) { announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all; if($empbrk_przdg == 1){ getitem $empbrk_prize,$empbrk_amount; } set $empbrk_record,.new_time; set $empbrk_master$,strcharinfo(0); } set .m,.new_time / 60000; set .s,.new_time / 1000; set .ms,.new_time / 10000; areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area; warpchar "prontera",155,180,$@empbrk_charid[2]; set $@empr_occupied[2],0; end; OnInit: set .x1,94; set .y1,60; set .x2,105; set .y2,71; set .xe,99; set .ye,65; end; } pvp_n_4-5,100,74,0 script EmpBrk#3_touch -1,3,1,{ OnTouch: mes "[Emperium Breaking Room]"; mes "You're not allowed to exit your square!"; close2; stopnpctimer "EmpBrk#3"; warp "prontera",155,180; killmonster "pvp_n_4-5","EmpBrk#3::OnEmpBrk"; set $@empr_occupied[2],0; end; } - script EmpBrk#4 -1,{ OnTimer5000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Get ready to break the Emperium!",bc_area; end; OnTimer8000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"5",bc_area; end; OnTimer9000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"4",bc_area; end; OnTimer10000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"3",bc_area; end; OnTimer11000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"2",bc_area; end; OnTimer12000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"1",bc_area; end; OnTimer13000: areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"GO!!!",bc_area; monster "pvp_n_4-5",.xe,.ye,"Emperium",1288,1,"EmpBrk#4::OnEmpBrk"; end; OnTimer600000: warpchar "prontera",155,180,$@empbrk_charid[3]; killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk"; set $@empr_occupied[3],0; stopnpctimer; end; OnEmpBrk: stopnpctimer; set .current_time,getnpctimer(0,"EmpBrk#4"); set .new_time,.current_time - 13000; if (.new_time < empbrk_record || empbrk_record == 0) { areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"New Own Record!!!",bc_area; if($empbrk_przdp == 1){ getitem $empbrk_prizep,$empbrk_amountp; } set empbrk_record,.new_time; } if (.new_time < $empbrk_record || $empbrk_record == 0) { announce strcharinfo(0)+" is now the new No. 1 Emperium Breaker!!",bc_all; if($empbrk_przdg == 1){ getitem $empbrk_prize,$empbrk_amount; } set $empbrk_record,.new_time; set $empbrk_master$,strcharinfo(0); } set .m,.new_time / 60000; set .s,.new_time / 1000; set .ms,.new_time / 10000; areaannounce "pvp_n_4-5",.x1,.y1,.x2,.y2,"Your time is "+.m+"m "+.s+"s "+.ms+"ms",bc_area; warpchar "prontera",155,180,$@empbrk_charid[3]; set $@empr_occupied[3],0; end; OnInit: set .x1,128; set .y1,94; set .x2,139; set .y2,105; set .xe,134; set .ye,99; end; } pvp_n_4-5,125,100,0 script EmpBrk#4_touch -1,1,3,{ OnTouch: mes "[Emperium Breaking Room]"; mes "You're not allowed to exit your square!"; close2; stopnpctimer "EmpBrk#4"; warp "prontera",155,180; killmonster "pvp_n_4-5","EmpBrk#4::OnEmpBrk"; set $@empr_occupied[3],0; end; } pvp_n_4-5 mapflag nowarp pvp_n_4-5 mapflag nowarpto pvp_n_4-5 mapflag notrade pvp_n_4-5 mapflag nochat pvp_n_4-5 mapflag nocommand pvp_n_4-5 mapflag novending pvp_n_4-5 mapflag gvg_castle pvp_n_4-5 mapflag nobranch pvp_n_4-5 mapflag noicewall pvp_n_4-5 mapflag noloot pvp_n_4-5 mapflag nomemo pvp_n_4-5 mapflag nosave pvp_n_4-5 mapflag noreturn thanks for taking time on reading this
-
Thanks i will read that after i return from the university, now i have to go to sleep z_Z thanks again! ! huh i tryied the default disguise evento but when i click it, nothings happens (im lvl 99 [administrador, founder and owner]) ):
-
ohhh i see, thanks for quick answer, woul you help me with a npc like this working for rathena? i just understanded the half of your answer oh and congrats! that's a nice script, sorry i jsut found the script con google ):
-
Hello ther,e i just was installing some new npc eventos and i got some errors ); i got this 2, dunno how to fix them, my lvl scriptint is pretty low ); and this is my script /*//----------------------------------------------------------------// //----------------Scripted by Spera---------------------------------// //------------------FinalStrikeRO-----------------------------------// //--------------------Disguise Event NPC v2-------------------------// /-------------------------------------------------------------------//*/ quiz_02,355,384,5 script Disguise CP 968,{ if (getgmlevel()<20) { mes "^3399FF[Disguise CP]^000000"; mes "Sorry, you are not a GM!"; close; } mes "^3399FF[Disguise CP]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Set number of rounds[^E50000"+$guessrounds+"^000000]:Set prize^E50000 ["+getitemname($guessprize)+"]^000000 ^E50000 ["+ $guessprizecount + "]^000000:Nothing")) { case 1: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "guessAnnouncer::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "guessAnnouncer::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new number."; input $guessrounds; if ($guessrounds > 30) set $guessrounds, 30; else if ($guessrounds < 1) set $guessrounds, 1; close; } case 4: { next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the new prize id."; input .@guessprizeid; if (getitemname(.@guessprizeid) == "null" || getitemname(.@guessprizeid) == "") {next; mes "^3399FF[Disguise CP]^000000"; mes "Error"; mes "This item does not exist in the database..."; close;} set $guessprize, .@guessprizeid; next; mes "^3399FF[Disguise CP]^000000"; mes "Please type in the amount."; input .@guessprizeamount; if (!.@guessprizeamount) set .@guessprizeamount,1 ; set $guessprizecount,.@guessprizeamount; next; mes "^3399FF[Disguise CP]^000000"; mes "Prize has been set to ^E50000 "+ getitemname($guessprize)+ "^000000 and the amount to ^E50000 " +$guessprizecount+"^000000"; close; } case 5: { next; mes "^3399FF[Disguise CP]^000000"; mes "Good bye"; close; } } } quiz_02,336,346,4 script Disguise NPC 933,{ if (!$guessbegin) { mes "^3399FF[Disguise NPC]^000000"; mes "The event is going to start soon!"; close; } end; OnStart: set $guessbegin, 1; set .DisguiseWon, 0; if (!$DisguiseRound) { npctalk "Alright. Let's start this game!"; sleep 2000; npctalk "But first I will explain the rules."; sleep 2000; npctalk "I am going to disguise into a random monster."; sleep 2000; npctalk "You have to guess the monster's name and shout it out."; sleep 2000; npctalk "Don't bother about the use of capital and small initial letters."; sleep 2000; npctalk "Now get ready!"; sleep 5000; } else if ($DisguiseRound < $guessrounds-1) { npctalk "Get ready for the next round."; setnpctimer 0; sleep 8000; } else { npctalk "Last round now!"; sleep 2000; npctalk "Get ready!"; sleep 6000; } do { set .@guessrepeat, 0; set $monster, 1000 + rand(1,950); for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1) { if ($monster == $Forbidden[.@k]) { set .@guessrepeat, 1; break; } } } while (.@guessrepeat); setnpctimer 0; initnpctimer; setnpcdisplay "Disguise NPC",$monster; set $MonsterName$, strmobinfo(1,$monster); defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround"; activatepset 1; npctalk "What's my name?"; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; end; OnTimer5000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} } end; OnTimer15000: if (!.DisguiseWon) { sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer25000: if (!.DisguiseWon) { npctalk "You get 10 more seconds to guess my name."; sleep 3000; npcwalkto 102,103; sleep 2000; npcwalkto 102,99; } end; OnTimer35000: if (!.DisguiseWon) { npctalk "Round is over."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} set $DisguiseRound, $DisguiseRound + 1; deletepset 1; sleep 3000; npctalk $MonsterName$ + " would have been the correct answer."; sleep 5000; if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; set $guessactive, 0; mapwarp "quiz_02.gat","quiz_02",336,346; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } goto OnStart; } end; winround: setnpctimer 0; deletepset 1; set .DisguiseWon, 1; set $DisguiseRound, $DisguiseRound + 1; npctalk strcharinfo(0) + " got my right name!"; getitem $guessprize, $guessprizecount; sleep2 3000; npctalk $MonsterName$ + " is the correct answer."; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} if ($DisguiseRound >= $guessrounds) { set $DisguiseRound, 0; set $guessactive, 0; sleep 3000; npctalk "Event is over now!"; sleep 3500; npctalk "See ya!"; sleep 2000; emotion 12; sleep 1000; mapwarp "quiz_02.gat","quiz_02",336,346; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; end; } sleep 5000; goto OnStart; end; } //----------------------------------------------------------------------------------- //----------------------------------------------------------------------------------- - script guessAnnouncer -1,{ OnGMStart: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 3000; announce "Number of Rounds: "+$guessrounds,0; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; set $DisguiseRound, 0; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} if(getmapusers("quiz_02") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnGMStop: if ($guessactive) { set $guessactive, 0; announce "The disguise event has been stopped.",0; set $DisguiseRound, 0; mapwarp "quiz_02.gat","quiz_02",336,346; setnpcdisplay "Disguise NPC",933; disablenpc "Disguise NPC"; disablenpc "guesswarp"; } end; OnClock0100: OnClock0300: OnClock0500: OnClock0700: OnClock0900: OnClock1100: OnClock1300: OnClock1500: OnClock1700: OnClock1833: OnClock2000: OnClock2205: if ($guessactive) end; set $guessactive, 1; announce "The server is starting a Disguise Event now!",0; set $guessbegin, 0; sleep 3000; if (!$guessactive) end; announce "If you want to join, come to prontera, head downwards and enter the warp portal.",0; enablenpc "guesswarp"; enablenpc "Disguise NPC"; sleep 2000; announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0; sleep 2000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal is going to close in one minute.",0; sleep 60000; if (!$guessactive) {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;} announce "The portal has been closed.",0; disablenpc "guesswarp"; sleep 5000; if (!$guessactive) {disablenpc "Disguise NPC"; end;} announce "Next Event will start in 2 hours.",0; set $DisguiseRound, 0; if(getmapusers("quiz_02") == 0) { disablenpc "Disguise NPC"; set $guessactive, 0; end; } donpcevent "Disguise NPC::OnStart"; end; OnInit: disablenpc "Disguise NPC"; disablenpc "guesswarp"; set $guessactive, 0; setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900,1948,1892,1949,1950,1983,1984,2010,1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1496,1501,1900,1996,2002,2003,2004,2005,2006,2007,2011,2012,2025,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064,2065,2066,2067,2075,2076,2077,2078,2079,2080,2081,2084,2093,2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124,2125,1900,1901,1902,1903,1237,1239,1145,1175,1209,1841,1842,1843,1844,3014,3001,3002,2114,2115,2117,2118,2119,2120,6049,6050,6051,6052,2200,2205,2207; } //----------------------------------------------------------------------------------- //------------------Warp Portal------------------------------------------------------ izlude,109,153,0 warp guesswarp 2,2,quiz_02,342,346 //----------------------------------------------------------------------------------- //------------------Map Flags-------------------------------------------------------- quiz_02 mapflag nowarpto quiz_02 mapflag noskill quiz_02 mapflag nosave quiz_02 mapflag nomemo quiz_02 mapflag noteleport quiz_02 mapflag nowarp //----------------------------------------------------------------------------------- totally dunno what to do, any help please ):
-
bump at least a guide where i can see how to edit or something? i really need this ): i was suppused to be ready for today at night for my players ):
-
thanks! im using rathena pre renewall i searched over google but did not found what i was looking for a didd extension to make it support guild names with spaces well thanks i will then fallow the rathena method o:!
-
There is another post for an eathena topic that shows 2 modification, i need just to modify /src/common/mmo.h or also both /src/common/mmo.h and /src/char/int_guild.c ? I use client 2012-04-10aRagexeRE_J, is there a diff that can suppor that? thanks again
-
Oh i get it now (or i think i get it) hehe thanks
-
wut?! i just added 63 and it worked perfectly o.o
-
Well, when i used to run eathena, i was able to create a guild with spaces typing this command /guild "guild name with " and spaces" and used to work, but nwo on rathena my players and i can not do that anymore, they and i have to create the guild name by something like this /guild GuildNameNoSpaces so i want to know how to allow them to use " " in order to create guilds name with spaces. This is the main question How to reduce the capacity of new guilds to 1? i want them to start with just 1 player, and then make the skill "guild extention" to be able to raise it just 1 lvl, so the maxium guild capacity for all would be 7 players, i know it has something to do with the SRc but, im not sure what to change ): if more info neede i will add it thank you guys! and sorry my english, not my natal lenguage
-
Thank you to both! this will totally help my server and I, thanks again!
-
Thanks! i can add many more prizes for everyday? what happens when they get all items rewards, the count resets? thank you again!
-
I just want a script that gives a reward to the players every day, easy to use because i'm so noob unskilled on the script thing. I found some scripts that gives reward per hour, day or wekk etc but i just don't get it, if it's posible, i would love a simple and basic script with just that characteriscts (sorry my english) Also, a npc that gives a welcome pack to the new players, because sometimmes im not online and new players come to my server but there is no gm to ask for a welcome pack, thanks again i really apreciated this
-
im using rathena pre-renewall, this work aswell there right? Edit: thank you it solved !
-
Since my GM hlepers and I can't make a custom BG to addapt to my server i just was wondering if someone would make me one or just tell me how to change some the correct settings, i jsut need this: -Up to lvl 255 -Prize of medals: winner gets 20 (20 valor and 20 bravery), looser gets 12 (12 valor and 12 bravery) -VS Mode: 3vs3, 5vs5 and 10vs10 it's ok if it's tierra or flavius por kvm i just want to make it 7vs7 with more points, arround the double or more, it's for a custom high rate server i use rAthena pre-renewall if more info needed i will just add it sorry my english im not from usa or england (ta tha..(?)) thank you so much!