Advertisement
Guest User

Untitled

a guest
Jan 17th, 2019
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. (defconst password "password")
  2. (defconst gl-password-phase 43)
  3. (defrule
  4. (taunt-detected any-human 255)
  5. (up-compare-goal gl-password-phase < 1)
  6. =>
  7. (set-goal gl-password-phase 1)
  8. (chat-to-player this-any-human "Please enter the password.")
  9. )
  10. (defrule
  11. (taunt-detected any-human 255)
  12. (goal gl-password-phase 1)
  13. =>
  14. (up-store-player-chat this-any-human)
  15. )
  16. (defrule
  17. (taunt-detected any-human 255)
  18. (goal gl-password-phase 1)
  19. (up-compare-text c: password >= 0)
  20. =>
  21. (chat-to-player my-player-number "Password confirmed.")
  22. (set-goal gl-password-phase -1)
  23. (acknowledge-taunt this-any-human 255)
  24. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement