def producer 51

cond
start
.tie *.robage 1 add mult inc
.deltie inc
stop

cond
*.robage 0 =
start
52 .memloc store
42 52 store
stop

cond
*.robage 0 =
*.numties 0 =
start
1 .producer store
stop

cond
*.eye5 0 =
*.refeye 0 > or
*.producer 1 =
*.numties 0 =
start
314 rnd .aimdx store
stop

cond
*.eye5 0 >
*.refeye 0 =
*.producer 1 =
*.numties 0 =
start
*.refveldx .dx store
*.refvelup 60 add .up store
stop

cond
*.eye5 40 >
*.refeye 0 =
*.producer 1 =
*.numties 0 =
start
55 .tie store
stop

cond
*.producer 1 =
*.multi 1 =
start
55 .tienum store
99 .sharenrg store
628 .fixang store
52 .tieloc store
42 .tieval store
40 .repro store
stop

cond
*.robage 5 >
*.producer 0 =
start
5 .dn store
stop