nOthello — File Browser
nOthellov1.0b / nOthellov1.0b / nothell2.ini
nothell2.ini — 22.9 KB — Download this file
[aliases]
n0=; nOthello v1.0b by Nabiki^sKnight
n1=nkobmpshow {
n2= if (%~nkobmp == $null) {
n3= %~nkobmp = $dir="BMP file to show:" *.bmp
n4= if (%~nkobmp == $null) goto End
n5= if ($chr(32) isin %~nkobmp) %~nkobmp = " $+ %~nkobmp $+ "
n6= }
n7= %~nkobmp2 = $pic($remove(%~nkobmp,")).width
n8= %~nkobmp3 = $pic($remove(%~nkobmp,")).height
n9= %~nkobmp2 = $int($calc(%~nkobmp2 / 29))
n10= %~nkobmp3 = $int($calc(%~nkobmp3 / 29))
n11= window -p @nOthello-BMP 0 0 $calc((%~nkobmp2 * 31) + 20) $calc((%~nkobmp3 * 31) + 40)
n12= %~nkobmp1 = 1
n13= :A | drawtext -nor @nOthello-BMP 1 Arial 10 $calc(((%~nkobmp1 - 1) * 31) + 24) 1 %~nkobmp1
n14= if (%~nkobmp1 < %~nkobmp2) { inc %~nkobmp1 1 | goto A }
n15= %~nkobmp1 = 1
n16= :B | drawtext -nor @nOthello-BMP 1 Arial 10 1 $calc(((%~nkobmp1 - 1) * 31) + 20) %~nkobmp1
n17= if (%~nkobmp1 < %~nkobmp3) { inc %~nkobmp1 1 | goto B }
n18= drawpic -n @nOthello-BMP 12 10 %~nkobmp
n19= drawdot @nOthello-BMP
n20= :End
n21= if ($1 == $null) unset %~nkobmp %~nkobmp1 %~nkobmp2 %~nkobmp3
n22=}
n23=nkobmp {
n24= if ($2 == t) {
n25= if ($window(@nOthello-BMPT) != $null) halt
n26= %~nkobmp = $gettok(%nkobmp,$1,42) | if ($left(%~nkobmp,1) isnum) %~nkobmp = $gettok(%~nkobmp,5-,32)
n27= if (%~nkobmp == $null) halt
n28= if ($exists($remove(%~nkobmp,")) != $true) {
n29= nkoquery 1 4***14 P $+ $1 $+ : $remove(%~nkobmp,") does not exist
n30= unset %~nkobmp | drawpic -c
n31= halt
n32= }
n33= %~nkobmp3 = $gettok(%nkobmp,$1,42) | goto T
n34= }
n35= window -c @nOthello-BMPT
n36= :A | %~nkobmp = $dir="BMP file for Player [ $1 ] $+ :" *.bmp
n37= if (%~nkobmp == $null) {
n38= if (($gettok(%nkobmp,$1,42) != x) && ($gettok(%nkobmp,$1,42) != $null) && ($?="Unset current pic for player [ $1 ] $+ ? (Y/N)" == y)) {
n39= %nkobmp = $puttok(%nkobmp,x,$1,42) | %nkobmp = $puttok(%nkobmp,x,$calc($1 + 2),42)
n40= drawpic -c | nkoref
n41= }
n42= goto End
n43= }
n44= if ($right(%~nkobmp,4) != .bmp) goto A
n45= if ($chr(32) isin %~nkobmp) %~nkobmp = " $+ %~nkobmp $+ "
n46= nkobmpshow 0
n47= :B | %~nkobmp1 = $?="Picture coordinates: (1,1 to [ %~nkobmp2 ] $+ , $+ [ %~nkobmp3 ] $+ ; F to Fit)"
n48= if (%~nkobmp1 == $null) goto B
n49= if (%~nkobmp1 != f) {
n50= if (($gettok(%~nkobmp1,1,44) < 1) || ($gettok(%~nkobmp1,2,44) < 1) || ($gettok(%~nkobmp1,1,44) > %~nkobmp2) || ($gettok(%~nkobmp1,2,44) > %~nkobmp3)) goto B
n51= %~nkobmp3 = $calc(($gettok(%~nkobmp1,1,44) - 1) * 31) $calc(($gettok(%~nkobmp1,2,44) - 1) * 31) 31 31 %~nkobmp
n52= }
n53= else %~nkobmp3 = %~nkobmp
n54= if (((%~nkobmp3 == $gettok(%nkobmp,1,42)) && ($1 == 2)) || ((%~nkobmp3 == $gettok(%nkobmp,2,42)) && ($1 == 1))) goto B
n55= if (%nkobmp == $null) %nkobmp = x*x*x*x*x*x*x
n56= %nkobmp = $puttok(%nkobmp,%~nkobmp3,$1,42)
n57= %nkobmp = $puttok(%nkobmp,x,$calc($1 + 2),42)
n58= window -c @nOthello-BMP
n59= :T | window -p @nOthello-BMPT 0 0 132 198
n60= %~nkobmp1 = 0 | %~nkobmp2 = 0
n61= :C | drawpic -ns @nOthello-BMPT %~nkobmp1 %~nkobmp2 31 31 %~nkobmp3
n62= if (%~nkobmp1 < 63) { inc %~nkobmp1 31 | goto C } | else %~nkobmp1 = 0
n63= if (%~nkobmp2 < 63) { inc %~nkobmp2 31 | goto C }
n64= drawtext -nor @nOthello-BMPT 0 Arial 12 2 124 Double-click on the color
n65= drawtext -nor @nOthello-BMPT 0 Arial 12 2 134 to be transparent, or in
n66= drawtext -nor @nOthello-BMPT 0 Arial 12 2 144 this area for none. Close
n67= drawtext -nor @nOthello-BMPT 0 Arial 12 2 154 this window when done.
n68= drawdot @nOthello-BMPT
n69= %nkobmpt = $1
n70= if ($2 != t) nkoref
n71= :End
n72= window -c @nOthello-BMP
n73= unset %~nkobmp %~nkobmp1 %~nkobmp2 %~nkobmp3
n74=}
n75=nkobmptrans {
n76= if (%nkobmpt == $null) { window -c @nOthello-BMPT | halt }
n77= if ($2 > 123) %nkobmp = $puttok(%nkobmp,x,$calc(%nkobmpt + 2),42)
n78= else %nkobmp = $puttok(%nkobmp,$getdot(@nOthello-BMPT,$1,$2),$calc(%nkobmpt + 2),42)
n79= nkoref
n80= if ($window(@nOthello-Info) != $null) nkoinfo
n81=}
n82=nkobmpbg {
n83= if (($window(@nOthello-BMPBG) != $null) || (%nkobmpa != $null) || (%nkobmpaxy != $null)) { window -c @nOthello-BMPBG | unset %nkobmpa %nkobmpaxy }
n84= :A | %~nkobmp = $dir="BMP file:" *.bmp
n85= if (%~nkobmp == $null) {
n86= if ((%~nkobmp1 == $null) && ($gettok(%nkobmp,5,42) != x) && ($gettok(%nkobmp,5,42) != $null) && ($?="Unset current pic for background? (Y/N)" == y)) {
n87= %nkobmp = $puttok(%nkobmp,x,5,42) | %nkobmp = $puttok(%nkobmp,x,6,42) | nkoref
n88= }
n89= goto End
n90= }
n91= if (($pic(%~nkobmp).height < 8) || ($pic(%~nkobmp).width < 8)) goto A
n92= %~nkobmp1 = y | if (%nkobmp == $null) %nkobmp = x*x*x*x*x*x*x
n93= if ($chr(32) isin %~nkobmp) %~nkobmp = " $+ %~nkobmp $+ "
n94= %nkobmp = $puttok(%nkobmp,%~nkobmp,5,42)
n95= nkobmpbgt 0
n96= nkoref | goto A
n97= :End | unset %~nkobmp %~nkobmp1
n98=}
n99=nkobmpbgt {
n100= if (($gettok(%nkobmp,5,42) == x) || ($gettok(%nkobmp,5,42) == $null)) goto End
n101= nkoquery 1 15» 14Normal (N), Tile (T), Fit Window (FW) or Fit Board (FB)
n102= :A | if ($?="Enter choice: (N/TW/TB/FW/FB)" == n) %nkobmp = $puttok(%nkobmp,1,6,42)
n103= elseif ($! == fw) %nkobmp = $puttok(%nkobmp,2,6,42)
n104= elseif ($! == fb) %nkobmp = $puttok(%nkobmp,3,6,42)
n105= elseif ($! == tw) %nkobmp = $puttok(%nkobmp,4,6,42)
n106= elseif ($! == tb) %nkobmp = $puttok(%nkobmp,5,6,42)
n107= elseif ($1 == 0) goto A
n108= if (($1 != 0) && ($! != $null)) nkoref
n109= :End
n110=}
n111=nkobmpbga {
n112= if (($gettok(%nkobmp,5,42) == x) || ($gettok(%nkobmp,5,42) == $null)) goto End
n113= if ($window(@nOthello-BMPBG) != $null) window -c @nOthello-BMPBG
n114= %~nkobmpbga = $remove($nkocol(5,f),")
n115= if ($exists(%~nkobmpbga) != $true) { nkoquery 1 4***14 %~nkobmpbga does not exist | goto End }
n116= %~nkobmpbga1 = 1 | %~nkobmpbga3 = $round($calc( [ $window(-1).w ] / 2),0)
n117= :A | if ($calc( [ $pic(%~nkobmpbga).width ] / %~nkobmpbga1) > %~nkobmpbga3) { inc %~nkobmpbga1 1 | goto A }
n118= %~nkobmpbga2 = 1 | %~nkobmpbga4 = $round($calc( [ $window(-1).h ] / 2),0)
n119= :B | if ($calc( [ $pic(%~nkobmpbga).height ] / %~nkobmpbga2) > %~nkobmpbga4) { inc %~nkobmpbga2 1 | goto B }
n120= if (%~nkobmpbga1 < %~nkobmpbga2) %nkobmpa = %~nkobmpbga2 | else %nkobmpa = %~nkobmpbga1
n121= %~nkobmpbga1 = $round($calc( [ $pic(%~nkobmpbga).width ] / %nkobmpa),0) | if (%~nkobmpbga1 < 8) %~nkobmpbga1 = 8
n122= %~nkobmpbga2 = $round($calc( [ $pic(%~nkobmpbga).height ] / %nkobmpa),0) | if (%~nkobmpbga2 < 8) %~nkobmpbga2 = 8
n123= %~nkobmpbga1 = %~nkobmpbga1 %~nkobmpbga2
n124= %nkobmpa = %nkobmpa $gettok(%~nkobmpbga1,2,32)
n125= window -p @nOthello-BMPBG 0 0 $gettok(%~nkobmpbga1,1,32) $calc(%~nkobmpbga2 + 60)
n126= drawpic -ns @nOthello-BMPBG 0 0 %~nkobmpbga1 $nkocol(5,f)
n127= drawtext -nor @nOthello-BMPBG 0 Arial 12 2 $calc($gettok(%~nkobmpbga1,2,32) + 2) Click this area to
n128= drawtext -nor @nOthello-BMPBG 0 Arial 12 5 $calc($gettok(%~nkobmpbga1,2,32) + 12) use Full Bitmap
n129= nkoquery 1 15» 14Double-click on the diagonally opposite corners of desired area. Double-click in the white area to use full bitmap. Close the @nOthello-BMPBG window when done.
n130= drawdot @nOthello-BMPBG
n131= :End | unset %~nkobmpbga*
n132=}
n133=nkobmpbga2 {
n134= if (%nkobmpa == $null) { window -c @nOthello-BMPBG | halt }
n135= if ($2 > $gettok(%nkobmpa,2,32)) { %nkobmp = $puttok(%nkobmp,$nkocol(5,f),5,42) | unset %nkobmpaxy | goto B }
n136= if ($gettok(%nkobmpaxy,0,32) > 1) unset %nkobmpaxy
n137= if (%nkobmpaxy == $null) { %nkobmpaxy = $1 $+ . $+ $2 | nkoquery 1 15» 14BG Area Selection | nkoquery 0 14Point 1:10 ( $+ $1 $+ , $+ $2 $+ ) | goto End }
n138= if (($1 == $gettok(%nkobmpaxy,1,46)) || ($2 == $gettok(%nkobmpaxy,2,46))) { nkoquery 1 14Points 1 and 2 cannot have same x or y coordinate » Point 2: ( $+ $1 $+ , $+ $2 $+ ) | goto End }
n139= nkoquery 0 14Point 2:10 ( $+ $1 $+ , $+ $2 $+ ) | nkoquery 1 15» 14End selection
n140= %~nkobmpaxy = $gettok(%nkobmpaxy,1,46) | %~nkobmpaxy1 = $gettok(%nkobmpaxy,2,46)
n141= if (%~nkobmpaxy > $1) %~nkobmpaxy = $calc($1 * $gettok(%nkobmpa,1,32)) $calc(%~nkobmpaxy * $gettok(%nkobmpa,1,32)) | else %~nkobmpaxy = $calc(%~nkobmpaxy * $gettok(%nkobmpa,1,32)) $calc($1 * $gettok(%nkobmpa,1,32))
n142= if (%~nkobmpaxy1 > $2) %~nkobmpaxy1 = $calc($2 * $gettok(%nkobmpa,1,32)) $calc(%~nkobmpaxy1 * $gettok(%nkobmpa,1,32)) | else %~nkobmpaxy1 = $calc(%~nkobmpaxy1 * $gettok(%nkobmpa,1,32)) $calc($2 * $gettok(%nkobmpa,1,32))
n143= %~nkobmpaxy2 = $calc($gettok(%~nkobmpaxy,2,32) - $gettok(%~nkobmpaxy,1,32))
n144= if (%~nkobmpaxy2 > $pic($remove($nkocol(5,f),")).width) %~nkobmpaxy2 = $pic($remove($nkocol(5,f),")).width
n145= %~nkobmpaxy3 = $calc($gettok(%~nkobmpaxy1,2,32) - $gettok(%~nkobmpaxy1,1,32))
n146= if (%~nkobmpaxy3 > $pic($remove($nkocol(5,f),")).height) %~nkobmpaxy3 = $pic($remove($nkocol(5,f),")).height
n147= %nkobmpaxy = $gettok(%~nkobmpaxy,1,32) $gettok(%~nkobmpaxy1,1,32) %~nkobmpaxy2 %~nkobmpaxy3 $nkocol(5,f)
n148= %nkobmp = $puttok(%nkobmp,%nkobmpaxy,5,42)
n149= :B | nkoref | if ($window(@nOthello-Info) != $null) nkoinfo
n150= :End | unset %~nkobmpaxy*
n151=}
n152=nkothmwinc {
n153= :A | if ($window(@nOthello-Thm [ $+ [ %nkothm ] ] ) != $null) window -c @nOthello-Thm [ $+ [ %nkothm ] ]
n154= if (%nkothm > 2) { dec %nkothm 1 | goto A }
n155= unset %nkothm
n156=}
n157=nkothmdel {
n158= nkothmshow
n159= :A | %~nkodel = $?="Theme name to delete:"
n160= if (%~nkodel == $null) goto End
n161= %~nkodel1 = $readini $nkostore ?Theme $replace($replace(%~nkodel,$chr(32),*),=,?)
n162= if (%~nkodel1 == $null) goto A
n163= remini $nkostore ?Theme $+ [ %~nkodel1 ]
n164= nkoremini ?Theme %~nkodel
n165= :End
n166= nkothmshow c
n167= unset %~nkodel %~nkodel1
n168=}
n169=nkothmsave {
n170= nkothmshow
n171= :A | %~nkosave = $?="Enter theme name:"
n172= if (%~nkosave == $null) goto End
n173= if (($left(%~nkosave,1) == o) && (($right(%~nkosave,$calc($len(%~nkosave) - 1)) == $null) || (1 // $right(%~nkosave,$calc($len(%~nkosave) - 1))))) goto A
n174= if ((* isin %~nkosave) || (? isin %~nkosave)) goto A
n175= %~nkosave1 = $readini $nkostore ?Theme $replace($replace(%~nkosave,$chr(32),*),=,?)
n176= if (%~nkosave1 != $null) {
n177= if ($?="Already exists. Overwrite? (Y/N)" != y) goto A
n178= %~nkowriteini = %~nkosave1
n179= }
n180= else nkowriteini 1 ?Theme %~nkosave
n181= if (%nkobmp != $null) writeini $nkostore ?Theme $+ %~nkowriteini BMP %nkobmp
n182= writeini $nkostore ?Theme $+ %~nkowriteini Color $gettok(%nko,1-6,46)
n183= :End
n184= nkothmshow c
n185= unset %~nkosave %~nkosave1 %~nkowriteini
n186=}
n187=nkothmload {
n188= nkothmshow
n189= :A | %~nkoload = $?="Theme name to load:"
n190= if (%~nkoload == $null) goto End
n191= %~nkoload = $readini $nkostore ?Theme $replace($replace(%~nkoload,$chr(32),*),=,?)
n192= if (%~nkoload == $null) goto A
n193= %nkobmp = x.x.x.x.x
n194= %~nkoload1 = $readini $nkostore ?Theme $+ %~nkoload BMP
n195= if (%~nkoload1 != $null) %nkobmp = %~nkoload1
n196= %~nkoload1 = $readini $nkostore ?Theme $+ %~nkoload Color
n197= if (%~nkoload1 != $null) %nko = %~nkoload1 $+ . $+ $gettok(%nko,7-,46)
n198= nkoref
n199= :End
n200= nkothmshow c
n201= unset %~nkoload %~nkoload1
n202=}
n203=nkothmshow {
n204= :C | if ($window(@nOthello-Thm [ $+ [ %nkothm ] ] ) != $null) window -c @nOthello-Thm [ $+ [ %nkothm ] ]
n205= if (%nkothm > 1) { dec %nkothm 1 | goto C }
n206= if ($1 == c) { unset %nkothm %~nkoload %~nkoload1 %~nkosave %~nkosave1 %~nkowriteini | halt }
n207= nkoquery 0 15» 14Themes:
n208= window -hp @nOthello-Thm1 0 0 200 370 | window -ar @nOthello-Thm1
n209= %~nkoshow6 = 1 | %~nkoshow7 = @nOthello-Thm1
n210= :A | %~nkoshow2 = 1 | %~nkoshow = $readini $nkostore ?Theme o [ $+ [ %~nkoshow1 ] ]
n211= if (%~nkoshow == $null) {
n212= if (%~nkoshow6 = 1) drawtext -no @nOthello-Thm1 4 Arial 18 25 25 None | nkoquery 0 4 None
n213= drawdot %~nkoshow7 | goto End
n214= }
n215= :B | %~nkoshow3 = $gettok(%~nkoshow,%~nkoshow2,46)
n216= if (%~nkoshow3 == $null) { inc %~nkoshow1 1 | goto A }
n217= if ((10 // $calc(%~nkoshow6 - 1)) && (%~nkoshow6 > 1)) {
n218= drawdot %~nkoshow7
n219= %~nkoshow7 = @nOthello-Thm $+ $calc($remove(%~nkoshow7,@nOthello-Thm) + 1)
n220= window -hp %~nkoshow7 $calc(($remove(%~nkoshow7,@nOthello-Thm) - 1) * 200) 0 200 370
n221= window -ar %~nkoshow7
n222= }
n223= %~nkoshow4 = $readini $nkostore ?Theme $+ %~nkoshow3 BMP
n224= %~nkoshow5 = $readini $nkostore ?Theme $+ %~nkoshow3 Color
n225= %~nkoshow8 = $right(%~nkoshow6,1) | if (%~nkoshow8 < 1) %~nkoshow8 = 10
n226= drawrect -nf %~nkoshow7 1 1 0 $calc((%~nkoshow8 - 1) * 34) 191 32
n227= drawfill -nrs %~nkoshow7 $gettok(%~nkoshow5,3,46) 0 1 $calc(((%~nkoshow8 - 1) * 34) + 1)
n228= if ($gettok(%~nkoshow4,5,42) != x) {
n229= %~nkoshow9 = $gettok(%~nkoshow4,5,42) | if ($left(%~nkoshow9,1) isnum) %~nkoshow9 = $gettok(%~nkoshow9,5-,32)
n230= if ($exists($remove(%~nkoshow9,")) != $true) nkoquery 1 4***14 BG: $gettok(%~nkoshow4,5,42) does not exist
n231= else {
n232= if ($gettok($gettok(%~nkoshow4,5,42),1,32) isnum) {
n233= if ($gettok($gettok(%~nkoshow4,5,42),4,32) > 30) %~nkoshow9 = 30 | else %~nkoshow9 = $gettok($gettok(%~nkoshow4,5,42),4,32)
n234= %~nkoshow9 = $gettok($gettok(%~nkoshow4,5,42),1-3,32) %~nkoshow9 $gettok($gettok(%~nkoshow4,5,42),5-,32)
n235= }
n236= else %~nkoshow9 = 0 0 200 30 $gettok(%~nkoshow4,5,42)
n237= %~nkoshow10 = 1 | :D
n238= drawpic -n %~nkoshow7 %~nkoshow10 $calc(((%~nkoshow8 - 1) * 34) + 1) %~nkoshow9
n239= if ($calc(%~nkoshow10 + $gettok(%~nkoshow9,3,32)) < 200) { inc %~nkoshow10 $gettok(%~nkoshow9,3,32) | goto D }
n240= }
n241= if ($gettok(%~nkoshow4,6,42) == 1) drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 12 65 $calc(((%~nkoshow8 - 1) * 34) + 16) BGT: Normal
n242= if ($gettok(%~nkoshow4,6,42) == 2) drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 12 65 $calc(((%~nkoshow8 - 1) * 34) + 16) BGT: Fit Window
n243= if ($gettok(%~nkoshow4,6,42) == 3) drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 12 65 $calc(((%~nkoshow8 - 1) * 34) + 16) BGT: Fit Board
n244= if ($gettok(%~nkoshow4,6,42) == 4) drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 12 65 $calc(((%~nkoshow8 - 1) * 34) + 16) BGT: Tile Window
n245= if ($gettok(%~nkoshow4,6,42) == 5) drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 12 65 $calc(((%~nkoshow8 - 1) * 34) + 16) BGT: Tile Board
n246= }
n247= if ($gettok(%~nkoshow4,1,42) != x) {
n248= %~nkoshow9 = $gettok(%~nkoshow4,1,42) | if ($left(%~nkoshow9,1) isnum) %~nkoshow9 = $gettok(%~nkoshow9,5-,32)
n249= if ($exists($remove(%~nkoshow9,")) != $true) nkoquery 1 4***14 P1: $gettok($gettok(%~nkoshow4,1,42),5-,32) does not exist
n250= elseif ($gettok(%~nkoshow4,3,42) == x) drawpic -ns %~nkoshow7 1 $calc(((%~nkoshow8 - 1) * 34) + 1) 30 30 $gettok(%~nkoshow4,1,42)
n251= else drawpic -nts %~nkoshow7 $gettok(%~nkoshow4,3,42) 1 $calc(((%~nkoshow8 - 1) * 34) + 1) 30 30 $gettok(%~nkoshow4,1,42)
n252= }
n253= else drawdot -nr %~nkoshow7 $gettok(%~nkoshow5,1,46) 12 18 $calc(((%~nkoshow8 - 1) * 34) + 18)
n254= if ($gettok(%~nkoshow4,2,42) != x) {
n255= %~nkoshow9 = $gettok(%~nkoshow4,2,42) | if ($left(%~nkoshow9,1) isnum) %~nkoshow9 = $gettok(%~nkoshow9,5-,32)
n256= if ($exists($remove(%~nkoshow9,")) != $true) nkoquery 1 4***14 P2: $gettok($gettok(%~nkoshow4,2,42),5-,32) does not exist
n257= elseif ($gettok(%~nkoshow4,4,42) == x) drawpic -ns %~nkoshow7 33 $calc(((%~nkoshow8 - 1) * 34) + 1) 30 30 $gettok(%~nkoshow4,2,42)
n258= else drawpic -nts %~nkoshow7 $gettok(%~nkoshow4,4,42) 33 $calc(((%~nkoshow8 - 1) * 34) + 1) 30 30 $gettok(%~nkoshow4,2,42)
n259= }
n260= else drawdot -nr %~nkoshow7 $gettok(%~nkoshow5,2,46) 12 50 $calc(((%~nkoshow8 - 1) * 34) + 18)
n261= if ($gettok(%~nkoshow4,7,42) != x) %~nkoshow9 = ( $+ $remove($gettok(%~nkoshow4,7,42),") $+ ) | else unset %~nkoshow9
n262= %~nkoshow4 = $readini $nkostore ?Theme %~nkoshow3
n263= nkoquery 0 14 %~nkoshow6 $+ )10 %~nkoshow4 %~nkoshow9
n264= if ($gettok(%~nkoshow5,6,46) == 0) drawrect -nrf %~nkoshow7 $gettok(%~nkoshow5,3,46) 1 65 $calc(((%~nkoshow8 - 1) * 34) + 1) 125 14
n265= drawtext -nor %~nkoshow7 $gettok(%~nkoshow5,5,46) Arial 16 65 $calc((%~nkoshow8 - 1) * 34) %~nkoshow4
n266= drawline -nr %~nkoshow7 $gettok(%~nkoshow5,4,46) 1 0 $calc((%~nkoshow8 - 1) * 34) 0 $calc(%~nkoshow8 * 34)
n267= drawline -nr %~nkoshow7 $gettok(%~nkoshow5,4,46) 1 32 $calc((%~nkoshow8 - 1) * 34 + 1) 32 $calc(%~nkoshow8 * 34 - 2)
n268= drawline -nr %~nkoshow7 $gettok(%~nkoshow5,4,46) 1 64 $calc((%~nkoshow8 - 1) * 34 + 1) 64 $calc(%~nkoshow8 * 34 - 2)
n269= inc %~nkoshow2 1 | inc %~nkoshow6 1 | goto B
n270= :End
n271= %nkothm = $remove(%~nkoshow7,@nOthello-Thm)
n272= unset %~nkoshow*
n273=}
n274=nkocolor {
n275= nkoquery 1 15» 14Basic color names:10 White, Black, Blue, Green, Red, Brown, Purple, Orange, Yellow, LightGreen, Cyan, LightCyan, LightBlue, Pink, Grey, LightGrey
n276= :A | %~nkocolor = $?="Basic color name or RGB code (eg. 0,0,0):"
n277= if (%~nkocolor == $null) goto End
n278= if (%~nkocolor == white) %~nkocolor = 255,255,255
n279= if (%~nkocolor == black) %~nkocolor = 0,0,0
n280= if (%~nkocolor == blue) %~nkocolor = 0,0,128
n281= if (%~nkocolor == green) %~nkocolor = 0,128,0
n282= if (%~nkocolor == red) %~nkocolor = 255,0,0
n283= if (%~nkocolor == brown) %~nkocolor = 128,0,0
n284= if (%~nkocolor == purple) %~nkocolor = 128,0,128
n285= if (%~nkocolor == orange) %~nkocolor = 255,128,0
n286= if (%~nkocolor == yellow) %~nkocolor = 255,255,0
n287= if (%~nkocolor == lightgreen) %~nkocolor = 0,255,0
n288= if (%~nkocolor == cyan) %~nkocolor = 0,128,128
n289= if (%~nkocolor == lightcyan) %~nkocolor = 0,255,255
n290= if (%~nkocolor == lightblue) %~nkocolor = 0,0,255
n291= if (%~nkocolor == pink) %~nkocolor = 255,0,255
n292= if (%~nkocolor == grey) %~nkocolor = 128,128,128
n293= if (%~nkocolor == lightgrey) %~nkocolor = 192,192,192
n294= if (($count(%~nkocolor,$chr(44)) != 2) || (1 \\ $remove(%~nkocolor,$chr(44)))) goto A
n295= %~nkocolor = $rgb($gettok(%~nkocolor,1,44),$gettok(%~nkocolor,2,44),$gettok(%~nkocolor,3,44))
n296= if ((($1 == background) && ($gettok(%nko,4,46) == %~nkocolor)) || (($1 == grid) && ($gettok(%nko,3,46) == %~nkocolor))) { aline -p 10 @nOthello-Info Cannot have same color for BG and Grid | goto A }
n297= %nko = $puttok(%nko,%~nkocolor,$2,46)
n298= nkoref | goto A
n299= :End | unset %~nkocolor
n300=}
n301=nkomidi {
n302= :A | %~nkomidi = $dir="Midi file:" *.mid
n303= if (%~nkomidi == $null) goto End
n304= if ($right(%~nkomidi,4) != .mid) goto A
n305= if ($chr(32) isin %~nkomidi) %~nkomidi = " $+ %~nkomidi $+ "
n306= %nkobmp = $puttok(%nkobmp,%~nkomidi,7,42)
n307= nkoinfo
n308= if ($group(#nkomidi) == on) splay %~nkomidi
n309= :End | unset %~nkomidi
n310=}
n311=nkomidiplay {
n312= if (($gettok(%nkobmp,7,42) == $null) || ($gettok(%nkobmp,7,42) == x)) halt
n313= if ($inmidi == $true) { splay stop | .disable #nkomidi }
n314= else {
n315= if ($exists($remove($gettok(%nkobmp,7,42),")) != $true) { nkoquery 4***14 $remove($gettok(%nkobmp,7,42),") does not exist | halt }
n316= splay $gettok(%nkobmp,7,42) | .enable #nkomidi
n317= }
n318=}
n319=nkomovechk {
n320= if ($gettok(%nko,7,46) < 1) goto End
n321= if (($1 != 0) && ($remove($remove($gettok(%nkoplayer,%nkoturn,46),@),+) != $me)) {
n322= beep 1 | nkodrawtext 1 18 267 100 Not your | nkodrawtext 2 18 277 115 turn!
n323= halt
n324= }
n325= if ($gettok(%nko,7,46) != 1) goto B
n326= %~nkomove = 1 | :A
n327= if (($gettok(%nkoplayer,%~nkomove,46) != $null) && (($left($gettok(%nkoplayer,%~nkomove,46),1) == @) || ($left($gettok(%nkoplayer,%~nkomove,46),1) == +))) {
n328= if (($remove($remove($gettok(%nkoplayer,%~nkomove,46),@),+) != $me) && (($chat($remove($remove($gettok(%nkoplayer,%~nkomove,46),@),+)) == $null) || ($chat($remove($remove($gettok(%nkoplayer,%~nkomove,46),@),+)).status == inactive))) {
n329= beep 1 | nkodrawtext 1 14 267 100 No DCC | nkodrawtext 0 14 267 110 connection:
n330= nkodrawtext 2 14 267 120 $remove($remove($gettok(%nkoplayer,%~nkomove,46),@),+)
n331= unset %~nkomove | halt
n332= }
n333= inc %~nkomove 1 | goto A
n334= }
n335= unset %~nkomove
n336= :B
n337= if (($gettok(%nko,7,46) == 2) && ($server == $null)) {
n338= beep 1 | nkodrawtext 1 14 267 100 Not | nkodrawtext 2 14 267 110 connected
n339= halt
n340= }
n341= if (($gettok(%nko,7,46) == 3) && ((($sock(nkoHost) == $null) && ($findtok(%nkoplayer,@ [ $+ [ $me ] ] ,46) == $null)) || (($sock(nOthello*) == $null) && ($findtok(%nkoplayer,@ [ $+ [ $me ] ] ,46) != $null)))) {
n342= beep 1 | nkodrawtext 1 14 267 100 Not | nkodrawtext 2 14 267 110 connected
n343= halt
n344= }
n345= :End
n346=}
n347=nkowriteini {
n348= :O | %~nkowriteini2 = $readini $nkostore $2 o $+ [ %~nkowriteinio ]
n349= if (%~nkowriteini2 != $null) { %~nkowriteinia [ $+ [ %~nkowriteinio ] ] = %~nkowriteini2 | inc %~nkowriteinio 1 | goto O }
n350= if (%~nkowriteinia == $null) { unset %~nkowriteinio | %~nkowriteini = 1 | goto W }
n351= %~nkowriteinin = %~nkowriteinio - 1 | if (%~nkowriteinin < 1) unset %~nkowriteinin
n352= %~nkowriteini = 1 | %~nkowriteinif = n | unset %~nkowriteinio
n353= :A | %~nkowriteini2 = %~nkowriteinia [ $+ [ %~nkowriteinio ] ]
n354= if (%~nkowriteini2 == $null) { unset %~nkowriteinio | goto A }
n355= :B | if ($findtok(%~nkowriteini2,%~nkowriteini,46) != $null) { %~nkowriteinif = n | inc %~nkowriteini 1 | goto B }
n356= if (%~nkowriteinif != %~nkowriteinio) { if (%~nkowriteinif == n) %~nkowriteinif = %~nkowriteinio | inc %~nkowriteinio 1 | goto A }
n357= :L | %~nkowriteini2 = %~nkowriteinia [ $+ [ %~nkowriteinin ] ]
n358= if ((%~nkowriteini2 != $null) && ($calc($len(%~nkowriteini2) + $len(%~nkowriteini)) > 580)) { inc %~nkowriteinin 1 | goto L }
n359= :W
n360= writeini $nkostore $2 o $+ [ %~nkowriteinin ] $addtok(%~nkowriteini2,%~nkowriteini,46)
n361= writeini $nkostore $2 %~nkowriteini $3-
n362= writeini $nkostore $2 $replace($replace($3-,$chr(32),*),=,?) %~nkowriteini
n363= unset %~nkowriteini2 %~nkowriteinio %~nkowriteinif %~nkowriteinin %~nkowriteinia*
n364= if ($1 == 0) unset %~nkowriteini
n365=}
n366=nkoremini {
n367= %~nkoreminin = $readini $nkostore $1 $replace($replace($2-,$chr(32),*),=,?)
n368= unset %~nkoremini1 | :R
n369= %~nkoreminio = $readini $nkostore $1 o $+ [ %~nkoremini1 ]
n370= if ((%~nkoreminio != $null) && ($findtok(%~nkoreminio,$gettok(%~nkoreminin,1,32),1,46) == $null)) { inc %~nkoremini1 1 | goto R }
n371= if ($remtok(%~nkoreminio,$gettok(%~nkoreminin,1,32),1,46) != $null) {
n372= writeini $nkostore $1 o $+ [ %~nkoremini1 ] $remtok(%~nkoreminio,$gettok(%~nkoreminin,1,32),1,46)
n373= remini $nkostore $1 $replace($replace($2-,$chr(32),*),=,?)
n374= remini $nkostore $1 %~nkoreminin
n375= }
n376= else remini $nkostore $1
n377= unset %~nkoreminio %~nkoreminin %~nkoremini1
n378=}