sub maldives undeads var len dim creeps val str len creeps len creeps

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
sub maldives.undeads()
var len = 5
dim creeps[val(str(len))]
creeps[0] = len
creeps[1] = '0x0032' ; skeleton mage, skeleton
creeps[2] = '0x001A' ; spectre
creeps[3] = '0x0003' ; zombie
creeps[4] = '0x0038' ; skeleton2
dim path[53]
path[0] = 53
path[1] = 5982
path[2] = 2984
path[3] = 5985
path[4] = 2984
path[5] = 5988
path[6] = 2983
path[7] = 5991
path[8] = 2980
path[9] = 5994
path[10] = 2978
path[11] = 5997
path[12] = 2976
path[13] = 6000
path[14] = 2976
path[15] = 6003
path[16] = 2977
path[17] = 6006
path[18] = 2980
path[19] = 6009
path[20] = 2983
path[21] = 6012
path[22] = 2986
path[23] = 6015
path[24] = 2989
path[25] = 6018
path[26] = 2988
path[27] = 6021
path[28] = 2985
path[29] = 6024
path[30] = 2982
path[31] = 6027
path[32] = 2982
path[33] = 6030
path[34] = 2980
path[35] = 6031
path[36] = 2974
path[37] = 6031
path[38] = 2971
path[39] = 6031
path[40] = 2968
path[41] = 6031
path[42] = 2965
path[43] = 6029
path[44] = 2962
path[45] = 6029
path[46] = 2959
path[47] = 6029
path[48] = 2956
path[49] = 6029
path[50] = 2953
path[51] = 6029
path[52] = 2950
var wlen = 3
dim war[val(str(wlen))]
war[0] = wlen
war[1] = 'bandage'
war[2] = 100
var dlen = 3
dim drop[val(str(dlen))]
drop[0] = dlen
drop[1] = '0x0EED' ;gp
drop[2] = '0x0E20' ;bb
start(creeps, path, war, drop, 0)
endsub