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
oid sha256:0aca97b9f69b65bf0606fc4538ac6809ed09454959373d5bc6f73031b21e5a6c
size 10291742
oid sha256:c53e0f4465b1807da125dc535eec6bbda202b0227aad7cac174bfc8f8849bfa3
size 10292159

View File

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