All pastes #826237 Raw Edit

J.T

public text v1 · immutable
#826237 ·published 2007-12-21 02:12 UTC
rendered paste body
on ^$*:notice:/^XDCC [SEND|INFO]/Si:*: {
  if ($2 == info) {
  }
  if ($2 == send) && ($left($3,1) == $chr(35)) {
    dcc send -cm $nick $read(xdccdirectories.txt,sn,$3)
    echo -a »»» XDCC SEND $gettok($read(xdccdirectories.txt,sn,$3),-1,92) reguested by $nick
  }
  halt
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                              ;;;
;;; DmScript tool by J.T and Baldwin, for use in #DmScript only. ;;;
;;;        Invitable Option avaliable for any channel            ;;;
;;;                                                              ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


menu * {
  DMT:/dialog -m DScript DScript
}

dialog -l DScript {
  title "DmScript Tool v1.5"
  size -1 -1 251 176
  option dbu
  tab "DmScript", 1, -1 1 251 174
  list 15, 8 70 235 54, tab 1 size hsbar vsbar
  box "Recent Messages", 16, 5 63 241 60, tab 1
  button "DarkBow", 17, 96 147 27 10, tab 1
  button "Gaxe", 18, 96 161 27 10, tab 1
  button "Flick", 19, 9 147 27 10, tab 1
  button "Dds", 20, 125 147 27 10, tab 1
  button "Lash", 21, 38 147 27 10, tab 1
  button "Barrage", 22, 125 161 27 10, tab 1
  button "Guthans", 23, 67 147 27 10, tab 1
  button "Xbow", 24, 67 161 27 10, tab 1
  button "Eat", 25, 155 161 27 10, tab 1
  button "Pass", 26, 9 161 27 10, tab 1
  box "Commands", 27, 6 126 184 48, tab 1
  button "Play!", 29, 195 138 24 12, tab 1
  box "Start/Stop", 30, 192 128 54 28, tab 1
  box "Player 1", 34, 9 18 90 44, tab 1
  box "Player 2", 35, 102 18 90 44, tab 1
  text "", 36, 13 27 44 8, tab 1
  text "", 37, 106 27 44 8, tab 1
  text "", 38, 74 31 15 21, tab 1
  text "", 40, 13 39 40 8, tab 1
  box "My Status", 55, 195 18 49 44, tab 1
  text "Food:", 46, 200 37 21 8, tab 1
  text "Specs:", 56, 200 27 21 8, tab 1
  text "", 42, 224 27 18 8, tab 1
  text "", 43, 224 37 18 8, tab 1
  text "", 39, 168 31 15 21, tab 1
  text "", 41, 106 39 40 8, tab 1
  button "Stop", 47, 219 138 24 12, tab 1
  text "", 44, 13 51 40 8, tab 1
  text "", 45, 106 52 40 8, tab 1
  button "Check Spec", 63, 201 49 37 10, tab 1
  button "Dmace", 67, 155 147 27 10, tab 1
  combo 69, 108 134 74 50, tab 1 size drop
  button "GodSword", 70, 67 134 38 10, tab 1
  button "Gmaul", 71, 38 161 27 10, tab 1
  tab "DmScript Extras", 2
  box "Login", 3, 5 21 85 64, tab 2
  text "Username:", 4, 9 31 31 8, tab 2
  text "Password:", 5, 9 41 28 8, tab 2
  edit "", 6, 39 31 48 10, result tab 2
  edit "", 7, 39 41 48 10, result tab 2 pass
  check "Save login info", 8, 9 55 50 10, tab 2
  edit "DmScript Tool v1.5 by J.T and Baldwin.", 9, 98 31 144 10, tab 2 read
  button "Log in", 10, 9 68 34 12, tab 2
  button "Log out", 11, 51 68 34 12, tab 2
  button "Get Stats!", 14, 206 95 36 10, tab 2 default
  list 12, 98 57 144 22, tab 2 size
  box "Current Bot", 31, 5 88 85 37, tab 2
  edit "", 32, 10 99 75 10, tab 2
  button "Save Botname", 33, 25 111 42 10, tab 2
  box "Info", 48, 94 21 152 26, tab 2
  box "Stats", 13, 94 48 152 84, tab 2
  combo 49, 142 83 46 36, tab 2 size drop
  text "Get Stats for the", 50, 98 83 43 8, tab 2
  edit "", 51, 190 83 52 10, tab 2
  combo 52, 142 107 100 54, tab 2 size drop
  text "Recent lookups:", 53, 98 107 40 8, tab 2
  button "Insert to lookup", 54, 196 119 46 10, tab 2
  box "Exp/Level Converter", 59, 94 133 152 22, tab 2
  combo 60, 142 141 54 26, tab 2 size drop
  button "Convert!", 61, 198 140 44 12, tab 2
  edit "", 62, 98 141 42 10, tab 2
  text "© 2007-9999 J.T and Baldwin, all rights reserved.", 134, 96 158 90 14, tab 2
  box "Commands Info", 64, 5 130 86 42, tab 2
  button "Click here", 65, 24 144 46 10, tab 2
  text "Click to launch as a popup", 66, 14 160 68 8, tab 2
  tab "Invitable DmScript", 68
  text "", 74, 14 29 44 8, tab 68
  text "", 76, 14 41 40 8, tab 68
  box "Player 1", 75, 10 20 90 44, tab 68
  text "", 77, 14 53 40 8, tab 68
  text "", 78, 75 33 15 21, tab 68
  text "", 79, 107 29 44 8, tab 68
  box "Player 2", 82, 103 20 90 44, tab 68
  text "", 80, 107 41 40 8, tab 68
  text "", 81, 107 54 40 8, tab 68
  text "", 83, 169 33 15 21, tab 68
  text "", 84, 225 29 18 8, tab 68
  text "", 85, 225 39 18 8, tab 68
  text "Sharks:", 87, 201 39 21 8, tab 68
  text "Specs:", 89, 201 29 21 8, tab 68
  box "My Status", 88, 196 20 49 44, tab 68
  button "Check Spec", 86, 202 51 37 10, tab 68
  box "Start/Stop", 95, 193 125 54 30, tab 68
  button "Play!", 93, 196 138 24 12, tab 68
  button "Stop", 94, 220 138 24 12, tab 68
  button "Guthans", 115, 103 146 27 10, tab 68
  button "Whip", 111, 103 134 27 10, tab 68
  button "Barrage", 110, 74 134 27 10, tab 68
  box "Commands", 92, 7 125 128 46, tab 68
  button "Dharok", 114, 74 146 27 10, tab 68
  button "Lash", 113, 43 146 27 10, tab 68
  button "XBow", 109, 42 134 27 10, tab 68
  button "DDS", 108, 12 134 27 10, tab 68
  button "Flick", 112, 12 146 27 10, tab 68
  button "Cheat", 116, 12 158 27 10, tab 68
  button "Eat", 118, 74 158 27 10, tab 68
  button "Punch", 117, 43 158 27 10, tab 68
  list 129, 8 68 237 54, tab 68 size hsbar vsbar
  box "Select Channel", 136, 138 125 52 46, tab 68
  combo 138, 142 134 46 50, tab 68 size drop
  button "Ok", 139, 150 158 28 10, tab 68
  tab "Invitable DmScript Extras", 120
  edit "", 102, 8 28 128 10, tab 120 read
  box "Register", 103, 10 100 80 52, tab 120
  edit "", 106, 14 118 44 10, tab 120 pass
  button "REGISTER!", 107, 14 138 32 10, tab 120
  text "Choose a password", 105, 14 109 49 8, tab 120
  box "Log In", 98, 10 46 79 48, tab 120
  edit "", 99, 12 65 44 10, tab 120 pass limit 100
  text "No account? Make one!", 101, 12 80 73 10, tab 120 center
  button "Log In", 104, 58 64 26 12, tab 120
  text "Password:", 100, 12 56 28 8, tab 120
  box "Invite DmScript!", 90, 142 19 104 24, tab 120
  button "Invite!", 96, 215 28 27 10, tab 120
  text "DmScript by Baldwin and J.T", 97, 194 144 54 14, tab 120 center
  combo 91, 146 28 61 50, tab 120 size drop
  box "Info", 130, 4 19 136 24, tab 120
  edit "", 131, 96 116 78 18, group tab 120 multi autohs limit 100
  box "Suggest an Idea", 132, 93 106 84 46, group tab 120
  button "Submit!", 133, 117 138 34 10, group tab 120
  text "© 2007-9999 J.T and Baldwin, all rights reserved.", 119, 98 160 90 14, tab 120
  tab "Updates", 128
  edit "", 127, 9 56 129 26, tab 128 read multi
  box "Check for DMT Updates", 121, 5 20 139 68, tab 128
  button "Check!", 126, 108 44 30 10, tab 128
  edit "", 125, 72 44 34 10, tab 128 read
  edit "", 122, 72 30 34 10, tab 128 read
  text "Current DMT Version:", 123, 9 30 61 8, tab 128
  text "Latest DMT Version:", 124, 9 44 61 8, tab 128
  box "DMT v1.5 Changelog", 135, 148 20 98 138, tab 128
  list 137, 152 28 90 126, tab 128 size hsbar
  button "Close Dialog", 28, 192 161 54 10, ok cancel
  menu "Menu", 57
  item "DmScript Site", 58, 57
}

dialog -l DScript2 {
  title "DmScript Extras"
  size -1 -1 175 206
  option dbu
  box "Unlockables", 1, 5 6 94 102
  text "For more info, please visit the DmScript website from the menu option on the main dialog.", 2, 8 188 165 16
  text "Level 5: Dharocks", 3, 9 21 49 8
  text "Level 11: Guthans", 4, 9 31 46 8
  text "Level 15: Granite Maul", 5, 9 41 60 8
  text "Level 21: Dark Bow", 6, 9 51 52 8
  text "Level 25: Sea Turtles", 7, 9 61 58 8
  text "Level 35: Manta Rays", 8, 9 71 53 8
  text "Level 41: Dragon Arrows (lvl 38 for pures)", 9, 9 81 88 15
  text "Level 50: GodSword", 10, 9 97 55 8
  box "The GodSword", 11, 5 110 166 76
  text "Here are the 4 GodSword Specs and their effects:", 12, 8 118 149 9
  text "[Armadyl] The Judgement - Does 25% more damage.", 13, 9 128 142 8
  text "[Bandos] WarStrike - Does 10% more damage, decreases opponents level by 10.", 14, 9 138 145 15
  text "[Saradomin] Healing Blade - Heals yourself by half the damage done. Minimum heal amount is 10.", 15, 9 155 144 17
  text "[Zamorak] Ice Cleave - Freezes your opponent for 1 turn.", 16, 9 174 147 8
  box "Spec Drain Rates", 17, 101 6 70 102
  text "Dds - 25% Drain", 18, 104 21 49 8
  text "Dragon Mace - 25% Drain", 19, 104 31 65 8
  text "Granite Maul - 100% Drain", 20, 104 41 66 8
  text "Dark Bow - 55% Drain", 21, 104 51 64 8
  text "GodSword - 100% Drain", 22, 104 61 63 8
  text "The GodSword has 4 different attacks, see below for more information about them.", 23, 104 74 62 32
}

on *:text:*:#:{
  if ($nick != %dmbot) || (!$dialog(DScript)) { halt }
  if ($2 == DM) { tokenize 32 $regsubex($strip($4-),/\((S|A|M|T5)\)/,$null) }
  if (*initiated a deathmatch* iswm $1-) && ($regex($1-,/(\((Stats|Not).*\)) has/gi)) {
    set %dm.p1 $1
    did -o DScript 36 1 $1
    tokenize 32 DeathMatch initiated by $1 $+ , $regml(1)
  }
  if (*DM has been stopped* iswm $1-) {
    did -r DScript 36-45
    tokenize 32 The current DeathMatch has been stopped.
  }
  if (*has won* iswm $1-) {
    did -r DScript 36-45
    unset %dm.p1
    unset %dm.p2
  }
  if (*has accepted* iswm $1-) && ($regex($1-,/(\((Stats|Not).*\)) has/gi)) {
    did -o DScript 37 1 $1
    did -o DScript 40-41 1 99 Hp
    set %dm.p2 $1
    tokenize 32 DeathMatch accepted by $1 $+ , $regml(1)
    if $istok($me,$remove($1-,'s),32) {
      did -o DScript 42 1 100%
      did -o DScript 43 1 10
    }
  }
  if (*hp*left* iswm $1-) && (*shark* !iswm $1-) {
    did -o DScript $iif($1 == %dm.p1,41,40) 1 $remove($gettok($1-,$iif(poisoned isin $1-,-7,-3),32),[,],.,|) Hp
  }
  if (*hp*left* iswm $1-) && (*eats a* iswm $1-) {
    did -o DScript $iif($1 == %dm.p1,40,41) 1 $remove($gettok($1-,$iif(poisoned isin $1-,-7,-3),32),[,],.,|) Hp
  }
  if (*final*hitpoints* iswm $1-) {
    tokenize 32 $remove($1-,|,.)
  }
  if ($1 == %dm.p1) {
    did -o DScript 39 1 On Turn
    did -r DScript 38
  }
  if ($1 == %dm.p2) {
    did -o DScript 38 1 On Turn
    did -r DScript 39
  }
  if (*first*attack* iswm $1-) { did -o DScript $iif($remove($gettok($1-,-1,32),.) == %dm.p1,38,39) 1 On Turn }
  if (*has*been*poisoned* iswm $1-) {
    did -o DScript $iif($1 == %dm.p1,45,44) 1 Poisoned
  }
  did -i DScript 15 1 $1-
}

on ^*:notice:*:*: {
  if ($nick == %dmbot) && ($dialog(DScript)) {
    tokenize 32 $strip($1-)
    if (*You have*spec* iswm $1-) {
      did -o DScript 42 1 $3
      haltdef
    }
    if $regex($1-,/(Sharks|Turtles|Manta)/Si) {
      did -o DScript 43 1 $3
      haltdef
    }
    if (*Win*Stats*for*Exp* iswm $1-) && ($7 == $me $+ :) {
      tokenize 32 $8-
      did -i DScript 12 1 $gettok($1-,9-,32) 
      did -i DScript 12 1 $gettok($1-,1-8,32)
      did -i DScript 12 1 $me $+ :
      haltdef
    }
    if ($1 === GetStats) {
      if ($2 == Err) { did -o DScript 9 1 Error: $3- | haltdef }
      if ($2 === Get1) {
        did -i DScript 12 1 Username Stats for $3 $+ :
        did -i DScript 12 2 Wins: $5 - Loses: $6
        did -i DScript 12 3 Exp: $4 - Level: $8 - Type: $7
        did -o DScript 9 1 User Stats retrieved successfully!
        haltdef
      }
      if ($2 === Get2) {
        did -i DScript 12 1 Stats for $3 (Logged in as $4 $+ ) $+ :
        did -i DScript 12 2 Wins: $6 - Loses: $7
        did -i DScript 12 3 Exp: $5 - Level: $9 - Type: $8
        did -o DScript 9 1 Stats retrieved successfully!
        haltdef
      }
      if ($2 === Get3) {
        tokenize 32 $replace($1-,nocolor,N/A,noprefix,N/A)
        did -i DScript 12 1 Team Stats for $3 - Leader: $6
        did -i DScript 12 2 Guild Points: $4 - Team Color: $5
        did -i DScript 12 3 Members: $iif($7,$replace($7-,$chr(32),$+($chr(44),$chr(32))),N/A)
        did -o DScript 9 1 Team Stats retrieved successfully!
        haltdef
      }
    }
    if ($1 == LatestDMT) {
      if ($2 == 1) {
        did -o DScript 125 1 %DMT.Version
        did -o DScript 127 1 You currently have the latest version of the DeathMatch Tool!
      }
      elseif ($2 == 2) {
        did -o DScript 125 1 $3
        did -o DScript 127 1 There is a new version of DMT!
        did -i DScript 127 2 Please go to the following URL to get DMT $3 $+ :
        did -i DScript 127 3 $4-
      }
      haltdef
    }
    if ($1 == Convert) {
      did -o DScript 9 1 Converter: $2-
      haltdef
    }
  }
}
on *:notice:*:*: {
  if ($nick == DmScript) && ($dialog(DScript)) {
    tokenize 32 $strip($1-)
    if (*You*have*of*your*spec* iswm $1-) {
      did -o DScript 84 1 $3
      haltdef
    }
    if (*You*have*sharks* iswm $1-) {
      did -o DScript 85 1 $3
      haltdef
    }
  }
}
on *:text:*:#:{
  if ($nick != DmScript) || (!$dialog(DScript)) || ($chan != %idmchan) { halt }
  if ($1 == [DM]) { tokenize 32 $regsubex($strip($1-),/\((SA|M)\)/,$null) }
  if ([DM]*(*)*has initiated a DM!* iswm $1-) {
    set %dm2.p1 $2
    did -o DScript 74 1 $2
  }
  if ([DM]*forfeited* iswm $1-) {
    did -r DScript 74-85
    tokenize 32 The current DeathMatch has been stopped.
  }
  if (*has*been*defeated* iswm $1-) {
    did -r DScript 74-85
    unset %dm2.p1
    unset %dm2.p2
  }
  if ([DM]*has*stood*up*to*the*challenge* iswm $1-) {
    did -o DScript 79 1 $2
    did -o DScript 76,80 1 99/99 Hp
    set %dm2.p2 $2
    tokenize 32 DeathMatch accepted by %dm2.p2
    if $istok($me,$remove($1-,'s),32) {
      did -o DScript 42 1 100%
      did -o DScript 43 1 10
    }
  }
  if ([DM]*/99 iswm $1-) {
    if ($2 == %dm2.p2) {
      did -o DScript 80 1 $4 Hp
    }
    if ($2 == %dm2.p1) {
      did -o DScript 76 1 $4 Hp
    }
  }
  if ([DM]*'s*turn* iswm $1-) {
    if ($remove($2,'s) == %dm2.p1) {
      did -o DScript 78 1 On Turn
      did -r DScript 83
    }
    if ($remove($2,'s) == %dm2.p2) {
      did -o DScript 83 1 On Turn
      did -r DScript 78
    }
  }
  if (*gets*the*first*attack* iswm $1-) { 
    did -o DScript 78 1 On Turn 
  }
  if ([DM]*PoIsOn*has*been*poisoned* iswm $1-) {
    did -o DScript $iif($3 == %dm2.p2,81,77) 1 Poisoned
  }
  did -i DScript 129 1 $strip($1-)
}

on *:dialog:DScript:init:0: {
  if (!%dmbot) { set %dmbot $$?="Please enter the current DeathMatch bot in use." }
  if (%dm.us) { did -o DScript 6 1 $v1 }
  if (%dm.pw) { did -o DScript 7 1 $v1 }
  if (%dm.us) did -c DScript 8
  did -o DScript 32 1 %dmbot
  didtok DScript 49 44 DmScript User,IRC Nickname,Team
  didtok DScript 52 44 %dm.recent
  didtok DScript 60 44 Level to Exp,Exp to Level
  didtok DScript 69 44 Select a Hilt,[Armadyl] The Judgement,[Bandos] WarStrike,[Saradomin] Healing Blade,[Zamorak] Ice Cleave
  did -c DScript 69 1
  did -c DScript 60 1
  did -c DScript 49 $iif(%dm.us,1,2)
  did -o DScript 51 1 $iif(%dm.us,$v1,$me)
  set %DMT.Version v1.5.2
  did -o DScript 122 1 %DMT.Version
  did -o DScript 127 1 Press "Check!" to continue.
  didtok DScript 91 46 $regsubex($str(~.,$chan(0)),/~/g,$chan(\n))
  var %i = 1, %x
  while $did(DScript,91,%i) { if $v1 == $active { did -c DScript 91 %i } | inc %i }
  %i = 1
  while $chan(%i) { if DmScript ison $v1 { %x = %x $chan(%i) } | inc %i }
  if !%x { did -b DScript 138 }
  didtok DScript 138 32 %x
  did -c DScript 138 1
  %i = 1
  while $did(DScript,138,%i) { if $v1 == $active { did -c DScript 138 %i } | inc %i }
  set %idmchan $did(DScript,138)
  ;// Updates here
  did -i DScript 137 1 1. Removed the nooby GodSpell buttons.
  did -i DScript 137 2 2. Got rid of the "Suggest an idea" feature due because it was not used at all.
  did -i DScript 137 3 3. Added a feature to view other attack info. (Launched as popup)
  did -i DScript 137 4 4. Added the GodSword with the interchangeable hilts.
  did -i DScript 137 5 5. Added Granite Maul attack.
  did -i DScript 137 6 --- v1.5.1 ---
  did -i DScript 137 7 1. Fixed bug with GodSword Hilt selection.
  did -i DScript 137 8 2. Edited the output line of the updater.
  did -i DScript 137 9 --- v1.5.2 ---
  did -i DScript 137 10 1. Updated Scripter-Admin prefix to (S)
  did -i DScript 137 11 2. Fixed glitch where DMT does not record hp when using other food than Sharks.
  ;// End of Updates
  did -z DScript 137
}
on *:dialog:DScript:close:0: {
  unset %dm.p1
  unset %dm.p2
  unset %DMT.Version
  unset %idmchan
}
on *:dialog:DScript:sclick:8: {
  if ($did(DScript,8).state == 1) {
    if !$did(DScript,6) || !$did(DScript,7) {
      did -o DScript 9 1 Please input a $iif($did(DScript,6),Password,Username)
      halt
    }
    set %dm.us $did(DScript,6)
    set %dm.pw $did(DScript,7)
  }
  else { unset %dm.us %dm.pw }
}
on *:dialog:DScript:sclick:14: {
  if (!$did(DScript,51)) {
    did -o DScript 9 1 Please input the $did(DScript,49).seltext you wish to get stats of.
    halt
  }
  .msg %dmbot GetStats $did(DScript,49).sel $did(DScript,51)
  did -o DScript 9 1 Getting stats, please wait...
  did -r DScript 12 0
  if ($numtok(%dm.recent,44) == 5) { set %dm.recent $deltok(%dm.recent,1,44) }
  set %dm.recent $addtok(%dm.recent,$replace($did(DScript,49).sel,1,User lookup for,2,Nickname lookup for,3,Team lookup for) $did(DScript,51),44)
  did -r DScript 52
  didtok DScript 52 44 %dm.recent
}
on *:dialog:DScript:sclick:10: {
  if !$did(DScript,6) || !$did(DScript,7) {
    did -o DScript 9 1 Please input a $iif($did(DScript,6),Password,Username)
    halt
  }
  .msg %dmbot login $did(DScript,6) $did(DScript,7)
}

on *:dialog:DScript:sclick:33: {
  if (!$did(DScript,32)) {
    did -o DScript 9 1 Please input a bot name to save
    halt
  }
  set %dmbot $did(DScript,32)
  did -o DScript 9 1 DeathMatch bot successfully set as $did(DScript,32) $+ !
}

on *:dialog:DScript:sclick:54: {
  if (!$did(DScript,52)) {
    did -o DScript 9 1 Please make a selection from the listbox to continue.
    halt
  }
  did -o DScript 51 1 $gettok($did(DScript,52),-1,32)
  did -c DScript 49 $iif($gettok($did(DScript,52),1,32) == User,1,$iif($gettok($did(DScript,52),1,32) == Nickname,2,3))
}
on *:dialog:DScript:sclick:61: {
  if (!$did(DScript,62)) {
    did -o DScript 9 1 Please input a number to convert
    halt
  }
  did -o DScript 9 1 Converting, please wait...
  .msg %dmbot Convert $iif($did(DScript,60).sel == 1,L-E,E-L) $did(DScript,62)
}
on *:dialog:DScript:sclick:133: {
  if (!$did(DScript,131)) {
    did -o DScript 102 1 Please input a suggestion to send.
    halt
  }
  did -o DScript 102 1 Sending suggestion...
  ms send Baldwin Suggestion for DmScript - $did(DScript,131)
  did -o DScript 102 1 Sent!
}
on *:dialog:DScript:sclick:139: {
  set %idmchan $did(DScript,138)
  did -i DScript 129 1 -- Active DeathMatch Channel changed to $did(DScript,138) --
}
on *:dialog:DScript:sclick:96: {
  did -o DScript 102 1 Inviting now...
  invite DmScript $did(DScript,91)
  .timer 1 1 did -o DScript 102 1 Invite sent!
}
on *:dialog:DScript:sclick:107: {
  if (!$did(DScript,106)) {
    did -o DScript 102 1 Choose a password.
    halt
  }
  did -o DScript 102 1 Creating your account.
  .msg DmScript register $did(DScript,106)
  did -o DScript 102 1 You should now have an account.
}
on *:dialog:DScript:sclick:104: {
  if (!$did(DScript,99)) {
    did -o DScript 102 1 Enter your password
    halt
  }
  did -o DScript 102 1 Logging in...
  .msg DmScript login $did(DScript,99)
  did -o DScript 102 1 You should now be logged in!
}
on *:dialog:DScript:sclick:70: { 
  if $did(DScript,69) == Select a hilt { halt }
  msg #DmScript !GodSword - $+ $mid($did(DScript,69),2,1)
}
on *:dialog:DScript:sclick:71: msg #DmScript ! $+ $did($did)
on *:dialog:DScript:sclick:65: dialog -m DScript2 DScript2
on *:dialog:DScript:sclick:69: if ($did(DScript,69) != Select a Hilt) && ($did(DScript,69).lines != 4) { did -d DScript 69 1 }
on *:dialog:DScript:sclick:116: did -i DScript 129 1 HAHA There isn't a cheat command.
on *:dialog:DScript:sclick:8: msg #DmScript !wins
on *:dialog:DScript:sclick:47: msg #DmScript !stopdm
on *:dialog:DScript:sclick:29: msg #DmScript !dm
on *:dialog:DScript:sclick:94: msg $active !stopdm
on *:dialog:DScript:sclick:93: msg $active !dm
on *:dialog:DScript:sclick:63: msg #DmScript !spec
on *:dialog:DScript:sclick:86: msg $active !spec
on *:dialog:DScript:sclick:11: msg %dmbot logout
on *:dialog:DScript:sclick:126: msg %dmbot LatestDMT %DMT.Version | did -o DScript 127 1 Retrieving info, please wait...
on *:dialog:DScript:sclick:17-26: msg #DmScript ! $+ $did($did)
on *:dialog:DScript:sclick:108-118: msg $active ! $+ $did($did)
on *:dialog:DScript:menu:58: run http://DmScript.co.nr