justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak drones

Browse Source
This commit is contained in:
justin
2021-11-22 10:44:56 +00:00
parent 213f573011
commit 8489f37f83
1 changed files with 5 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Weapon/Drone.hs
+5 -9
View File
@@ -1,7 +1,6 @@
module Dodge.Item.Weapon.Drone where module Dodge.Item.Weapon.Drone where
import Dodge.Data import Dodge.Data
import Dodge.Default.Weapon import Dodge.Default.Weapon
import Dodge.Default.Shell
import Dodge.SoundLogic.LoadSound import Dodge.SoundLogic.LoadSound
import Dodge.Item.Weapon.TriggerType import Dodge.Item.Weapon.TriggerType
import Geometry import Geometry
@@ -21,10 +20,10 @@ import Control.Lens
lasDrones :: Item lasDrones :: Item
lasDrones = defaultGun lasDrones = defaultGun
{ _itName = "ROCKO" { _itName = "DRONES"
, _itIdentity = Launcher , _itIdentity = Generic
, _wpMaxAmmo = 30 , _wpMaxAmmo = 2
, _wpLoadedAmmo = 30 , _wpLoadedAmmo = 2
, _wpReloadTime = 80 , _wpReloadTime = 80
, _wpReloadState = 0 , _wpReloadState = 0
, _itUseRate = 20 , _itUseRate = 20
@@ -68,14 +67,11 @@ aDroneWithItemParams it cr w = over props (IM.insert i theShell) w
pos = _crPos cr +.+ ((_crRad cr +1) *.* unitVectorAtAngle dir) pos = _crPos cr +.+ ((_crRad cr +1) *.* unitVectorAtAngle dir)
dir = _crDir cr dir = _crDir cr
--ammoMvs pj w' = foldr (\pjP -> _pjMoveParam pjP (_pjIntParam pjP) it cr pj) w' (_amPjParams am) --ammoMvs pj w' = foldr (\pjP -> _pjMoveParam pjP (_pjIntParam pjP) it cr pj) w' (_amPjParams am)
theShell = defaultShell theShell = Drone
{ _pjPos = pos { _pjPos = pos
, _pjStartPos = pos , _pjStartPos = pos
, _pjVel = rotateV dir (V2 1 0) , _pjVel = rotateV dir (V2 1 0)
, _pjAcc = rotateV dir (V2 3 0)
, _prDraw = _amPjDraw am , _prDraw = _amPjDraw am
, _pjID = i , _pjID = i
, _pjUpdate = \_ -> id , _pjUpdate = \_ -> id
, _pjPayload = _amPayload am
, _pjTimer = 50
} }