IceCream.txt 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. // $Id: IceCream.txt,v 1.1.1.1 2004/09/10 17:26:42 MagicalTux Exp $
  2. //===== eAthena Script =======================================
  3. //= Ice Cream Maker
  4. //===== By: ==================================================
  5. //= KOOK SWU
  6. //===== Current Version: =====================================
  7. //= 1.1
  8. //===== Compatible With: =====================================
  9. //= eAthena 1.0
  10. //===== Description: =========================================
  11. //= A man makes you ice-cream
  12. //===== Additional Comments: =================================
  13. //= 1.1 Optimized, changed overlapping coords in Alberta [Lupus]
  14. //============================================================
  15. //ALBERTA
  16. alberta.gat,120,45,2 script Ice Cream Maker::IceCreamer 85,{
  17. mes "[Ice Cream Maker]";
  18. mes "Fresh Ice Cream made with snow from Lutie!";
  19. mes "Enjoy it now, it won't be on sale for long!";
  20. mes "^0000FF100 Zeny^000000 Ice Cream,";
  21. mes "Ice Cream!";
  22. next;
  23. menu "Gimme Ice Cream!",-,"Cancel Trade",L_End;
  24. mes "[Ice Cream Maker]";
  25. mes "Fresh Ice Cream made with snow from Lutie!";
  26. mes "Everyone wants our delicious ice cream, but we have limited amount,";
  27. mes "so you can only purchase 5 at a time!!";
  28. next;
  29. input @input;
  30. if(@input<1) goto L_inpC;
  31. if(@input>5) goto L_inpM;
  32. if(Zeny< @input*100) goto L_NoZ;
  33. getitem 536,@input;
  34. set Zeny,Zeny-100*@input;
  35. mes "[Ice Cream Maker]";
  36. mes "Here you go " +@input+ " Ice Cream for you.";
  37. close;
  38. L_inpC:
  39. mes "[Ice Cream Maker]";
  40. mes "Deal is canceled.";
  41. close;
  42. L_inpM:
  43. mes "[Ice Cream Maker]";
  44. mes "Sorry, but you can only buy 5 at a time.";
  45. close;
  46. L_NoZ:
  47. mes "[Ice Cream Maker]";
  48. mes "Sorry, but you need more money.";
  49. close;
  50. L_End:
  51. mes "[Ice Cream Maker]";
  52. mes "Are you sure you don't want any?";
  53. mes "I won't be selling it for long, and once I run out, there won't be anymore!!!";
  54. close;
  55. }
  56. //MORROC FIELD
  57. moc_fild16.gat,88,304,4 duplicate(IceCreamer) Ice Cream Maker#2 85
  58. //MORROC
  59. morocc.gat,160,144,4 duplicate(IceCreamer) Ice Cream Maker#3 85