420 / joint script ( cmd, array, timer )

[The_Hatta]

Hi ,

Now this is a bit unusall for me , but i'd like to make a script request for a 420 script

in the end i want to pick it apart to see how it works, and continue to write some scripts for myself , but i need a starting ground ...

anyways heres what i would like it to do:

Code: Select all

.on *:TEXT:!four20:#:
if ( %counting ) notice $nick Countdown was used recently. Please wait | halt
 set -u10 %counting 1
msg $chan $nick wants to have a bowel, use .imin to join them...
 timer 1 60 msg $chan LIGHT IT UP!!
 timer 1 59 msg $chan 1
 timer 1 58 msg $chan 2
 timer 1 57 msg $chan 3
 timer 1 56 msg $chan 4
 timer 1 55 msg $chan 5
------------------------------------< (amount imin) *example  3 people are ready to smoke.... (then the 5,4,3,2,1)
timer 1 30 msg $chan 30 seconds are u packed?
 timer 1 45 msg $chan 15 seconds .. get ur lighter
 timer 1 1 msg $chan 1 MIN TILL 420!!

.on *:TEXT:.imin:#:
if ( %counting ) notice $nick Wants to join in on the fun 
$nick > %joinlist.var
 halt
else 
msg chan sorry $nick passing of the bowel hasen't started, yet use !420 to start it... 

hes also asked if someone .imins after the announcement of people, if it could say

Code: Select all

"

$nick tryed to join but was too late and got the dirty water instead

"

it's a script for a buddy of mine, and i want to learn about .tcl scriptng from it too, you might have noticed it;s in .mrc script but mIRC don;t have varabiles , why i chose eggdrop, Thanks - The_Hatta