Jump to content

radlican

Members
  • Posts

    17
  • Joined

  • Last visited

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

1403 profile views

radlican's Achievements

Poring

Poring (1/15)

0

Reputation

  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...