yuhsing

Untitled

May 25th, 2013
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.07 KB | None | 0 0
  1.  
  2.  
  3.  
  4. prt_are_in,99,28,5 script Woe Reward#12 582,{
  5.  
  6. if( .guild_id ){
  7. mes "Select an item that rental last 7 days..";
  8. .@i = select( .menu$+"100 Cash Point" ) - 1;
  9. if( .@i < .item_list_size ){
  10. rentitem .item_list[.@i],( 7 * 86400 );
  11. }else{
  12. #CASHPOINTS += 100;
  13. }
  14. }
  15. warp "izlude",127,145;
  16. end;
  17.  
  18. OnInit:
  19. .mapname$ = "payg_cas03";
  20. // reward list
  21. setarray .item_list,5377,5132,5170,5353,5613,5451;
  22. .item_list_size = getarraysize( .item_list );
  23. for( .@i = 0; .@i < .item_list_size; .@i++ )
  24. .menu$ = .menu$ + getitemname( .item_list[.@i] ) +":";
  25. getmapxy( .npc_map$,.npc_x,.npc_y,1 );
  26. // mapflags
  27. setarray .mapflag,
  28. mf_nomemo,
  29. mf_noskill,
  30. mf_nogo,
  31. mf_noreturn,
  32. mf_nowarpto,
  33. mf_nocommand;
  34. .mapflag_size = getarraysize( .mapflag );
  35. for( .@i = 0; .@i < .mapflag_size; .@i++ )
  36. setmapflag .npc_map$,.mapflag[.@i];
  37. end;
  38.  
  39. OnAgitEnd:
  40. .guild_id = getcastledata( .mapname$,1 );
  41. if( .guild_id ){
  42. announce "WARPING "+getguildname( .guild_id ),0;
  43. warpguild .npc_map$,.npc_x,.npc_y,.guild_id;
  44. }
  45. announce "DONE WARPING "+getguildname( .guild_id ),0;
  46. end;
  47. }
Advertisement
Add Comment
Please, Sign In to add comment