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