Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

nenica spin

By: a guest on May 24th, 2012  |  syntax: None  |  size: 3.89 KB  |  hits: 35  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ###  This Script Not Belong To Me But I Do Some Changes.
  2. ###  Now The Spin The Bottle Have A Random Message.
  3. ###  Anyone Can Add Easily The Options Of The Random Message That Want.
  4. ###
  5. ###     Written By Sergios K. sergios_k@hotmail.com
  6. ###
  7. ###
  8. ###   Testing
  9. ###    Platforms : Linux 2.2.16   TCL v8.3
  10. ###                Eggdrop v1.6.0
  11. ###                Eggdrop v1.6.6
  12. ###         And : SunOS 5.8      TCL v8.3
  13. ###                Eggdrop v1.5.4
  14. ###
  15. ###  Description : IRC Game,the famous game Spin The Bottle (night at beatch,that was my job,lol)
  16. ###
  17. ###   Future Plans : Send in suggestions.
  18. ###
  19. ### Author Contact :     Email - sergios_k@hotmail.com
  20. ###                      Email - sergios@zeus.dynip.com
  21. ###                   Home Page - http://zeus.dynip.com/programs
  22. ###                     IRC - Nick: Sergios
  23. ###                   Support Channels: #Parea @GRNet (nini.irc.gr)
  24. ###                   #Help @ZeusNet (patra.dynip.com)
  25. ###
  26. ###
  27. ###                  History : 07/29/2001 - First Release
  28. ###
  29. ###    This Script Belong To moonwolf, just i do change into random message.
  30. ###    Flames/suggestions/invitations to dinner:
  31. ###    moonwolf on IRC                    moonwolf@wolflair.demon.co.uk
  32. ###    BOTNET: moonwolf@phelan            wolf@spodbox.ehche.ac.uk
  33. ###
  34. ###    Oh, BTW, right now the last_nick function doesn't work.  Anyone tell
  35. ###    me why please?   Also working on stopping more than one person
  36. ###    spinning it at a time.  Suggestions for that also appreciated.  k.
  37. ###
  38. ###    Modified a bit by dhbrown [chocolat@undernet]. I think "last_nick"
  39. ###    works now...
  40. ###    Adapted for 1.0 by Robey
  41. ###
  42.  
  43. ###    spin_bunny:   Coded by moonwolf with input from Sloot. Reworked by chocolat
  44. ###             to eliminate bot, self, last_nick kissing. Incorporates
  45. ###             previous "init_bunny" code.
  46.  
  47. ###
  48. ### Define last_nick to be $botnick if not yet defined...
  49. ###
  50. if {![info exists last_nick]} {set last_nick $botnick}
  51.  
  52. proc spin_bunny {nick uhost handle chan args} {
  53.   global botnick last_nick
  54.   global rep
  55. #
  56. #  Define last_nick = $botnick if last_nick now gone from channel
  57. #
  58.   if {![onchan $last_nick $chan]} {set last_nick $botnick}
  59.   set mylist [chanlist $chan]
  60. #
  61. # Remove the bot from the list (life's too short to kiss bots!)
  62. #
  63.   set wb [lsearch $mylist $botnick]
  64.   set mylist [lreplace $mylist $wb $wb]
  65. #
  66. # Remove the invoking nick from the list
  67. #
  68.   set wn [lsearch $mylist $nick]
  69.   set mylist [lreplace $mylist $wn $wn]
  70. #
  71. # If our first time thru, last_nick = $botnick, so we're done.
  72. # Else, remove last person kissed from the list too.
  73. #
  74.   if {$last_nick != $botnick} {
  75.     set wl [lsearch $mylist $last_nick]
  76.     set mylist [lreplace $mylist $wl $wl]
  77.   }
  78. #
  79. # Pick one of the remaining people at random. Make sure
  80. # we're not just playing with ourselves... :)
  81. #
  82.   set mylength [llength $mylist]
  83.   if {$mylength == 0} {
  84.   putserv "PRIVMSG $chan :Well, $nick, there's no one new to kiss! :("
  85.   return 0
  86.   }
  87.   set myindex [rand $mylength]
  88.   set result [lindex $mylist $myindex]
  89.   set rep {
  90.   "da imas sex sa"
  91.   "da se potpises na guzu "
  92.   "da se zvalavis sa"
  93.   "da izvacaris"
  94.   "da igras striptis za"
  95.   "da odes do Mini Maxia i kupis 3 gajbe piva za"
  96.   "da oralno zadoviljis"
  97. }
  98. #
  99. # Build the suspense up somewhat
  100. #
  101.   putserv "PRIVMSG $chan :$nick je zavrteo flasu ....."
  102.   putserv "PRIVMSG $chan :a ona igra vrti se kao cigraaaaaaa......."
  103.   putserv "PRIVMSG $chan :flasa se polako zaustalvja ..."
  104.   putserv "PRIVMSG $chan :\001ACTION zlobno se smeska\001"
  105.   putserv "PRIVMSG $chan :pokazuje na ..... $result!!!!"
  106.   putserv "PRIVMSG $chan :$nick moras [lindex $rep [rand [llength $rep]]] $result!!!"
  107. #
  108. # Now define last_nick for future spins...
  109. #
  110.   set last_nick $result
  111.   return 1
  112. }
  113. #
  114. # Bind the command public so anyone can do it. (on any channel)
  115. #
  116. bind pubm - "*!spin*" spin_bunny
  117. bind pubm - "*!spin*" spin_bunny
create a new version of this paste RAW Paste Data