[script] n0=;기본적인 mIRC용 다이스 스크립트 n1=;제작자 로키(lokasenna.pe.kr) n2=;1d20 n3=;1d6 -2 n4=;하는 식으로 채팅창에 치면 다이스로봇이 결과를 출력합니다. n5=;(수정치 이전에 띄는 것 주의) n6=;질문이나 코멘트 있으시면 로키(loki@lokasenna.pe.kr)에게... n7= n8=on *:text:*d*:#: { n9= n10= var %trigger = $1 n11= n12= var %dpos = $pos($1,d) n13= n14= if (%dpos == 1) { n15= n16= var %defaultcount = $($+(%,defaultcount.,$nick),2) n17= n18= if (%defaultcount != $null) { n19= set %count %defaultcount n20= } n21= else { n22= set %count 1 n23= } n24= } n25= ;end if d first letter n26= n27= else { n28= set %count $left($1,$calc(%dpos - 1)) n29= } n30= n31= if (%dpos == $len($1)) { n32= n33= var %defaultsides = $($+(%,defaultsides.,$nick),2) n34= n35= if (%defaultsides == $null) { n36= set %sides 6 n37= } n38= else { n39= set %sides %defaultsides n40= } n41= n42= } n43= ;end if d last letter n44= n45= else { n46= set %sides $right(%trigger, $calc($len(%trigger) - %dpos)) n47= } n48= n49= ;수정치 n50= n51= if (%count isnum) && (%sides isnum) { n52= n53= if ($2 != $null) && ($calc($($2-,2)) isnum) { n54= set %modifier $2- n55= } n56= n57= var %num = 1 n58= n59= while (%num <= %count) { n60= n61= var %temp = $rand(1,%sides) n62= n63= if (%num == 1) { n64= set %dicetext %temp n65= set %total %temp n66= } n67= else { n68= set %dicetext %dicetext $+ + $+ %temp n69= set %total $calc(%total + %temp) n70= } n71= n72= inc %num n73= } n74= ;end loop n75= n76= if ($calc($(%total $2-,2)) isnum) { n77= set %total $calc($(%total $2-,2)) n78= } n79= n80= } n81= ;end if %count and %sides numbers n82= n83= var %defaultcolor = $($+(%,defaultcolor.,$nick),2) n84= n85= if (%defaultcolor == $null) { n86= var %colors = 2,3,4,5,6,7,10,12,13 n87= n88= ;var %colors = 2,3,4,5,6,7,9,10,11,12,13 n89= ;var %colors = 2,3,4,5,7,8,10,11,13 n90= n91= var %colors.num = $numtok(%colors,44) n92= var %num = $rand(1,%colors.num) n93= n94= set %color $gettok(%colors,%num,44) n95= } n96= else { n97= set %color %defaultcolor n98= } n99= n100= if (%count isnum) && (%sides isnum) { n101= msg $chan 14 $+ $nick $+ 님의 주사위는 %count $+ d $+ %sides $+ ( $+ %dicetext $+ ) %modifier = %total $+ 입니다. n102= } n103= n104= unset %count n105= unset %sides n106= unset %modifier n107= unset %dicetext n108= unset %total n109= unset %newtotal n110= unset %color n111= n112=} n113= n114=on *:text:*d*:?: { n115= var %trigger = $1 n116= n117= var %dpos = $pos($1,d) n118= n119= if (%dpos == 1) { n120= n121= var %defaultcount = $($+(%,defaultcount.,$nick),2) n122= n123= if (%defaultcount != $null) { n124= set %count %defaultcount n125= } n126= else { n127= set %count 1 n128= } n129= } n130= ;end if d first letter n131= n132= else { n133= set %count $left($1,$calc(%dpos - 1)) n134= } n135= n136= if (%dpos == $len($1)) { n137= n138= var %defaultsides = $($+(%,defaultsides.,$nick),2) n139= n140= if (%defaultsides == $null) { n141= set %sides 6 n142= } n143= else { n144= set %sides %defaultsides n145= } n146= n147= } n148= ;end if d last letter n149= n150= else { n151= set %sides $right(%trigger, $calc($len(%trigger) - %dpos)) n152= } n153= n154= ;수정치 n155= n156= if (%count isnum) && (%sides isnum) { n157= n158= if ($2 != $null) && ($calc($($2-,2)) isnum) { n159= set %modifier $2- n160= } n161= n162= var %num = 1 n163= n164= while (%num <= %count) { n165= n166= var %temp = $rand(1,%sides) n167= n168= if (%num == 1) { n169= set %dicetext %temp n170= set %total %temp n171= } n172= else { n173= set %dicetext %dicetext $+ + $+ %temp n174= set %total $calc(%total + %temp) n175= } n176= n177= inc %num n178= } n179= ;end loop n180= n181= if ($calc($(%total $2-,2)) isnum) { n182= set %total $calc($(%total $2-,2)) n183= } n184= n185= } n186= ;end if %count and %sides numbers n187= n188= var %defaultcolor = $($+(%,defaultcolor.,$nick),2) n189= n190= if (%defaultcolor == $null) { n191= n192= var %colors = 2,3,4,5,6,7,10,12,13 n193= n194= ;var %colors = 2,3,4,5,6,7,9,10,11,12,13 n195= ;var %colors = 2,3,4,5,7,8,10,11,13 n196= n197= var %colors.num = $numtok(%colors,44) n198= var %num = $rand(1,%colors.num) n199= n200= set %color $gettok(%colors,%num,44) n201= } n202= else { n203= set %color %defaultcolor n204= } n205= n206= if (%count isnum) && (%sides isnum) { n207= msg $nick  $+ %color $+ $nick $+ 14님의 주사위는 %count $+ d $+ %sides $+ ( $+ %dicetext $+ ) %modifier = $+ %color %total $+ 14입니다. n208= } n209= n210= unset %count n211= unset %sides n212= unset %modifier n213= unset %dicetext n214= unset %total n215= unset %newtotal n216= unset %color n217=} n218= n219= n220=on *:text:*기본*:*: { n221= n222= set %string $1- n223= n224= while (%string != $null) { n225= n226= var %firstletter = $left(%string,1) n227= n228= if (%firstletter isnum) { n229= n230= set %stripped %stripped $+ %firstletter n231= n232= } n233= n234= var %remainder = $calc($len(%string) - 1) n235= n236= set %string $right(%string,%remainder) n237= ;msg $chan %string n238= n239= } n240= ;end loop n241= n242= if (면수 isin $1-) { n243= n244= if (%stripped isnum) { n245= set $+(%,defaultsides.,$nick) %stripped n246= } n247= n248= var %defaultsides = $($+(%,defaultsides.,$nick),2) n249= n250= if (%defaultsides != $null) { n251= msg $nick 14기본 면수는 %defaultsides $+ 입니다. n252= } n253= n254= } n255= n256= if (갯수 isin $1-) || (개수 isin $1-) { n257= n258= if (%stripped isnum) { n259= set $+(%,defaultcount.,$nick) %stripped n260= } n261= n262= var %defaultcount = $($+(%,defaultcount.,$nick),2) n263= n264= if (%defaultcount != $null) { n265= msg $nick 14기본 갯수는 %defaultcount $+ 입니다. n266= } n267= } n268= n269= if (색 isin $1-) { n270= n271= if (%stripped isnum) { n272= set $+(%,defaultcolor.,$nick) %stripped n273= } n274= n275= if (해제 isin $1-) { n276= unset $+(%,defaultcolor.,$nick) n277= msg $nick 14기본 색이 해제되었습니다. n278= } n279= n280= var %defaultcolor = $($+(%,defaultcolor.,$nick),2) n281= n282= if (%defaultcolor != $null) { n283= msg $nick 14기본 색은  $+ %defaultcolor $+ 이 색14입니다. n284= } n285= n286= } n287= ;end if set default color n288= n289= unset %stripped n290= unset %string n291= n292=}