home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / glitch.exe / INI / ident.ini < prev    next >
Encoding:
INI File  |  1997-06-21  |  2.5 KB  |  62 lines
  1. [aliases]
  2. n0=/bwards {
  3. n1=  if ($len(*1) == 1) { return *1 }
  4. n2=  set %z 1
  5. n3=  :start
  6. n4=  set %bwards.length $len(%bwards.text)
  7. n5=  set %bwards.text *1
  8. n6=  set %bwards.product $mid(%z,1,%bwards.text) $+ %bwards.product
  9. n7=  if (%z == %bwards.length) { return %bwards.product }
  10. n8=  inc %z
  11. n9=  goto start
  12. n10=}
  13. n11=/caps.checker {
  14. n12=  set %caps.checker.text $remove(*1,$chr(544) )
  15. n13=  set %caps.checker $len(%caps.checker.text)
  16. n14=  set %caps.checker.var 1
  17. n15=  :start
  18. n16=  set %caps.checker.letter $asc($mid(%caps.checker.var,1,%caps.checker.text) )
  19. n17=  if (%caps.checker.letter >= 65) && (%caps.checker.letter <= 90) { inc %caps.total }
  20. n18=  if (%caps.total == %total.caps) { unset %caps* | return true | halt }
  21. n19=  if (%caps.checker == %caps.checker.var) { unset %caps* | return false | halt }
  22. n20=  else { inc %caps.checker.var | goto start }
  23. n21=}
  24. n22=/short.hand {
  25. n23=  if ($active == Status Window) { halt }
  26. n24=  set %sh.length $len($remove($$1,:))
  27. n25=  set %sh.var 1
  28. n26=  set %sh.total $nick(0,#)
  29. n27=  :start
  30. n28=  if ($left($$1,%sh.length) == $left($nick(%sh.var,#),%sh.length)) { return $nick(%sh.var,#) }
  31. n29=  if (%sh.var == %sh.total) { return !not_found }
  32. n30=  else { inc %sh.var
  33. n31=  goto start }
  34. n32=}
  35. n33=/realtime {
  36. n34=  set %realtime $remove($timestamp,[)
  37. n35=  set %realtime $remove(%realtime,])
  38. n36=  if ($token(1,58,%realtime) == 12) {
  39. n37=    set %realtime.hour $token(1,58,%realtime) 
  40. n38=    set %realtime.minute $token(2,58,%realtime)
  41. n39=    %realtime.real = %realtime.hour $+ : $+ %realtime.minute $+ pm
  42. n40=  return %realtime.real | unset %realtime* | halt }
  43. n41=  elseif ($token(1,58,%realtime) > 12) {
  44. n42=    set %realtime.hour $token(1,58,%realtime) 
  45. n43=    dec %realtime.hour 12
  46. n44=    set %realtime.minute $token(2,58,%realtime)
  47. n45=    %realtime.real = %realtime.hour $+ : $+ %realtime.minute $+ pm
  48. n46=  return %realtime.real | unset %realtime* | halt }
  49. n47=  if ($token(1,58,%realtime) < 12) {
  50. n48=    if ($token(1,58,%realtime) > 0) {
  51. n49=      set %realtime.hour $token(1,58,%realtime)
  52. n50=      set %realtime.minute $token(2,58,%realtime)
  53. n51=      %realtime.real = %realtime.hour $+ : $+ %realtime.minute $+ am
  54. n52=    return %realtime.real | unset %realtime* | halt }
  55. n53=    if ($token(1,58,%realtime) == 0) {
  56. n54=      set %realtime.hour 12
  57. n55=      set %realtime.minute $token(2,58,%realtime)
  58. n56=      %realtime.real = %realtime.hour $+ : $+ %realtime.minute $+ am
  59. n57=    return %realtime.real | unset %realtime* | halt }
  60. n58=  }
  61. n59=}
  62.