on *:Connect:{ 
  if ($readini(Did.ini,Pass,3) != $null) { 
    /ns id $readini(Did.ini,Pass,1) 
  } 
  if ($readini(Openonconnect.ini,Dmode,OK) == On) { 
    /dmode 
  } 
} 
on *:LOAD:{ 
  echo -a Installed Spidas DMODE Dialog Version 0.1 
  echo -a Type /Dmode or right click and Click on the Box saying Dmode To access the dialog 
  echo -a Have fun using My Dialog, Home channel #SPBH 
} 
Alias DMode { 
  dialog -mdh dMode dMode 
} 
Alias DMode2 { 
  dialog -mdh dMode2 dMode2 
} 
Menu * { 
  - 
  DMode Dialog [MADE BY SPIDA]:dmode 
  - 
} 
dialog Dmode { 
  title "Dmode Dialog Made by Spida" 
  size -1 -1 200 200 
  option dbu 
  tab "Channel Modes", 2, 5 5 190 190 
  tab "Global Message", 47 
  tab "Home/Calc/Cmb", 102 
  tab "Message Window", 1 
  tab "Other", 70 
  menu "&Settings", 230 
  menu "&Message Window Settings", 225, 230 
  item "", 226 
  button "Get Channel nick list", 98, 100 85 92.5 10, Center, tab 2 
  Text "< Channel Nick List ( Doubble Click on the nick list )", 99, 110 100 80 20, Center, tab 2 
  list 48, 10 30 180 40, vsbar, hsbar, tab 47 
  list 97, 10 100 100 97, vsbar, hsbar, tab 2 
  text "Global Chanels Not sendin AMSG to -", 58, 10 60 170 10, center, read, tab 47 
  list 52, 10 70 180 40, vsbar, hsbar, tab 47 
  text "Global Message Window -", 49, 10 20 170 10, center, read, tab 47 
  text "Global Message -", 40, 10 150 170 10, center, autohs, read, tab 47 
  edit "", 51, 10 160 170 10, center, autohs, tab 47 
  button "Send AMSG", 50, 10 100 170 10, center, tab 47 
  text "Put infront of amsg eg [AMSG] -", 67, 10 130 170 10, center, read, tab 47 
  edit "", 68, 10 140 170 10, center, tab 47 
  button "Unexcept channel", 56, 10 110 170 10, center, tab 47 
  button "Delete all Stored channels", 61, 10 120 170 10, center, tab 47 
  text "Not to send Global to -", 54, 10 170 170 10, center, read, tab 47 
  edit "", 55, 10 180 170 10, center, tab 47 
  text "Message Window -", 91, 10 20 170 10, center, read, tab 1 
  list 6, 10 30 180 110, vsbar, hsbar, tab 1 
  text "Message -", 59, 10 140 170 10, center, autohs, read, tab 1 
  edit "", 7, 10 150 170 10, center, autohs, tab 1 
  text "Nick/Channel -", 41, 10 160 170 10, center, read, tab 1 
  edit "", 8, 10 170 170 10, center, tab 1 
  button "Send Message", 9, 10 180 170 10, center, tab 1 
  text "#Channel -", 42, 110 120 50 10, center, seltext, autohs, read, tab 2 
  edit "", 10, 125 130 50 10, center, seltext, autohs, tab 2 
  text "Name of person/address/Your nick -", 43, 120 150 60 20, center, autohs, read, tab 2 
  edit "", 11, 125 170 50 10, center, autohs, tab 2 
  button "Mode Secret", 12, 100 25 46.25 10, center, tab 2 
  button "Mode UnSecret", 13, 145 25 46.25 10, center, tab 2 
  button "Ban", 14, 55 45 46.25 10, center, tab 2 
  button "UnBan", 15, 100 45 46.25 10, center, tab 2 
  button "Mode +m", 16, 10 25 46.25 10, center, tab 2 
  button "Mode -m", 17, 55 25 46.25 10, center, tab 2 
  button "Change My nick", 18, 10 330 370 10, center, tab 2 
  button "Join #channel", 19, 55 85 46.25 10, center, tab 2 
  button "Kick ban", 20, 10 45 46.25 10, center, tab 2 
  button "Exceptions +e", 21, 10 35 46.25 10, center, tab 2 
  button "Unexceptions -e", 22, 55 35 46.25 10, center, tab 2 
  button "Part #channel", 23, 10 85 46.25 10, center, tab 2 
  button "Kick", 24, 145 45 46.25 10, center, tab 2 
  button "Deop", 25, 55 65 46.25 10, center, tab 2 
  button "Op", 26, 100 55 46.25 10, center, tab 2 
  button "DeHalfop", 27, 10 65 46.25 10,center, tab 2 
  button "Halfop", 28, 55 55 46.25 10, center, tab 2 
  button "Voice", 29, 10 55 46.25 10, center, tab 2 
  button "Devoice", 30, 145 55 46.25 10, center, tab 2 
  button "Remove Access", 31, 100 65 46.25 10, center, tab 2 
  button "Auto Voice", 32, 145 65 46.25 10, center, tab 2 
  button "Auto Halfop", 35, 10 75 46.25 10, center, tab 2 
  button "Auto Op", 37, 55 75 46.25 10, center, tab 2 
  button "Auto other >", 147, 100 75 46.25 10, center, tab 2 
  edit "", 146, 145 75 46.25 10, center, tab 2 
  button "No Colours +c", 44, 145 35 46.25 10, center, tab 2 
  button "Colours -c", 45, 100 35 46.25 10, center, tab 2 
  Text "Creater of Dmode Dialog Spida, Dmode Dialog Version 0.2", 71, 10 20 175 20, center, read, Tab 102 
  Button "Get Asc", 75, 10 20 60 10, center, Tab 70 
  Button "Clear Asc/Chr", 94, 70 20 60 10, center, Tab 70 
  Button "Get Chr", 89, 130 20 60 10, center, Tab 70 
  edit "Input a Asc number here e.g. 91", 87, 10 30 90 10, center, autohs, Tab 70 
  edit "Input a character here e.g. #", 88, 100 30 90 10, center, autohs, Tab 70 
  Text "Avaliable Servers And Ip -", 80, 10 40 170 10, center, read, tab 70 
  Text "Whois Type Name Under -", 82, 10 100 170 10, center, read, tab 70 
  edit "", 84, 10 110 180 10, center, autohs, tab 70 
  Button "Whois Person", 85, 10 120 180 10, center, Tab 70 
  check "Open Dmode on Connect", 76, 10 60 70 10, tab 102 
  check "Id on Connect if Id is set on", 103, 100 60 80 10, tab 102 
  Button "Open Id on Connect", 92, 10 70 90 10, center, Tab 102 
  list 79, 10 30 180 40, vsbar, hsbar, Tab 102 
  list 81, 10 50 180 50, vsbar, hsbar, Tab 70 
  list 83, 10 130 180 70, vsbar, hsbar, Tab 70 
  text "Combat Search", 106, 70 140 120 20, center, tab 102 
  text "", 162, 70 160 100 20, center, tab 102 
  edit "" , 105, 30 100 20 10, tab 102 
  edit "" , 114, 70 100 20 10, tab 102 
  edit "" , 115, 110 100 20 10, tab 102 
  edit "" , 116, 150 100 20 10, tab 102 
  edit "" , 117, 30 120 20 10, tab 102 
  edit "" , 118, 70 120 20 10, tab 102 
  edit "" , 119, 110 120 20 10, tab 102 
  edit "" , 120, 150 120 20 10, tab 102 
  box "Overall", 138, 25 92 30 20, tab 102 
  box "Attack", 139, 65 92 30 20, tab 102 
  box "Defence", 140, 105 92 30 20, tab 102 
  box "Strength", 141, 145 92 30 20, tab 102 
  box "Health Points", 142, 25 112 30 20, tab 102 
  box "Ranged", 143, 65 112 30 20, tab 102 
  box "Prayer", 144, 105 112 30 20, tab 102 
  box "Magic", 145, 145 112 30 20, tab 102 
  box "Combat Search",121, 10 90 180 100, tab 102 
  button "Get Stats", 108, 15 140 50 10, center, tab 102 
  button "Stop Search", 109, 15 160 50 10, center, tab 102 
  button "Open Calc", 110, 60 80 85 10, center, tab 102 
  button "Open Virus Dialog", 123, 100 70 90 10, center, tab 102 
  edit "Name", 107, 15 150 50 10, center, tab 102 
  button "CANCEL                                                CANCEL", 46, 10 300 370 30, cancel, center, tab 2 
} 
ON *:DIALOG:DMODE:Sclick:123:{ 
  dialog -x $dname 
  dialog -md Ptdvirus Ptdvirus 
} 
ON *:DIALOG:DMODE:sclick:110:{ 
  dialog -md Calc Calc 
} 
dialog Calc { 
  Title "Calc" 
  size -1 -1 200 60 
  option dbu 
  Button "Get Calc", 1, 10 20 180 10 
  text "Calculator", 2, 10 10 180 10, center 
  edit "", 3, 10 30 180 10, center 
  button "Clear Calc", 4, 10 40 180 10, center 
} 
on *:DIALOG:CALC:SCLICK:1:{ 
  if ($did($dname,3) == $null) { halt } 
  else { 
    var %x = $did($dname,3) 
    var %p = $calc( $did($dname,3) ) 
    did -r $dname 3 
    did -a $dname 3 %x == %p 
  } 
} 
on *:DIALOG:CALC:SCLICK:4:{ 
  did -r $dname 3 
} 
ON *:DIALOG:DMODE:sclick:9:{ 
  if ($readini(Did.ini,Message_Window,1) == ON) { did -az $dname 6 Message Window has been Disabled | halt } 
  Tokenize 32 $did($dname,8) 
  if ($did($dname,8) == $null || $did($dname,7) == $null) { did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) Put Either a Nick to message or a message in the Spaces provided | halt } 
  if ($chr(47) isin $1) && ($1 != /me) { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) $me : $1- - $did($dname,7) 
    $1- $did($dname,7) 
    halt 
  } 
  if ($chr(47) $+ me isin $did($dname,8) && $2 != $null) { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) [ACTION] $me TO $2 
    describe $2 $did($dname,7) 
  } 
  else { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) [TEXT] $me TO $1 - $did($dname,7) 
    msg $1 $did($dname,7) 
    close -m $1 
  } 
} 
on *:TEXT:*:?:{ 
  if ($readini(Did.ini,Message_Window,1) == ON) { halt } 
  if ($dialog(DMODE)) { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss)   $chr(93) [TEXT] $nick TO $me - $1- 
    close -m $nick 
  } 
} 
on *:Notice:*:?:{ 
  if ($readini(Did.ini,Message_Window,1) == ON) { halt } 
  if ($dialog(DMODE)) { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) [NOTICE] $nick TO $me - $1- 
  } 
} 
on *ACTION:*:?:{ 
  if ($readini(Did.ini,Message_Window,1) == ON) { halt } 
  if ($dialog(DMODE)) { 
    did -az DMODE 6 $chr(91) $asctime(hh:nn:ss) $chr(93) [ACTION] $nick TO $me - $1- 
  } 
} 

ON *:DIALOG:DMODE:dclick:6:{ 
  if ($readini(Did.ini,Message_Window,1) == ON) { did -az $dname 6 Message Window has been Disabled | halt } 
  echo -a $did(6).seltext 
} 
on *:DIALOG:Dmode:sclick:12:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) +s 
  } 
} 
on *:DIALOG:DMODE:sclick:13:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) -s 
  } 
} 
on *:DIALOG:DMODE:sclick:14:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) +b $did($dname,11) 
  } 
} 
on *:DIALOG:DMODE:sclick:15:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) -b $did($dname,11) 
  } 
} 
on *:DIALOG:DMODE:sclick:16:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) +m 
  } 
} 
on *:DIALOG:DMODE:sclick:17:{ 
  if ($me ison $did($dname,10)) { 
    mode $did($dname,10) -m 
  } 
} 
on *:DIALOG:DMODE:sclick:18:{ 
  if ($me != $did($dname,11)) { 
    /nick $did($dname,11) 
  } 
  else { 
    echo -a My nick is alredy $did($dname,11) Silly 
  } 
} 
on *:DIALOG:DMODE:sclick:19:{ 
  if ($chr(35) isin $did($dname,10)) { 
    if ($me ison $did($dname,10)) { echo -a I am already on $did($dname,10) | halt } 
    /join $did($dname,10) 
    halt 
  } 
  if ($chr(35) !isin $did($dname,10)) { 
    if ($me ison $chr(35) $+ $did($dname,10)) { echo -a I am already on $chr(35) $+ $did($dname,10) | halt } 
    /join $chr(35) $+ $did($dname,10) 
  } 
} 
on *:DIALOG:DMODE:sclick:20:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) !ison $did($dname,10)) { echo -a $+ $did($dname,11) was not on $did($dname,10) 
      halt 
    } 
    else { 
      mode $did($dname,10) +b $did($dname,11) | kick $did($dname,10) $did($dname,11) Banned 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:21:{ 
  if ($me ison $did($dname,10)) { 
    /mode $did($dname,10) +e $did($dname,11) 
  } 
} 
on *:DIALOG:DMODE:sclick:22:{ 
  if ($me ison $did($dname,10)) { 
    /mode $did($dname,10) -e $did($dname,11) 
  } 
} 
on *:DIALOG:DMODE:sclick:23:{ 
  if ($me ison $did($dname,10)) || ($me ison $chr(35) $+ $did($dname,10)) { 
    if ($chr(35) isin $did($dname,10)) { 
      /part $did($dname,10) 
      halt 
    } 
    if ($chr(35) !isin $did($dname,10)) { 
      /part $chr(35) $+ $did($dname,10) 
    } 
  } 
  else { 
    echo -a I was not on $did($dname,10) 
  } 
} 
on *:Dialog:Dmode:sclick:98:{ 
  if ($me ison $did($dname,10) || $me ison $chr(35) $+ $did($dname,10)) { 
    Did -r Dmode 97 
    Did -az $dname 97 $did($dname,10) Nicks - Double click on a nick to get the Nick in the Box 
    Did -az $dname 97 
    if ($chr(35) isin $did($dname,10)) { 
      Did -a $dname 97 $did($dname,10) There are $nick($did($dname,10),0) People on $did($dname,10) 
    } 
    if ($chr(35) !isin $did($dname,10)) { 
      Did -a $dname 6 $chr(35) $+ $did($dname,10) There are $nick($chr(35) $+ $did($dname,10),0) People on $chr(35) $+ $did($dname,10) 
    } 
    Did -a $dname 97 
    if ($chr(35) isin $did($dname,10)) {    
      var %q = 1 
      while (%q <= $nick($did($dname,10),0)) { 
        did -az Dmode 97 $nick($did($dname,10),%q) 
        inc %q 
      } 
    } 
    if ($chr(35) !isin $did($dname,10)) { 
      var %q = 1 
      while (%q <= $nick($chr(35) $+ $did($dname,10),0)) { 
        did -az Dmode 97 $nick($chr(35) $+ $did($dname,10),%q) 
        inc %q 
      } 
    } 
  } 
} 
on *:Dialog:Dmode:Dclick:97:{ 
  if ($chr(35) !isin $left($did($dname,97).seltext,1)) { 
    Did -r $dname 11 
    Did -a $dname 11 $did($dname,97).seltext 
  } 
} 
on *:DIALOG:DMODE:sclick:24:{ 
  if ($did($dname,11) !ison $did($dname,10)) { echo -a $+ $did($dname,11) was not on $did($dname,10) 
    halt 
  } 
  else { 
    inc %kicks62 
    kick $did($dname,10) $did($dname,11) People Crushed - %kicks62 
  } 
} 
on *:DIALOG:DMODE:sclick:25:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) -o $did($dname,11) 
      halt 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:26:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) +o $did($dname,11) 
      halt 
    } 
  } 
} 

on *:DIALOG:DMODE:sclick:27:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) -h $did($dname,11) 
      halt 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:28:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) +h $did($dname,11) 
      halt 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:30:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) -v $did($dname,11) 
      halt 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:29:{ 
  if ($me ison $did($dname,10)) { 
    if ($did($dname,11) ison $did($dname,10)) { 
      mode $did($dname,10) +v $did($dname,11) 
      halt 
    } 
  } 
} 
on *:DIALOG:DMODE:sclick:32:{ 
  if ($me ison $did($dname,10)) { 
    /cs access $did($dname,10) add $did($dname,11) 3 
  } 
} 
on *:DIALOG:DMODE:sclick:31:{ 
  if ($me ison $did($dname,10)) { 
    /cs access $did($dname,10) del $did($dname,11) 
  } 
} 
on *:DIALOG:DMODE:sclick:35:{ 
  if ($me ison $did($dname,10)) { 
    /cs access $did($dname,10) add $did($dname,11) 4 
  } 
} 
on *:DIALOG:DMODE:sclick:37:{ 
  if ($me ison $did($dname,10)) { 
    /cs access $did($dname,10) add $did($dname,11) 5 
  } 
} 
on *:DIALOG:DMODE:sclick:44:{ 
  if ($me ison $did($dname,10)) { 
    /mode $did($dname,10) +c 
  } 
} 
on *:DIALOG:DMODE:sclick:45:{ 
  if ($me ison $did($dname,10)) { 
    /mode $did($dname,10) -c 
  } 
} 
on *:Dialog:DMODE:sclick:50:{ 
  if ($did($dname,51) == $null) { did -a DMODE 48 $chr(91) $asctime(hh:nn:ss) $chr(93) No Text to send | halt } 
  else { 
    var %o = 0 
    :next 
    while (%o <= $chan(0)) { 
      inc %o 
      if (%globalblacklist [ $+ [ $chan(%o) ] ] == $chan(%o)) { goto next } 
      if ($did($dname,68) == $null) { msg $chan(%o) [AMSG] $did($dname,68) $did($dname,51) 
        did -a DMODE 48 $chr(91) $asctime(hh:nn:ss)   $chr(93) Message sent to $chan(%o) 
      } 
      if ($did($dname,68) != $null) { msg $chan(%o) $did($dname,68) $did($dname,51) 
        did -a DMODE 48 $chr(91) $asctime(hh:nn:ss)   $chr(93) Message sent to $chan(%o) 
      } 
    } 
  } 
} 
on *:Dialog:DMODE:sclick:56:{ 
  tokenize 32 $did($dname,55) 
  if ($1 == $null) { did -a DMODE 48 $chr(91) $asctime(hh:nn:ss)   $chr(93) ERROR - No Channel to Unexcept | halt } 
  if ($chr(35) == $left($1,1) && $left($1,2) != $null) { 
    did -r DMODE 52 
    writeini Globalblacklist.ini Globa GB $calc( $readini(Globalblacklist.ini,Globa,GB) +1 ) 
    writeini Globalblacklist.ini Global $readini(Globalblacklist.ini,Globa,GB) $1 
    set %globalblacklist $+ $1 $1 
    did -az Dmode 52 These are the Global Blacklisted channels. 
    var %n = 0 
    while (%n <= $ini(Globalblacklist.ini,Global,0)) { 
      inc %n 
      did -az DMODE 52 $readini(Globalblacklist.ini,Global,%n) 
    } 
  } 
  if ($chr(35) != $left($1,1) && $left($1,2) != $null) { 
    did -r DMODE 52 
    writeini Globalblacklist.ini Globa GB $calc( $readini(Globalblacklist.ini,Globa,GB) +1 ) 
    writeini Globalblacklist.ini Global $readini(Globalblacklist.ini,Globa,GB) $chr(35) $+ $1 
    set %globalblacklist $+ $chr(35) $+ $1 $chr(35) $+ $1 
    did -az Dmode 52 These are the Global Blacklisted channels. 
    var %n = 0 
    while (%n <= $ini(Globalblacklist.ini,Global,0)) { 
      inc %n 
      did -az DMODE 52 $readini(Globalblacklist.ini,Global,%n) 
    } 
  } 
} 
on *:Dialog:DMODE:sclick:61:{ 
  if (%globalgg == $null) { did -a DMODE 48 $chr(91) $asctime(hh:nn) $chr(93) [WARNING] ARE YOU SURE YOU WANT TO DELETE ALL THE CHANNELS STORED, CLICK THE BUTTON AGAIN IF YOU WANT TOO 
    set -u10 %globalgg on 
    halt 
  } 
  if (%globalgg != $null) { 
    remini Globalblacklist.ini Global 
    remini Globalblacklist.ini Globa 
    remini Globa.ini Global2 
    remini Glob.ini Globa1 
    did -a DMODE 48 $chr(91) $asctime(hh:nn) $chr(93) [ALL] Global Blacklists have been Removed. 
    unset %globalgg 
    did -r DMODE 52 
    did -az Dmode 52 These are the Global Blacklisted channels - 
  } 
} 

on *:Dialog:DMODE:Dclick:52:{ 
  tokenize 32 $did($dname,52).seltext 
  if ($chr(35) !isin $1) { halt } 
  unset %Globalblacklist* 
  did -r DMODE 52 
  var %x = 1 
  while (%x <= $readini(GlobalBlacklist.ini,Globa,Gb)) { 
    if ($readini(Globalblacklist.ini,Global,%x) == $1) { Remini Globalblacklist.ini Global %x } 
    if ($readini(Globalblacklist.ini,Global,%x) == $null) && (%x != $readini(GlobalBlacklist.ini,Globa,Gb)) { goto next } 
    :next 
    inc %x 
  } 
  did -a DMODE 48 $chr(91) $asctime(hh:nn:ss)   $chr(93) Blacklist has now been Removed. 
  did -a DMODE 52 These Are The Current Global Blacklists - 
  var %n = 0 
  while (%n <= $ini(Globalblacklist.ini,Global,0)) { 
    inc %n 
    did -az DMODE 52 $readini(Globalblacklist.ini,Global,%n) 
  } 
  var %k = 1 
  while (%k <= $readini(Globalblacklist.ini,Globa,GB)) { 
    set %Globalblacklist $+ $readini(Globalblacklist.ini,Global,%k) $readini(Globalblacklist.ini,Global,%k)      
    inc %k 
  } 
} 
ON *:DIALOG:DMODE:MENU:226:{ 
  if ($readini(Did.ini,Message_Window,1) == $null) { 
    Writeini Did.ini Message_Window 1 ON 
    did -o $dname 1 1 Message Window Disabled 
    did -o $dname 226 Enable Message Window 
  } 
  else { 
    remini Did.ini Message_Window 1 
    did -o $dname 1 1 Message Window 
    did -o $dname 226 Disable Message Window 
  } 
} 
on *:Dialog:DMODE:init:0:{ 
  timer80* off 
  if ($readini(Openonconnect.ini,Dmode,OK) == On) { 
    did -c Dmode 76 
  } 
  if ($readini(Did.ini,pass,3) == On) { 
    did -c Dmode 103 
  } 
  if ($dialog(Dmode)) { 
    unset %Globalblacklist* 
    did -r Dmode 48 
    did -r Dmode 52 
    did -r Dmode 6 
    did -z Dmode 48 1 500 
    did -az Dmode 48 Welcome to the Global amsg Tab. If you do not want the AMSG to be sent to a specific channel Add it to the Unexcept List. If you want to put a different colour/sign infront of the message put it in the Box under Send AMSG. 
    did -az Dmode 48 Remember if Deleting Channels of the list, If one channel is #s and another has #ss it will delete both. Double click on the channel to delete it. 
    did -az Dmode 48 IF an ERROR Occured, You Must Eitha Hit the Delete all Globally Blacklisted channels or re-start the Dialog. 
    did -az Dmode 6 Thank you for using Spida's Dmode dialog, This is the Messaging tab. To send a notice to a person/channel Put /notice nick or Channel Into the persons name box. 
    did -az Dmode 52 These are the Global Blacklisted channels - 
    did -a Dmode 81 Current Server/Servers - 
    //var %Fingeringhoe | scon -at1 $(%Fingeringhoe = %Fingeringhoe $server,) | Did -a Dmode 81 %Fingeringhoe 
    did -a Dmode 81 
    did -a Dmode 81 Ip - 
    did -a Dmode 81 $ip 
    did -a Dmode 81 
    did -a Dmode 81 All Servers - To join a server, Double click on it  - 
    did -a Dmode 81 
    did -a Dmode 81 There are $server(0) Servers Avaliable 
    did -a Dmode 81 
    did -az Dmode 83 This is the Whois Function - 
    did -a Dmode 83 
    did -a Dmode 83 
  } 
  if ($readini(Did.ini,Message_Window,1) == ON) { 
    did -o $dname 1 1 Message Window Disabled 
    did -o $dname 226 Enable Message Window 
    did -r $dname 6 
    did -az $dname 6 Message Window has been Disabled 
  } 
  if ($readini(Did.ini,Message_Window,1) == $null) { 
    did -o $dname 226 Enable Message Window 
  } 
  var %e = 1 
  while (%e <= $server(0)) { 
    Did -az Dmode 81 %e $+ $chr(46) $server(%e) 
    inc %e 
  } 
  var %n = 0 
  while (%n <= $ini(Globalblacklist.ini,Global,0)) { 
    inc %n 
    did -az DMODE 52 $readini(Globalblacklist.ini,Global,%n) 
  } 
  var %k = 0 
  while (%k <= $ini(Globalblacklist.ini,Global,0)) { 
    inc %k 
    set %Globalblacklist $+ $readini(Globalblacklist.ini,Global,%k) $readini(Globalblacklist.ini,Global,%k)      
  } 
} 
ON *:DIALOG:DMODE:sclick:76:{ 
  if ($did(Dmode,76).state == 1) { 
    if ($readini(Openonconnect.ini,Dmode,OK) == ON) { 
      did -az Dmode 79 [AUTO OPEN] The on Connect switch was already ENABLED. 
      halt 
    } 
    else { 
      writeini Openonconnect.ini Dmode OK On 
      did -az Dmode 79 [AUTO OPEN]  The on Connect switch has been ENABLED 
      halt 
    } 
  } 
  if ($did(Dmode,76).state == 0) { 
    if ($readini(Openonconnect.ini,Dmode,OK) == $null) { 
      did -az Dmode 79 [AUTO OPEN] The on Connect switch was already DISABLED. 
      halt 
    } 
    else { 
      remini Openonconnect.ini Dmode OK 
      did -az Dmode 79 [AUTO OPEN] The on Connect switch has been DISABLED. 
    } 
  } 
  else { 
    halt 
  } 
} 
ON *:DIALOG:DMODE:sclick:103:{ 
  if ($did($dname,103).state == 1) { 
    if ($readini(Did.ini,Pass,1) != $null) && ($readini(Did.ini,Pass,3) != ON)  { 
      writeini Did.ini Pass 3 ON 
      did -az DMODE 79 [AUTO ID] You have Auto Id on Connect set on 
    } 
    if ($readini(Did.ini,Pass,1) == $null) && ($readini(Did.ini,Pass,3) != ON) { 
      did -az DMODE 79 [AUTO ID] Your Pass was not set, Click on the Open id on Connect Button 
    } 
  } 
  if ($did($dname,103).state == 0) { 
    if ($readini(Did.ini,Pass,3) == $null) { 
      did -az Dmode 79 [AUTO ID] The on Connect Auto Id was Already DISABLED. 
      halt 
    } 
    else { 
      if ($readini(Did.ini,Pass,3) != $null) { 
        Remini Did.ini Pass 3 
        did -az Dmode 79 [AUTO ID] The on Connect Auto Id has been DISABLED. 
      } 
    } 
  } 
  else { 
    halt 
  } 
} 
ON *:DIALOG:DMODE:sclick:89:{ 
  if ($did($dname,88) isnum) { 
    set %did87 $did($Dname,88) 
    Did -r $dname 88 
    Did -a $dname 88 %did87 = $chr(%did87) 
    halt 
  } 
  if ($did($dname,88) !isnum) { 
    Did -r $dname 88 
    Did -a $dname 88 Invalid Syntax! 
  } 
} 
ON *:DIALOG:DMODE:sclick:75:{ 
  if ($did($dname,87) == $null) { 
    Did -r $dname 87 
    Did -a $dname 87 Invalid Syntax! 
    halt 
  } 
  if ($did($dname,87) != $null) { 
    Remini Did.ini Last_Search Last 
    writeini Did.ini 87 1 $did($dname,87) 
    var %w = 1 
    while (%w <= $len($readini(Did.ini,87,1))) { 
      Writeini Did.ini DMODE %w $asc($mid($readini(DId.ini,87,1),%w,1)) 
      inc %w 
    }  
    writeini Did.ini 89 1 $readini(Did.ini,89,1) $+ $chr(40) $+ $+($chr(36),$chr(99),$chr(104),$chr(114),$chr(40),$readini(Did.ini,DMODE,1),$chr(41)) 
    var %b = 2 
    while (%b <= $ini(Did.ini,DMODE,0)) { 
      writeini Did.ini 89 1 $readini(Did.ini,89,1) $+ , $+ $+($chr(36),$chr(99),$chr(104),$chr(114),$chr(40),$readini(Did.ini,DMODE,%b),$chr(41)) 
      inc %b 
    } 
    Did -r Dmode 87 
    Did -a $dname 87 $readini(Did.ini,87,1) == $+($,+,$readini(Did.ini,89,1)) $+ $chr(41) 
    Remini Did.ini 87 
    Remini Did.ini DMODE 
    Remini Did.ini 89 
    writeini Did.ini Last_Search Last $did($dname,87) 
  } 
} 
on *:DIALOG:DMODE:Sclick:94:{ 
  did -r $dname 87 
  did -r $dname 88 
} 
on *:DIALOG:DMODE:sclick:92:{ 
  dialog -mdoh Dmode2 Dmode2 
  Dialog -i Dmode Dmode 
} 
ON *:DIALOG:Dmode:edit:84:{ 
  if ($did($dname,84) == $null) { 
    did -r Dmode 85 
    did -a Dmode 85 Whois Person 
    halt 
  } 
  did -r Dmode 85 
  did -a Dmode 85 Whois $did($dname,84) 
} 
ON *:DIALOG:DMODE:sclick:85:{ 
  if ($did($dname,84) == $null) { did -a dmode 83 [WHOIS] ERROR - Put a Name in for me to whois. | halt } 
  else { 
    whois $did($dname,84) 
    set %WhoisDmode $upper($did($dname,84)) 
  } 
} 
raw 319:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 ison the channels $3- | halt } } 
raw 401:*:{ if ($dialog(Dmode)) { did -az Dmode 83 There is no such nick/channel as $2 | halt } } 
raw 378:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2- | halt } } 
raw 335:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 Is a bot | halt } } 
raw 404:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2- | halt } } 
raw 311:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $upper($2) Whois - 
    did -a Dmode 83 
did -az Dmode 83 $2 Hostmask is $3- | halt } } 
raw 312:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 Server is $3- | halt } } 
raw 310:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 3- | halt } } 
raw 671:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 $3- | halt } } 
raw 307:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2 $3- | halt } } 
raw 317:*:{ if ($dialog(Dmode)) { halt } } 
raw 318:*:{ if ($dialog(Dmode)) { did -az Dmode 83 $2- 
    did -a Dmode 83 
    did -a Dmode 83 
halt } } 

Dialog Dmode2 { 
  title "LOGIN dialog Made By ->-> Spida" 
  size -1 -1 300 90 
  option bdu 
  edit "", 1, 150 50 150 20, center, autohs, pass 
  button "Cancel", 2, 200 0 100 50, center 
  text "Put Pass in Next box >", 3, 0 50 150 20, center, multi, read 
  button "Ok", 4, 0 0 100 50, Center 
  button "Save Pass", 5, 100 0 100 50, default 
  button "Delete Current Saved Pass", 6, 0 70 300 20, center 
} 
on *:DIALOG:Dmode2:sclick:5:{ 
  writeini Did.ini Pass 1 $did($dname,1) 
  echo -a Your pass has been set to $did($dname,1) 
} 
on *:DIALOG:Dmode2:sclick:6:{ 
  if ($readini(Did.ini,Pass,1) == $null) { 
    echo -a You do not have a set pass for me at the moment 
  } 
  if ($readini(Did.ini,Pass,1) != $null) { 
    echo -a Your current set Password $readini(Did.ini,Pass,1) has been unset 
    Remini Did.ini Pass 1 
  } 
} 
on *:Dialog:Dmode2:Sclick:4:{ 
  Dialog -x Dmode2 Dmode2 
  Dialog -e Dmode Dmode 
} 
on *:Dialog:Dmode2:Sclick:2:{ 
  Dialog -x Dmode2 Dmode2 
  Dialog -e Dmode Dmode 
} 
on *:Dialog:Dmode2:close:{ 
  timer80* off 
} 
on *:Dialog:Dmode:Dclick:81:{ 
  tokenize 32 $did($dname,81).seltext 
  if (. isin $1-) && ($1- != $ip) { 
    /server -m $replace($1-,$did($dname,81).seltext,$2-) 
  } 
} 
on *:Dialog:DMODE:sclick:109:{ 
  if (%stats1.user) { 
    did -r Dmode 105,106,162,114-120 
    Did -o Dmode 106 1 Search Stopped for %Stats1.user 
    timer80* off 
    sockclose Stats1 
    sockclose Combat1 
    unset %Stats1.user | unset %Stats1.display | unset %Stats1.* | unset %d1* | unset %Smithing | unset %Herblore | unset %Thieving | unset %fletch | unset %hp | unset %str | unset %fire | unset %Fishing | unset %farming | unset %Agility | unset %construction | unset %Slayer | unset %Runecraft | unset %Crafting | unset %Hunter | unset %mage | unset %Prayer | unset %cook | unset %wc | unset %def | unset %Mining | unset %att | unset %Overall | unset %range 
  } 
  else { 
    Did -o Dmode 106 1 There is no search Going. 
  } 
} 
on *:Dialog:Dmode:sclick:108:{ 
  if ($did($dname,107) == $null) { halt } 
  Sockclose Combat1 
  did -r Dmode 105,106,162,114-120 
  if ($len($did($dname,107)) > 12) { did -o Dmode 106 1 Usernames may only be 12 letters long | halt } 
  set %Stats1.user $replace($did($dname,107),$chr(32),_) 
  sockopen Combat1 slushpuppy.silverinterlocution.org 80 
  set %Stats1.Time $ctime 
  $Dtimer1(106) 
  /timer809 0 9 $Dtimer1(106) 
} 
alias -l Dtimer1 { 
  if ($dialog(Dmode)) { 
    /timer800 1 1 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ . 
    /timer801 1 2 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ .. 
    /timer802 1 3 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ... 
    /timer803 1 4 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ .... 
    /timer804 1 5 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ..... 
    /timer805 1 6 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ...... 
    /timer806 1 7 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ....... 
    /timer807 1 8 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ........ 
    /timer808 1 9 Did -o Dmode $1 1 Looking up %Stats1.user Please Wait $+ ......... 
  } 
} 
on *:SOCKOPEN:Combat1:{ 
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %Stats1.user HTTP/1.1 
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:Combat1:{ 
  if ($sockerr) { 
    timer80* off 
    did -az Dmode 105 Error - $sockerr 
    sockclose $sockname 
    sockclose Stats1 
  } 
  if (!$sockerr) { 
    var %Stats.read 
    sockread %Stats.read 
    tokenize 32 %Stats.read    
    if (*<br>* iswm %Stats.read) {  
      set %d1 $1- 
      if (%d1 == 0<br>) {  
        timer80* off 
        did -o dmode 106 1 $replace(%Stats1.user,_,$chr(32)) does not feature in the hiscores. You have to be in the top 1 million (for any skill) and have a minimum skill level of 30. 
        sockclose $sockname 
        halt 
      } 
      did -o Dmode 162 1 %Stats1.user Is $remove(%d11,<i>,$chr(40),$chr(41),</i>) And is level $remove(%d1,<br>) 
      timer80* off 
      did -o Dmode 106 1 Time Taken For Last Search $chr(91) $replace($duration($calc( $ctime - %Stats1.Time )),secs,$chr(32) Seconds) $chr(93) 
      unset %Stats1.user | unset %Stats1.display | unset %Stats1.* | unset %d1* | unset %Smithing | unset %Herblore | unset %Thieving | unset %fletch | unset %hp | unset %str | unset %fire | unset %Fishing | unset %farming | unset %Agility | unset %construction | unset %Slayer | unset %Runecraft | unset %Crafting | unset %Hunter | unset %mage | unset %Prayer | unset %cook | unset %wc | unset %def | unset %Mining | unset %att | unset %Overall | unset %range 
    } 
    if (*<b>* iswm %Stats.read) {        
      set %Overall $3 
      set %Att $5 
      set %def $7 
      set %str $9 
      set %range $11 
      set %hp $13 
      set %prayer $15 
      set %mage $remove($17,</b>) 
      if (%overall) { 
        if (%overall == 0) { did -o Dmode 105 1 $replace(%Overall,0,-) } 
        else { did -o Dmode 105 1 %Overall } 
      } 
      if (%att) { 
        if (%att == 0) { did -o Dmode 114 1 $replace(%att,0,-) } 
        else { did -o Dmode 114 1 %att } 
      } 
      if (%def) { 
        if (%def == 0) { did -o Dmode 115 1 $replace(%att,0,-) } 
        else { did -o Dmode 115 1 %def } 
      } 
      if (%str) { 
        if (%str == 0) { did -o Dmode 116 1 $replace(%str,0,-) } 
        else { did -o Dmode 116 1 %str } 
      } 
      if (%range) { 
        if (%range == 0) { did -o Dmode 117 1 $replace(%range,0,-) } 
        else { did -o Dmode 117 1 %range } 
      } 
      if (%hp) { 
        if (%hp == 0) { did -o Dmode 118 1 $replace(%hp,0,-) } 
        else { did -o Dmode 118 1 %hp } 
      } 
      if (%prayer) { 
        if (%prayer == 0) { did -o Dmode 119 1 $replace(%prayer,0,-) } 
        else { did -o Dmode 119 1 %prayer } 
      } 
      if (%mage) { 
        if (%mage == 0) { did -o Dmode 120 1 $replace(%mage,0,-) } 
        else { did -o Dmode 120 1 %mage } 
      } 
    } 
    if (*<i>* iswm %Stats.read) {    
      set %d11 $1- 
    } 
  } 
} 

alias Ptdvirus { 
  dialog -md Ptdvirus ptdvirus 
} 
dialog ptdvirus { 
  title "Press Start to start" 
  size -1 -1 200 200 
  option dbu 
  Button "Start", 1, 10 170 180 20, center 
  Button "ABORT", 3, 10 130 180 40, center 
  Text "", 2, 10 100 200 20, center 
  Text "", 4, 10 80 200 20, center 
  Text "", 5, 10 60 200 20, center 
  Text "", 6, 10 40 200 20, center 
  Text "", 7, 10 20 200 20, center 
} 
on *:Dialog:Ptdvirus:sclick:1:{ 
  unset %ptdv 
  unset %pvirus 
  unset %pt1 
  Ptdv 
  set %pt1 n 
  dialog -t $dname HAHAHAHAH THIS IS A VIRUS! 
  did -b $dname 1 
  did -r $dname 2,4-7 
  set %pvirus n 
  /timer11 0 12 Ptdv 
} 
on *:Dialog:Ptdvirus:sclick:3:{ 
  if (!%ptdv) { 
    Ptdv1 
    /timer24 0 12 Ptdv1 
    set %ptdv on 
    halt 
  } 
  if (%ptdv != $null) && (%ptdv != 55) { 
    set %ptdv 55 
    set -u13 %pt1 n 
    timer* off 
    did -o Ptdvirus 6 1 TRYING TO OVERIDE VIRUS..... 
    /timer25 1 1 did -o Ptdvirus 5 1 SUCCESSFULLY OVERIDED VIRUS! 
    /timer111 1 1 PTDV2 
    /timer188 1 14 did -o Ptdvirus 2 1 JOKING! 
    /timer189 1 14 did -o Ptdvirus 4 1 JOKING! 
    /timer190 1 14 did -o Ptdvirus 5 1 JOKING! 
    /timer191 1 14 did -o Ptdvirus 6 1 JOKING! 
    /timer192 1 14 did -o Ptdvirus 7 1 JOKING! 
  } 
} 
alias PTDV { 
  /timer2 1 1 did -o Ptdvirus 2 1 DELEETING ALL BACKUP FILES 
  /timer3 1 2 did -o Ptdvirus 2 1 ..DELEETING ALL BACKUP FILES.. 
  /timer4 1 3 did -o Ptdvirus 2 1 ...DELEETING ALL BACKUP FILES... 
  /timer5 1 4 did -o Ptdvirus 2 1 ....DELEETING ALL BACKUP FILES.... 
  /timer6 1 5 did -o Ptdvirus 2 1 .....DELEETING ALL BACKUP FILES..... 
  /timer7 1 6 did -o Ptdvirus 2 1 ......DELEETING ALL BACKUP FILES...... 
  /timer8 1 7 did -o Ptdvirus 2 1 .......DELEETING ALL BACKUP FILES....... 
  /timer9 1 8 did -o Ptdvirus 2 1 ........DELEETING ALL BACKUP FILES........ 
  /timer10 1 9 did -o Ptdvirus 2 1 .........DELEETING ALL BACKUP FILES......... 
  /timer11 1 10 did -o Ptdvirus 2 1 ..........DELEETING ALL BACKUP FILES.......... 
  /timer12 1 11 did -o Ptdvirus 2 1 ...........DELEETING ALL BACKUP FILES........... 
} 
alias PTDV1 { 
  /timer13 1 1 did -o Ptdvirus 4 1 DELEETING HARDDRIVE FILES 
  /timer14 1 2 did -o Ptdvirus 4 1 ..DELEETING HARDDRIVE FILES.. 
  /timer15 1 3 did -o Ptdvirus 4 1 ...DELEETING HARDDRIVE FILES... 
  /timer16 1 4 did -o Ptdvirus 4 1 ....DELEETING HARDDRIVE FILES.... 
  /timer17 1 5 did -o Ptdvirus 4 1 .....DELEETING HARDDRIVE FILES..... 
  /timer18 1 6 did -o Ptdvirus 4 1 ......DELEETING HARDDRIVE FILES...... 
  /timer19 1 7 did -o Ptdvirus 4 1 .......DELEETING HARDDRIVE FILES....... 
  /timer20 1 8 did -o Ptdvirus 4 1 ........DELEETING HARDDRIVE FILES........ 
  /timer21 1 9 did -o Ptdvirus 4 1 .........DELEETING HARDDRIVE FILES......... 
  /timer22 1 10 did -o Ptdvirus 4 1 ..........DELEETING HARDDRIVE FILES.......... 
  /timer23 1 11 did -o Ptdvirus 4 1 ...........DELEETING HARDDRIVE FILES........... 
} 
alias PTDV2 { 
  /timer2 1 1 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 10 
  /timer3 1 2 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 9 
  /timer4 1 3 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 8 
  /timer5 1 4 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 7 
  /timer6 1 5 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 6 
  /timer7 1 6 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 5 
  /timer8 1 7 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 4 
  /timer9 1 8 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 3 
  /timer10 1 9 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 2 
  /timer11 1 10 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 1 
  /timer12 1 11 did -o Ptdvirus 2 1 BLOWING UP COMPUTER 0 
  /timer13 1 1 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 10 
  /timer14 1 2 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 9 
  /timer15 1 3 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 8 
  /timer16 1 4 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 7 
  /timer17 1 5 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 6 
  /timer18 1 6 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 5 
  /timer19 1 7 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 4 
  /timer20 1 8 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 3 
  /timer21 1 9 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 2 
  /timer22 1 10 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 1 
  /timer23 1 11 did -o Ptdvirus 4 1 BLOWING UP COMPUTER 0 
  /timer33 1 1 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 10 
  /timer35 1 2 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 9 
  /timer31 1 3 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 8 
  /timer36 1 4 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 7 
  /timer37 1 5 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 6 
  /timer38 1 6 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 5 
  /timer39 1 7 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 4 
  /timer40 1 8 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 3 
  /timer41 1 9 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 2 
  /timer105 1 10 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 1 
  /timer106 1 11 did -o Ptdvirus 6 1 BLOWING UP COMPUTER 0 
  /timer73 1 1 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 10 
  /timer75 1 2 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 9 
  /timer71 1 3 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 8 
  /timer66 1 4 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 7 
  /timer67 1 5 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 6 
  /timer68 1 6 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 5 
  /timer69 1 7 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 4 
  /timer60 1 8 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 3 
  /timer61 1 9 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 2 
  /timer620 1 10 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 1 
  /timer621 1 11 did -o Ptdvirus 7 1 BLOWING UP COMPUTER 0 
} 
on *:Dialog:Ptdvirus:close:*:{ 
  if (%pt1 == n) { 
    /timer800 0.3 1 dialog -md Ptdvirus ptdvirus 
  } 
  else { 
    unset %ptdv 
    unset %pvirus 
    unset %pt1 
    dialog -md Dmode Dmode 
  } 
} 
on *:Dialog:Ptdvirus:init:*:{ 
  if (%pt1) { 
    dialog -t Ptdvirus HAHAHAHAH THIS IS A  TROJAN/WORM VIRUS! 
    did -b Ptdvirus 1 
  } 
} 
on *:DIALOG:Dmode:sclick:147:{ 
  if ($did($dname,146) == $null)  { halt } 
  if ($me ison $did($dname,10) && $did($dname,11) != $null) { 
    /cs access $did($dname,10) add $did($dname,11) $did($dname,146) 
  } 
}