Jump to content

Kido

Members
  • Posts

    1445
  • Joined

  • Last visited

  • Days Won

    10

Everything posted by Kido

  1. Kido

    Zeph Control Panel

    yeah i know but i dont know how to activate all of that functions D:!
  2. I was searching for this control panel with the only Clue that this control panel was made from a guy nicknamed "Zeph" i totally don't know who is she or he i did not found a thing on google ): so i was wondering guys if you can help me to get this cool and awesome control panel i just love it i love the feature that shows how many mvp cards are on the server here is a pic well thank you for reading this my players and i will always love this help thanks again :3
  3. the bonus of the second parameter is not working D:! the other ones works fine! Edit: finally it worked, i had to take the script from function 2 to function 1, it ended like this, thank you so much! function script bonus_parametr1 { bonus bIntravision,0; bonus bAllStats,15; bonus bMaxHPrate,20; bonus bMaxSPrate,20; bonus bLongAtkRate,30; bonus bMatkRate,30; bonus2 bResEff,Eff_Blind,10000; bonus2 bResEff,Eff_Sleep,10000; bonus2 bResEff,Eff_Poison,10000; bonus2 bResEff,Eff_Freeze,10000; bonus2 bResEff,Eff_Silence,10000; bonus2 bResEff,Eff_Stun,10000; bonus2 bResEff,Eff_Curse,10000; bonus2 bResEff,Eff_Confusion,10000; bonus2 bResEff,Eff_Stone,10000; if(isequipped(2647)) bonus bAllStats,10; if(isequipped(4399)) bonus bDef,30; if(isequipped(4399)) bonus bFlee,10; if(BaseClass==Job_Swordman||BaseClass==Job_Merchant||BaseClass==Job_Thief||(BaseJob==Job_Taekwon&&Class!=Job_Soul_Linker)) { bonus2 bSkillAtk,"KN_BOWLINGBASH",10; bonus2 bSkillAtk,"PA_SACRIFICE",10; bonus2 bSkillAtk,"SG_SUN_WARM",10; bonus2 bSkillAtk,"SG_MOON_WARM",10; bonus2 bSkillAtk,"SG_STAR_WARM",10; bonus2 bSkillAtk,"413",10; bonus2 bSkillAtk,"415",10; bonus2 bSkillAtk,"417",10; bonus2 bSkillAtk,"419",10; bonus2 bSkillAtk,"421",10; bonus bInt,100; bonus bMatkRate,-70; end; } else if(BaseClass==Job_Mage||BaseClass==Job_Acolyte||class==Job_Ninja||class==Job_Soul_Linker) { bonus bMatkRate,15; bonus bMaxHPrate,10; } else if(BaseClass==Job_Archer||BaseClass==Job_Gunslinger) { bonus bLongAtkRate,15; end; } else if(BaseJob==Job_Novice||BaseJob==Job_SuperNovice) { bonus bMaxHP,92000; bonus bMaxSP,5000; end; } }
  4. wow that's amazing, it works with ifequiped? becaus i need it to only a specific top headgear for example, this will work? if(isequipped(#ID)) { bonus bStr, getequiprefinerycnt( EQI_HEAD_TOP ); } or how shoukd i combine them?
  5. Well i want to combine this script, actually it works pretty good 26329,Thanatos_Dragon,Thanatos_Dragon,5,,,0,,0,,1,0xFFFFFFFF,7,63,513,,1,1,1248,{ bonus bIntravision,0; bonus bAllStats,15; bonus bMaxHPrate,20; bonus bMaxSPrate,20; bonus bLongAtkRate,30; bonus bMatkRate,30; bonus2 bResEff,Eff_Blind,10000; bonus2 bResEff,Eff_Sleep,10000; bonus2 bResEff,Eff_Poison,10000; bonus2 bResEff,Eff_Freeze,10000; bonus2 bResEff,Eff_Silence,10000; bonus2 bResEff,Eff_Stun,10000; bonus2 bResEff,Eff_Curse,10000; bonus2 bResEff,Eff_Confusion,10000; bonus2 bResEff,Eff_Stone,10000; if(isequipped(2647)) bonus bAllStats,10; if(isequipped(4399)) bonus bDef,30; if(isequipped(4399)) bonus bFlee,10; },{ specialeffect2 454; specialeffect2 409; specialeffect2 668; },{ } With this other script if(BaseClass==Job_Swordman||BaseClass==Job_Merchant||BaseClass==Job_Thief||(BaseJob==Job_Taekwon&&Class!=Job_Soul_Linker)) bonus2 bSkillAtk,"KN_BOWLINGBASH",10; bonus2 bSkillAtk,"PA_SACRIFICE",10; bonus2 bSkillAtk,"SG_SUN_WARM",10; bonus2 bSkillAtk,"SG_MOON_WARM",10; bonus2 bSkillAtk,"SG_STAR_WARM",10; bonus2 bSkillAtk,"413",10; bonus2 bSkillAtk,"415",10; bonus2 bSkillAtk,"417",10; bonus2 bSkillAtk,"419",10; bonus2 bSkillAtk,"421",10; bonus bInt,100; bonus bMatkRate,-70; else if(BaseClass==Job_Mage||BaseClass==Job_Acolyte||class==Job_Ninja||class==Job_Soul_Linker) bonus bMatkRate,15; bonus bMaxHPrate,10; else if(BaseClass==Job_Archer||BaseClass==Job_Gunslinger) bonus bLongAtkRate,15; else if(BaseJob==Job_Novice||BaseJob==Job_SuperNovice) { bonus bMaxHP,92000; bonus bMaxSP,5000; } So, when i do it, i have this in the end, but it does not work 26329,Thanatos_Dragon,Thanatos_Dragon,5,,,0,,0,,1,0xFFFFFFFF,7,63,513,,1,1,1248,{ bonus bIntravision,0; bonus bAllStats,15; bonus bMaxHPrate,20; bonus bMaxSPrate,20; bonus bLongAtkRate,30; bonus bMatkRate,30; bonus2 bResEff,Eff_Blind,10000; bonus2 bResEff,Eff_Sleep,10000; bonus2 bResEff,Eff_Poison,10000; bonus2 bResEff,Eff_Freeze,10000; bonus2 bResEff,Eff_Silence,10000; bonus2 bResEff,Eff_Stun,10000; bonus2 bResEff,Eff_Curse,10000; bonus2 bResEff,Eff_Confusion,10000; bonus2 bResEff,Eff_Stone,10000; if(isequipped(2647)) bonus bAllStats,10; if(isequipped(4399)) bonus bDef,30; if(isequipped(4399)) bonus bFlee,10; if(BaseClass==Job_Swordman||BaseClass==Job_Merchant||BaseClass==Job_Thief||(BaseJob==Job_Taekwon&&Class!=Job_Soul_Linker)) bonus2 bSkillAtk,"KN_BOWLINGBASH",10; bonus2 bSkillAtk,"PA_SACRIFICE",10; bonus2 bSkillAtk,"SG_SUN_WARM",10; bonus2 bSkillAtk,"SG_MOON_WARM",10; bonus2 bSkillAtk,"SG_STAR_WARM",10; bonus2 bSkillAtk,"413",10; bonus2 bSkillAtk,"415",10; bonus2 bSkillAtk,"417",10; bonus2 bSkillAtk,"419",10; bonus2 bSkillAtk,"421",10; bonus bInt,100; bonus bMatkRate,-70; else if(BaseClass==Job_Mage||BaseClass==Job_Acolyte||class==Job_Ninja||class==Job_Soul_Linker) bonus bMatkRate,15; bonus bMaxHPrate,10; else if(BaseClass==Job_Archer||BaseClass==Job_Gunslinger) bonus bLongAtkRate,15; else if(BaseJob==Job_Novice||BaseJob==Job_SuperNovice) { bonus bMaxHP,92000; bonus bMaxSP,5000; } },{ specialeffect2 454; specialeffect2 409; specialeffect2 668; },{ } I also tryied this, to put a { } after each if bonus, but that did not work too 26329,Thanatos_Dragon,Thanatos_Dragon,5,,,0,,0,,1,0xFFFFFFFF,7,63,513,,1,1,1248,{ bonus bIntravision,0; bonus bAllStats,15; bonus bMaxHPrate,20; bonus bMaxSPrate,20; bonus bLongAtkRate,30; bonus bMatkRate,30; bonus2 bResEff,Eff_Blind,10000; bonus2 bResEff,Eff_Sleep,10000; bonus2 bResEff,Eff_Poison,10000; bonus2 bResEff,Eff_Freeze,10000; bonus2 bResEff,Eff_Silence,10000; bonus2 bResEff,Eff_Stun,10000; bonus2 bResEff,Eff_Curse,10000; bonus2 bResEff,Eff_Confusion,10000; bonus2 bResEff,Eff_Stone,10000; if(isequipped(2647)) bonus bAllStats,10; if(isequipped(4399)) bonus bDef,30; if(isequipped(4399)) bonus bFlee,10; if(BaseClass==Job_Swordman||BaseClass==Job_Merchant||BaseClass==Job_Thief||(BaseJob==Job_Taekwon&&Class!=Job_Soul_Linker)) { bonus2 bSkillAtk,"KN_BOWLINGBASH",10; bonus2 bSkillAtk,"PA_SACRIFICE",10; bonus2 bSkillAtk,"SG_SUN_WARM",10; bonus2 bSkillAtk,"SG_MOON_WARM",10; bonus2 bSkillAtk,"SG_STAR_WARM",10; bonus2 bSkillAtk,"413",10; bonus2 bSkillAtk,"415",10; bonus2 bSkillAtk,"417",10; bonus2 bSkillAtk,"419",10; bonus2 bSkillAtk,"421",10; bonus bInt,100; bonus bMatkRate,-70; } else if(BaseClass==Job_Mage||BaseClass==Job_Acolyte||class==Job_Ninja||class==Job_Soul_Linker) { bonus bMatkRate,15; bonus bMaxHPrate,10; } else if(BaseClass==Job_Archer||BaseClass==Job_Gunslinger) bonus bLongAtkRate,15; else if(BaseJob==Job_Novice||BaseJob==Job_SuperNovice) { bonus bMaxHP,92000; bonus bMaxSP,5000; } },{ specialeffect2 454; specialeffect2 409; specialeffect2 668; },{ } I would love if some one of you guys can help me to make it work pleasee thanks again !
  6. Hi, i was trying to put new effects on my items and well, im stuck with this one effect, it goes like this: It's a Lower Headgear that gives you +1 SP and +1 STR for eache refine of your Top Headgear I was like "i will make it like this" bonus bStr,getrefine(256)1; bonus bStr,getrefine,256()1; Maybe this? { if(getiteminfo(getequipid(EQI_HAND_R),11)==10) { bonus bInt,1; bonus bIgnoreMdefRate,2; } },{},{} it is the effect o necromancer card, but i want it for top headgear D:! or something like that it is possible? if it is, please help me to get that effect thank you so much!
  7. Hm yeah but i want it to combinate, for example and let's say: you wear 1 ifrit card, you can a kiel card, but now you wont be abble to wear other ifrit card or fallen bishop or high wizard card just an example anyway that sripts is amazing o:! but it is not exactly what im looking for thanks i will still looking for answrs, and sorry for my late answer, im a student with kinda short time !
  8. I need a script that cancels the effect of all mvp cards you have if you are wearning more than 2 restricted mvp cards I found easy to use array scripts i love them, but i don't know a thing about how to make them, my users and i would be so plased if somene help us to restrict this mvp cards, since my server is getting old, the mvp cards now are showing more frequently because there are more players too. Here some examples: -The combination of mora than 2 mvp cards will cancel de effect of all mvp cards You may have Ifrit Cards, but not 2 Ifrit Cards+Valkyrie Randgris Card -If you have more than 2 of the restricted cards, mvp cards will cancel You may wear 2 Kiel Cards, but if you have 2 Kiel Cards and one Fallen Bishop Card, all of your mvp cards will loose its effect, like tao gunka, golden thief bug etc. Thanks for taking time on reading this, i hope is enought information, if not i will update, thanks again!
  9. what if i don't have that table ¿?
  10. thanks! already solve it, i had to turn off the map server, it was the only online, thanks for the repply
  11. i just was compiling, and then this threw me this error, dunno what to do please ): if need more info i will give it, please my players are just waiting t.t
  12. bump ): i just want to know what is the max capacity of MAX_ITEMRATIO_MOB on src/map/mob.c :c
  13. the problem presist, i think i will have to restart over again the server, shutting down and turning it on, hope it helps that is an awesome script o:!!! thanks!
  14. yeah that's it try to do this: start a new poll put the question dont add anyquestion, just type end or warp to anywhere and you will get the error x_X however you gave me a brilliant idea o:! just to fix it, i can modify the canel button to make it give me the option of new poll, and then i will make one, when the script gets fixed i will return the script ot the normality, how can i do that o:?!
  15. aw i can not for now, my players are conmnected (21) but i can give you a SS of the npc how it shows the option sorry for late answer too, university takes alot of time x_x
  16. in my est server it worked but im having a problem D:! i missclicked when i was about to start a new poll and just hitted cancel, and then the npc only gives 1 option wich is Cancel and i cant restart it D:!
  17. i just want to know hwta´s the max capacity for it, because i need more than 10 items to make a custom drop for them thanks your answering (;
  18. sure no problem, i will translate it to english, sorry for that, give me a break so i can translate, im mexican thats why my english is bad xD allright i will translate it when i translated i will edit my post ok or if you answer i will respond Edit: done //===== 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 "Thank you for your vote!"; next; goto L_Begin; // No question is set L_NoQuestion: mes "[Poll]"; mes "There is not any questions"; 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 "Game ask?"; next; menu "Yes",-,"No",L_Cancel; input $poll_question$; set $pollid,rand (100000,999999); mes "Question System: " + $poll_question$; next; mes "[Poll]"; mes "Options of entrance"; mes "type at the end 'end' to top the questions"; 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 "The options are fulled."; 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 "Enter the name of the votation that you want to add."; input $PQ$[@add]; next; mes "[Poll]"; mes "Option added"; close; // Edit poll count L_EditCount: next; mes "[Poll]"; mes "Wich option would you like to change?"; 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 "¿Wich option would you like to view?"; 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 "Option changed"; close; L_SetEnd: Announce "There is a new poll!",8; Announce $poll_question$,8; set $PQ$[@last],""; mes "[Poll]"; mes "System of the poll"; close; // Allow players to re-cast their vote L_ReVote: next; set $pollid,rand (100000,999999); mes "[Poll]"; mes "Re-vote allowed"; close; L_Cancel: mes "[Poll]"; mes "Adios!!!"; close; }
  19. Thanks, i will change that then, thank you again! will edit if error/worked good!
×
×
  • Create New...