1. if @findalias 'buddy'
2.   @unsetalias 'buddy'
3. endif
4. if not listexists 'BodyTypes'
5.   createlist 'BodyTypes'
6.   //human
7.   pushlist 'BodyTypes' 0x190
8.   pushlist 'BodyTypes' 0x191
9.   //wraith
10.   pushlist 'BodyTypes' 0x2ec
11.   pushlist 'BodyTypes' 0x2eb
12.   //elf
13.   pushlist 'BodyTypes' 0x25d
14.   pushlist 'BodyTypes' 0x25e
15.   //wolfform
16.   pushlist 'BodyTypes' 0x19
17.   //savage
18.   //pushlist 'BodyTypes' 0xb9
19.   //lich
20.   pushlist 'BodyTypes' 0x2ed
21.   //vamp
22.   // pushlist 'BodyTypes' 0x2e9
23.   // pushlist 'BodyTypes' 0x2e8
24. endif
25. if not listexists 'ghosts'
26.   createlist 'ghosts'
27.   pushlist 'ghosts' 0x192
28.   pushlist 'ghosts' 0x193
29.   pushlist 'ghosts' 0x260
30.   pushlist 'ghosts' 0x25f
31. endif
32. //paralyzed friends
33. clearignorelist
34. ignoreobject 'self'
35. for 0 to 'BodyTypes'
36.   while @findtype BodyTypes[] 'any' ground 0 10
37.     if @infriendlist 'found' and paralyzed 'found'
38.       cast 'clumsy' 'found'
39.       while waitingfortarget 'harmful'
40.       endwhile
41.       warmode 'off'
42.       warmode 'on'
43.       warmode 'off'
44.     endif
45.     ignoreobject 'found'
46.   endwhile
47. endfor
48. //allinone friends
49. clearignorelist
50. ignoreobject 'self'
51. for 0 to 'BodyTypes'
52.   while @findtype BodyTypes[] 'any' ground 0 10
53.     if not @findalias 'buddy' and @infriendlist 'found'
54.       if murderer 'found' and @inregion 'guards' 'found' 10
55.         headmsg 'Murderer in guards!' 33 'found'
56.       elseif criminal 'found' and @inregion 'guards' 'found' 10
57.         headmsg 'Criminal in guards!' 1000 'found'
58.       else
59.         @setalias 'buddy' 'found'
60.       endif
61.     endif
62.     if @infriendlist 'found' and hits 'found' < hits 'buddy'
63.       if not yellowhits 'found'
64.         if murderer 'found' and @inregion 'guards' 'found' 10
65.           headmsg 'Murderer in guards!' 33 'found'
66.         elseif criminal 'found' and @inregion 'guards' 'found' 10
67.           headmsg 'Criminal in guards!' 1000 'found'
68.         else
69.           @setalias 'buddy' 'found'
70.           headmsg 'Low!' 54 'found'
71.         endif
72.       else
73.         @setalias 'buddy''found'
74.         headmsg 'Mortaled!' 54 'found'
75.       endif
76.     endif
77.     ignoreobject 'found'
78.   endwhile
79. endfor
80. if targetexists 'beneficial' or targetexists 'neutral'
81.   target! 'buddy'
82.   pause 200
83. elseif targetexists 'harmful'
84.   @canceltarget
85. endif
86. if yellowhits 'buddy' and @inrange 'buddy' 10
87.   cast 'remove curse' 'buddy'
88. elseif poisoned 'buddy' and @inrange 'buddy' 10
89.   cast 'cleanse by fire' 'buddy'
90. elseif hits 'buddy' < 95 and @inrange 'buddy' 10
91.   //se non funziona setta il precedente controllo -if-
92.   //elseif hits 'buddy' < maxhits 'buddy' and @inrange 'buddy' 10
93.   //se funziona prova il seguente controllo -if-
94.   //elseif not maxhits 'buddy' and @inrange 'buddy' 10
95.   cast 'heal' 'buddy'
96. endif
97.