Advertisement
Guest User

Untitled

a guest
Jul 14th, 2017
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.33 KB | None | 0 0
  1.  
  2.  
  3. prontera,138,180,4 script Farm Zone 567,{
  4. mes "You can farm various items inside.";
  5. mes "which included ^FF0000Cash Points + Items^000000";
  6.  
  7. set @no_item_loot,( select( "Item + Cash Points","Cash Points" ) - 1 );
  8. warp "new_1-3",105,67;
  9.  
  10. close;
  11.  
  12. OnInit:
  13. waitingroom "Farm Zone",0;
  14.  
  15. monster "new_1-3",0,0,"Farm",1561,800,strnpcinfo(0)+"::OnCashGain";
  16. monster "new_1-3",0,0,"Farm",1561,800,strnpcinfo(0)+"::OnNormalKilled";
  17. end;
  18.  
  19. OnCashGain:
  20. set #CASHPOINTS,#CASHPOINTS + 2;
  21. set @cash_poring,@cash_poring + 1;
  22. dispbottom "Accumulated Cash Point : "+callfunc( "ValueConvert",#CASHPOINTS )+" Points.";
  23. monster "new_1-3",0,0,"Farm",1561,1,strnpcinfo(0)+"::OnCashGain";
  24. end;
  25.  
  26. OnNormalKilled:
  27. if( @no_item_loot ){
  28. dispbottom "No Item Drop since you selected 'Only Cash' mode.";
  29. }else{
  30. getitem 7420,3;
  31. getitem 7539,3;
  32. getitem 12031,1;
  33. getitem 12030,1;
  34. getitem 7179,1;
  35.  
  36. }
  37. monster "new_1-3",0,0,"Farm",1561,1,strnpcinfo(0)+"::OnNormalKilled";
  38. end;
  39. }
  40.  
  41. new_1-3 mapflag noexp
  42. new_1-3 mapflag noskill
  43. new_1-3 mapflag nomemo
  44. new_1-3 mapflag nobranch
  45. new_1-3 mapflag nosave
  46.  
  47.  
  48.  
  49.  
  50. - script homun_block -1,{
  51. OnPCLoadMapEvent:
  52. if (strcharinfo(3)=="new_1-3" && gethominfo(0)) {
  53. dispbottom "Please remove your homunculus to enter the map";
  54. warp "SavePoint",0,0;
  55. }
  56. end;
  57. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement