Jump to content

radlican

Members
  • Posts

    17
  • Joined

  • Last visited

Everything posted by radlican

  1. nice Najara Zenn where is the link of the old skins?
  2. ccidentally deleted the trunk folder, using winscp?
  3. no ERROR in script but when i try to change my sprite it says
  4. - shop donateshop 111,501:50 ra_temsky,104,99,3 script Refine & Gym Pass 4_F_FAIRYKID,{ set @i,0; mes "[Donate Shop]"; mes "Each item will cost you some ^008800Proof oF Donations^000000"; mes "Select only one."; callshop "donateshop",1; npcshopattach "donateshop"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "donateshop",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 "[Donate Shop]"; 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 "donateshop",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,7179,150,0,"SZeny",6238,1; case 2: callsub OnBuyItem,7179,150,0,"SZeny",6239,1; case 3: callsub OnBuyItem,7179,10,0,"SZeny",7776,1; } } Im having a hardtime to fix this 2 DONATION NPC'S conflict.. im just new in script editing .. is there any dev/scripter knows how to make this works properly? THANKYOU IN ADVANCE - shop donateshop2 111,501:50 ra_temsky,105,102,4 script Donate Costumes 4_M_FAIRYSOLDIER,{ set @i,0; mes "[Donate Shop]"; mes "Each item will cost you some ^008800Proof Of Donations^000000"; mes "Select only one."; callshop "donateshop2",1; npcshopattach "donateshop2"; end; OnBuyItem: if(.BuildQuest) { for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {} npcshopadditem "donateshop2",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 "[Donate Shop]"; 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 "donateshop2",0,0; set .BuildQuest,1; set .i,1; Quest_Setup: switch(.i) { default: set .BuildQuest,0; set .e,10; set .i,0; end; case 1: callsub OnBuyItem,7179,200,10,"SZeny",20148,1; case 2: callsub OnBuyItem,7179,200,10,"SZeny",20097,1; case 3: callsub OnBuyItem,7179,200,10,"SZeny",20147,1; case 4: callsub OnBuyItem,7179,200,10,"SZeny",20184,1; case 5: callsub OnBuyItem,7179,200,10,"SZeny",20055,1; case 6: callsub OnBuyItem,7179,200,10,"SZeny",20060,1; case 7: callsub OnBuyItem,7179,200,10,"SZeny",20052,1; case 8: callsub OnBuyItem,7179,200,10,"SZeny",20019,1; case 9: callsub OnBuyItem,7179,200,10,"SZeny",20083,1; } }
  5. anyone here familiar with thie error? can you guys help me // -------------------------------------------------------------------------- // -------------------------------------------------------------------------- // -------------------------------------------------------------------------- // Script Name : Headgear to Costume converter // -------------------------------------------------------------------------- // Description : // Allows a user to convert the equipped headgear (on Top, Mid or Low) into a // costume item. It will remove any card and refine of the Item. // -------------------------------------------------------------------------- prontera,153,181,4 script Costume Converter 430,{ mes "[Costume Converter]"; mes "I can convert your original headgear into a costume headgear."; mes " "; mes "Note: Stats, Cards & Refine will be removed. Costume is placed in your Costume Tab (ALT+Q)"; next; setarray .@Position$[1],"Top","Mid","Low"; setarray .@Position[1], 1, 9, 10; set .@Menu$,""; for( set .@i, 1; .@i < 4; set .@i, .@i + 1 ) { if( getequipisequiped(.@Position[.@i]) ) set .@Menu$, .@Menu$ + .@Position$[.@i] + " - " + "[ " + getequipname(.@Position[.@i]) + " ]"; set .@Menu$, .@Menu$ + ":"; } set .@Part, .@Position[ select(.@Menu$) ]; if( !getequipisequiped(.@Part) ) { mes "[Costume Converter]"; mes "Your not wearing anything there..."; close; } mes "[Costume Converter]"; mes "Are you sure you want to make your headgear into a costume?"; mes " "; mes "Note: Stats, Cards & Refine will be removed. Costume is placed in your Costume Tab (ALT+Q)"; next; if( select("No, I am sorry.:Yes, please convert my item.") == 2 ) { costume .@Part; // Convert the Headgear mes "[Costume Converter]"; mes "Done, enjoy your costume headgear!"; close; } mes "[Costume Converter]"; mes "Need some time to think about it, huh?"; mes "Alright, I can understand."; close; } // -------------------------------------------------------------------------- // Use duplicates to put your npc on different cities // -------------------------------------------------------------------------- //prontera,155,180,4 duplicate(Costume-IT) Costume-IT#1 864
  6. radlican

    asura

    @TS is your problem fixed? i want it too... @nightro can you share to me too.. ill send a messsage to your inbox bro.. please ..
  7. How to put a restriction for example .. If the Player kill twice the same players, for the third kill or succeeding kills in same players it will not give a Point .. Thanks .. please UP !! is this the script that we wishing bro Skorm?
  8. im using hercules server , pre-renewal my dice event didn't start //======Name======================================== // Dice Event //======Version===================================== // 1.0 //======Author(s)=================================== // Sandbox //======Comments==================================== // In loving memory of AstralRO //================================================== //Edit to where would you place the warper prontera,155,179,4 script Dice Event Warper#dice 45,{ mes "Do you want to join the Dice Event?"; menu "Yes",-; warp "quiz_01",55,87; close; } - script DiceTrigger -1,{ OnMinute30: if(gettime(3) % 2 == 0) donpcevent "DiceTrigger::OnDiceETrigger"; end; OnInit: disablenpc "Dice Event Warper#dice"; disablenpc "Claim Your Prize!#dice"; end; OnDiceETrigger: if(agitcheck() == 1) end; enablenpc "Dice Event Warper#dice"; announce "Dice Event: We are going to have a Dice Event",bc_all,0x8A2BE2; sleep2 1000; announce "Dice Event: For those who want to join, please warp @ Prontera Town!",bc_all,0x8A2BE2; sleep2 1000; announce "Dice Event: The Warper would be open for 1 minute",bc_all,0x8A2BE2; sleep2 30000; announce "Dice Event: Last 30 Seconds.",bc_all,0x8A2BE2; sleep2 30000; announce "Dice Event: Warper Closed.",bc_all,0x8A2BE2; disablenpc "Dice Event Warper#dice"; areawarp "ra_temsky",86,149,113,134,"ra_temsky",177,114; donpcevent "DiceEvent::OnDiceStart"; end; } quiz_01,55,90,3 script Got Stuck?#dice 779,{ mes "[ Got Stuck? ]"; mes "Do you wish to go back?"; menu "Yes",-; warp "prontera",136,177; close; } quiz_01,37,80,3 script Box 1 111,{ warp "quiz_01",37,70; close; } quiz_01,49,80,3 script Box 2 111,{ warp "quiz_01",49,70; close; } quiz_01,61,80,3 script Box 3 111,{ warp "quiz_01",61,70; close; } quiz_01,73,80,3 script Box 4 111,{ warp "quiz_01",73,70; close; } quiz_01,37,64,3 script Go Back#1 858,{ warp "quiz_01",55,76; close; } quiz_01,49,64,3 script Go Back#2 858,{ warp "quiz_01",55,76; close; } quiz_01,61,64,3 script Go Back#3 858,{ warp "quiz_01",55,76; close; } quiz_01,73,64,3 script Go Back#4 858,{ warp "quiz_01",55,76; close; } - script DiceEvent -1,{ OnDiceStart: mapannounce "quiz_01","We are about to start the Dice event.",bc_blue; sleep2 1000; mapannounce "quiz_01","Rules are simple:",bc_blue; sleep2 1000; mapannounce "quiz_01","I'm going to pick a number, 1 to 4. Then I'll do a countdown from 5 to 0",bc_blue; sleep2 1000; mapannounce "quiz_01","All you have to do is go to box of the number you want",bc_blue; sleep2 1000; mapannounce "quiz_01","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue; sleep2 1000; mapannounce "quiz_01","We'll do it again and again until we have 1 player left on this map.",bc_blue; sleep2 2000; mapannounce "quiz_01","Before I forget, you must GO INSIDE THE BOX! because if you're caught standing outside the box you'll be automatically disqualified!",bc_blue; sleep2 2000; mapannounce "quiz_01","That's it.. Now let's get it on!",bc_blue; sleep2 3000; goto L_start; end; L_start: enablenpc "Go Back#1"; enablenpc "Go Back#2"; enablenpc "Go Back#3"; enablenpc "Go Back#4"; if(getmapusers("quiz_01") == 1) goto L_winner; enablenpc "Box 1"; enablenpc "Box 2"; enablenpc "Box 3"; enablenpc "Box 4"; if(getmapusers("quiz_01") == 0) goto L_noone; if(getmapusers("quiz_01") > 1) { set $@number,rand(1,4); sleep2 1000; mapannounce "quiz_01","I'm ready to pick a number. Please go to the box of the number you want! Go go go!",bc_blue; sleep2 20000; mapannounce "quiz_01","5",bc_blue; sleep2 1500; mapannounce "quiz_01","4",bc_blue; sleep2 1500; mapannounce "quiz_01","3",bc_blue; sleep2 1500; mapannounce "quiz_01","2",bc_blue; sleep2 1500; mapannounce "quiz_01","1",bc_blue; disablenpc "Box 1"; disablenpc "Box 2"; disablenpc "Box 3"; disablenpc "Box 4"; disablenpc "Go Back#1"; disablenpc "Go Back#2"; disablenpc "Go Back#3"; disablenpc "Go Back#4"; areawarp "quiz_01",32,95,79,76,"prontera",136,177; areawarp "quiz_01",80,85,80,76,"prontera",136,177; areawarp "quiz_01",31,85,31,76,"prontera",136,177; if(getmapusers("quiz_01") == 0) goto L_noone; sleep2 1000; mapannounce "quiz_01","Time's Up. Winning number is "+$@number+"!",bc_blue; if($@number == 4) goto L_Lose1; if($@number == 3) goto L_Lose2; if($@number == 2) goto L_Lose3; if($@number == 1) goto L_Lose4; end; } L_Lose1: //Edit to where will you warp players that lost areawarp "quiz_01",33,73,41,52,"prontera",136,177; areawarp "quiz_01",45,73,53,52,"prontera",136,177; areawarp "quiz_01",57,73,65,52,"prontera",136,177; goto L_start; end; L_Lose2: //Edit to where will you warp players that lost areawarp "quiz_01",33,73,41,52,"prontera",136,177; areawarp "quiz_01",45,73,53,52,"prontera",136,177; areawarp "quiz_01",69,73,77,52,"prontera",136,177; goto L_start; end; L_Lose3: //Edit to where will you warp players that lost areawarp "quiz_01",33,73,41,52,"prontera",136,177; areawarp "quiz_01",57,73,65,52,"prontera",136,177; areawarp "quiz_01",69,73,77,52,"prontera",136,177; goto L_start; end; L_Lose4: //Edit to where will you warp players that lost areawarp "quiz_01",45,73,53,52,"prontera",136,177; areawarp "quiz_01",57,73,65,52,"prontera",136,177; areawarp "quiz_01",69,73,77,52,"prontera",136,177; goto L_start; end; L_noone: announce "No one won the Dice Event!",bc_all,0x8A2BE2; disablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; end; L_winner: enablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; end; } quiz_01,55,84,3 script Claim Your Prize!#dice 904,{ getitem 7227,50; //Edit on what prize would you give to the winner announce strcharinfo(0)+" won the Dice Event!",bc_all,0x8A2BE2; disablenpc "Claim Your Prize!#dice"; disablenpc "Dice Event Warper#dice"; warp "prontera",136,177; close; end; } quiz_01 mapflag nowarp quiz_01 mapflag nowarpto quiz_01 mapflag noskill quiz_01 mapflag noteleport quiz_01 mapflag nomemo quiz_01 mapflag nosave SavePoint quiz_01 mapflag noicewall quiz_01 mapflag noloot
×
×
  • Create New...