home *** CD-ROM | disk | FTP | other *** search
/ InterCD 1999 June / june_1999.iso / Chat / TurboIRC / data1.cab / TurboIRC_Scripts / AHANGMANGAME.txt < prev    next >
Encoding:
Text File  |  1999-05-04  |  887 b   |  32 lines
  1. string _Word = AskInput("Hang - Man TurboIRC Game","Enter the hidden word :","")
  2. if (_Word == "")
  3.  return
  4. endif
  5.  
  6. if (FindStringPos(_Word," ") != -1)
  7.  /message No spaces please !
  8.  return
  9. endif
  10.  
  11.  
  12.  
  13. staticstring GuessWord = strupr(_Word)
  14. staticint HangTries = 0
  15.  
  16. int L = strlen(GuessWord)
  17. string S = sprintf("%i",L)
  18. DeleteFile(".\\HGWORD.INI")
  19. SetString("Word","Size",S,".\\HGWORD.INI")
  20.  
  21.  
  22.  
  23. /display $channel ***WELCOME To TurboIRC Hang-Man Game !!***
  24. /display $channel ***you have 10 tries to guess the hidden word!!***
  25. /display $channel ***enter !letter and a letter to try to complete the word !!***
  26. /display $channel ***Example : !letter B***
  27. /display $channel ***enter !word and a word to try to guess the word !!***
  28. /display $channel ***Example : !word funny***
  29. /display $channel ***Total Letters in word : %L%***
  30. /_event HANGMANGAME 5 0 0 *
  31.  
  32.