try again to get ~zod to stop pinging itself

This commit is contained in:
Ted Blackman 2019-08-05 21:12:01 -07:00
parent 2c652647fa
commit e7f4859fd4
2 changed files with 5 additions and 4 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1 version https://git-lfs.github.com/spec/v1
oid sha256:0aca97b9f69b65bf0606fc4538ac6809ed09454959373d5bc6f73031b21e5a6c oid sha256:c53e0f4465b1807da125dc535eec6bbda202b0227aad7cac174bfc8f8849bfa3
size 10291742 size 10292159

View File

@ -1248,7 +1248,7 @@
?~ sponsor ?~ sponsor
~| %lost-sponsor^our^ship !! ~| %lost-sponsor^our^ship !!
:: ::
?: =(our ship) ?: &(=(our ship) !=(our u.sponsor))
=. sponsor.ames-state u.sponsor =. sponsor.ames-state u.sponsor
=. event-core set-sponsor-ping-timer =. event-core set-sponsor-ping-timer
ping-sponsor ping-sponsor
@ -1273,7 +1273,8 @@
=+ ^- [=ship =point] i.points =+ ^- [=ship =point] i.points
:: (re)start sponsor ping on new sponsor :: (re)start sponsor ping on new sponsor
:: ::
=? event-core &(=(our ship) ?=(^ sponsor.point)) =? event-core
&(=(our ship) ?=(^ sponsor.point) !=(our u.sponsor.point))
=. sponsor.ames-state u.sponsor.point =. sponsor.ames-state u.sponsor.point
=. event-core set-sponsor-ping-timer =. event-core set-sponsor-ping-timer
ping-sponsor ping-sponsor