-
Posts
263 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Everything posted by chromus28
-
aw yeah,,T-T ok thanks
-
sir im getting error on this part >> Zeny -= .prize_of_npc;
-
does anyone have a simple monster hunting script? i know about the mob hunt of sir euphy but i just a simple script only like. they hunt then they can get prizes after killing all that monster??? btw not only 1 monster is needed to hunt i mean example they need to kill 100 poring and 100 drops to get the prize...i hope there is some script like this thanks
-
guys does anyone knows how to make runes stone work? coz even though im using stone there is no effect.. i already look the db too and i get the effect from rms but still not working why?
-
no error but the event is not starting prontera,156,219,4 script Disguise Event 794,{ //--- Basic Script Configuration Options ---// set .@npcname$,"[^0000FFDisguise NPC^000000]"; //<- NPC Name. set $@GMLevel,80; //<- GM Level needed to be considered a GM. //--- The Script ---// if (getgmlevel()>=$@GMLevel){goto GM_Player;} if ($@EventON){end;} mes .@npcname$; mes "Welcome, how may i be of assistance."; menu "Information",iInfo,"Nothing, just passing through.",iNothing; iInfo: next; mes .@npcname$; mes "This event is actually quite simple"; mes "At the start of the event, I will disguise myself"; mes "into a monster randomly. You will then merely have to shout that monsters name outloud."; next; mes "If you get it correct, you get a prize. If not, then keep trying."; mes "Thatis all there is to know about this event."; close; iNothing: close; GM_Player: mes .@npcname$; mes "Please select an Option to modify."; menu "Turn ON/OFF Event",iEvent,"Event Settings",iSettings; iEvent: next; mes .@npcname$; if ($@EventON){mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?";} if (!$@EventON){mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?";} menu "Yes",iYes,"No",iNothing; iYes: 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",997; 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; announce "The Event is being held in prontera 156 223.",bc_all; close; iSettings: next; mes .@npcname$; mes "Please select a setting to modify."; menu "Monster Display",iMonster,"Number of Rounds",iRounds,"Prize Settings",iPrize; iMonster: callfunc "Monster_Display"; iRounds: callfunc "Rounds"; iPrize: callfunc "Prize"; OnInit: defpattern 1,"([^:]+):.\\s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect"; activatepset 1; set $@EventON,0; set $@Wait,0; set $@Winner,0; set $Points,$Points; set $@ResetCounter,0; set $Rounds,$Rounds; set $Prize,$Prize; set $PrizeAmt,$PrizeAmt; 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: OnClock0030: OnClock0100: OnClock0130: set $@ResetCounter,$@ResetCounter+1; set $@EventON,1; set $@Timer,1; set $@Wait,1; announce "The Disguise Event will begin in 3 minutes.",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer){end;} if ($@Change){end;} set $@Wait,0; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; 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 730; set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!"; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin in 2 minutes.",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; end;} OnTimer120000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin 1 minute.",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; end;} OnTimer180000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event has begun!",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end;} announce "Something went wrong with the Disguise Event.",bc_all | bc_blue; announce "Please notify a GM ASAP. Thank you.",bc_all | bc_blue; 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; //Hint //npctalk ""+$@Monster+", "+$MonsterName$+""; end; iCorrect: if ($@Winner){dispbottom "Someone has already won this round."; end;} set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater"; 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",794; set $@Change,0; setnpctimer 0; end; iFailCheater: end; } //--- The Functions ---// function script Rounds { next; mes "Please Input the number of rounds you want the event to last."; mes "Current Number of Rounds: [^0000FF"+$Rounds+"^000000]"; input .@Rounds; set $Rounds,.@Rounds; next; mes "The number of rounds has been changed successfully."; mes "Number of Rounds: [^0000FF"+$Rounds+"^000000]"; mes "Come again."; close; } function script Prize { next; mes "Please Input the ItemID of the prize that will be given each round."; mes "Current Items is: [^0000FF"+getitemname($Prize)+"^000000] ItemID - ^0000FF"+$Prize+"^000000"; input .@Prize; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {next; mes "That item does not exist. Please try again."; close;} set $Prize,.@Prize; next; mes "Please Input the Ammount that is to be given."; input .@Ammount; if (.@Ammount<=0 || .@Ammount>=10000) {next; mes "That ammount is invalid. Using default ammount of 1.";} set $PrizeAmt,.@Ammount; next; mes "The Prize has been changed successfully."; mes "Prize: [^0000FF"+getitemname($Prize)+"^000000]x(^0000FF"+$PrizeAmt+"^000000)"; close; } function script Monster_Display { setarray .@Rule[0],0,1,2; setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only."; next; mes "Please select a Disguise Rule."; mes "Rule 1 - Transform as all monsters."; mes "Rule 2 - Transform as MvP's only."; menu "Rule 1:Rule 2",iRule; iRule: set $Rule,.@Rule[@menu]; next; mes "The Disguise Rule, has been changed successfully."; mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000"; close; } i did just like this sorry it works but its like something wrong.. i will report again later
-
does anyone have a script of all items needed on 3rd job shop? i dont know all the items needed for 3rd job.. does anyone have a fix shop of this?
-
sis the event is not starting >.< sis patskie i tried to put the time of nanakiwurtz but the event is not starting...
-
Oh Thanks!! uhm mam. is it possible for every 45 mins?
-
Can anyone help me make this event every 2 Hours - script LMS#disable -1,{ OnInit: disablenpc "Mr. Banker"; disablenpc "All Job Manager"; end; } - script LMS -1,{ OnClock0310: OnClock0610: OnClock0910: OnClock1210: OnClock1510: OnClock1810: OnClock2110: OnClock2310: goto startlmsevent; startlmsevent: announce "Mr. Manager: The Last Man Standing event will be starting shortly.",0; sleep2 10000; announce "Mr. Manager: Those who want to play, please proceed to prontera 149 225 and register.",0; sleep2 10000; announce "Mr. Manager: After 1 Minute the Registration will close.",0; sleep2 10000; announce "Mr. Manager: Please go to prontera 149 225 and Register now if you want to join.",0; enablenpc "All Job Manager"; initnpctimer; end; OnTimer30000: announce "Mr. Manager: Last 30 seconds.",0; sleep2 5000; announce "Mr. Manager: If you want to join please Register in prontera 149 225.",0; end; OnTimer50000: announce "Mr. Manager: Last 10 seconds.",0; end; OnTimer55000: announce "Mr. Manager: 5.",0; end; OnTimer56000: announce "Mr. Manager: 4.",0; end; OnTimer57000: announce "Mr. Manager: 3.",0; end; OnTimer58000: announce "Mr. Manager: 2.",0; end; OnTimer59000: announce "Mr. Manager: 1.",0; end; OnTimer60000: announce "Mr. Manager: Time's up.",0; end; OnTimer61000: disablenpc "All Job Manager"; donpcevent "Mr. Banker::OnEnable"; stopnpctimer; end; } //---------All Job Registration--------------- prontera,149,225,5 script All Job Manager 106,{ mes "[Mr. Manager]"; mes "Hello What can I do for you?"; next; menu "Register",-,"What is LMS?",what,"Leave",leave; next; mes "[Mr. Manager]"; mes "Thankyou for registering Mr. " + strcharinfo(0) + ", Have fun!"; warp "quiz_02",264,343; end; what: mes "[Mr. Manager]"; mes "LMS is also known as Last Man Standing Event"; next; mes "[Mr. Manager]"; mes "LMS is also like a PvP."; next; mes "[Mr. Manager]"; mes "That's all"; close; leave: mes "[Mr. Manager]"; mes "I hope you will register next time"; close; } //-------------------------- //-------------------------- guild_vs1,50,51,6 script Mr. Banker 56,{ mes "[Banker]"; mes "Congrats. You've won."; next; announce "Mr. Manager: We have a winner! well done "+strcharinfo(0)+".",0; getitem 27000, 10; // Change This item id to what ever you want . item id,amount set class_s,class_s+8; mes "You will return now"; warp "prontera",155,173; disablenpc "Mr. Banker"; close; end; OnEnable: pvpoff "guild_vs1"; mapannounce "quiz_02","Mr. Manager:The Last Man Standing Event will start shortly",0; sleep2 10000; mapannounce "quiz_02","Mr. Manager:But before we start this is just a few reminders..",0; sleep2 10000; mapannounce "quiz_02","Mr. Manager:Using Cloaking , Hiding is strictly not allowed..",0; sleep2 10000; mapannounce "quiz_02","Mr. Manager: Only the Last Man Standing will win this event!!",0; sleep2 10000; mapannounce "quiz_02","Mr. Manager: What are we waiting for?..Let's Get Ready to Rumble!!...",0; areawarp "quiz_02",252,357,275,334,"guild_vs1",0,0; sleep2 10000; goto L_Start; end; L_Start: if(getmapusers("guild_vs1") == 1) { goto L_nocontest; } else if(getmapusers("guild_vs1") == 0) { goto L_None; } else { mapannounce "guild_vs1","Mr. Manager: Get ready at the count of 5 we will start!....",0; sleep2 10000; mapannounce "guild_vs1","Mr. Manager: 5",0; sleep2 5000; mapannounce "guild_vs1","Mr. Manager: 4",0; sleep2 4000; mapannounce "guild_vs1","Mr. Manager: 3",0; sleep2 3000; mapannounce "guild_vs1","Mr. Manager: 2",0; sleep2 2000; mapannounce "guild_vs1","Mr. Manager: 1",0; sleep2 1000; pvpon "guild_vs1"; goto timer; end; } timer: initnpctimer; end; OnTimer1000: end; OnTimer1100: if(getmapusers("guild_vs1") == 1) goto L_Champ; if(getmapusers("guild_vs1") > 2) goto timer; if(getmapusers("guild_vs1") == 2) goto champ; stopnpctimer; end; champ: announce "Mr. Manager: Last 2 Brave warriors are still alive!",0; sleep2 10000; if(getmapusers("guild_vs1") == 1) goto L_Champ; if(getmapusers("guild_vs1") > 1) goto timer; end; L_Champ: mapannounce "guild_vs1","Mr. Banker: Please talk to me to get your prize.. Im in the middle",0; pvpoff "guild_vs1"; enablenpc "Mr. Banker"; end; L_None: disablenpc "Banker"; pvpoff "guild_vs1"; end; L_nocontest: mapannounce "guild_vs1","Since only you joined, there will be no event. BUT you will be given 10 Quest Tickets!",0; enablenpc "Mr. Banker"; end; } //----- Die = warp prt ----- - script Killa_warp -1,{ OnPCDieEvent: getmapxy(.@map$,.@x,.@y,0); if(.@map$=="guild_vs1") { set #kill_point, 0; announce ""+strcharinfo(0)+" died, and out of the game!.",bc_all; warp "prontera",155,173; end; } end; } // == Mapflags guild_vs1 mapflag nowarp guild_vs1 mapflag nowarpto guild_vs1 mapflag noteleport guild_vs1 mapflag nosave guild_vs1 mapflag nomemo guild_vs1 mapflag nobranch guild_vs1 mapflag pvp_noparty guild_vs1 mapflag restricted 1 guild_vs1 mapflag nocommand 90 quiz_02 mapflag nowarp quiz_02 mapflag nowarpto quiz_02 mapflag noteleport quiz_02 mapflag nosave quiz_02 mapflag nomemo quiz_02 mapflag nobranch quiz_02 mapflag pvp_noparty quiz_02 mapflag restricted 1 quiz_02 mapflag nocommand 90 And this one for every Hour - script DiceHide -1,{ OnInit: disablenpc "Dice Manager#1"; disablenpc "Prize Manager"; pvpoff "quiz_01"; end; } - script DICE#1 -1,{ OnClock0210: OnClock0410: OnClock0610: OnClock0810: OnClock1010: OnClock1210: OnClock1410: OnClock1610: OnClock1810: OnClock2010: OnClock2210: goto startdice; end; startdice: disablenpc "Prize Manager"; mapwarp "quiz_01","prontera",0,0; announce "The Dice Event will start soon",0; sleep2 2000; announce "If you want to participant warp to prontera 159 225 now",0; sleep2 2000; announce "You have 2 Minutes to register",0; enablenpc "Dice Manager#1"; sleep2 120000; announce "The registration has closed",0; disablenpc "Dice Manager#1"; donpcevent "Dice Manager#1::OnDiceStart"; end; } prontera,162,225,5 script Dice Manager#1 715,{ mes "Do you want to register to the dice event?"; menu "I want to register",L_yes,"Later",L_no; L_yes: warp "quiz_01" ,49,88; set #dice_play, 1; end; L_no: mes "Ok"; close; OnDiceStart: mapannounce "quiz_01","Go to the box 1,2,3,4 and no staying on the outside of box",0; sleep2 2000; mapannounce "quiz_01","This is the mechanic of the event",0; sleep2 2000; mapannounce "quiz_01","I will say a number between 1-4",0; sleep2 2000; mapannounce "quiz_01","If your box number is the same with my number, you're safe you will proceed to the next round",0; sleep2 2000; mapannounce "quiz_01","And if your box number is not the same will warp to brasilis",0; sleep2 2000; mapannounce "quiz_01","Good Luck",0; sleep2 2000; mapannounce "quiz_01","I will pick in 30 seconds! good luck!",0; sleep2 30000; mapannounce "quiz_01","Dice Manager: OK! I will pick now a number",0; sleep2 2000; goto Start; Start: switch(rand(1,4)) { Case 1: mapannounce "quiz_01","The Winner is 1",0; areawarp "quiz_01",45,81,53,59,"prontera",156,177; areawarp "quiz_01",57,81,65,59,"prontera",156,177; areawarp "quiz_01",69,81,77,59,"prontera",156,177; areawarp "quiz_01",32,94,78,86,"prontera",156,177; areawarp "quiz_01",36,85,38,82,"prontera",156,177; areawarp "quiz_01",48,85,50,82,"prontera",156,177; areawarp "quiz_01",60,85,62,82,"prontera",156,177; areawarp "quiz_01",72,85,74,82,"prontera",156,177; goto OnWinner; end; break; Case 2: mapannounce "quiz_01","The Winner is 2",0; areawarp "quiz_01",33,81,41,59,"prontera",156,177; areawarp "quiz_01",57,81,65,59,"prontera",156,177; areawarp "quiz_01",69,81,77,59,"prontera",156,177; areawarp "quiz_01",32,94,78,86,"prontera",156,177; areawarp "quiz_01",36,85,38,82,"prontera",156,177; areawarp "quiz_01",48,85,50,82,"prontera",156,177; areawarp "quiz_01",60,85,62,82,"prontera",156,177; areawarp "quiz_01",72,85,74,82,"prontera",156,177; goto OnWinner; end; break; Case 3: mapannounce "quiz_01","The Winner is 3",0; areawarp "quiz_01",45,81,53,59,"prontera",156,177; areawarp "quiz_01",33,81,41,59,"prontera",156,177; areawarp "quiz_01",69,81,77,59,"prontera",156,177; areawarp "quiz_01",32,94,78,86,"prontera",156,177; areawarp "quiz_01",36,85,38,82,"prontera",156,177; areawarp "quiz_01",48,85,50,82,"prontera",156,177; areawarp "quiz_01",60,85,62,82,"prontera",156,177; areawarp "quiz_01",72,85,74,82,"prontera",156,177; goto OnWinner; end; break; Case 4: mapannounce "quiz_01","The Winner is 4",0; areawarp "quiz_01",45,81,53,59,"prontera",156,177; areawarp "quiz_01",33,81,41,59,"prontera",156,177; areawarp "quiz_01",57,81,65,59,"prontera",156,177; areawarp "quiz_01",32,94,78,86,"prontera",156,177; areawarp "quiz_01",36,85,38,82,"prontera",156,177; areawarp "quiz_01",48,85,50,82,"prontera",156,177; areawarp "quiz_01",60,85,62,82,"prontera",156,177; areawarp "quiz_01",72,85,74,82,"prontera",156,177; goto Onwinner; end; break; } end; OnWinner: mapannounce "quiz_01","To those who are winner",0; sleep2 2000; mapannounce "quiz_01"," Please go in the middle to claim you prize",0; enablenpc "Prize Manager"; end; OnPCLoadMapEvent: if (#dice_play == 0) { warp "prontera",0,0; end; } end; OnPCLogOutEvent: if (#dice_play == 1 ) { set #dice_play, 1; end; } end; } quiz_01,49,90,1 script Prize Manager 715,{ getitem 671, 1; set class_s,class_s+3; warp "prontera",156,177; end; } quiz_01 mapflag nowarp quiz_01 mapflag nowarpto quiz_01 mapflag loadevent quiz_01 mapflag nomemo quiz_01 mapflag nosave And this one for every 30mins only prontera,156,219,4 script Disguise Event 794,{ //--- Basic Script Configuration Options ---// set .@npcname$,"[^0000FFDisguise NPC^000000]"; //<- NPC Name. set $@GMLevel,80; //<- GM Level needed to be considered a GM. //--- The Script ---// if (getgmlevel()>=$@GMLevel){goto GM_Player;} if ($@EventON){end;} mes .@npcname$; mes "Welcome, how may i be of assistance."; menu "Information",iInfo,"Nothing, just passing through.",iNothing; iInfo: next; mes .@npcname$; mes "This event is actually quite simple"; mes "At the start of the event, I will disguise myself"; mes "into a monster randomly. You will then merely have to shout that monsters name outloud."; next; mes "If you get it correct, you get a prize. If not, then keep trying."; mes "Thatis all there is to know about this event."; close; iNothing: close; GM_Player: mes .@npcname$; mes "Please select an Option to modify."; menu "Turn ON/OFF Event",iEvent,"Event Settings",iSettings; iEvent: next; mes .@npcname$; if ($@EventON){mes "The Event is currently: [^0000FFON^000000]"; mes "Would you like to turn it OFF?";} if (!$@EventON){mes "The Event is currently: [^FF0000OFF^000000]"; mes "Would you like to turn it ON?";} menu "Yes",iYes,"No",iNothing; iYes: 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",997; 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; announce "The Event is being held in prontera 156 223.",bc_all; close; iSettings: next; mes .@npcname$; mes "Please select a setting to modify."; menu "Monster Display",iMonster,"Number of Rounds",iRounds,"Prize Settings",iPrize; iMonster: callfunc "Monster_Display"; iRounds: callfunc "Rounds"; iPrize: callfunc "Prize"; OnInit: defpattern 1,"([^:]+):.\\s*OMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iCorrect"; activatepset 1; set $@EventON,0; set $@Wait,0; set $@Winner,0; set $Points,$Points; set $@ResetCounter,0; set $Rounds,$Rounds; set $Prize,$Prize; set $PrizeAmt,$PrizeAmt; 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; announce "The Event is being held in prontera 156 223.",bc_all; setnpctimer 0; initnpctimer; end; OnTimer10000: if ($@Timer){end;} if ($@Change){end;} set $@Wait,0; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; 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 730; set $MonsterName$,"OMFGBBQLEETSAUCEGMOCEANRULESHAI!!"; deletepset 1; stopnpctimer; setnpctimer 0; initnpctimer; end; OnTimer60000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin in 2 minutes.",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; end;} OnTimer120000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event will begin 1 minute.",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; end;} OnTimer180000: if ($@Timer!=1){end;} if ($@Timer==1) {announce "The Disguise Event has begun!",bc_all; announce "The Event is being held in prontera 156 223.",bc_all; set $@Timer,0; stopnpctimer; setnpctimer 0; initnpctimer; goto iDisguise; //donpcevent "DisguiseEvent::OnDisguise"; end;} announce "Something went wrong with the Disguise Event.",bc_all | bc_blue; announce "Please notify a GM ASAP. Thank you.",bc_all | bc_blue; 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; //Hint //npctalk ""+$@Monster+", "+$MonsterName$+""; end; iCorrect: if ($@Winner){dispbottom "Someone has already won this round."; end;} set $@Winner,1; set $@RoundCount,$@RoundCount+1; deletepset 1; defpattern 1,"([^:]+):.*\\sOMFGBBQLEETSAUCEGMOCEANRULESHAI!!.*", "iFailCheater"; 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",794; set $@Change,0; setnpctimer 0; end; iFailCheater: end; } //--- The Functions ---// function script Rounds { next; mes "Please Input the number of rounds you want the event to last."; mes "Current Number of Rounds: [^0000FF"+$Rounds+"^000000]"; input .@Rounds; set $Rounds,.@Rounds; next; mes "The number of rounds has been changed successfully."; mes "Number of Rounds: [^0000FF"+$Rounds+"^000000]"; mes "Come again."; close; } function script Prize { next; mes "Please Input the ItemID of the prize that will be given each round."; mes "Current Items is: [^0000FF"+getitemname($Prize)+"^000000] ItemID - ^0000FF"+$Prize+"^000000"; input .@Prize; if (getitemname(.@Prize)=="" || getitemname(.@Prize)=="null") {next; mes "That item does not exist. Please try again."; close;} set $Prize,.@Prize; next; mes "Please Input the Ammount that is to be given."; input .@Ammount; if (.@Ammount<=0 || .@Ammount>=10000) {next; mes "That ammount is invalid. Using default ammount of 1.";} set $PrizeAmt,.@Ammount; next; mes "The Prize has been changed successfully."; mes "Prize: [^0000FF"+getitemname($Prize)+"^000000]x(^0000FF"+$PrizeAmt+"^000000)"; close; } function script Monster_Display { setarray .@Rule[0],0,1,2; setarray .@Desc$[0],"","Transform as all monsters.","Transform as MvP's only."; next; mes "Please select a Disguise Rule."; mes "Rule 1 - Transform as all monsters."; mes "Rule 2 - Transform as MvP's only."; menu "Rule 1:Rule 2",iRule; iRule: set $Rule,.@Rule[@menu]; next; mes "The Disguise Rule, has been changed successfully."; mes "Current Rule: ^0000FF"+$Rule+"^000000 - ^0000FF"+.@Desc$[@menu]+"^000000"; close; } Thanks in advance
-
can anyone have Mission board that i can edit it easily without using SQL? i mean it just a simple script that i can put some quest and there is no limit of time.. they can do it again after they finish it..
-
what is the prob on my NPC if im having this error? [Error]: npc_event: event not found [Donate NPC ::OnExit] here is the script if in case //===== eAthena Script ======================================= //= Euphy's Quest Shop //===== By: ================================================== //= Euphy //===== Current Version: ===================================== //= 1.3 //===== Description: ========================================= //= A dynamic quest shop based on Lunar's, with easier config. //= Includes support for multiple shops & cashpoints. //= Item Preview script by ToastOfDoom. //============================================================ prontera,139,225,6 script Donate NPC 719,{ function Add; function Chk; function Slot; function A_An; if(.Shops$ != "") set .@i,1; else { set .@menu$,""; for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) set .@menu$, .@menu$+.Shops$[.@i]+":"; set .@i, select(.@menu$); } dispbottom "Select one item at a time."; callshop "5shop"+.@i,1; npcshopattach "5shop"+.@i; end; function Add { for(set .@n,5; 1; set .@n,.@n+2) if (!getarg(.@n,0)) break; for(set .@i,2; .@i<.@n; set .@i,.@i+1) set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i); npcshopadditem "5shop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0); return; } function Chk { if (getarg(0)<getarg(1)) { set @qf,1; return "^FF0000"; } else return "^00FF00"; } function Slot { set .@s$,getitemname(getarg(0)); switch(.ShowSlot){ case 1: if (!getitemslots(getarg(0))) return .@s$; case 2: if (getiteminfo(getarg(0),11)>0) return .@s$+" ["+getitemslots(getarg(0))+"]"; default: return .@s$; } } function A_An { setarray .@A$[0],"a","e","i","o","u"; set .@B$, "_"+getarg(0); for(set .@i,0; .@i<5; set .@i,.@i+1) if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0); return "a "+getarg(0); } OnBuyItem: set .@q[0],@bought_nameid; copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]")); if (!.@q[1]) { message strcharinfo(0),"An error has occurred."; end; } mes "[Quest Shop]"; mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000"; mes "Requirements:"; if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000"; if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000"; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000"; if (@qf) { set @qf,0; close; } next; if (!checkweight(.@q[0],.@q[1])) { mes "[Quest Shop]"; mes "^FF0000You need "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000"; close; } set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11); addtimer 1000, strnpcinfo(3)+"::OnExit"; while(1){ switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && !@qe6)?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) { case 1: if (.@q[2]) set Zeny, Zeny-.@q[2]; if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3]; if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2) delitem .@q[.@i],.@q[.@i+1]; getitem .@q[0],.@q[1]; if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[0]))+"!",0; specialeffect2 699; close; case 2: set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5); if (@qe1&1) atcommand "@changelook 3 "+@qe2; if (@qe1&256) atcommand "@changelook 1 "+@qe2; if (@qe1&512) atcommand "@changelook 2 "+@qe2; set @qe6,1; break; case 3: close; } } OnExit: if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; } for(set .@i,1; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,0; end; OnInit: // --------------------- Config --------------------- // Custom points, if needed: "<variable>","<name to display>" setarray .Points$[0],"#CASHPOINTS","Cash Points"; set .Announce,0; // Announce quest completion? (1: yes / 0: no) set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never) set .DisplayID,0; // Show item IDs? (1: yes / 0: no) set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no) // Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...}; // Duplicate dummy data for any additional shops (bottom of script). // If no categories, use the second line instead (remove //). setarray .Shops$[1],"Armor","Shield","Garment","Accesories","Cards","Weapon's","Headgear's","Usable"; // set .Shops$,"n/a"; // Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>, // <required item ID>,<required item amount>{,...}); // Shop number corresponds with order above (default is 1). // Note: Do NOT use a reward item more than once! Add(1,2394,1,0,0,7179,30); Add(1,2345,1,0,0,7179,20); Add(1,2347,1,0,0,7179,20); Add(1,2349,1,0,0,7179,20); Add(1,2351,1,0,0,7179,20); Add(2,2137,1,0,0,7179,30); Add(2,2138,1,0,0,7179,18); Add(2,2130,1,0,0,7179,18); Add(3,2554,1,0,0,7179,35); Add(4,2772,1,0,0,7179,28); Add(4,2737,1,0,0,7179,18); Add(4,2733,1,0,0,7179,24); Add(5,4441,1,0,0,7179,35); Add(5,4429,1,0,0,7179,20); Add(5,4430,1,0,0,7179,30); Add(5,4427,1,0,0,7179,25); Add(5,4361,1,0,0,7179,45); Add(5,4365,1,0,0,7179,100); Add(5,4359,1,0,0,7179,35); Add(5,4357,1,0,0,7179,100); Add(5,4407,1,0,0,7179,35); Add(5,4408,1,0,0,7179,40); Add(5,4399,1,0,0,7179,35); Add(5,4128,1,0,0,7179,45); Add(5,4318,1,0,0,7179,35); Add(6,1279,1,0,0,7179,45); Add(6,1280,1,0,0,7179,45); Add(6,1281,1,0,0,7179,45); Add(6,1486,1,0,0,7179,45); Add(6,1546,1,0,0,7179,45); Add(6,1576,1,0,0,7179,55); Add(6,1577,1,0,0,7179,55); Add(6,1426,1,0,0,7179,55); Add(6,2002,1,0,0,7179,60); Add(6,13416,1,0,0,7179,60); Add(6,1826,1,0,0,7179,60); Add(6,1310,1,0,0,7179,35); Add(6,1981,1,0,0,7179,35); Add(6,1927,1,0,0,7179,35); Add(6,13176,1,0,0,7179,25); Add(6,13177,1,0,0,7179,25); Add(6,13178,1,0,0,7179,25); Add(6,13179,1,0,0,7179,25); Add(6,13110,1,0,0,7179,20); Add(6,1743,1,0,0,7179,25); Add(6,13306,1,0,0,7179,30); Add(6,13307,1,0,0,7179,30); Add(6,13412,1,0,0,7179,15); Add(6,13413,1,0,0,7179,15); Add(7,5137,1,0,0,7179,15); Add(7,5766,1,0,0,7179,15); Add(7,5013,1,0,0,7179,15); Add(7,20261,1,0,0,7179,15); Add(7,30064,1,0,0,7179,15); Add(7,18503,1,0,0,7179,15); Add(7,20028,1,0,0,7179,15); Add(7,20030,1,0,0,7179,15); Add(7,5401,1,0,0,7179,15); Add(7,5767,1,0,0,7179,15); Add(7,2687,1,0,0,7179,15); Add(7,30067,1,0,0,7179,15); Add(7,5389,1,0,0,7179,15); Add(7,5521,1,0,0,7179,15); Add(7,5800,1,0,0,7179,15); Add(7,5304,1,0,0,7179,15); Add(7,5591,1,0,0,7179,15); Add(7,5170,1,0,0,7179,15); Add(7,5518,1,0,0,7179,15); Add(7,5374,1,0,0,7179,15); Add(7,5476,1,0,0,7179,15); Add(7,5822,1,0,0,7179,15); Add(7,5138,1,0,0,7179,15); Add(7,5753,1,0,0,7179,15); Add(7,5751,1,0,0,7179,15); Add(7,5483,1,0,0,7179,15); Add(7,5375,1,0,0,7179,15); Add(8,12246,1,0,0,7179,10); // -------------------------------------------------- for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) npcshopdelitem "5shop"+.@i,909; waitingroom "Newbie Gift!",0; end; } // -------- Dummy data (duplicate as needed) -------- - shop 5shop1 -1,909:-1 - shop 5shop2 -1,909:-1 - shop 5shop3 -1,909:-1 - shop 5shop4 -1,909:-1 - shop 5shop5 -1,909:-1 - shop 5shop6 -1,909:-1 - shop 5shop7 -1,909:-1 - shop 5shop8 -1,909:-1 another help please on my v4p shop - shop vote_shop1 111,501:50 prontera,144,230,6 script Vote Shop#1 714,{ set @i,0; mes "[ Annie ]"; mes "Each item will cost you some ^008800Voting Proof Tickets^000000"; mes "Select only one."; callshop "vote_shop1",1; npcshopattach "vote_shop1"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(""+getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "vote_shop1",getarg(.e+2),getarg(.e)*compare(""+getarg(.e+1),"SZeny"); setarray .Shop[.i],getarg(.e+2); set .i,.i+1; goto Quest_Setup; } if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; } for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; } mes "[ Annie ]"; mes "I require the following:"; for(set @i,0; !compare(""+getarg(@i+1),"Zeny"); set @i,@i+2) mes "^880000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^008800":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]"; if(getarg(@i)) mes "^880000" + ((Zeny>=getarg(@i))? "^008800":"") + "" + getarg(@i) + " Zeny"; mes "^000000In exchange, I will give you:^000088"; for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i)); switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) { case 1: for(set @i,0; !compare(""+getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) { next; mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + "."; mes "Please obtain ^880000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000."; close; } if(Zeny < getarg(@i)) { next; mes "You do not have enough Zeny."; mes "Please obtain ^880000" + (getarg(@i)-Zeny) + " more Zeny^000000."; close; } for(set @i,0; !compare(""+getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1); set Zeny,Zeny-getarg(@i); for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1); if (compare(""+getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all; close; case 2: set @bottomview, getlook(3); set @topview, getlook(4); set @midview, getlook(5); addtimer 1000, strnpcinfo(3)+"::On_Leave"; set @equip,getiteminfo(@bought_nameid, 5); set @view, getiteminfo(@bought_nameid, 11); if(@equip != -1 && @view > 0) { if(@equip & 1) atcommand "@changelook 3 " + @view; if(@equip & 256) atcommand "@changelook 1 " + @view; if(@equip & 512) atcommand "@changelook 2 " + @view; } next; goto OnBuyItem; case 3: close; } On_Leave: atcommand "@changelook 1 " + @topview; atcommand "@changelook 2 " + @midview; atcommand "@changelook 3 " + @bottomview; set @equip,0; set @view,0; set @topview,0; set @midview,0; set @bottomview,0; end; OnInit: waitingroom "V4P Shop",0; npcshopitem "vote_shop1",0,0; set .BuildQuest,1; set .i,1; Quest_Setup: switch(.i) { default: set .BuildQuest,0; set .e,0; set .i,0; end; case 1: callsub OnBuyItem,7227,20,20,"SZeny",5274,1; case 2: callsub OnBuyItem,7227,20,20,"SZeny",5274,1; case 3: callsub OnBuyItem,7227,20,20,"SZeny",5275,1; case 4: callsub OnBuyItem,7227,20,20,"SZeny",5276,1; case 5: callsub OnBuyItem,7227,20,20,"SZeny",5298,1; } } and here is the error [Warning]: itemdb_search: Item ID 0 does not exists in the item_db. Using dummy data. i dont know what it saying item id 0 does not exists but in the callsub there is no item 0 please help me with this 2 errors i have bump
-
Sir emistry does this script only get the skull of the 1 player only?
-
guys can anyone help me on my v4p script? this is showing up on my putty [Warning]: Unexpected type for argument 1. Expected string. [Debug]: Data: number value=20 [Debug]: Function: compare [Debug]: Source (NPC): Vote Shop#1 at malaya (299,350) [Warning]: Unexpected type for argument 1. Expected string. [Debug]: Data: number value=20 [Debug]: Function: compare [Debug]: Source (NPC): Vote Shop#1 at malaya (299,350) [Warning]: Unexpected type for argument 1. Expected string. [Debug]: Data: number value=20 [Debug]: Function: compare [Debug]: Source (NPC): Vote Shop#1 at malaya (299,350) and this is the script i have //====CHANGER====// malaya,294,350,4 script Voting Proof::voteproof 435,{ //set .@cred2zen,10000000; //Set for you credits mes "[ Mr. Htnerb ]"; mes "Hi, I am Mr. Htnerb! Here to assist you in your everyday ^008800Voting Proof Ticket^000000 needs!"; next; mes "[ Mr. Htnerb ]"; mes "So, would you like to trade your Vote Points into ^008800Voting Proof Ticket^000000?"; menu "Inquire about Points",-,"Yes!",cred2zeny; next; mes "[ Mr. Htnerb ]"; mes "Ok, wait for a minute. Let me check my records!"; next; mes "[ Mr. Htnerb ]"; mes "You have ^000088"+ #KAFRAPOINTS +"^000000 Vote Points."; dispbottom "You currently have "+ #KAFRAPOINTS +" Vote Points."; close; cred2zeny: next; mes "[ Mr. Htnerb ]"; mes "Ok, how many ^000088Vote Points^000000 would you like to convert into ^008800Voting Proof Ticket/s^000000?"; mes "^FF0000Please be reminded that 1 Vote Point is equal to 1 Voting Proof Ticket^000000."; input .@vps; next; if ( .@vps < 1) goto zero; if ( .@vps > 30000) goto Toomeni; if((countitem(7227)+.@vps) >= 30000) goto Toomeni; //next; if ( #KAFRAPOINTS < .@vps) goto Tooless; mes "[ Mr. Htnerb ]"; mes "Here you go."; set #KAFRAPOINTS,(#KAFRAPOINTS-.@vps); getitem 7227,.@vps; dispbottom "You were deducted by "+ .@vps +" Vote points. You now have a total of "+ #KAFRAPOINTS +" Vote Points."; next; mes "[ Mr. Htnerb ]"; mes "Enjoy your ^008800Voting Proof Tickets^000000."; donpcevent "voteproof::OnTHX"; close; Toomeni: next; mes "[ Mr. Htnerb ]"; mes "I'm sorry but you cannot hold more than ^FF00030,000^000000 items."; close; Tooless: next; mes "[ Mr. Htnerb ]"; mes "I'm sorry but you have insufficient ^000088Vote Points^000000."; close; zero: next; mes "[ Mr. Htnerb ]"; mes "I cannot work with a ^00FF000^000000!"; close; OnTHX: emotion e_thx,0; end; } //Made by Jod credits to Lunar //Version 1.6 //6.1.09 - shop vote_shop1 111,501:50 malaya,299,350,4 script Vote Shop#1 714,{ set @i,0; mes "[ Annie ]"; mes "Each item will cost you some ^008800Voting Proof Tickets^000000"; mes "Select only one."; callshop "vote_shop1",1; npcshopattach "vote_shop1"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "vote_shop1",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny"); setarray .Shop[.i],getarg(.e+2); set .i,.i+1; goto Quest_Setup; } if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; } for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; } mes "[ Annie ]"; mes "I require the following:"; for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^880000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^008800":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]"; if(getarg(@i)) mes "^880000" + ((Zeny>=getarg(@i))? "^008800":"") + "" + getarg(@i) + " Zeny"; mes "^000000In exchange, I will give you:^000088"; for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i)); switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) { case 1: for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) { next; mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + "."; mes "Please obtain ^880000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000."; close; } if(Zeny < getarg(@i)) { next; mes "You do not have enough Zeny."; mes "Please obtain ^880000" + (getarg(@i)-Zeny) + " more Zeny^000000."; close; } for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1); set Zeny,Zeny-getarg(@i); for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1); if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all; close; case 2: set @bottomview, getlook(3); set @topview, getlook(4); set @midview, getlook(5); addtimer 1000, strnpcinfo(3)+"::On_Leave"; set @equip,getiteminfo(@bought_nameid, 5); set @view, getiteminfo(@bought_nameid, 11); if(@equip != -1 && @view > 0) { if(@equip & 1) atcommand "@changelook 3 " + @view; if(@equip & 256) atcommand "@changelook 1 " + @view; if(@equip & 512) atcommand "@changelook 2 " + @view; } next; goto OnBuyItem; case 3: close; } On_Leave: atcommand "@changelook 1 " + @topview; atcommand "@changelook 2 " + @midview; atcommand "@changelook 3 " + @bottomview; set @equip,0; set @view,0; set @topview,0; set @midview,0; set @bottomview,0; end; OnInit: npcshopitem "vote_shop1",0,0; set .BuildQuest,1; set .i,1; Quest_Setup: switch(.i) { default: set .BuildQuest,0; set .e,0; set .i,0; end; case 1: callsub OnBuyItem,7227,20,20,"SZeny",5274,1; case 2: callsub OnBuyItem,7227,20,20,"SZeny",5274,1; case 3: callsub OnBuyItem,7227,20,20,"SZeny",5275,1; case 4: callsub OnBuyItem,7227,20,20,"SZeny",5276,1; case 5: callsub OnBuyItem,7227,20,20,"SZeny",5298,1; } }
-
Need the latest kRO or a Renewal Data Folder? hmm i am very sure that i have the latest KRO..T_T
-
sorry i saw some 3rd job suit topics but i cant reply a topic on it so i decided to post new.. btw why when im trying to put the {},{ changebase 4054; },{} id of rune knight it make me error but when im trynig to change it into 4001 super novice there is no error? can anyone help me? they said i need an sprite on this where can i get that?
-
A suit that can change a character sprite.
chromus28 replied to laklaker's topic in Dito mag request ng Script at Database
Sir i tried to change into assasin but why even the skill changed?? -
ok boss i will try later thanks
-
uhm why i can't click the npc?? i mean nothing happen when im clicking the npc no error now but nothing happen when clicking the npc aww error [Error]: run_script: infinity loop ! [Debug]: Source (NPC): Yii Haruka at force_2-3 (96,190)
-
ok i will check later on going to sleep xD bro here is now the error..
-
yes,, i need more than 10 items
-
oh thanks Sir, only 1 item can be traded in this script?
-
here is the id 25500 to 25508
-
does anyone have a script npc that can upgrade the armor? example: i want to upgrade the Sniper Suit's into a 2 slotted suit.. player will just bring the requirement to get the upgraded item on the npc.. does anyone have it?
-
guys does anyone knows how to enable skill on pvp room? yeah gm can back slide or reloc but my players cant T_T how can i fix that? answered sorry and thanks
-
guys how to activate this script? - script Sample -1,{ OnPCKillEvent: if ( strcharinfo(3) == "mapname" ){ set #CASHPOINTS,#CASHPOINTS+1; dispbottom "You have gained 1 Cash Point. Total is "+#CASHPOINTS+" Cash Points."; end; } } i change already the mapname and the npc name by when im killing someone i dont earn any points