Как из кОлоши можно стрелять???
А если серьезно, то у Horrora один и тот-же код для разных оружий, единственное отличие это задержка выстрела. Предлагаю добавить в тип оружия еще одно свойство delay_shoot.
type Weapon
...
field delay_shoot ' для каждого оружия своё
...
end type
.........
If MouseDown(1) and (MilliSecs() - lastbulletm) > Weapon[cur_weapon].delay_shoot
shooting ()
FlushMouse
lastbulletm = MilliSecs()
EndIf