Miscellany

;===Afk Script===
;---AFK; (the /write afklist.txt is supposed to write the actual file not any text afterwards - /back = removes file at end of line);;
Alias afk {
  /write afklist.txt | /set %afkreason $1- | set %afkset on | set %awaytime $ctime | set %afktimeleft $time | /scon -at1 /amsg 12[AWAY]7-12[Reason]7 %afkreason 12[Time Left]7 %afktimeleft (GMT) | /away $- 
}

;---Back;
Alias Back { 
  /scon -at1 /amsg 12[BACK]7-12[FROM]7 %afkreason 12[Time Away]7 $duration($calc($ctime - %awaytime)) | unset %afkreason | unset %awaytime | unset %afktimeleft | set %afkset off | remove afklist.txt /away 
}

;---One Time Highlight (msg in chan).
on *:text:Markus*:#:{
  if (%afkset == on) {
    if ($read(afklist.txt,w,$nick)) { halt
    }
    else {
      /write afklist.txt $nick
      /notice $nick One Time Notice, I'm am currently away. Reason: %afkreason $+ . I have been gone for: $duration($calc($ctime - %awaytime)) Sorry.
} } }

;---AFK QUERY
on *:TEXT:*:?:{
  if (%afkset == on) {
    if ($read(afklist.txt,w,$nick)) { halt
    }
    else {
      /write afklist.txt $nick
      /notice $nick One Time Message, I'm am currently away. Reason: %afkreason $+ . I have been gone for: $duration($calc($ctime - %awaytime)) Sorry.
} } }

;===END OF AFK SCRIPT===


;===Spanish Insult's===
;---Add Insult;
Alias asi {
  /write spanishinsults.txt $1 = $2-
}

;---Say Random Insult;
Alias si { 
  /msg $chan 12Random Insult in Spanish:7 $read(spanishinsults.txt,$rand(1,$lines(spanishinsults.txt))) 12Line:7 $readn $+ / $+ $lines(spanishinsults.txt) 
}
;===End of Spanish Insult's.===

;===COMPETITION SCRIPT===
;---Start Competition.
Alias startcomp { 
  /write Competition.txt | set %competition on | msg $chan 12A Competition has started!!!7 Type !addme to be entered for the prize.
}
;---End Competition.
Alias endcomp { 
  /set %competition off | msg $chan 12Competition has ended no more entries accepted!! 7There is $lines(competition.txt) Entrie(s)! | set %winner $read(competition.txt) 
}
;---Announce Winner
Alias winner {
  /msg $chan 12The winner is!!7 %winner You receive VOICE! | /me clap's and start's the drumroll
}
;---Voice Winner
Alias vwinner {
  mode $chan +v %winner 
}
;---Clear Competition
Alias clearcomp {
  /remove Competition.txt | unset %winner
}
;---Add User To Competition.
on *:text:!addme*:#:{
  if (%competition == on) {
    if ($read(competition.txt,w,$nick)) { halt | Notice $nick You already entered! | msg $chan $nick is trying to cheat!! Double entering, tut tut.
    } 
    Else {
      write competition.txt $nick 
      /notice $nick The nickname $nick has been entered!
} } }

===END OF COMPETITION SCRIPT===