Jump to content

Patskie

Members
  • Posts

    1702
  • Joined

  • Last visited

  • Days Won

    19

Everything posted by Patskie

  1. Yeap. Pwera sa checkweight idea. Kinuha ko kay @Skorm
  2. Warp? @_@ is my script will make you warp? Not it isn't, It only modifies a command. That is a different story
  3. Try : - shop dynamicshop -1,501:20000 prontera,150,150,0 script Dynamic Shop 100,{ callshop "dynamicshop",1; npcshopattach "dynamicshop"; end; OnBuyItem: for ( set .@j, 0; .@j < getarraysize(.items); set .@j, .@j + 2 ) { for ( set .@k, 0; .@k < getarraysize(@bought_nameid); set .@k, .@k + 1 ) { if ( @bought_nameid[.@k] == .items[.@j] ) { if ( checkweight( @bought_nameid[.@k], @bought_quantity[.@k] ) ) { if ( countitem(.currency) < .items[.@j+1] ) dispbottom "You don't have enough " +getitemname(.currency)+ " to purchase this item."; else { delitem .currency, .items[.@j+1] * @bought_quantity[.@k]; getitem @bought_nameid[.@k], @bought_quantity[.@k]; } } else dispbottom "You cannot carry out more items with you"; } } } deletearray @bought_quantity, getarraysize(@bought_quantity); deletearray @bought_nameid, getarraysize(@bought_nameid); end; OnInit: set .currency, 7227; // TCG is used to buy items setarray .items, 4001,5,7227,100; // Usage : <item id>,<price> npcshopitem "dynamicshop",0,0; for ( set .@i, 0; .@i < getarraysize(.items); set .@i, .@i + 2 ) npcshopadditem "dynamicshop",.items[.@i],.items[.@i+1]; end; } Add mo lahat ng items mo : setarray .items, 4001,5,7227,100; // Usage : <item id>,<price> Currency na gagamitin mo : set .currency, 7227; // TCG is used to buy items
  4. Move to script support
  5. Edited my last post.
  6. Try : - script storageohyeah -1,{ OnInit: bindatcmd "storage",strnpcinfo(3)+"::OnAtcommand"; setarray .Map$[0],"cell_game","aldeg_cas02","sec_pri","prtg_cast01"; end; OnAtcommand: for ( set .@i, 0; .@i < getarraysize(.Map$); set .@i, .@i + 1 ) { if( strcharinfo(3) == .Map$[.@i] ) { message strcharinfo(0),"You can't open your storage here!"; end; } } openstorage; end; }
  7. After getting the item, the player will be warped to prontera
  8. Bug in such a way that? Change : set #CASHPOINTS,#CASHPOINTS+70; set class_s,class_s+3; dispbottom "Gained [70] zeRO points, you now have ["+#CASHPOINTS+"]"; warp "prontera",247,323; end; to : getitem item_id, amount; set class_s,class_s+3; warp "prontera",247,323; end;
  9. Change mymap to your desired map. OnPCKillEvent: if ( strcharinfo(3) == "mymap" ) { // do something }
  10. You mean instead of getting item(s) as a reward. Make it cashpoints? If so, then change : getitem 674,10; to : set #CASHPOINTS, #CASHPOINTS + 5; // Add 5 cashpoints dispbottom "Your total cash points is " +#CASHPOINTS+ " cash points.";
  11. Change all skill_id to skillid and skill_lv to skilllv
  12. Try this one : - script Sample -1,{ setarray .Map$, "pvphero", "prontera", "payon"; set .@size, getarraysize(.Map$); OnPCKillEvent: for ( set .@i, 0; .@i < .@size; set .@i, .@i + 1 ) { if(strcharinfo(3) == .Map$[.@i]) { if(@Delay < gettimetick(2)) { set .@Amount,rand(1,2); set #CASHPOINTS,#CASHPOINTS + .@Amount; dispbottom "Gained "+.@Amount+" Cash Point. Total = "+#CASHPOINTS+" Cash Points."; set @Delay,gettimetick(2) + 180; } } } end; }
  13. You should always give specific information regarding your concern. A single line or two would not help you and either the people who wants to help you.
  14. Didn't test. Try : - script Sample -1,{ OnInit: setarray .Map$[0],"prtg_cas01","prtg_cas02"; set .size, getarraysize(.Map$); end; OnPCKillEvent: for ( set .@i, 0; .@i < .size; set .@i, .@i + 1 ) if ( !agitcheck() || !agitcheck2() || strcharinfo(3) != .Map$[.@i] ) end; set #CASHPOINTS, #CASHPOINTS + 1; dispbottom "You have gained 1 cash point. Total is " +#CASHPOINTS+ " cash points."; end; }
  15. - script Quest -1,{ mes "Hi " + strcharinfo(0) + ", Your here for the quest."; mes "This are the listed items i need"; mes "Make sure you have the real items or ill just delete them"; next; mes "1000 TCG Card"; mes "50 Ancient Lips"; mes "50 Animal Gore"; mes "50 Ant Jaw"; mes "50 Million Zeny"; next; mes "If you dont have all the items i will not give the item for the next quest"; next; mes "It seems you have all the items for the quest. I will erase them and give you the item for the next quest."; next; if ( countitem(7227)<1000 || countitem(1054)<50 || countitem(702)<50 || countitem(1014)<50 || Zeny <50000000 ) { mes "You don't have requirements"; close; } delitem 7227,1000; delitem 1054,50; delitem 702,50; delitem 1014,50; set zeny,zeny-50000000; getitem 6156,1; close; }
  16. Show error
  17. Change : if(countitem(7227)<1000 || countitem(1054)<50 || countitem(702)<50 || countitem(1014)<50 || Zeny <50000000) end; to : if(countitem(7227)<1000 || countitem(1054)<50 || countitem(702)<50 || countitem(1014)<50 || Zeny <50000000) { mes "You don't have the right items"; close; }
  18. Change if(countitem(7227)<1000 || countitem(1054)<50 || countitem(702)<50 || countitem(1014)<50 || Zeny <50000000) to : if(countitem(7227)<1000 || countitem(1054)<50 || countitem(702)<50 || countitem(1014)<50 || Zeny <50000000) end;
  19. Hmm : set .to_remove, 2305; // to be deleted set .to_give, 2302; // to be get Use an array if you want it that way.
  20. Try : - script Sample -1,{ OnPCLoginEvent: set .to_remove, 2305; set .to_give, 2302; if ( countitem( .to_remove ) > 1 ) end; getinventorylist; for ( set .@i, 0; .@i < @inventorylist_count; set .@i, .@i + 1 ) { if ( @inventorylist_id[.@i] == .to_remove ) { if ( getequipid(2) == .to_remove ) { if ( !getequipcardcnt(2) ) end; successremovecards 2; mes "Success"; } else { set .@card1, @inventorylist_card1[.@i]; set .@card2, @inventorylist_card2[.@i]; set .@card3, @inventorylist_card3[.@i]; set .@card4, @inventorylist_card4[.@i]; delitem @inventorylist_id[.@i], 1; getitem .to_give, 1; if ( .@card1 ) getitem .@card1, 1; if ( .@card2 ) getitem .@card2, 1; if ( .@card3 ) getitem .@card3, 1; if ( .@card4 ) getitem .@card4, 1; mes "Success!"; } } } end; }
  21. It's possible. but will re-script for that purpose. It can be done trough SQL however i think you need to relog your character before you see update that your item is deleted.
  22. This : -<TAB>script<TAB>Sample<TAB>-1,{ That is a different story
  23. Try : - script Sample -1,{ OnPCLoginEvent: set .@armor, 2305; if ( countitem(.@armor) > 1 ) end; getinventorylist; for ( set .@i, 0; .@i < @inventorylist_count; set .@i, .@i + 1 ) { if ( @inventorylist_id[.@i] == .@armor ) { if ( getequipid(2) == .@armor ) { if ( !getequipcardcnt(2) ) end; successremovecards 2; mes "Success"; } else { set .@cards, @inventorylist_card1[.@i]; if ( !.@cards ) end; delitem @inventorylist_id[.@i], 1; getitem 2302, 1; getitem .@cards, 1; mes "Success!"; } } } end; }
  24. Provide some screenshot? Are you receiving any error upon equipping? Did you set the proper view id for that specific wing?
×
×
  • Create New...