Jump to content

Techno

Members
  • Posts

    34
  • Joined

  • Last visited

Everything posted by Techno

  1. Autotrade was Disabled in this Map I went does anyone know where i can check if there disabled or enabled its a custom vending map thanks
  2. This NPC Just keeps on Runing None Stop can someone set it to Run every 4 hours and stop not keep on going thanks //===== rAthena Script ======================================= //= Disguise Event //===== By: ================================================== //= GmOcean //===== Current Version: ===================================== //= 5.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 5.0 Last update by GmOcean. //= 5.1 Cleaned and standardized, mostly. [Euphy] //============================================================ prontera,156,160,4 script Disguise Event 795,{ // Currently set to run every two hours. // To change times, edit the OnClock labels below. set .@GMLevel,60; // GM level required to access NPC. set .@n$,"[^0000FFDisguise NPC^000000]"; if (getgmlevel()>=.@GMLevel) { mes .@n$; mes "Select an option."; next; switch(select("Turn ON/OFF Event:Event Settings")) { case 1: mes .@n$; if ($@EventON) { mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?"; } else { mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?"; } if(select("Yes:No")==2) close; if ($@EventON) { set $@EventON,0; set $@Timer,0; setnpctimer 0; stopnpctimer; announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue; deletepset 1; setnpcdisplay "Disguise Event",795; close; } set $@EventON,1; set $@Timer,1; setnpctimer 0; initnpctimer; set $@ResetCounter,$@ResetCounter+1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; close; case 2: mes .@n$; mes "Pick a setting to modify."; next; switch(select("Monster Display:Number of Rounds:Prize Settings")) { case 1: setarray .@r$[0],"Disguise as all monsters.","Disguise as MVPs only."; mes .@n$; mes "Choose a disguise rule."; next; set $Rule, select(implode(.@r$,":")); mes .@n$; mes "The Disguise Rule has been set:"; mes " > ^0055FF"+.@r$[$Rule-1]+"^000000"; close; case 2: mes .@n$; mes "Input the number of rounds you want the event to last."; mes "Current number: [^0000FF"+$Rounds+"^000000]"; next; input .@Rounds; set $Rounds,.@Rounds; mes .@n$; mes "The number of rounds has been changed to "+$Rounds+"."; close; case 3: mes .@n$; mes "Input the Item ID of the prize given each round."; mes "Current item: [^0000FF"+getitemname($Prize)+"^000000] (ID #"+$Prize+")"; next; input .@Prize; mes .@n$; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") { mes "That item does not exist. Please try again."; close; } set $Prize,.@Prize; mes "Input the amount to be given."; next; input .@amount; mes .@n$; if (.@amount<=0 || .@amount>=10000) { mes "That amount is invalid. Using default ammount of 1."; set .@amount,1; next; mes .@n$; } set $PrizeAmt,.@amount; mes "The Prize has been changed successfully."; mes "Prize: "+$PrizeAmt+"x [^0000FF"+getitemname($Prize)+"^000000]"; close; } } } if ($@EventON) end; mes .@n$; mes "Welcome."; mes "How may I be of assistance?"; if(select("Information:Nothing, just passing through.")==2) close; next; mes .@n$; mes "This event is quite simple."; mes "At the start of the event, I will"; mes "disguise myself as a random"; mes "monster. You have to shout"; mes "that monter's name out loud."; next; mes "If you are correct, you will receive"; mes "a prize. If not, keep trying!"; mes "That's all that there is to this event."; close; OnInit: set $@EventON,0; set $@Wait,0; set $@Winner,0; set $@ResetCounter,0; set $Points,$Points; if (!$Rounds) set $Rounds,10; else set $Rounds,$Rounds; if (!$Prize) set $Prize,512; else set $Prize,$Prize; if (!$PrizeAmt) set $PrizeAmt,1; else set $PrizeAmt,$PrizeAmt; if ($Rule) set $Rule,1; else set $Rule,$Rule; setarray $@MVP[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373, 1389,1399,1418,1492,1502,1511,1583,1623,1630,1646,1647,1648,1649,1650,1651,1658,1685,1688, 1708,1719,1734,1751,1768,1779,1785,1802,1832,1871,1874,1885,1917,1980,2022,2068,2087,2131, 2156,2165; setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218, 1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1495,1501,1900,1996,2000,2001, 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,2083,2084,2085,2086,2087,2088,2089,2090,2091,2092,2093,2094,2095,2096,2097,2098, 2099,2100,2101,2012,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116, 2117,2118; setarray $@BlackList2[0],2119,2120,2121,2123,2124,2125,1496; end; OnClock0000: OnClock0400: OnClock0800: OnClock1200: OnClock1600: OnClock2000: OnClock2400: set $@ResetCounter,$@ResetCounter+1; set $@EventON,1; set $@Timer,1; set $@Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer || $@Change) end; set $@Wait,0; goto iDisguise; end; OnTimer30000: if ($@Timer) end; set $@Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what I was. Please wait 10 seconds while I disguise again."; specialeffect 725; set $MonsterName$,""; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1) end; announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer120000: if ($@Timer!=1) end; announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer180000: if ($@Timer!=1) end; announce "The Disguise Event has begun!",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; end; iDisguise: if ($Rule==1) { set $@Winner,0; set $@Monster,1000+rand(1,995); for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1) if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL]) goto iDisguise; if ($@Monster==$@LastMonster) goto iDisguise; set $@LastMonster,$@Monster; set $MonsterName$,getmonsterinfo($@Monster,0); } if ($Rule==2) { set $@Winner,0; set $@Monster,rand(49); set $MonsterName$,getmonsterinfo($@MVP[$@Monster],0); } deletepset 1; defpattern 1,"([^:]+):.\\s*"+$MonsterName$+".*", "iCorrect"; activatepset 1; if ($Rule==1) setnpcdisplay "Disguise Event",$@Monster; if ($Rule==2) setnpcdisplay "Disguise Event",$@MVP[$@Monster]; set $@Change,1; setnpctimer 0; end; iCorrect: if ($@Winner) { dispbottom "Someone has already won this round."; end; } set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; activatepset 1; getitem $Prize,$PrizeAmt; announce strcharinfo(0)+" is correct! I was disguised as: "+$MonsterName$+"",bc_map | bc_blue; if ($@RoundCount>=$Rounds) { setnpcdisplay "Disguise Event",795; set $@RoundCount,0; set $@Change,0; set $@EventON,0; setnpctimer 0; stopnpctimer; npctalk "Thank you all for playing. That was the last round of the Disguise Event. Come play again later."; end; } setnpcdisplay "Disguise Event",795; set $@Change,0; setnpctimer 0; end; } And i want it to do only 10rounds bump
  3. Thanks btw is it set to 4hours?
  4. Well this NPC is not going on daily basis i think i set it to 4Hours or somthing am not sure but can someone re-check for me or set it to every 4 hours thank you in advance //===== rAthena Script ======================================= //= Disguise Event //===== By: ================================================== //= GmOcean //===== Current Version: ===================================== //= 5.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 5.0 Last update by GmOcean. //= 5.1 Cleaned and standardized, mostly. [Euphy] //============================================================ prontera,156,160,4 script Disguise Event 795,{ // Currently set to run every two hours. // To change times, edit the OnClock labels below. set .@GMLevel,60; // GM level required to access NPC. set .@n$,"[^0000FFDisguise NPC^000000]"; if (getgmlevel()>=.@GMLevel) { mes .@n$; mes "Select an option."; next; switch(select("Turn ON/OFF Event:Event Settings")) { case 1: mes .@n$; if ($@EventON) { mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?"; } else { mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?"; } if(select("Yes:No")==2) close; if ($@EventON) { set $@EventON,0; set $@Timer,0; setnpctimer 0; stopnpctimer; announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue; deletepset 1; setnpcdisplay "Disguise Event",795; close; } set $@EventON,1; set $@Timer,1; setnpctimer 0; initnpctimer; set $@ResetCounter,$@ResetCounter+1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; close; case 2: mes .@n$; mes "Pick a setting to modify."; next; switch(select("Monster Display:Number of Rounds:Prize Settings")) { case 1: setarray .@r$[0],"Disguise as all monsters.","Disguise as MVPs only."; mes .@n$; mes "Choose a disguise rule."; next; set $Rule, select(implode(.@r$,":")); mes .@n$; mes "The Disguise Rule has been set:"; mes " > ^0055FF"+.@r$[$Rule-1]+"^000000"; close; case 2: mes .@n$; mes "Input the number of rounds you want the event to last."; mes "Current number: [^0000FF"+$Rounds+"^000000]"; next; input .@Rounds; set $Rounds,.@Rounds; mes .@n$; mes "The number of rounds has been changed to "+$Rounds+"."; close; case 3: mes .@n$; mes "Input the Item ID of the prize given each round."; mes "Current item: [^0000FF"+getitemname($Prize)+"^000000] (ID #"+$Prize+")"; next; input .@Prize; mes .@n$; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") { mes "That item does not exist. Please try again."; close; } set $Prize,.@Prize; mes "Input the amount to be given."; next; input .@amount; mes .@n$; if (.@amount<=0 || .@amount>=10000) { mes "That amount is invalid. Using default ammount of 1."; set .@amount,1; next; mes .@n$; } set $PrizeAmt,.@amount; mes "The Prize has been changed successfully."; mes "Prize: "+$PrizeAmt+"x [^0000FF"+getitemname($Prize)+"^000000]"; close; } } } if ($@EventON) end; mes .@n$; mes "Welcome."; mes "How may I be of assistance?"; if(select("Information:Nothing, just passing through.")==2) close; next; mes .@n$; mes "This event is quite simple."; mes "At the start of the event, I will"; mes "disguise myself as a random"; mes "monster. You have to shout"; mes "that monter's name out loud."; next; mes "If you are correct, you will receive"; mes "a prize. If not, keep trying!"; mes "That's all that there is to this event."; close; OnInit: set $@EventON,0; set $@Wait,0; set $@Winner,0; set $@ResetCounter,0; set $Points,$Points; if (!$Rounds) set $Rounds,10; else set $Rounds,$Rounds; if (!$Prize) set $Prize,512; else set $Prize,$Prize; if (!$PrizeAmt) set $PrizeAmt,1; else set $PrizeAmt,$PrizeAmt; if ($Rule) set $Rule,1; else set $Rule,$Rule; setarray $@MVP[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373, 1389,1399,1418,1492,1502,1511,1583,1623,1630,1646,1647,1648,1649,1650,1651,1658,1685,1688, 1708,1719,1734,1751,1768,1779,1785,1802,1832,1871,1874,1885,1917,1980,2022,2068,2087,2131, 2156,2165; setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218, 1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1495,1501,1900,1996,2000,2001, 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,2083,2084,2085,2086,2087,2088,2089,2090,2091,2092,2093,2094,2095,2096,2097,2098, 2099,2100,2101,2012,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116, 2117,2118; setarray $@BlackList2[0],2119,2120,2121,2123,2124,2125,1496; end; OnClock0000 OnClock0400 OnClock0800 OnClock1200 OnClock1600 OnClock2000 OnClock2200: set $@ResetCounter,$@ResetCounter+1; set $@EventON,1; set $@Timer,1; set $@Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer || $@Change) end; set $@Wait,0; goto iDisguise; end; OnTimer30000: if ($@Timer) end; set $@Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what I was. Please wait 10 seconds while I disguise again."; specialeffect 725; set $MonsterName$,""; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1) end; announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer120000: if ($@Timer!=1) end; announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer180000: if ($@Timer!=1) end; announce "The Disguise Event has begun!",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; end; iDisguise: if ($Rule==1) { set $@Winner,0; set $@Monster,1000+rand(1,995); for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1) if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL]) goto iDisguise; if ($@Monster==$@LastMonster) goto iDisguise; set $@LastMonster,$@Monster; set $MonsterName$,getmonsterinfo($@Monster,0); } if ($Rule==2) { set $@Winner,0; set $@Monster,rand(49); set $MonsterName$,getmonsterinfo($@MVP[$@Monster],0); } deletepset 1; defpattern 1,"([^:]+):.\\s*"+$MonsterName$+".*", "iCorrect"; activatepset 1; if ($Rule==1) setnpcdisplay "Disguise Event",$@Monster; if ($Rule==2) setnpcdisplay "Disguise Event",$@MVP[$@Monster]; set $@Change,1; setnpctimer 0; end; iCorrect: if ($@Winner) { dispbottom "Someone has already won this round."; end; } set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; activatepset 1; getitem $Prize,$PrizeAmt; announce strcharinfo(0)+" is correct! I was disguised as: "+$MonsterName$+"",bc_map | bc_blue; if ($@RoundCount>=$Rounds) { setnpcdisplay "Disguise Event",795; set $@RoundCount,0; set $@Change,0; set $@EventON,0; setnpctimer 0; stopnpctimer; npctalk "Thank you all for playing. That was the last round of the Disguise Event. Come play again later."; end; } setnpcdisplay "Disguise Event",795; set $@Change,0; setnpctimer 0; end; }
  5. Yeah wanted to know if anyone has this script aswell +1
  6. Can anyone edit this healer scrip to this please If you are 50 And Below Heal/Buff/Both are Free If you are 50+ Heal/Buff/Both are 2k+ Just leave a number2 where i can edit the prices please i suck at scripting. //===== rAthena Script ======================================= //= Healer //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= Basic healer script. //============================================================ - script Healer -1,{ set .@Price,0; // Zeny required for heal set .@Buffs,0; // Zeny required for buff set .@BuffAndHeal,500; // Zeny Required for Bouth at once callfunc "F_ClearGarbage",0; mes "[Healer]"; mes "Yo Bro!"; mes "Wanna be Healed? Buffed? Both?"; mes "Heal = "+.@Price+" Zeny"; mes "Buff = "+.@Buffs+" Zeny"; mes "Both = "+.@BuffAndHeal+" Zeny"; next; if (Zeny < .@Price){ mes "[Healer]"; mes "Oh wait"; mes "You do not even have enough for a Heal "; mes "Forgot it, bye"; close; } mes "[Healer]"; mes "So my friend, what can i do for you"; next; menu "Heal",L_Heal,"Buff",L_Buff,"Both",L_HaB,"Nothing",L_NOPE; L_Heal: set Zeny, Zeny-.@Price; specialeffect2 313; percentheal 100,100; mes "[Healer]"; mes "Done, see you later!"; close; L_Buff: set Zeny, Zeny-.@Buff; specialeffect2 37; sc_start SC_INCREASEAGI,240000,10; specialeffect2 42; sc_start SC_BLESSING,240000,10; mes "[Healer]"; mes "Done, see you later!"; close; L_HaB: set Zeny, Zeny-.@BuffAndHeal; specialeffect2 313; percentheal 100,100; specialeffect2 37; sc_start SC_INCREASEAGI,240000,10; specialeffect2 42; sc_start SC_BLESSING,240000,10; mes "[Healer]"; mes "Done, see you later!"; close; L_NOPE: mes "[Healer]"; mes "Okay, bye!"; close; } alberta,185,144,5 duplicate(Healer) Healer#alb 742 aldebaran,134,123,5 duplicate(Healer) Healer#alde 742 amatsu,200,80,5 duplicate(Healer) Healer#ama 742 ayothaya,155,111,5 duplicate(Healer) Healer#ayo 742 comodo,188,162,5 duplicate(Healer) Healer#com 742 geffen,121,61,5 duplicate(Healer) Healer#gef 742 gonryun,164,130,5 duplicate(Healer) Healer#gon 742 izlude,125,118,5 duplicate(Healer) Healer#izl 742 louyang,225,103,5 duplicate(Healer) Healer#lou 742 morocc,159,96,5 duplicate(Healer) Healer#mor 742 niflheim,188,180,5 duplicate(Healer) Healer#nif 742 payon,180,105,5 duplicate(Healer) Healer#pay 742 prontera,162,185,2 duplicate(Healer) Healer#pront 742 umbala,94,162,5 duplicate(Healer) Healer#umb 742 xmas,149,136,5 duplicate(Healer) Healer#xmas 742 yuno,152,186,5 duplicate(Healer) Healer#yuno 742 If you need more info dont hesitate to ask mee
  7. how to set the time though i dont get like onclock2200 2000 etc whats that hours minutes seconds?? Can you gimme like a complete example
  8. I dont get what you mean by That sorry like where i put the seconds?
  9. //===== rAthena Script ======================================= //= Disguise Event //===== By: ================================================== //= GmOcean //===== Current Version: ===================================== //= 5.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Additional Comments: ================================= //= 5.0 Last update by GmOcean. //= 5.1 Cleaned and standardized, mostly. [Euphy] //============================================================ prontera,160,155,4 script Disguise Event 795,{ // Currently set to run every two hours. // To change times, edit the OnClock labels below. set .@GMLevel,60; // GM level required to access NPC. set .@n$,"[^0000FFDisguise NPC^000000]"; if (getgmlevel()>=.@GMLevel) { mes .@n$; mes "Select an option."; next; switch(select("Turn ON/OFF Event:Event Settings")) { case 1: mes .@n$; if ($@EventON) { mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?"; } else { mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?"; } if(select("Yes:No")==2) close; if ($@EventON) { set $@EventON,0; set $@Timer,0; setnpctimer 0; stopnpctimer; announce "A GM has decided to turn the Disguise Event off. As a result no further prizes will be given.",bc_map | bc_blue; deletepset 1; setnpcdisplay "Disguise Event",795; close; } set $@EventON,1; set $@Timer,1; setnpctimer 0; initnpctimer; set $@ResetCounter,$@ResetCounter+1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; close; case 2: mes .@n$; mes "Pick a setting to modify."; next; switch(select("Monster Display:Number of Rounds:Prize Settings")) { case 1: setarray .@r$[0],"Disguise as all monsters.","Disguise as MVPs only."; mes .@n$; mes "Choose a disguise rule."; next; set $Rule, select(implode(.@r$,":")); mes .@n$; mes "The Disguise Rule has been set:"; mes " > ^0055FF"+.@r$[$Rule-1]+"^000000"; close; case 2: mes .@n$; mes "Input the number of rounds you want the event to last."; mes "Current number: [^0000FF"+$Rounds+"^000000]"; next; input .@Rounds; set $Rounds,.@Rounds; mes .@n$; mes "The number of rounds has been changed to "+$Rounds+"."; close; case 3: mes .@n$; mes "Input the Item ID of the prize given each round."; mes "Current item: [^0000FF"+getitemname($Prize)+"^000000] (ID #"+$Prize+")"; next; input .@Prize; mes .@n$; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") { mes "That item does not exist. Please try again."; close; } set $Prize,.@Prize; mes "Input the amount to be given."; next; input .@amount; mes .@n$; if (.@amount<=0 || .@amount>=10000) { mes "That amount is invalid. Using default ammount of 1."; set .@amount,1; next; mes .@n$; } set $PrizeAmt,.@amount; mes "The Prize has been changed successfully."; mes "Prize: "+$PrizeAmt+"x [^0000FF"+getitemname($Prize)+"^000000]"; close; } } } if ($@EventON) end; mes .@n$; mes "Welcome."; mes "How may I be of assistance?"; if(select("Information:Nothing, just passing through.")==2) close; next; mes .@n$; mes "This event is quite simple."; mes "At the start of the event, I will"; mes "disguise myself as a random"; mes "monster. You have to shout"; mes "that monter's name out loud."; next; mes "If you are correct, you will receive"; mes "a prize. If not, keep trying!"; mes "That's all that there is to this event."; close; OnInit: set $@EventON,0; set $@Wait,0; set $@Winner,0; set $@ResetCounter,0; set $Points,$Points; if (!$Rounds) set $Rounds,10; else set $Rounds,$Rounds; if (!$Prize) set $Prize,512; else set $Prize,$Prize; if (!$PrizeAmt) set $PrizeAmt,1; else set $PrizeAmt,$PrizeAmt; if ($Rule) set $Rule,1; else set $Rule,$Rule; setarray $@MVP[0],1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373, 1389,1399,1418,1492,1502,1511,1583,1623,1630,1646,1647,1648,1649,1650,1651,1658,1685,1688, 1708,1719,1734,1751,1768,1779,1785,1802,1832,1871,1874,1885,1917,1980,2022,2068,2087,2131, 2156,2165; setarray $@BlackList[0], 1003,1006,1017,1021,1022,1027,1043,1075,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218, 1222,1223,1224,1225,1226,1227,1228,1233,1284,1407,1411,1414,1495,1501,1900,1996,2000,2001, 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,2083,2084,2085,2086,2087,2088,2089,2090,2091,2092,2093,2094,2095,2096,2097,2098, 2099,2100,2101,2012,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113,2114,2115,2116, 2117,2118; setarray $@BlackList2[0],2119,2120,2121,2123,2124,2125,1496; end; OnClock0000: OnClock0200: OnClock0400: OnClock0600: OnClock0800: OnClock1000: OnClock1200: OnClock1400: OnClock1600: OnClock1800: OnClock2000: OnClock2200: set $@ResetCounter,$@ResetCounter+1; set $@EventON,1; set $@Timer,1; set $@Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer || $@Change) end; set $@Wait,0; goto iDisguise; end; OnTimer30000: if ($@Timer) end; set $@Change,0; setnpcdisplay "Disguise Event",795; npctalk "You took too long to guess what I was. Please wait 10 seconds while I disguise again."; specialeffect 725; set $MonsterName$,""; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1) end; announce "The Disguise Event will begin in 2 minutes.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer120000: if ($@Timer!=1) end; announce "The Disguise Event will begin 1 minute.",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; end; OnTimer180000: if ($@Timer!=1) end; announce "The Disguise Event has begun!",bc_all | bc_blue; announce "The Event is being held in Prontera.",bc_all | bc_blue; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; end; iDisguise: if ($Rule==1) { set $@Winner,0; set $@Monster,1000+rand(1,995); for(set .@BL,0; .@BL<getarraysize($@BlackList); set .@BL,.@BL+1) if ($@Monster==$@BlackList[.@BL] || $@Monster==$@BlackList2[.@BL]) goto iDisguise; if ($@Monster==$@LastMonster) goto iDisguise; set $@LastMonster,$@Monster; set $MonsterName$,getmonsterinfo($@Monster,0); } if ($Rule==2) { set $@Winner,0; set $@Monster,rand(49); set $MonsterName$,getmonsterinfo($@MVP[$@Monster],0); } deletepset 1; defpattern 1,"([^:]+):.\\s*"+$MonsterName$+".*", "iCorrect"; activatepset 1; if ($Rule==1) setnpcdisplay "Disguise Event",$@Monster; if ($Rule==2) setnpcdisplay "Disguise Event",$@MVP[$@Monster]; set $@Change,1; setnpctimer 0; end; iCorrect: if ($@Winner) { dispbottom "Someone has already won this round."; end; } set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; activatepset 1; getitem $Prize,$PrizeAmt; announce strcharinfo(0)+" is correct! I was disguised as: "+$MonsterName$+"",bc_map | bc_blue; if ($@RoundCount>=$Rounds) { setnpcdisplay "Disguise Event",795; set $@RoundCount,0; set $@Change,0; set $@EventON,0; setnpctimer 0; stopnpctimer; npctalk "Thank you all for playing. That was the last round of the Disguise Event. Come play again later."; end; } setnpcdisplay "Disguise Event",795; set $@Change,0; setnpctimer 0; end; } How can i set like 4-6Hours daily on this like a timer?? thank you in advance
  10. This? //-------------------------------------------------------------- // rAthena Battle Configuration File // Originally Translated by Peter Kieser <[email protected]> // Made in to plainer English by Ancyker //-------------------------------------------------------------- // Note 1: Value is a config switch (on/off, yes/no or 1/0) // Note 2: Value is in percents (100 means 100%) // Note 3: The max level of classes is stored in the exp table. // See files db/exp.txt and db/exp2.txt to change them. //-------------------------------------------------------------- // Rate at which exp. is given. (Note 2) base_exp_rate: 700 // Rate at which job exp. is given. (Note 2) job_exp_rate: 700 // Turn this on to allow a player to level up more than once from a kill. (Note 1) multi_level_up: yes // Setting this can cap the max experience one can get per kill specified as a // % of the current exp bar. (Every 10 = 1.0%) // For example, set it to 500 and no matter how much exp the mob gives, // it can never give you above half of your current exp bar. max_exp_gain_rate: yes // Method of calculating earned experience when defeating a monster: // 0 = uses damage given / total damage as damage ratio // 1 = uses damage given / max_hp as damage ratio // NOTE: Using type 1 disables the bonus where the first attacker gets // his share of the exp doubled when multiple people attack the mob. exp_calc_type: 0 // Experience increase per attacker. That is, every additional attacker to the // monster makes it give this much more experience // (eg: 5 people attack with 25 here, +(25*4)% -> +100% exp) exp_bonus_attacker: 25 // Max number of attackers at which exp bonus is capped // (eg: if set at 5, the max bonus is 4*bonus-per-char regardless of attackers) exp_bonus_max_attacker: 12 // MVP bonus exp rate. (Note 2) mvp_exp_rate: 100 // Rate of base/job exp given by NPCs. (Note 2) quest_exp_rate: 300 // The rate of job exp. from using Heal skill (100 is the same as the heal amount, 200 is double. // The balance of the exp. rate is best used with 5 to 10) heal_exp: 0 // The rate of exp. that is gained by the process of resurrection, a unit is 0.01%. // Experience calculations for the experience value * level difference of the person revived / 100 * resurrection_exp/10000 which the revived player has can be got. resurrection_exp: 0 // The rate of job exp. when using discount and overcharge on an NPC // (in 0.01% increments - 100 is 1%, 10000 is normal, 20000 is double.) // The way it is calculated is (money received * skill lv) * shop_exp / 10000. shop_exp: 0 // PVP exp. Do players get exp in PvP maps // (Note: NOT exp from players, but from normal leveling) pvp_exp: yes // When a player dies, how should we penalize them? // 0 = No penalty. // 1 = Lose % of current level when killed. // 2 = Lose % of total experience when killed. death_penalty_type: 1 // Base exp. penalty rate (Each 100 is 1% of their exp) death_penalty_base: 100 // Job exp. penalty rate (Each 100 is 1% of their exp) death_penalty_job: 100 // When a player dies (to another player), how much zeny should we penalize them with? // NOTE: It is a percentage of their zeny, so 100 = 1% zeny_penalty: 0 // Will display experience gained from killing a monster. (Note 1) disp_experience: yes // Will display zeny earned (from mobs, trades, etc) (Note 1) disp_zeny: no // Use the contents of db/statpoint.txt when doing a stats reset and leveling up? (Note 1) // If no, an equation will be used which preserves statpoints earned/lost // through external means (ie: stat point buyers/sellers) use_statpoint_table: yes This is SuperMario Btw just logged in my main
  11. Gives no Descripton just this anyone know whats the problem? If you need more info just ask bump
  12. I do but its complicated when hunting the box just pops up etc bump
  13. Used 1&1 Pretty Decent! I suggest Godaddy Aswell All cheap.
  14. Well other then that is there a way to change either way ??
  15. Does anyone know why in my server "Teleport" Skill probably some other are not switchable Heres an example like lvl's 1-2 Yeah this is a big problem if anyone can help thanks in advance bump
  16. I know how to add a Custom Map but i was wondering if its the same thing to like add a Custom map to a map like prontera you know what i mean like some players release a Custom prontera its the same method ??
  17. Well i just Recently put a Patch in my patcher and i told my players to run their patcher and there was no patch. The patch runed for me but am not sure what i did wrong to cause theres not to work Theres anyone have anything on this if you need more info on this please ask And one more question If i have a Custom map of prontera how do i add it like overwrite it on prontera is there a guide on this? Thats all thank you in advance! Bump Bump bump Bump anyone know/Can help me?
  18. Did you hex you're client to read plain text descriptons?
  19. By doing @spawn Monster ID you can search Satan morroc in google dont know the ID just search in google Satan morroc Monster ID probably will come out
  20. You can just spawn a Satan Morroc or just use @Killmonster if you want to see it die i guess.
  21. Zeek i dont use Ceres CP but i suggest looking inside you're Control Panel FIles etc just search sorry not famailar with Ceres
  22. Did you Hex you're Client to read Text plain Descriptions or Hexed a Client at all? Guess you're Useing 2012 Or around there If you can provide a picture of you're Data Folder that'll be great Or what Client etc you use.
×
×
  • Create New...