Jump to content

caspa

Members
  • Posts

    499
  • Joined

  • Last visited

Everything posted by caspa

  1. @bump @bump @bump @ bump
  2. Q> How to make this into a daily based quest? like every 8:00 in the morning the npc reset and when it resets it announces "you can now take the daily quest" or something like that. prontera,153,189,5 script dksfjdsk 100,{ .@t = gettime(4); mes "Hi, today is "+ .week$[.@t]; mes "The Daily Quest for today is ..."; mes getitemname( getd( ".req_item"+ .@t ) ); next; mes "The Items that needed are :"; .@size = getarraysize( getd( ".req_item"+ .@t ) ); for ( .@i = 1; .@i < .@size; .@i += 2 ) mes getd( ".req_item"+ .@t +"["+( .@i +1 )+"]" ) +"x "+ getitemname( getd( ".req_item"+ .@t +"["+ .@i +"]" ) ); next; if ( select ( "I want this Item", "Just walk around" ) == 2 ) { mes "OK, please come again"; close; } else if ( gettime(4) != .@t ) { mes "I'm sorry, today is a brand new day"; close; } for ( .@i = 1; .@i < .@size; .@i += 2 ) { if ( countitem( getd( ".req_item"+ .@t +"["+ .@i +"]" ) ) < getd( ".req_item"+ .@t +"["+( .@i +1 )+"]" ) ) { setarray .@not_enough[.@c], getd( ".req_item"+ .@t +"["+ .@i +"]" ), getd( ".req_item"+ .@t +"["+( .@i +1 )+"]" ) - countitem( getd( ".req_item"+ .@t +"["+ .@i +"]" ) ); .@c += 2; } } if ( .@c ) { mes "You didn't bring enough items"; for ( .@i = 0; .@i < .@c; .@i += 2 ) mes .@not_enough[ .@i +1 ] +"x "+ getitemname( .@not_enough[ .@i ] ); close; } for ( .@i = 1; .@i < .@size; .@i += 2 ) delitem getd( ".req_item"+ .@t +"["+ .@i +"]" ), getd( ".req_item"+ .@t +"["+( .@i +1 )+"]" ); getitem getd( ".req_item"+ .@t ), 1; mes "Congratulations for getting"; mes getitemname( getd( ".req_item"+ .@t ) ); close; OnInit: setarray .week$, "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"; setarray .req_item0, 501, 501,1, 502,1; setarray .req_item1, 501, 501,10, 502,20, 503,30, 504, 40; setarray .req_item2, 501, 501,1, 502,1; setarray .req_item3, 501, 501,1, 502,1; setarray .req_item4, 501, 501,1, 502,1; setarray .req_item5, 501, 501,1, 502,1; setarray .req_item6, 501, 501,1, 502,1; end; }
  3. Please fix the Script please and check if there a possible bug exploit.. thank you so much.... prontera,150,150,5 script Duel Gambling 953,{ set .char2$,strcharinfo(0); set .char$,strcharinfo(0); set @npcname$,"[Duel Manager]"; L_mm: mes @npcname$; //If already a duel is going on if(.gambling) { mes "A duel is starting, please wait until the duel is over."; close; } mes "Hello "+ strcharinfo(0)+","; //If the challenger and the one accepting the duel have registred and the duel is ready to start if(.char$ == strcharinfo(0) && .char2$ != "") { mes "^0000FF" +.char2$+ "^000000 is waiting for you to start the duel."; if(.zeny) mes "Total bet for the duel is ^FF0000" +.zeny+ "^000000 zeny."; mes "What would you like to do?"; next; menu "Start Duel",L_sduel,"Cancel Duel",L_cduel; } //If the one accept the duel is going to talk to the npc if(.waiting) { mes "The duel will start as soon as the opponent confirms the event."; close; } //If the challenger has registred, speaks again to the npc and no one accepted it if(.char$ == strcharinfo(0)) { mes "Please wait for your challenger."; next; menu "Cancel Duel",L_cduel,"I will wait",-; close; } //If a challenger has registred, another person speaks to the npc and no one has accepted before if(.char$ != "") { mes "Someone is looking for an opponent."; mes " "; mes "What would you like to do?"; next; menu "Duel Information",-,"Accept Duel",L_iduel,"I'm not interested",L_info; mes @npcname$; mes "Opponent Information :"; mes "Name ~ ^0000FF"+.char$+"^000000"; if(.zeny) mes "Duel Bet ~ ^FF0000" +.zeny+ "^000000 zeny."; next; goto L_mm; } //If no challenger is registred. else { mes "There is no ongoing duel at the moment."; mes " "; mes "What would you like to do?"; next; menu "Start a Duel",-,"Leave Here",L_info; set .zeny,callfunc("F_PDZeny",0); Initnpctimer; attachrid (getcharid(3,.char$)); mes @npcname$; mes "Please wait for your opponent."; announce .char$+ " is looking for an opponent.",bc_map; close; } //This party will run after someone accepted the challenge of a challenger L_iduel: set .zeny,callfunc("F_PDZeny",.zeny); set .waiting,1; mes @npcname$; mes "Please wait while i inform your opponent."; announce "Get ready "+.char$+ ", you now have a challenger.",bc_map; attachrid (getcharid(3,.char2$)); close; //After both players registred and the challenger starts the duel. L_sduel: mes @npcname$; mes "We will now commence the duel."; close2; attachrid (getcharid(3,.char2$)); warp "pvp_n_1-1",90,50; attachrid (getcharid(3,.char$)); warp "pvp_n_1-1",110,50; atcommand "@duel" + .char2$; attachrid (getcharid(3,.char2$)); atcommand "@accept"; set dueling,1; // detachrid; set .gambling,1; announce .char$+ " has started a duel with " +.char2$+ ".",bc_map; end; //If only the challenger is registered and cancels or if both registred and the challenger cancels the duel. L_cduel: announce "The duel was canceled by " +.char$,bc_map; mes @npcname$; mes "Very well."; set dueling,0; set Zeny,Zeny+(.zeny/2); close2; if((.char2$ != "") && (attachrid (getcharid(3,.char2$)))) { attachrid getcharid(3,.char2$); set Zeny,Zeny+(.zeny/2); set dueling,0; // detachrid; } set .char$,""; set .char2$,""; set .gambling,0; set .waiting,0; set .zeny,0; end; //If 5 Minutes passed after the challenger registred and no one accepts it. OnTimer60000: announce "Time's up, The duel has now been canceled because there was no challenger.",bc_map; if((.char$ != "") && (attachrid (getcharid(3,.char$)))) { set Zeny,Zeny+(.zeny/2); set dueling,0; } if((.char2$ != "") && (attachrid (getcharid(3,.char2$)))) { set Zeny,Zeny+(.zeny/2); set dueling,0; } // detachrid; set .char$,""; set .char2$,""; set .gambling,0; set .waiting,0; set .zeny,0; stopnpctimer; end; L_info: mes @npcname$; mes "Alright, comeback when you need my service."; close; //When a player kills his oppenent. OnPCKillEvent: if(!dueling) end; set Zeny,Zeny+.zeny; atcommand "@leave"; announce strcharinfo(0)+" has won the duel.",bc_map; mapwarp "pvp_n_1-1","prontera",149,145; set dueling,0; attachrid killedrid; set dueling,0; // detachrid; set .char$,""; set .char2$,""; set .gambling,0; set .waiting,0; set .zeny,0; set .waiting,0; end; //When a player dies.. (Just incase he doesnt get killed by his oppenent) OnPCDieEvent: if(!dueling) end; if (killerrid == 0) { announce "The duel has been canceld because "+strcharinfo(0)+" died.", bc_map; if (strcharinfo(0) == .char$) { attachrid getcharid(3,.char2$); set Zeny,Zeny+.zeny/2; } if (strcharinfo(0) == .char2$) { attachrid getcharid(3,.char$); set Zeny,Zeny+.zeny/2; } atcommand "@leave"; set dueling,0; // detachrid; set .char$,""; set .char2$,""; set .gambling,0; set .waiting,0; set .zeny,0; set .waiting,0; end; } } //Function for gambling for Zeny Function script F_PDZeny { If(!getarg(0)) { mes @npcname$; mes "How much would you like to bet?"; mes " "; mes " "; mes "^ff0000NOTE^000000 : You can only bet up to 10,000,000z."; next; input .@zeny; If(.@zeny > Zeny || !.@zeny) { mes @npcname$; mes "Please make that you have entered a valid amount and that you have bought enough zeny."; close; } set Zeny,Zeny-.@zeny; return .@zeny; } If(getarg(0) > Zeny) { mes @npcname$; mes "Please make that you have entered a valid amount and that you have bought enough zeny."; close; } else set Zeny,Zeny-getarg(0); set .@zeny,getarg(0)*2; return .@zeny; } pvpbet.txt
  4. can somebody tell me whats wrong with this one? getmapxy( @mapname$, @mapx, @mapy, 0, "strcharinfo(0)" ); if (mobcount("@mapname$","MonsterInvasion::On"+strcharinfo(0)+"") == 0)
  5. how to script that when you click and npc it will check all users in the party and when the npc confirms they all have the tcg i will party warp them to the specific dungeon and the npc will delete all the item in the players inventory......
  6. Yep..... NVM!! i already solved it...... thx by the way for a fast reply on my topic
  7. caspa

    summon delay

    does anyone have the solution for this? http://www.eathena.ws/board/lofiversion/index.php/t236251.html
  8. is it possible to make an npc where if the 1st player click the npc he will wait 5 second then get warp inside while the 2nd who touches the npc will wait 10 seconds then get to enter inside and if the 1st person get disconnected while the clock is at 3 seconds the 2nd person get in automatically and the 3rd person who might click the room will be in a 5 second again however after 5 second of waiting and theres already someone inside he cant enter anymore unless the 2nd person who was inside comes out.... or if i click the npc first the npc would not talk to 2nd person.......
  9. can i request a simple broadcaster npc which has a cooldown of 2min, not by player but the npc itself will cooldown then you pay 30k then it dont have the fancy color just the normal one!! thanks in advanced.
  10. if u have created 20 script and they all use this "for( set .@i,1; .@i <= 6; set .@i,.@i+1 )" <-- would that affect other script? i mean would they alter how the other script is supposed to work?
  11. capuche can you possibly make me a simple script where the set-up is if i click the npc it will summon 20 poring then i have to kill the 20 monster before i can click on it again if there is still 1 monster on poring_w01 i cant click the npc? please?
  12. is there a getmapuser for monster? like i summon a 20 poring and i killed 19 in poring_w01, but there is still 1 poring on the map so i cant use the npc yet i have to kill that 1 monster before using the npc? is there something like that?
  13. is this correct? switch( select("~ Room 1 "+( getmapusers( @dbmapone$ ) )? "^FF0000NOT Available^000000":"^0000FFAvailable^000000")+"": "~ Room 2 "+( getmapusers( @dbmaptwo$ ) )? "^FF0000NOT Available^000000":"^0000FFAvailable^000000")+"": "~ Room 3 "+( getmapusers( @dbmapthree$ ) )? "^FF0000NOT Available^000000":"^0000FFAvailable^000000")+"")){
  14. can anybody tell me what's wrong with the script ( refer picture )
  15. caspa

    script check

    can you help me correct it please? @Bump : Anyone?
  16. is this correct? //------- 1st Script set @Change$,( Sex )?"4020":"4021"; mes "[ Auto Job Changer ]"; mes "You are switching into a "+( Sex ? "Clown":"Gypsy" )+","; mes " "; mes " "; mes "Proceed?"; next; menu "Proceed",Proceed6,"I've Change My Mind",Another6; Another6: goto startswitch; end; Proceed6: jobchange @Change$; set BaseLevel,99; set JobLevel,70; ResetSkill; ResetStatus; set SkillPoint,127; mes "[ Auto Job Changer ]"; mes "You have successfully changed into a ^ff0000"+( Sex ? "Clown":"Gypsy" )+"^000000 class."; mes " "; mes "Thank you for using this service, Have fun playing."; //---------2nd Script if( Zeny < 3000000 || BaseLevel < 99 || Class != 4008 || Class != 4009 || Class != 4010 || Class != 4011 || Class != 4012 || Class != 4013 || Class != 4015 || Class != 4016 || Class != 4017 || Class != 4018 || Class != 4019 || Class != 4020 || Class != 4021 || Class != 23 || Class != 24 || Class != 25 || Class != 4049 || Class != 4047 ) goto switchrequired; - im trying to make a script whereas all the job mention above is the only one who can access the npc the other job like 1st class, 2nd class, high 1st class and baby characters will not be able to access the npc, please help!! thanks in advanced
  17. im getting error on this kindly help thank you... switch(select("Lord Knight:(Sex)?"Gypsy":"Clown":Paladin:HighWizard:Professor:Sniper:HighPriest:Champion:Whitesmith:Creator:Assassin Cross:Stalker:Gunslinger:Ninja:Soul Linker:Star Gladiator:Super Novice:Taekwon")) {
  18. @killmonster would do =D...........
  19. can i request an npc that exchange 100 cashpoints to 10 donations pods/TCG card, i dont want the normal way like settting a cashshop and selling the pods on it. i just kinda want it to be unique =D thx in advanced
  20. caspa

    Client FAQ?

    its not showing in 2010-12-28 client maybe it isnt hexed in the client itself? i think 2011-01+ is the starting client for the robe wings!! ( anyone can confirmed this? )
×
×
  • Create New...