Advertisement
Guest User

Untitled

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