[script] n0=;퍼지 다이스 향상·영한판 n1=;한영변환이 가능한 퍼지다이스입니다. 다이스제공창에서 F11을 눌러 설정해 주세요. n2=;자세한 것은 제 사이트를 참조해 주시길... n3=;제작자 로키(http://www.lokasenna.pe.kr/rpg/) n4= n5=alias f11 ladder n6= n7=alias ladder { n8= n9= if ($dialog(fudgeladder) == $null) { n10= n11= dialog -m fudgeladder fudgeladder n12= n13= } n14= n15=} n16= n17=alias fudgeadj { n18= set %fudge 1 n19= unset %fate n20= unset %tsoy n21= unset %personal n22= n23= did -r fudgeladder 101 n24= did -r fudgeladder 103 n25= did -r fudgeladder 104 n26= n27= did -r fudgeladder 91 n28= did -r fudgeladder 93 n29= did -r fudgeladder 94 n30= n31= did -r fudgeladder 81 n32= did -r fudgeladder 83 n33= did -r fudgeladder 84 n34= n35= did -r fudgeladder 71 n36= did -r fudgeladder 73 n37= did -r fudgeladder 74 n38= n39= did -r fudgeladder 61 n40= did -r fudgeladder 63 n41= did -r fudgeladder 64 n42= n43= did -r fudgeladder 51 n44= did -r fudgeladder 53 n45= did -r fudgeladder 54 n46= n47= if (%eng == $null) { n48= n49= did -ar fudgeladder 41 전설적이다 n50= did -ar fudgeladder 43 전설적인 n51= did -ar fudgeladder 44 전설 n52= n53= did -ar fudgeladder 31 엄청나다 n54= did -ar fudgeladder 33 엄청난 n55= did -ar fudgeladder 34 엄청 n56= n57= did -ar fudgeladder 21 대단하다 n58= did -ar fudgeladder 23 대단한 n59= did -ar fudgeladder 24 대단 n60= n61= did -ar fudgeladder 11 좋음 n62= did -ar fudgeladder 13 좋은 n63= did -ar fudgeladder 14 좋다 n64= n65= did -ar fudgeladder 1001 보통 n66= did -ar fudgeladder 1003 평범 n67= did -ar fudgeladder 1004 그럭저럭 n68= n69= did -ar fudgeladder 2001 나쁘다 n70= did -ar fudgeladder 2003 나쁨 n71= did -ar fudgeladder 2004 나쁜 n72= n73= did -ar fudgeladder 2301 형편없다 n74= did -ar fudgeladder 2303 형편없음 n75= did -ar fudgeladder 2304 형편없는 n76= n77= did -ar fudgeladder 2401 최악 n78= did -ar fudgeladder 2403 최저 n79= did -ar fudgeladder 2404 허접 n80= } n81= else { n82= did -ar fudgeladder 41 Legendary n83= did -ar fudgeladder 43 Legend n84= did -ar fudgeladder 44 n85= n86= did -ar fudgeladder 31 Superb n87= did -ar fudgeladder 33 Amazing n88= did -ar fudgeladder 34 Super n89= n90= did -ar fudgeladder 21 Great n91= did -r fudgeladder 23 n92= did -r fudgeladder 24 n93= n94= did -ar fudgeladder 11 Good n95= did -ar fudgeladder 13 Okay n96= did -r fudgeladder 14 n97= n98= did -ar fudgeladder 1001 Fair n99= did -ar fudgeladder 1003 Average n100= did -ar fudgeladder 1004 Normal n101= n102= did -ar fudgeladder 2001 Mediocre n103= did -ar fudgeladder 2003 Bad n104= did -r fudgeladder 2004 n105= n106= did -ar fudgeladder 2301 Poor n107= did -r fudgeladder 2303 n108= did -r fudgeladder 2304 n109= n110= did -ar fudgeladder 2401 Terrible n111= did -ar fudgeladder 2403 Sucks n112= did -ar fudgeladder 2404 Awful n113= } n114= n115= did -r fudgeladder 2501 n116= did -r fudgeladder 2503 n117= did -r fudgeladder 2504 n118= n119= did -r fudgeladder 2601 n120= did -r fudgeladder 2603 n121= did -r fudgeladder 2604 n122= n123= did -h fudgeladder 1912 n124= n125=} n126= n127=alias fateadj { n128= n129= unset %fudge n130= set %fate 1 n131= unset %tsoy n132= unset %personal n133= n134= did -r fudgeladder 101 n135= did -r fudgeladder 103 n136= did -r fudgeladder 104 n137= n138= did -r fudgeladder 91 n139= did -r fudgeladder 93 n140= did -r fudgeladder 94 n141= n142= did -r fudgeladder 81 n143= did -r fudgeladder 83 n144= did -r fudgeladder 84 n145= n146= did -r fudgeladder 71 n147= did -r fudgeladder 73 n148= did -r fudgeladder 74 n149= n150= if (%eng == $null) { n151= did -ra fudgeladder 61 인간 이상 n152= did -ra fudgeladder 63 초인적 n153= did -ra fudgeladder 64 초인 n154= n155= did -ra fudgeladder 51 전설적이다 n156= did -ra fudgeladder 53 전설적인 n157= did -ra fudgeladder 54 전설 n158= n159= did -ar fudgeladder 41 엄청나다 n160= did -ar fudgeladder 43 엄청난 n161= did -ar fudgeladder 44 엄청 n162= n163= did -ar fudgeladder 31 대단하다 n164= did -ar fudgeladder 33 대단한 n165= did -ar fudgeladder 34 대단함 n166= n167= did -ar fudgeladder 21 좋다 n168= did -ar fudgeladder 23 좋음 n169= did -ar fudgeladder 24 좋은 n170= n171= did -ar fudgeladder 11 괜찮다 n172= did -ar fudgeladder 13 괜찮은 n173= did -ar fudgeladder 14 괜찮음 n174= n175= did -ar fudgeladder 1001 보통 n176= did -ar fudgeladder 1003 평범 n177= did -ar fudgeladder 1004 그럭저럭 n178= n179= did -ar fudgeladder 2001 나쁘다 n180= did -ar fudgeladder 2003 나쁜 n181= did -ar fudgeladder 2004 나쁨 n182= n183= did -ar fudgeladder 2301 형편없다 n184= did -ar fudgeladder 2303 형편없음 n185= did -ar fudgeladder 2304 형편없는 n186= n187= did -ar fudgeladder 2401 최악 n188= did -ar fudgeladder 2403 최저 n189= did -ar fudgeladder 2404 허접 n190= } n191= else { n192= n193= did -ra fudgeladder 61 Legendary n194= did -ra fudgeladder 63 Legend n195= did -r fudgeladder 64 n196= n197= did -ra fudgeladder 51 Epic n198= did -r fudgeladder 53 n199= did -r fudgeladder 54 n200= n201= did -ar fudgeladder 41 Superb n202= did -ar fudgeladder 43 Super n203= did -ar fudgeladder 44 Amazing n204= n205= did -ar fudgeladder 31 Great n206= did -r fudgeladder 33 n207= did -r fudgeladder 34 n208= n209= did -ar fudgeladder 21 Good n210= did -ar fudgeladder 23 Pretty n211= did -r fudgeladder 24 n212= n213= did -ar fudgeladder 11 Fair n214= did -ar fudgeladder 13 Okay n215= did -r fudgeladder 14 n216= n217= did -ar fudgeladder 1001 Average n218= did -ar fudgeladder 1003 Normal n219= did -ar fudgeladder 1004 Ordinary n220= n221= did -ar fudgeladder 2001 Mediocre n222= did -ar fudgeladder 2003 Bad n223= did -r fudgeladder 2004 n224= n225= did -ar fudgeladder 2301 Poor n226= did -ar fudgeladder 2303 Ugh n227= did -r fudgeladder 2304 n228= n229= did -ar fudgeladder 2401 Terrible n230= did -ar fudgeladder 2403 Sucks n231= did -ar fudgeladder 2404 Awful n232= } n233= n234= did -r fudgeladder 2501 n235= did -r fudgeladder 2503 n236= did -r fudgeladder 2504 n237= n238= did -r fudgeladder 2601 n239= did -r fudgeladder 2603 n240= did -r fudgeladder 2604 n241= n242= did -h fudgeladder 1912 n243= n244=} n245= n246=alias tsoyadj { n247= unset %fudge n248= unset %fate n249= set %tsoy 1 n250= unset %personal n251= n252= did -r fudgeladder 101 n253= did -r fudgeladder 103 n254= did -r fudgeladder 104 n255= n256= did -r fudgeladder 91 n257= did -r fudgeladder 93 n258= did -r fudgeladder 94 n259= n260= did -r fudgeladder 81 n261= did -r fudgeladder 83 n262= did -r fudgeladder 84 n263= n264= if (%eng == $null) { n265= n266= did -ra fudgeladder 71 초월적 n267= did -r fudgeladder 73 n268= did -r fudgeladder 74 n269= n270= did -ra fudgeladder 61 궁극적 n271= did -r fudgeladder 63 n272= did -r fudgeladder 64 n273= n274= did -ra fudgeladder 51 전설적 n275= did -r fudgeladder 53 n276= did -r fudgeladder 54 n277= n278= did -ar fudgeladder 41 엄청나다 n279= did -ar fudgeladder 43 달인 n280= did -ar fudgeladder 44 고수 n281= n282= did -ar fudgeladder 31 대단하다 n283= did -ar fudgeladder 33 실력자 n284= did -ar fudgeladder 34 실력 n285= n286= did -ar fudgeladder 21 좋다 n287= did -ar fudgeladder 23 유능 n288= did -r fudgeladder 24 n289= n290= did -ar fudgeladder 11 보통 n291= did -ar fudgeladder 13 익숙 n292= did -r fudgeladder 14 n293= n294= did -ar fudgeladder 1001 실패 n295= did -ar fudgeladder 1003 미숙 n296= did -ar fudgeladder 1004 무능 n297= } n298= else { n299= n300= did -ra fudgeladder 71 Transcendent n301= did -r fudgeladder 73 n302= did -r fudgeladder 74 n303= n304= did -ra fudgeladder 61 Ultimate n305= did -r fudgeladder 63 n306= did -r fudgeladder 64 n307= n308= did -ra fudgeladder 51 Legendary n309= did -r fudgeladder 53 n310= did -r fudgeladder 54 n311= n312= did -ar fudgeladder 41 Amazing n313= did -ar fudgeladder 43 Grand n314= did -r fudgeladder 44 n315= n316= did -ar fudgeladder 31 Great n317= did -ar fudgeladder 33 Master n318= did -ar fudgeladder 34 Pro n319= n320= did -ar fudgeladder 21 Good n321= did -ar fudgeladder 23 Adept n322= did -ar fudgeladder 24 Skilled n323= n324= did -ar fudgeladder 11 Marginal n325= did -ar fudgeladder 13 Competent n326= did -ar fudgeladder 14 Able n327= n328= did -ar fudgeladder 1001 Failure n329= did -ar fudgeladder 1003 None n330= did -ar fudgeladder 1004 Unskilled n331= } n332= n333= did -r fudgeladder 2001 n334= did -r fudgeladder 2003 n335= did -r fudgeladder 2004 n336= n337= did -r fudgeladder 2301 n338= did -r fudgeladder 2303 n339= did -r fudgeladder 2304 n340= n341= did -r fudgeladder 2401 n342= did -r fudgeladder 2403 n343= did -r fudgeladder 2404 n344= n345= did -r fudgeladder 2501 n346= did -r fudgeladder 2503 n347= did -r fudgeladder 2504 n348= n349= did -r fudgeladder 2601 n350= did -r fudgeladder 2603 n351= did -r fudgeladder 2604 n352= n353= did -h fudgeladder 1912 n354= n355=} n356= n357=alias personalize { n358= n359= unset %fudge n360= unset %fate n361= unset %tsoy n362= set %personal 1 n363= n364= did -ra fudgeladder 101 %pers.10 n365= did -ra fudgeladder 103 %pers.10.0 n366= did -ra fudgeladder 104 %pers.10.1 n367= n368= did -ra fudgeladder 91 %pers.9 n369= did -ra fudgeladder 93 %pers.9.0 n370= did -ra fudgeladder 94 %pers.9.1 n371= n372= did -ra fudgeladder 81 %pers.8 n373= did -ra fudgeladder 83 %pers.8.0 n374= did -ra fudgeladder 84 %pers.8.1 n375= n376= did -ra fudgeladder 71 %pers.7 n377= did -ra fudgeladder 73 %pers.7.0 n378= did -ra fudgeladder 74 %pers.7.1 n379= n380= did -ra fudgeladder 61 %pers.6 n381= did -ra fudgeladder 63 %pers.6.0 n382= did -ra fudgeladder 64 %pers.6.1 n383= n384= did -ra fudgeladder 51 %pers.5 n385= did -ra fudgeladder 53 %pers.5.0 n386= did -ra fudgeladder 54 %pers.5.1 n387= n388= did -ar fudgeladder 41 %pers.4 n389= did -ar fudgeladder 43 %pers.4.0 n390= did -ar fudgeladder 44 %pers.4.1 n391= n392= did -ar fudgeladder 31 %pers.3 n393= did -ar fudgeladder 33 %pers.3.0 n394= did -ar fudgeladder 34 %pers.3.1 n395= n396= did -ar fudgeladder 21 %pers.2 n397= did -ar fudgeladder 23 %pers.2.0 n398= did -ar fudgeladder 24 %pers.2.1 n399= n400= did -ar fudgeladder 11 %pers.1 n401= did -ar fudgeladder 13 %pers.1.0 n402= did -ar fudgeladder 14 %pers.1.1 n403= n404= did -ar fudgeladder 1001 %pers.0 n405= did -ar fudgeladder 1003 %pers.0.0 n406= did -ar fudgeladder 1004 %pers.0.1 n407= n408= did -ra fudgeladder 2001 %pers.-1 n409= did -ra fudgeladder 2003 %pers.-1.0 n410= did -ra fudgeladder 2004 %pers.-1.1 n411= n412= did -ra fudgeladder 2301 %pers.-2 n413= did -ra fudgeladder 2303 %pers.-2.0 n414= did -ra fudgeladder 2304 %pers.-2.1 n415= n416= did -ra fudgeladder 2401 %pers.-3 n417= did -ra fudgeladder 2403 %pers.-3.0 n418= did -ra fudgeladder 2404 %pers.-3.1 n419= n420= did -ra fudgeladder 2501 %pers.-4 n421= did -ra fudgeladder 2503 %pers.-4.0 n422= did -ra fudgeladder 2504 %pers.-4.1 n423= n424= did -ra fudgeladder 2601 %pers.-5 n425= did -ra fudgeladder 2603 %pers.-5.0 n426= did -ra fudgeladder 2604 %pers.-5.1 n427= n428= did -v fudgeladder 1912 n429= n430=} n431= n432=dialog fudgeladder { n433= n434= title "형용사 진행/Adjective Ladder" n435= size 700 10 250 550 n436= option pixels n437= n438= radio "한국어", 1115, 30 5 50 20, group n439= radio "English", 514, 118 5 60 20 n440= n441= text "+10:", 10, 5 32 20 20 n442= edit %text.10, 101, 30 30 60 20, autohs %text.10 n443= text "|", 102, 100 32 10 20 n444= edit %text.10.0, 103, 112 30 60 20, autohs %text.10.0 n445= edit %text.10.1, 104, 174 30 60 20, autohs %text.10.1 n446= n447= text "+9:", 9, 5 54 20 20 n448= edit %text.9, 91, 30 52 60 20, autohs %text.9 n449= text "|", 92, 100 54 10 20 n450= edit %text.9.0, 93, 112 52 60 20, autohs %text.9.0 n451= edit %text.9.1, 94, 174 52 60 20, autohs %text.9.1 n452= n453= text "+8:", 8, 5 76 20 20 n454= edit %text.8, 81, 30 74 60 20, autohs %text.8 n455= text "|", 82, 100 76 10 20 n456= edit %text.8.0, 83, 112 74 60 20, autohs %text.8.0 n457= edit %text.8.1, 84, 174 74 60 20, autohs %text.8.1 n458= n459= text "+7:", 7, 5 98 20 20 n460= edit %text.7, 71, 30 96 60 20, autohs %text.7 n461= text "|", 72, 100 98 10 20 n462= edit %text.7.0, 73, 112 96 60 20, autohs %text.7.0 n463= edit %text.7.1, 74, 174 96 60 20, autohs %text.7.1 n464= n465= text "+6:", 6, 5 120 20 20 n466= edit %text.6, 61, 30 118 60 20, autohs %text.6 n467= text "|", 62, 100 120 10 20 n468= edit %text.6.0, 63, 112 118 60 20, autohs %text.6.0 n469= edit %text.6.1, 64, 174 118 60 20, autohs %text.6.1 n470= n471= text "+5:", 5, 5 142 20 20 n472= edit %text.5, 51, 30 140 60 20, autohs %text.5 n473= text "|", 52, 100 142 10 20 n474= edit %text.5.0, 53, 112 140 60 20, autohs %text.5.0 n475= edit %text.5.1, 54, 174 140 60 20, autohs %text.5.1 n476= n477= text "+4:", 4, 5 164 20 20 n478= edit %text.4, 41, 30 162 60 20, autohs %text.4 n479= text "|", 42, 100 164 10 20 n480= edit %text.4.0, 43, 112 162 60 20, autohs %text.4.0 n481= edit %text.4.1, 44, 174 162 60 20, autohs %text.4.1 n482= n483= text "+3:", 3, 5 186 20 20 n484= edit %text.3, 31, 30 184 60 20, autohs %text.3 n485= text "|", 32, 100 186 10 20 n486= edit %text.3.0, 33, 112 184 60 20, autohs %text.3.0 n487= edit %text.3.1, 34, 174 184 60 20, autohs %text.3.1 n488= n489= text "+2:", 2, 5 208 20 20 n490= edit %text.2, 21, 30 206 60 20, autohs %text.2 n491= text "|", 22, 100 208 10 20 n492= edit %text.2.0, 23, 112 206 60 20, autohs %text.2.0 n493= edit %text.2.1, 24, 174 206 60 20, autohs %text.2.1 n494= n495= text "+1:", 1, 5 230 20 20 n496= edit %text.1, 11, 30 228 60 20, autohs %text.1 n497= text "|", 12, 100 230 10 20 n498= edit %text.1.0, 13, 112 228 60 20, autohs %text.1.0 n499= edit %text.1.1, 14, 174 228 60 20, autohs %text.1.1 n500= n501= text "+0:", 100, 5 252 20 20 n502= edit %text.0, 1001, 30 250 60 20, autohs %text.0 n503= text "|", 1002, 100 252 10 20 n504= edit %text.0.0, 1003, 112 250 60 20, autohs %text.0.0 n505= edit %text.0.1, 1004, 174 250 60 20, autohs %text.0.1 n506= n507= text "-1:", 200, 5 274 20 20 n508= edit %text.-1, 2001, 30 272 60 20, autohs %text.-1 n509= text "|", 2002, 100 274 10 20 n510= edit %text.-1.0, 2003, 112 272 60 20, autohs %text.-1.0 n511= edit %text.-1.1, 2004, 174 272 60 20, autohs %text.-1.1 n512= n513= text "-2:", 300, 5 296 20 20 n514= edit %text.-2, 2301, 30 294 60 20, autohs %text.-2 n515= text "|", 2302, 100 296 10 20 n516= edit %text.-2.0, 2303, 112 294 60 20, autohs %text.-2.0 n517= edit %text.-2.1, 2304, 174 294 60 20, autohs %text.-2.1 n518= n519= text "-3:", 400, 5 318 20 20 n520= edit %text.-3, 2401, 30 316 60 20, autohs %text.-3 n521= text "|", 2402, 100 318 10 20 n522= edit %text.-3.0, 2403, 112 316 60 20, autohs %text.-3.0 n523= edit %text.-3.1, 2404, 174 316 60 20, autohs %text.-3.1 n524= n525= text "-4:", 500, 5 340 20 20 n526= edit %text.-4, 2501, 30 338 60 20, autohs %text.-4 n527= text "|", 2502, 100 340 10 20 n528= edit %text.-4.0, 2503, 112 338 60 20, autohs %text.-4.0 n529= edit %text.-4.1, 2504, 174 338 60 20, autohs %text.-4.1 n530= n531= text "-5:", 600, 5 362 20 20 n532= edit %text.-5, 2601, 30 360 60 20, autohs %text.-5 n533= text "|", 2602, 100 362 10 20 n534= edit %text.-5.0, 2603, 112 360 60 20, autohs %text.-5.0 n535= edit %text.-5.1, 2604, 174 360 60 20, autohs %text.-5.1 n536= n537= radio "퍼지(FUDGE)", 621, 7 395 100 20, group n538= radio "페이트(FATE)", 612, 110 395 100 20 n539= radio "과거의 그늘 2판", 201, 7 425 120 20 n540= radio "개인 정의", 1651, 130 425 80 20 n541= radio "초기화", 914, 7 455 80 20 n542= n543= button "OK", 1511, 7 487 200 20, ok n544= button "SAVE", 1912, 7 517 200 20 n545=} n546= n547=on *:dialog:fudgeladder:init:0: { n548= n549= if (%fudge != $null) { n550= did -c fudgeladder 621 n551= } n552= if (%fate != $null) { n553= did -c fudgeladder 612 n554= } n555= if (%tsoy != $null) { n556= did -c fudgeladder 201 n557= } n558= if (%personal != $null) { n559= did -c fudgeladder 1651 n560= did -v fudgeladder 1912 n561= } n562= else { n563= did -h fudgeladder 1912 n564= } n565= if (%eng == $null) { n566= did -c fudgeladder 1115 n567= } n568= if (%eng != $null) { n569= did -c fudgeladder 514 n570= n571= did -ra fudgeladder 621 FUDGE n572= did -ra fudgeladder 612 FATE n573= did -ra fudgeladder 201 TSOY 2nd Ed. n574= did -ra fudgeladder 1651 Personalize n575= did -ra fudgeladder 914 Initialize n576= } n577= n578=} n579= n580=on *:dialog:fudgeladder:sclick:621: { n581= fudgeadj n582=} n583=on *:dialog:fudgeladder:sclick:612: { n584= fateadj n585=} n586=on *:dialog:fudgeladder:sclick:201: { n587= tsoyadj n588=} n589=on *:dialog:fudgeladder:sclick:1651: { n590= personalize n591=} n592= n593=;save personalized adjective ladder n594= n595=on *:dialog:fudgeladder:sclick:1912: { n596= n597= set %pers.10 $did(fudgeladder,101) n598= set %pers.10.0 $did(fudgeladder,103) n599= set %pers.10.1 $did(fudgeladder,104) n600= n601= set %pers.9 $did(fudgeladder,91) n602= set %pers.9.0 $did(fudgeladder,93) n603= set %pers.9.1 $did(fudgeladder,94) n604= n605= set %pers.8 $did(fudgeladder,81) n606= set %pers.8.0 $did(fudgeladder,83) n607= set %pers.8.1 $did(fudgeladder,84) n608= n609= set %pers.7 $did(fudgeladder,71) n610= set %pers.7.0 $did(fudgeladder,73) n611= set %pers.7.1 $did(fudgeladder,74) n612= n613= set %pers.6 $did(fudgeladder,61) n614= set %pers.6.0 $did(fudgeladder,63) n615= set %pers.6.1 $did(fudgeladder,64) n616= n617= set %pers.5 $did(fudgeladder,51) n618= set %pers.5.0 $did(fudgeladder,53) n619= set %pers.5.1 $did(fudgeladder,54) n620= n621= set %pers.4 $did(fudgeladder,41) n622= set %pers.4.0 $did(fudgeladder,43) n623= set %pers.4.1 $did(fudgeladder,44) n624= n625= set %pers.3 $did(fudgeladder,31) n626= set %pers.3.0 $did(fudgeladder,33) n627= set %pers.3.1 $did(fudgeladder,34) n628= n629= set %pers.2 $did(fudgeladder,21) n630= set %pers.2.0 $did(fudgeladder,23) n631= set %pers.2.1 $did(fudgeladder,24) n632= n633= set %pers.1 $did(fudgeladder,11) n634= set %pers.1.0 $did(fudgeladder,13) n635= set %pers.1.1 $did(fudgeladder,14) n636= n637= set %pers.0 $did(fudgeladder,1001) n638= set %pers.0.0 $did(fudgeladder,1003) n639= set %pers.0.1 $did(fudgeladder,1004) n640= n641= set %pers.-1 $did(fudgeladder,2001) n642= set %pers.-1.0 $did(fudgeladder,2003) n643= set %pers.-1.1 $did(fudgeladder,2004) n644= n645= set %pers.-2 $did(fudgeladder,2301) n646= set %pers.-2.0 $did(fudgeladder,2303) n647= set %pers.-2.1 $did(fudgeladder,2304) n648= n649= set %pers.-3 $did(fudgeladder,2401) n650= set %pers.-3.0 $did(fudgeladder,2403) n651= set %pers.-3.1 $did(fudgeladder,2404) n652= n653= set %pers.-4 $did(fudgeladder,2501) n654= set %pers.-4.0 $did(fudgeladder,2503) n655= set %pers.-4.1 $did(fudgeladder,2504) n656= n657= set %pers.-5 $did(fudgeladder,2601) n658= set %pers.-5.0 $did(fudgeladder,2603) n659= set %pers.-5.1 $did(fudgeladder,2604) n660= n661= unset %num n662= n663= did -ra fudgeladder 1912 SAVED $timestamp n664=} n665= n666=;initialize n667= n668=on *:dialog:fudgeladder:sclick:914:{ n669= unset %fudge n670= unset %fate n671= unset %tsoy n672= unset %personal n673= n674= did -r fudgeladder 101 n675= did -r fudgeladder 103 n676= did -r fudgeladder 104 n677= n678= did -r fudgeladder 91 n679= did -r fudgeladder 93 n680= did -r fudgeladder 94 n681= n682= did -r fudgeladder 81 n683= did -r fudgeladder 83 n684= did -r fudgeladder 84 n685= n686= did -r fudgeladder 71 n687= did -r fudgeladder 73 n688= did -r fudgeladder 74 n689= n690= did -r fudgeladder 61 n691= did -r fudgeladder 63 n692= did -r fudgeladder 64 n693= n694= did -r fudgeladder 51 n695= did -r fudgeladder 53 n696= did -r fudgeladder 54 n697= n698= did -r fudgeladder 41 n699= did -r fudgeladder 43 n700= did -r fudgeladder 44 n701= n702= did -r fudgeladder 31 n703= did -r fudgeladder 33 n704= did -r fudgeladder 34 n705= n706= did -r fudgeladder 21 n707= did -r fudgeladder 23 n708= did -r fudgeladder 24 n709= n710= did -r fudgeladder 11 n711= did -r fudgeladder 13 n712= did -r fudgeladder 14 n713= n714= did -r fudgeladder 1001 n715= did -r fudgeladder 1003 n716= did -r fudgeladder 1004 n717= n718= did -r fudgeladder 2001 n719= did -r fudgeladder 2003 n720= did -r fudgeladder 2004 n721= n722= did -r fudgeladder 2301 n723= did -r fudgeladder 2303 n724= did -r fudgeladder 2304 n725= n726= did -r fudgeladder 2401 n727= did -r fudgeladder 2403 n728= did -r fudgeladder 2404 n729= n730= did -r fudgeladder 2501 n731= did -r fudgeladder 2503 n732= did -r fudgeladder 2504 n733= n734= did -r fudgeladder 2601 n735= did -r fudgeladder 2603 n736= did -r fudgeladder 2604 n737= n738= did -h fudgeladder 1912 n739= n740=} n741= n742=;Korean - 한국어 n743= n744=on *:dialog:fudgeladder:sclick:1115: { n745= unset %eng n746= n747= if (%fudge != $null) { n748= fudgeadj n749= } n750= if (%fate != $null) { n751= fateadj n752= } n753= if (%tsoy != $null) { n754= tsoyadj n755= } n756= n757= did -ra fudgeladder 621 퍼지(FUDGE) n758= did -ra fudgeladder 612 페이트(FATE) n759= did -ra fudgeladder 201 과거의 그늘 2판 n760= did -ra fudgeladder 1651 개인 정의 n761= did -ra fudgeladder 914 초기화 n762=} n763= n764=;English - 영어 n765= n766=on *:dialog:fudgeladder:sclick:514: { n767= set %eng 1 n768= n769= if (%fudge != $null) { n770= fudgeadj n771= } n772= if (%fate != $null) { n773= fateadj n774= } n775= if (%tsoy != $null) { n776= tsoyadj n777= } n778= n779= did -ra fudgeladder 621 FUDGE n780= did -ra fudgeladder 612 FATE n781= did -ra fudgeladder 201 TSOY 2nd Ed. n782= did -ra fudgeladder 1651 Personalize n783= did -ra fudgeladder 914 Initialize n784= n785=} n786= n787=alias laddershow { n788= set %toprung 10 n789= n790= while ($($+(%,text.,%toprung),2) == $null) { n791= set %toprung $calc(%toprung - 1) n792= } n793= ;end while n794= n795= set %bottomrung -5 n796= n797= while ($($+(%,text.,%bottomrung),2) == $null) { n798= inc %bottomrung n799= } n800= ;end second while n801= n802= set %step %toprung n803= n804= while (%step >= %bottomrung) { n805= n806= if (2 // %step) { n807= set %color 5 n808= } n809= else { n810= set %color 6 n811= } n812= n813= if (%showladder != $null) { n814= set %steps %steps  $+ %color $+ $($+(%,text.,%step),2) $+ / $+ $($+(%,text.,%step,.0),2) $+ / $+ $($+(%,text.,%step,.1),2) $+ ( $+ %step $+ ) n815= } n816= else { n817= set %steps %steps  $+ %color $+ $($+(%,text.,%step),2) $+ ( $+ %step $+ ) n818= } n819= n820= set %step $calc(%step - 1) n821= } n822= ;end third while n823=} n824= n825= n826=on *:text:*사다리*:?: { n827= n828= if (%text.0 != $null) { n829= n830= set %showladder 1 n831= laddershow n832= msg $nick %steps n833= unset %steps n834= } n835= ;end if %text.0 != $null n836= else { n837= msg $chan 14형용사 사다리가 없습니다. 다이스 제공창에서 2F1114을 눌러서 설정해 주세요. n838= } n839=} n840=;end ladder showing n841= n842=on *:text:*ladder*:?: { n843= n844= if (%text.0 != $null) { n845= set %showladder 1 n846= laddershow n847= n848= msg $nick %steps n849= unset %steps n850= } n851= ;end if %text.0 != $null n852= else { n853= msg $chan 14There is no adjective ladder. Press 2F1114 in the dice window to set one. n854= } n855=} n856=;end ladder showing n857= n858= n859=;퍼지 다이스 굴리기 n860=on *:text:*dF*:#: { n861= n862= var %dfpos = $pos($1-,df,1) n863= var %dfpos = $calc(%dfpos - 1) n864= set %count $mid($1-,%dfpos,1) n865= n866= n867= if (%count isnum) && (%count > 0) { n868= n869= set %lastnick $nick n870= n871= if (- isin $1-) { n872= n873= var %mpos = $pos($1-,-,1) n874= inc %mpos n875= n876= set %mod $mid($1-,%mpos,1) n877= n878= if (%mod !isnum) { n879= unset %mod n880= goto skip n881= } n882= n883= set %modifier %mod n884= set %mod $calc(%mod * -1) n885= set %modsymbol - n886= n887= } n888= n889= :skip n890= n891= if (+ isin $1-) { n892= n893= var %mpos = $pos($1-,+,1) n894= inc %mpos n895= n896= set %mod $mid($1-,%mpos,1) n897= n898= if (%mod !isnum) { n899= unset %mod n900= goto skip2 n901= } n902= n903= set %modifier %mod n904= set %modsymbol + n905= } n906= n907= :skip2 n908= n909= var %num = 1 n910= n911= while (%num <= %count) { n912= n913= set %temp $calc($rand(1,3) - 2) n914= n915= if (%num == 1) { n916= set %dicetext %temp n917= set %total %temp n918= set %dicetextsoy %temp n919= } n920= n921= else { n922= n923= set %total $calc(%total + %temp) n924= set %dicetextsoy %dicetextsoy $+ , $+ %temp n925= n926= if (%temp >= 0) { n927= n928= set %symbol + n929= } n930= else { n931= set %temp $calc(%temp * -1) n932= set %symbol - n933= } n934= n935= set %dicetext $($+(%dicetext,%symbol,%temp),1) n936= } n937= n938= inc %num n939= } n940= ;end while n941= n942= if (%mod != $null) { n943= set %total $calc(%total + %mod) n944= } n945= n946= if (%text.0 != $null) { n947= n948= set %baseline yes n949= n950= set %rung -5 n951= set %matches 0 n952= n953= while (%rung <= 15) { n954= n955= var %word = $($+(%,text.,%rung),2) n956= var %word.0 = $($+(%,text.,%rung,.0),2) n957= var %word.1 = $($+(%,text.,%rung,.1),2) n958= n959= if (%word != $null) && (%word isin $1-) { n960= n961= set %base %rung n962= inc %matches n963= goto endloop n964= } n965= if (%word.0 != $null) && (%word.0 isin $1-) { n966= set %base %rung n967= inc %matches n968= goto endloop n969= } n970= if (%word.1 != $null) && (%word.1 isin $1-) { n971= set %base %rung n972= inc %matches n973= goto endloop n974= } n975= n976= inc %rung n977= } n978= ;end while n979= n980= :endloop n981= n982= if (%matches == 0) { n983= unset %baseline n984= } n985= n986= n987= set %result $calc(%base + %total) n988= n989= if ($($+(%,text.,%result),2) == $null) { n990= n991= set %rung %result n992= n993= if (%result > 0) { n994= n995= while ($($+(%,text.,%rung),2) == $null) { n996= set %rung $calc(%rung - 1) n997= } n998= n999= set %reached $($+(%,text.,%rung),2) $+ + $+ $calc(%result - %rung) n1000= } n1001= else { n1002= while ($($+(%,text.,%rung),2) == $null) { n1003= set %rung $calc(%rung + 1) n1004= } n1005= n1006= set %reached $($+(%,text.,%rung),2) $+ $calc(%result - %rung) n1007= } n1008= } n1009= ;end if result $null of words n1010= n1011= else { n1012= set %reached $($+(%,text.,%result),2) n1013= } n1014= n1015= } n1016= ;end if %text.0 != $null n1017= n1018= else { n1019= unset %baseline n1020= } n1021= n1022= if (%baseline != $null) { n1023= if (%mod != $null) { n1024= if (%eng == $null) { n1025= msg $chan 14 $+ $nick $+ 님의 굴림은 %count $+ dF( $+ %dicetext $+ ) $+ %modsymbol $+ %modifier $+ = $+ %total $+ , 결과는 %reached $+ ( $+ %result $+ ) 입니다. n1026= } n1027= else { n1028= msg $chan 14 $+ $nick $+ 's roll is %count $+ dF( $+ %dicetext $+ ) $+ %modsymbol $+ %modifier $+ = $+ %total $+ , for a total of %reached $+ ( $+ %result $+ ). n1029= } n1030= } n1031= else { n1032= if (%eng == $null) { n1033= msg $chan 14 $+ $nick $+ 님의 굴림은 %count $+ dF( $+ %dicetext $+ )= $+ %total $+ , 결과는 %reached $+ ( $+ %result $+ ) 입니다. n1034= } n1035= else { n1036= msg $chan 14 $+ $nick $+ 's roll is %count $+ dF( $+ %dicetext $+ )= $+ %total $+ , for a result of %reached $+ ( $+ %result $+ ). n1037= } n1038= } n1039= } n1040= n1041= else { n1042= if (%mod != $null) { n1043= if (%eng == $null) { n1044= msg $chan 14 $+ $nick $+ 님의 굴림은 %count $+ dF( $+ %dicetext $+ ) $+ %modsymbol $+ %modifier $+ = %total 입니다. n1045= } n1046= else { n1047= msg $chan 14 $+ $nick $+ 's roll is %count $+ dF( $+ %dicetext $+ ) $+ %modsymbol $+ %modifier $+ = %total . n1048= } n1049= } n1050= else { n1051= if (%eng == $null) { n1052= msg $chan 14 $+ $nick $+ 님의 굴림은 %count $+ dF( $+ %dicetext $+ )= %total 입니다. n1053= } n1054= else { n1055= msg $chan 14 $+ $nick $+ 's roll is %count $+ dF( $+ %dicetext $+ )= %total . n1056= } n1057= } n1058= } n1059= n1060= ;msg $chan %dicetextsoy n1061= n1062= unset %total n1063= unset %mod n1064= unset %modifier n1065= unset %modsymbol n1066= unset %result n1067= } n1068= ;end if %count is number larger than zero n1069=} n1070=;end dice n1071=;퍼지 다이스 스크립트 끝 n1072= n1073=;보너스 다이스 추가(과거의 그늘 2판) n1074=on *:text:+*:#: { n1075= n1076= if ($nick == %lastnick) { n1077= n1078= if ($len($1) == 1) { n1079= set %bonus 1 n1080= } n1081= else { n1082= set %bonus $mid($1-,2,1) n1083= ;debug n1084= ;msg $chan %bonus n1085= } n1086= n1087= if (%bonus !isnum) { n1088= goto endfunction n1089= } n1090= n1091= n1092= var %num = 1 n1093= n1094= while (%num <= %bonus) { n1095= n1096= var %temp = $calc($rand(1,3) - 2) n1097= set %dicetextsoy %dicetextsoy $+ , $+ %temp n1098= n1099= if (%num == 1) { n1100= set %bonusdice %temp n1101= } n1102= else { n1103= set %bonusdice %bonusdice $+ , $+ %temp n1104= } n1105= inc %num n1106= } n1107= ;end while n1108= n1109= set %sorted $sorttok(%dicetextsoy,44,nr) n1110= n1111= ;msg $chan %dicetextsoy n1112= ;msg $chan %sorted n1113= n1114= var %num = 1 n1115= n1116= while (%num <= %count) { n1117= n1118= var %temp = $calc($gettok(%sorted,%num,44) * 1) n1119= n1120= if (%num == 1) { n1121= n1122= set %dicetext %temp n1123= set %dicetextsoy %temp n1124= set %total %temp n1125= } n1126= else { n1127= n1128= set %total $calc(%total + %temp) n1129= set %dicetextsoy %dicetextsoy $+ , $+ %temp n1130= n1131= if (%temp >= 0) { n1132= set %symbol + n1133= } n1134= else { n1135= set %temp $calc(%temp * -1) n1136= set %symbol - n1137= } n1138= n1139= set %dicetext $($+(%dicetext,%symbol,%temp),1) n1140= } n1141= n1142= inc %num n1143= n1144= } n1145= ;end while n1146= n1147= unset %temp n1148= n1149= if (%baseline != $null) { n1150= n1151= set %result $calc(%base + %total) n1152= n1153= if ($($+(%,text.,%result),2) == $null) { n1154= n1155= set %rung %result n1156= n1157= if (%result > 0) { n1158= n1159= while ($($+(%,text.,%rung),2) == $null) { n1160= set %rung $calc(%rung - 1) n1161= } n1162= n1163= set %reached $($+(%,text.,%rung),2) $+ + $+ $calc(%result - %rung) n1164= n1165= } n1166= else { n1167= while ($($+(%,text.,%rung),2) == $null) { n1168= set %rung $calc(%rung + 1) n1169= } n1170= n1171= set %reached $($+(%,text.,%rung),2) $+ $calc(%result - %rung) n1172= n1173= } n1174= n1175= } n1176= ;end if result $null of words n1177= n1178= else { n1179= n1180= set %reached $($+(%,text.,%result),2) n1181= } n1182= } n1183= n1184= if (%baseline == $null) { n1185= n1186= ;debug n1187= ;msg $chan baseline null n1188= n1189= if (%eng == $null) { n1190= msg $chan 14 $+ $nick $+ 님이 보너스 다이스를 %bonus $+ 개 굴리신 결과는 %bonus $+ dF( $+ %bonusdice $+ )이며 새로운 결과는 %count $+ dF( $+ %dicetext $+ ) = %total 입니다. n1191= } n1192= else { n1193= msg $chan 14 $+ $nick rolled %bonus bonus dice, %bonus $+ dF( $+ %bonusdice $+ ) for a new total of %count $+ dF( $+ %dicetext $+ ) = %total . n1194= n1195= } n1196= } n1197= else { n1198= if (%eng == $null) { n1199= msg $chan 14 $+ $nick $+ 님이 보너스 다이스를 %bonus $+ 개 굴리신 결과는 %bonus $+ dF( $+ %bonusdice $+ )이며 새로운 굴림은 %count $+ dF( $+ %dicetext $+ ) = %total $+ , 결과는 %reached $+ ( $+ %result $+ ) 입니다. n1200= } n1201= else { n1202= msg $chan 14 $+ $nick rolled %bonus bonus dice, %bonus $+ dF( $+ %bonusdice $+ ) for a new total of %count $+ dF( $+ %dicetext $+ ) = %total and a new result of %reached $+ ( $+ %result $+ ). n1203= } n1204= } n1205= unset %dicetext n1206= n1207= } n1208= ;end $nick %lastnick n1209= n1210= :endfunction n1211=} n1212=;end bonus dice n1213= n1214=;페널티 다이스 추가(과거의 그늘 2판) n1215=on *:text:-*:#: { n1216= n1217= if ($nick == %lastnick) { n1218= n1219= if ($len($1) == 1) { n1220= set %penalty 1 n1221= } n1222= else { n1223= set %penalty $calc($gettok($1,1,45) * 1) n1224= } n1225= n1226= if (%penalty !isnum) { n1227= n1228= goto endfunction n1229= n1230= } n1231= n1232= set %num 1 n1233= n1234= while (%num <= %penalty) { n1235= n1236= set %temp $calc($rand(1,3) - 2) n1237= set %dicetextsoy %dicetextsoy $+ , $+ %temp n1238= n1239= if (%num == 1) { n1240= set %penaltydice %temp n1241= } n1242= else { n1243= set %penaltydice %penaltydice $+ , $+ %temp n1244= } n1245= inc %num n1246= } n1247= n1248= set %sorted $sorttok(%dicetextsoy,44,n) n1249= n1250= ;msg $chan %dicetextsoy n1251= n1252= set %num 1 n1253= n1254= while (%num <= %count) { n1255= n1256= set %temp $calc($gettok(%sorted,%num,44) * 1) n1257= n1258= n1259= if (%num == 1) { n1260= n1261= set %dicetext %temp n1262= set %dicetextsoy %temp n1263= set %total %temp n1264= } n1265= else { n1266= n1267= set %total $calc(%total + %temp) n1268= set %dicetextsoy %dicetextsoy $+ , $+ %temp n1269= n1270= if (%temp >= 0) { n1271= set %symbol + n1272= } n1273= else { n1274= set %temp $calc(%temp * -1) n1275= set %symbol - n1276= } n1277= n1278= set %dicetext $($+(%dicetext,%symbol,%temp),1) n1279= } n1280= n1281= unset %temp n1282= n1283= inc %num n1284= } n1285= ;end while n1286= n1287= if (%baseline != $null) { n1288= set %result $calc(%base + %total) n1289= n1290= if ($($+(%,text.,%result),2) == $null) { n1291= n1292= set %rung %result n1293= n1294= if (%result > 0) { n1295= n1296= while ($($+(%,text.,%rung),2) == $null) { n1297= set %rung $calc(%rung - 1) n1298= } n1299= n1300= set %reached $($+(%,text.,%rung),2) $+ + $+ $calc(%result - %rung) n1301= n1302= } n1303= else { n1304= while ($($+(%,text.,%rung),2) == $null) { n1305= set %rung $calc(%rung + 1) n1306= } n1307= n1308= set %reached $($+(%,text.,%rung),2) $+ $calc(%result - %rung) n1309= n1310= } n1311= n1312= } n1313= ;end if result $null of words n1314= n1315= else { n1316= n1317= set %reached $($+(%,text.,%result),2) n1318= } n1319= } n1320= n1321= if (%baseline == $null) { n1322= if (%eng == $null) { n1323= msg $chan 14 $+ $nick $+ 14님이 페널티 다이스를 %penalty $+ 개 굴리신 결과는 %penalty $+ dF( $+ %penaltydice $+ )이며 새로운 결과는 %count $+ dF( $+ %dicetext $+ ) = %total 14입니다. n1324= } n1325= else { n1326= msg $chan 14 $+ $nick rolled %penalty penalty dice, %penalty $+ dF( $+ %penaltydice $+ ), for a new total of %count $+ dF( $+ %dicetext $+ ) = %total . n1327= } n1328= } n1329= else { n1330= if (%eng == $null) { n1331= msg $chan 14 $+ $nick $+ 님이 페널티 다이스를 %penalty $+ 개 굴리신 결과는 %penalty $+ dF( $+ %penaltydice $+ )이며 새로운 굴림은 %count $+ dF( $+ %dicetext $+ ) = %total $+ , 결과는 %reached $+ ( $+ %result $+ ) 입니다. n1332= } n1333= else { n1334= msg $chan 14 $+ $nick rolled %penalty penalty dice, %penalty $+ dF( $+ %penaltydice $+ ), for a new total of %count $+ dF( $+ %dicetext $+ ) = %total $+ , and a new result of %reached $+ ( $+ %result $+ ). n1335= } n1336= } n1337= unset %dicetext n1338= set %lastnick $nick n1339= } n1340= ;end $nick %lastnick n1341= n1342= :endfunction n1343= n1344=} n1345=;end penalty dice n1346=;퍼지다이스 끝