Facebook
From Crimson Pheasant, 7 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 263
  1. if not listexists 'Zwierzeta'
  2.   createlist 'Zwierzeta'
  3.   pushlist 'Zwierzeta' 0x65 //Cow
  4.   pushlist 'Zwierzeta' 0xe7 //Cow2
  5. endif
  6. if not @inrange 'Zwierze' 15
  7.   @unsetalias 'Zwierze'
  8.   for 0 in 'Zwierzeta'
  9.     if @findtype Zwierzeta[] 'any' 'ground' 1 15
  10.       @setalias 'Zwierze' 'found'
  11.       break
  12.     endif
  13.   endfor
  14. endif
  15. if not @inrange 'Zwierze' 15
  16.   pause 4000
  17. endif
  18. if @findobject 'Zwierze' 'any' 'ground' 1 15
  19.   attack 'Zwierze'
  20.   if not @inrange 'Zwierze' 1
  21.     if @x 'Zwierze' > x 'self' and @y 'Zwierze' > y 'self'
  22.       walk 'Southeast'
  23.     elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' > y 'self'
  24.       walk 'Southwest'
  25.     elseif @x 'Zwierze' > x 'self' and @y 'Zwierze' < y 'self'
  26.       walk 'Northeast'
  27.     elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' < y 'self'
  28.       walk 'Northwest'
  29.     elseif @x 'Zwierze' > x 'self' and @y 'Zwierze' == y 'self'
  30.       walk 'East'
  31.     elseif @x 'Zwierze' < x 'self' and @y 'Zwierze' == y 'self'
  32.       walk 'West'
  33.     elseif @x 'Zwierze' == x 'self' and @y 'Zwierze' > y 'self'
  34.       walk 'South'
  35.     elseif @x 'Zwierze' == x 'self' and @y 'Zwierze' < y 'self'
  36.       walk 'North'
  37.     endif
  38.   endif
  39. endif
  40. if @findtype 0x2006 any ground 1 2
  41.   if targetexists
  42.     canceltarget
  43.   endif
  44.   useobject 0x40458567
  45.   waitfortarget 2000
  46.   target! 'found'
  47.   ignoreobject 'found'
  48. endif
  49. if @counttype 0xf3f any backpack >= 330
  50.   if targetexists
  51.     canceltarget
  52.   endif
  53.   useobject 0x4022ffef
  54.   waitfortarget 2000
  55.   targettype 0x1081 any 1
  56. endif
  57.