API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 13th, 2017
69
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 59.90 KB | None | 0 0
raw download clone embed print report
  1. dialog chars {
  2. title "Character Selection"
  3. size -1 -1 520 680
  4. option pixels
  5. icon 20, 20 20 120 120, $mircdirimages\charselect\none.jpg
  6. icon 21, 150 20 349 120, $mircdirimages\charselect\blank.jpg
  7. text "", 22, 160 30 100 15
  8. text "", 23, 160 55 100 15
  9. text "", 24, 160 80 100 15
  10. text "", 25, 160 105 100 15
  11. icon 30, 20 160 120 120, $mircdirimages\charselect\none.jpg
  12. icon 31, 150 160 349 120, $mircdirimages\charselect\blank.jpg
  13. text "", 32, 160 170 100 15
  14. text "", 33, 160 195 100 15
  15. text "", 34, 160 220 100 15
  16. text "", 35, 160 245 100 15
  17. icon 40, 20 300 120 120, $mircdirimages\charselect\none.jpg
  18. icon 41, 150 300 349 120, $mircdirimages\charselect\blank.jpg
  19. text "", 42, 160 310 100 15
  20. text "", 43, 160 335 100 15
  21. text "", 44, 160 360 100 15
  22. text "", 45, 160 385 100 15
  23. icon 50, 20 440 120 120, $mircdirimages\charselect\none.jpg
  24. icon 51, 150 440 349 120, $mircdirimages\charselect\blank.jpg
  25. text "", 52, 160 450 100 15
  26. text "", 53, 160 475 100 15
  27. text "", 54, 160 500 100 15
  28. text "", 55, 160 525 100 15
  29. button "New Character", 60, 20 580 120 60
  30. button "Delete Character", 61, 380 580 120 60
  31. }
  32.  
  33. dialog game {
  34. title "Ruin Legacy 1.0a"
  35. size -1 -1 640 480
  36. option pixels
  37. icon 01, 19 10 599 218, $mircdirimages\title.jpg
  38. text "Username:", 10, 20 270 80 20
  39. edit "", 11, 80 270 90 20
  40. text "Password:", 12, 180 270 80 20
  41. edit "", 13, 240 270 90 20, pass
  42. check "Remember Username", 20, 20 300 140 20
  43. button "Log In", 30, 20 330 60 20
  44. button "New User", 31, 90 330 60 20
  45. }
  46. on 1:dialog:game:sclick:31: {
  47. dialog -md newuser newuser
  48. }
  49. on 1:dialog:game:sclick:30: {
  50. if ($did(game,11) == $null) { %err.value = You did not specify a username. | dialog -md errors errors | halt }
  51. if ($did(game,13) == $null) { %err.value = You did not specify a password. | dialog -md errors errors | halt }
  52. %login.name = $did(game,11)
  53. %login.pass = $did(game,13)
  54. sockopen login 127.0.0.1 27501
  55. }
  56.  
  57. alias music {
  58. if (%music == 1) { return $true | halt }
  59. return $null
  60. }
  61. on 1:sockopen:login: {
  62. sockwrite -n login %login.name %login.pass
  63. }
  64. alias fillchars {
  65. if ($1 == $null) { halt }
  66. if ($2 == $null) { halt }
  67. if (!$dialog(chars)) { halt }
  68. %num = $numtok($2-,32)
  69. %dats = $2-
  70. while (%num > 0) {
  71. did -a chars $calc(%num + 1) $+ 2 $gettok($gettok(%dats,%num,32),1,46)
  72. did -a chars $calc(%num + 1) $+ 3 Level $remove($gettok($gettok(%dats,%num,32),5,46),dc)
  73. did -a chars $calc(%num + 1) $+ 4 $fcheck($gettok($gettok(%dats,%num,32),2,46)) $rcheck($gettok($gettok(%dats,%num,32),3,46))
  74. did -a chars $calc(%num + 1) $+ 5 $ccheck($gettok($gettok(%dats,%num,32),4,46))
  75. putchar $calc(%num + 1) $gettok($gettok(%dats,%num,32),3,46)
  76. dec %num
  77. }
  78. }
  79. alias putchar {
  80. %var.char = $1
  81. echo -a $2
  82. if ($2 == 1) { did -g chars $1 $+ 0 $mircdirimages\chars\human.jpg }
  83. if ($2 == 2) { did -g chars $1 $+ 0 $mircdirimages\chars\dwarf.jpg }
  84. if ($2 == 3) { did -g chars $1 $+ 0 $mircdirimages\chars\elf.jpg }
  85. if ($2 == 4) { did -g chars $1 $+ 0 $mircdirimages\chars\ogre.jpg }
  86. if ($2 == 5) { did -g chars $1 $+ 0 $mircdirimages\chars\orc.jpg }
  87. if ($2 == 6) { did -g chars $1 $+ 0 $mircdirimages\chars\demon.jpg }
  88. }
  89. alias ccheck {
  90. if ($1 == 1) { return Tank }
  91. if ($1 == 2) { return Melee }
  92. if ($1 == 3) { return Ranged }
  93. if ($1 == 4) { return Caster }
  94. }
  95. alias rcheck {
  96. if ($1 == 1) { return Human }
  97. if ($1 == 2) { return Dwarf }
  98. if ($1 == 3) { return Elf }
  99. if ($1 == 4) { return Ogre }
  100. if ($1 == 5) { return Orc }
  101. if ($1 == 6) { return Demon }
  102. }
  103. alias fcheck {
  104. if ($1 == 1) { return Good }
  105. if ($1 == 2) { return Bad }
  106. }
  107. on 1:sockread:login: {
  108. sockread -f %ld
  109. echo -a $sockname says: %ld
  110. if ($gettok(%ld,1,32) == err) {
  111. %err.value = $right(%ld,$calc($len(%ld) - 3))
  112. dialog -md errors errors
  113. halt
  114. }
  115. if ($gettok(%ld,1,32) == win) {
  116. dialog -md chars chars
  117. getchars
  118. halt
  119. dialog -x game
  120. }
  121. if ($gettok(%ld,1,32) == dc) {
  122. %cli = $numtok($deltok(%ld,1,32),32)
  123. %vdat = $deltok(%ld,1,32)
  124. fillchars %cli %vdat
  125. }
  126. if ($gettok(%ld,1,32) == data) {
  127. if ($gettok(%ld,2,32) == cded) {
  128. fuckdamnit
  129. }
  130. if ($gettok(%ld,2,32) == tchar) { %tchar = $gettok(%ld,3,32) }
  131. if ($gettok(%ld,2,32) == nameokay) {
  132. dialog -x class
  133. sockwrite -n login data make %new.name %new.faction %new.race %new.class
  134. halt
  135. }
  136. if ($gettok(%ld,2,32) == chars) {
  137. if (!$dialog(chars)) { dialog -md chars chars }
  138.  
  139. }
  140. if ($gettok(%ld,2,32) == nochars) {
  141. if (!$dialog(chars)) { dialog -md chars chars }
  142. %chars.total = 0
  143. }
  144. if ($gettok(%ld,2,32) == slots) {
  145. %freeslots = $gettok(%ld,3,32)
  146. if (%freeslots == 0) { %err.value = You already have 4 characters! | dialog -md errors errors | halt }
  147. dialog -md cnew cnew
  148. ;dialog -x chars
  149. halt
  150. }
  151. }
  152. }
  153. dialog cnew {
  154. title "New Character Creation"
  155. size -1 -1 640 530
  156. option pixels
  157. text "Select your faction:", 10, 20 20 120 20
  158. icon 20, 60 50 197 255, $mircdirimages/make/factiongood.jpg
  159. icon 30, 380 50 197 255, $mircdirimages/make/factionbad.jpg
  160. text "Good", 21, 50 320 227 20
  161. text "", 22, 50 350 250 250
  162. text "Bad", 31, 370 320 250 20
  163. text "", 32, 370 350 250 250
  164. button "Back", 50, 220 490 180 30
  165. }
  166. on 1:dialog:cnew:sclick:50: {
  167. dialog -x cnew
  168. dialog -md chars chars
  169. }
  170. on 1:dialog:cnew:init:0: {
  171. did -a cnew 22 $read($mircdirtext/ui/charc/abg.txt)
  172. did -a cnew 32 $read($mircdirtext/ui/charc/abb.txt)
  173. if (!$dialog(chars)) { halt }
  174. dialog -x chars
  175. }
  176. alias getchars {
  177. if (!$sock(login)) {
  178. %err.value = Connection disconnected.
  179. dialog -md errors errors
  180. halt
  181. }
  182. sockwrite -n login getchars
  183. }
  184. dialog race {
  185. title "Select your race"
  186. size -1 -1 580 500
  187. option pixels
  188. icon 20, 20 20 120 120, $mircdirimages/chars/human.jpg
  189. icon 30, 20 170 120 120, $mircdirimages/chars/dwarf.jpg
  190. icon 40, 20 320 120 120, $mircdirimages/chars/elf.jpg
  191. text "Human", 21, 160 20 80 20
  192. text "Dwarf", 31, 160 170 80 20
  193. text "Elf", 41, 160 320 80 20
  194. text "", 22, 160 40 350 100
  195. text "", 32, 160 190 350 100
  196. text "", 42, 160 340 350 100
  197. button "Back", 50, 200 460 180 30
  198. }
  199. on 1:dialog:race:sclick:50: {
  200. dialog -x race
  201. dialog -md cnew cnew
  202. }
  203. on 1:dialog:race:init:0: {
  204. if (%new.faction == 1) {
  205. did -g race 20 $mircdirimages/chars/human.jpg
  206. did -g race 30 $mircdirimages/chars/dwarf.jpg
  207. did -g race 40 $mircdirimages/chars/elf.jpg
  208. did -a race 22 $read($mircdirtext/ui/charc/human.txt)
  209. did -a race 32 $read($mircdirtext/ui/charc/dwarf.txt)
  210. did -a race 42 $read($mircdirtext/ui/charc/elf.txt)
  211. halt
  212. }
  213. if (%new.faction == 2) {
  214. did -g race 20 $mircdirimages/chars/ogre.jpg
  215. did -g race 30 $mircdirimages/chars/orc.jpg
  216. did -g race 40 $mircdirimages/chars/demon.jpg
  217. did -a race 21 Ogre
  218. did -a race 31 Orc
  219. did -a race 41 Demon
  220. did -a race 22 $read($mircdirtext/ui/charc/ogre.txt)
  221. did -a race 32 $read($mircdirtext/ui/charc/orc.txt)
  222. did -a race 42 $read($mircdirtext/ui/charc/demon.txt)
  223. }
  224. }
  225. dialog class {
  226. title "Select your class"
  227. size -1 -1 640 630
  228. option pixels
  229. icon 10, 20 20 120 120, $mircdirimages/weap/xtank.jpg
  230. text "Tank", 11, 150 20 80 20
  231. text "EEE", 12, 150 40 350 100
  232. icon 20, 20 160 120 120, $mircdirimages/weap/xsword.jpg
  233. text "Melee", 21, 150 160 120 120
  234. text "FFF", 22, 150 180 350 100
  235. icon 30, 20 300 120 120, $mircdirimages/weap/xgun.jpg
  236. text "Ranged", 31, 150 300 120 120
  237. text "HHH", 32, 150 320 350 100
  238. icon 40, 20 440 120 120, $mircdirimages/weap/xstaff.jpg
  239. text "Caster", 41, 150 440 120 120
  240. text "NNN", 42, 150 460 350 120
  241. }
  242. alias namecheck {
  243. if ((%new.name isalpha) && ($len(%new.name) < 15)) {
  244. sockwrite -n login data newname %new.name
  245. halt
  246. }
  247. %err.value = Invalid Name.
  248. dialog -md errors errors
  249. unset %new.name
  250. halt
  251. }
  252. on 1:dialog:class:sclick:10: {
  253. %new.class = 1
  254. if ($classcheck == $true) {
  255. %new.name = $?="Name your character."
  256. if ($namecheck == $true) { }
  257. halt
  258. }
  259. }
  260. alias fuckdamnit {
  261. dialog -md chars chars
  262. getchars
  263. }
  264. on 1:dialog:class:sclick:20: {
  265. %new.class = 2
  266. if ($classcheck == $true) { echo -a YES | halt }
  267. echo -a NO
  268. }
  269. on 1:dialog:class:sclick:30: {
  270. %new.class = 3
  271. if ($classcheck == $true) { echo -a YES | halt }
  272. echo -a NO
  273. }
  274. on 1:dialog:class:sclick:40: {
  275. %new.class = 4
  276. if ($classcheck == $true) { echo -a YES | halt }
  277. echo -a NO
  278. }
  279. alias classcheck {
  280. if (%new.race == 1) {
  281. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 3)) { return $true | halt }
  282. return $false
  283. }
  284. if (%new.race == 2) {
  285. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 4)) { return $true | halt }
  286. return $false
  287. }
  288. if (%new.race == 3) {
  289. if ((%new.class == 3) || (%new.class == 4)) { return $true | halt }
  290. return $false
  291. }
  292. if (%new.race == 4) {
  293. if ((%new.class == 1) || (%new.class == 2)) { return $true | halt }
  294. return $false
  295. }
  296. if (%new.race == 5) {
  297. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 3)) { return $true | halt }
  298. return $false
  299. }
  300. if (%new.race == 6) {
  301. if ((%new.class == 2) || (%new.class == 4)) { return $true | halt }
  302. return $false
  303. }
  304. return $false
  305. }
  306. on 1:dialog:class:init:0: {
  307. dialog -x race
  308. if (%new.race == 1) {
  309. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  310. did -g class 10 $mircdirimages/weap/tank.jpg
  311. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  312. did -g class 20 $mircdirimages/weap/sword.jpg
  313. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  314. did -g class 30 $mircdirimages/weap/gun.jpg
  315. did -a class 42 Humans have not mastered the arts of magic.
  316. }
  317. if (%new.race == 2) {
  318. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  319. did -g class 10 $mircdirimages/weap/tank.jpg
  320. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  321. did -g class 20 $mircdirimages/weap/sword.jpg
  322. did -a class 32 Dwarves lack the dexterity required for long ranged attacking with bows or guns.
  323. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  324. did -g class 40 $mircdirimages/weap/staff.jpg
  325. }
  326. if (%new.race == 3) {
  327. did -a class 12 Elves are a non violent race, and have not mastered physical combat.
  328. did -a class 22 Elves prefer not to weild blade.
  329. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  330. did -g class 30 $mircdirimages/weap/gun.jpg
  331. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  332. did -g class 40 $mircdirimages/weap/staff.jpg
  333. }
  334. if (%new.race == 4) {
  335. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  336. did -g class 10 $mircdirimages/weap/tank.jpg
  337. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  338. did -g class 20 $mircdirimages/weap/sword.jpg
  339. did -a class 32 Ogres are too stupid to use guns.
  340. did -a class 42 Ogres are also too stupid to cast magic.
  341. }
  342. if (%new.race == 5) {
  343. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  344. did -g class 10 $mircdirimages/weap/tank.jpg
  345. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  346. did -g class 20 $mircdirimages/weap/sword.jpg
  347. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  348. did -g class 30 $mircdirimages/weap/gun.jpg
  349. did -a class 42 Orcs have not learned the ways of magic.
  350. }
  351. if (%new.race == 6) {
  352. did -a class 12 Demons are too fragile to tank.
  353. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  354. did -g class 20 $mircdirimages/weap/sword.jpg
  355. did -a class 32 Demons dont know how to use guns.
  356. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  357. did -g class 40 $mircdirimages/weap/staff.jpg
  358. }
  359. }
  360. on 1:dialog:race:sclick:40: {
  361. if (%new.faction == 1) { %new.race = 3 }
  362. if (%new.faction == 2) { %new.race = 6 }
  363. dialog -md class class
  364. }
  365. on 1:dialog:race:sclick:30: {
  366. if (%new.faction == 1) { %new.race = 2 }
  367. if (%new.faction == 2) { %new.race = 5 }
  368. dialog -md class class
  369. }
  370. on 1:dialog:race:sclick:20: {
  371. if (%new.faction == 1) { %new.race = 1 }
  372. if (%new.faction == 2) { %new.race = 4 }
  373. dialog -md class class
  374. }
  375. on 1:dialog:race:sclick:
  376. on 1:dialog:cnew:sclick:20: {
  377. %new.faction = 1
  378. dialog -x cnew
  379. dialog -md race race
  380. halt
  381. }
  382. on 1:dialog:cnew:sclick:30: {
  383. %new.faction = 2
  384. dialog -x cnew
  385. dialog -md race race
  386. halt
  387. }
  388. on 1:dialog:chars:init:0: {
  389. if (%chars.total == 0) {
  390. did -b chars 61
  391. did -f chars 60
  392. }
  393. }
  394. on 1:dialog:chars:sclick:60: {
  395. testslots
  396. halt
  397. }
  398. alias testslots {
  399. if (!$sock(login)) {
  400. dialog -x chars
  401. dialog -md game game
  402. %err.value = Connection timed out.
  403. dialog -md errors errors
  404. }
  405. sockwrite -n login data testslots
  406. }
  407. dialog newuser {
  408. title "New User"
  409. size -1 -1 360 280
  410. option pixels
  411. text "Desired Username:", 10, 20 20 120 20
  412. edit "", 11, 120 20 120 20
  413. text "Password:", 12, 20 60 120 20
  414. edit "", 13, 120 60 120 20, pass
  415. text "Password again:", 14, 20 100 120 20
  416. edit "", 15, 120 100 120 20, pass
  417. text "Email address:", 16, 20 140 120 20
  418. edit "", 17, 120 140 220 20
  419. button "Submit", 18, 20 170 80 20
  420. text "", 20, 20 210 340 200
  421. }
  422. on 1:dialog:newuser:sclick:18: {
  423. if ($did(newuser,13) != $did(newuser,15)) { %err.value = Passwords dont match. | dialog -md errors errors | halt }
  424. if ($len($did(newuser,13)) < 6) { %err.value = Password too short. (6 chars or more) | dialog -md errors errors | halt }
  425. if (!$did(newuser,11)) { %err.value = You must specify a username. | dialog -md errors errors | halt }
  426. if ($len($did(newuser,11)) < 3) { %err.value = User name too short. (3 chars or more) | dialog -md errors errors | halt }
  427. if ($did(newuser,11) !isalpha) { %err.value = Username must contain only letters. | dialog -md errors errors | halt }
  428. if (!$did(newuser,17)) { %err.value = You did not specify an email address. | dialog -md errors errors | halt }
  429. %new.user = $did(newuser,11)
  430. %new.pass = $did(newuser,13)
  431. %new.email = $did(newuser,17)
  432. sockopen newuser 127.0.0.1 27500
  433. did -a newuser 20 Connecting...
  434. }
  435. alias sockcheck {
  436. if (!$sock(newuser)) { did -a newuser 20 Cannot establish connection. | halt }
  437. }
  438. on 1:sockclose:newuser: {
  439. if ($sockerr != $null) { echo -a Error: $sockerr }
  440. }
  441. on 1:sockopen:newuser: {
  442. did -a newuser 20 Connection established...
  443. sockwrite -n newuser new %new.user %new.pass %new.email
  444. }
  445. on 1:sockread:newuser: {
  446. sockread -f %new
  447. if ($gettok(%new,1,32) == err) {
  448. did -a newuser 20 $right(%new,$calc($len(%new) - 3))
  449. sockclose newuser
  450. halt
  451. }
  452. did -a newuser 20 %new
  453. sockclose newuser
  454. dialog -x newuser
  455. dialog -md created created
  456. }
  457. dialog errors {
  458. title "Error!"
  459. size -1 -1 300 200
  460. option pixels
  461. text "Error detected:",01, 10 10 80 20
  462. text "", 02, 10 30 280 120
  463. button "Okay", 03, 10 90 80 20
  464. }
  465. dialog created {
  466. title "User Created!"
  467. size -1 -1 300 200
  468. option pixels
  469. text "User has been created",01, 10 10 180 20
  470. text "You may now log in.", 02, 10 30 280 120
  471. button "Okay", 03, 10 90 80 20
  472. }
  473. on 1:dialog:created:sclick:03: {
  474. dialog -x created
  475. dialog -v game
  476. }
  477. on 1:dialog:errors:init:0: {
  478. did -a errors 02 %err.value
  479. }
  480. on 1:dialog:errors:sclick:03: {
  481. dialog -x errors
  482. unset %err.value
  483. }
  484. ***********
  485. SERVER
  486. ***********
  487. on 1:socklisten:newuser: {
  488. sockaccept new
  489. }
  490. on 1:sockread:new: {
  491. if ($sockerr > 0) { return }
  492. sockread -f %newuser.data
  493. echo -a %newuser.data
  494. if ($gettok(%newuser.data,1,32) == new) {
  495. if ($exists($mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32)) $+ $chr(46) $+ dat == $true) {
  496. %err.one Username exists.
  497. sockwrite -n new err Username Exists.
  498. sockclose new
  499. halt
  500. }
  501. mkdir $mircdirusers\ $+ $gettok(%newuser.data,2,32)
  502. write $mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32) $+ $chr(46) $+ dat $gettok(%newuser.data,3,32)
  503. write $mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32) $+ $chr(46) $+ dat $gettok(%newuser.data,4,32)
  504. sockwrite -n new User created.
  505. sockclose new
  506. halt
  507. }
  508. }
  509. on 1:socklisten:logins: {
  510. sockaccept login
  511. }
  512. on 1:sockread:login: {
  513. if ($sockerr > 0) { return }
  514. sockread -f %login.info
  515. echo -a %login.info
  516. if ($exists($mircdirUsers\ $+ $gettok(%login.info,1,32)) == $false) { sockwrite login err User not found. | sockclose login | halt }
  517. if ($gettok(%login.info,2,32) != $read($mircdirusers\ $+ $gettok(%login.info,1,32) $+ \ $+ $gettok(%login.info,1,32) $+ $chr(46) $+ dat,1)) { sockwrite login err Invalid password. | sockclose login | halt }
  518. if ($gettok(%login.info,2,32) == $read($mircdirusers\ $+ $gettok(%login.info,1,32) $+ \ $+ $gettok(%login.info,1,32) $+ $chr(46) $+ dat,1)) {
  519. sockwrite login win User logged in.
  520. %player-user- [ $+ [ $sock(login).ip ] ] = $gettok(%login.info,1,32)
  521. sockrename login user- [ $+ [ $sock(login).ip ] ]
  522. %sock- [ $+ [ $gettok(%login.info,1,32) ] ] = user- [ $+ [ $sock(login).ip ] ]
  523. halt
  524. }
  525. }
  526. alias sputnik { return $nopath($finddir($mircdirusers\ $+ %player- [ $+ [ $1 ] ] $+ \,*, %c- [ $+ [ $1 ] ],1)) }
  527. alias skylab { return $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $nopath($finddir($mircdirusers\ $+ %player- [ $+ [ $1 ] ] $+ \,*, %c- [ $+ [ $sockname ] ])) $+ \ $+ main.dat,1) }
  528. on 1:sockread:user-*: {
  529. if ($sockerr > 0) { return }
  530. sockread -f % [ $+ [ $sockname ] ]
  531. echo -a $sockname says: % [ $+ [ $sockname ] ]
  532. if (% [ $+ [ $sockname ] ] == getchars) {
  533. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  534. sockwrite $sockname data nochars
  535. halt
  536. }
  537. sockwrite -n $sockname data tchar $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  538. %c- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  539. echo -a tchar is %c- [ $+ [ $sockname ] ]
  540. while (%c- [ $+ [ $sockname ] ] > 0) {
  541. sockwrite $sockname dc $nopath($finddir($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \,*, %c- [ $+ [ $sockname ] ],1)) $+ $chr(46) $+ $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $nopath($finddir($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \,*, %c- [ $+ [ $sockname ] ])) $+ \ $+ main.dat,1) $+ $chr(46) $+ $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $nopath($finddir($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \,*, %c- [ $+ [ $sockname ] ])) $+ \ $+ main.dat,2)
  542. dec %c- [ $+ [ $sockname ] ]
  543. }
  544. }
  545. ; e e e e e e e e e e e e
  546. if ($gettok(% [ $+ [ $sockname ] ],1,32) == data) {
  547. if ($gettok(% [ $+ [ $sockname ] ],2,32) == make) {
  548. if (($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) || ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) < 4)) {
  549. if ($gettok(% [ $+ [ $sockname ] ],3,32) isalpha) && ($len($gettok(% [ $+ [ $sockname ] ],3,32)) < 15) {
  550. if ($gettok(% [ $+ [ $sockname ] ],4,32) == 1) {
  551. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 1) {
  552. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 1) {
  553. sockwrite -n $sockname data cded
  554. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  555. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) != $null) {
  556. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  557. inc %r- [ $+ [ $sockname ] ]
  558. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  559. unset %r- [ $+ [ $sockname ] ]
  560. }
  561. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  562. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  563. }
  564. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  565. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  566. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  567. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  568. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  569. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  570. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  571. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  572. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  573. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  574. halt
  575. }
  576. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 2) {
  577. sockwrite -n $sockname data cded
  578. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  579. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  580. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  581. }
  582. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  583. inc %r- [ $+ [ $sockname ] ]
  584. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  585. unset %r- [ $+ [ $sockname ] ]
  586. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  587. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  588. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  589. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  590. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  591. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  592. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  593. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  594. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  595. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  596. halt
  597. }
  598. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 3) {
  599. sockwrite -n $sockname data cded
  600. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  601. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  602. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  603. }
  604. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  605. inc %r- [ $+ [ $sockname ] ]
  606. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  607. unset %r- [ $+ [ $sockname ] ]
  608. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  609. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  610. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  611. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  612. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  613. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  614. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  615. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  616. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  617. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  618. halt
  619. }
  620. }
  621. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 2) {
  622. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 1) {
  623. sockwrite -n $sockname data cded
  624. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  625. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  626. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  627. }
  628. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  629. inc %r- [ $+ [ $sockname ] ]
  630. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  631. unset %r- [ $+ [ $sockname ] ]
  632. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  633. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  634. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  635. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  636. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  637. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  638. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  639. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  640. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  641. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  642. halt
  643. }
  644. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 2) {
  645. sockwrite -n $sockname data cded
  646. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  647. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  648. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  649. }
  650. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  651. inc %r- [ $+ [ $sockname ] ]
  652. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  653. unset %r- [ $+ [ $sockname ] ]
  654. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  655. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  656. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  657. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  658. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  659. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  660. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  661. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  662. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  663. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  664. halt
  665. }
  666. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 4) {
  667. sockwrite -n $sockname data cded
  668. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  669. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  670. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  671. }
  672. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  673. inc %r- [ $+ [ $sockname ] ]
  674. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  675. unset %r- [ $+ [ $sockname ] ]
  676. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  677. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  678. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  679. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  680. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  681. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  682. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  683. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  684. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  685. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  686. halt
  687. }
  688. }
  689. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 3) {
  690. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 3) {
  691. sockwrite -n $sockname data cded
  692. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  693. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  694. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  695. }
  696. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  697. inc %r- [ $+ [ $sockname ] ]
  698. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  699. unset %r- [ $+ [ $sockname ] ]
  700. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  701. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  702. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  703. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  704. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  705. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  706. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  707. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  708. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  709. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  710. halt
  711. }
  712. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 4) {
  713. sockwrite -n $sockname data cded
  714. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  715. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  716. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  717. }
  718. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  719. inc %r- [ $+ [ $sockname ] ]
  720. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  721. unset %r- [ $+ [ $sockname ] ]
  722. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  723. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  724. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  725. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  726. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  727. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  728. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  729. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  730. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  731. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  732. halt
  733. }
  734. }
  735. }
  736. if ($gettok(% [ $+ [ $sockname ] ],4,32) == 2) {
  737. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 4) {
  738. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 1) {
  739. sockwrite -n $sockname data cded
  740. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  741. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  742. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  743. }
  744. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  745. inc %r- [ $+ [ $sockname ] ]
  746. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  747. unset %r- [ $+ [ $sockname ] ]
  748. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  749. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  750. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  751. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  752. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  753. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  754. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  755. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  756. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  757. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  758. halt
  759. }
  760. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 2) {
  761. sockwrite -n $sockname data cded
  762. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  763. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  764. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  765. }
  766. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  767. inc %r- [ $+ [ $sockname ] ]
  768. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  769. unset %r- [ $+ [ $sockname ] ]
  770. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  771. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  772. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  773. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  774. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  775. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  776. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  777. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  778. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  779. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  780. halt
  781. }
  782. }
  783. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 5) {
  784. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 1) {
  785. sockwrite -n $sockname data cded
  786. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  787. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  788. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  789. }
  790. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  791. inc %r- [ $+ [ $sockname ] ]
  792. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  793. unset %r- [ $+ [ $sockname ] ]
  794. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  795. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  796. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  797. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  798. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  799. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  800. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  801. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  802. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  803. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  804. halt
  805. }
  806. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 2) {
  807. sockwrite -n $sockname data cded
  808. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  809. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  810. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  811. }
  812. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  813. inc %r- [ $+ [ $sockname ] ]
  814. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  815. unset %r- [ $+ [ $sockname ] ]
  816. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  817. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  818. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  819. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  820. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  821. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  822. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  823. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  824. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  825. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  826. halt
  827. }
  828. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 3) {
  829. sockwrite -n $sockname data cded
  830. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  831. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  832. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  833. }
  834. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  835. inc %r- [ $+ [ $sockname ] ]
  836. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  837. unset %r- [ $+ [ $sockname ] ]
  838. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  839. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  840. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  841. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  842. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  843. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  844. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  845. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  846. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  847. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  848. halt
  849. }
  850. }
  851. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 6) {
  852. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 2) {
  853. sockwrite -n $sockname data cded
  854. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  855. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  856. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  857. }
  858. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  859. inc %r- [ $+ [ $sockname ] ]
  860. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  861. unset %r- [ $+ [ $sockname ] ]
  862. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  863. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  864. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  865. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  866. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  867. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  868. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  869. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  870. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  871. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  872. halt
  873. }
  874. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 4) {
  875. sockwrite -n $sockname data cded
  876. mkdir $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)
  877. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  878. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat 1
  879. }
  880. %r- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  881. inc %r- [ $+ [ $sockname ] ]
  882. write -l3 $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat %r- [ $+ [ $sockname ] ]
  883. unset %r- [ $+ [ $sockname ] ]
  884. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat $gettok(% [ $+ [ $sockname ] ],4,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],5,32) $+ $chr(46) $+ $gettok(% [ $+ [ $sockname ] ],6,32)
  885. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1
  886. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 500
  887. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  888. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0
  889. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 3
  890. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 50 $+ $chr(46) $+ 50
  891. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1 $+ $chr(46) $+ 1
  892. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  893. write $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32) $+ \ $+ main.dat 0 $+ $chr(46) $+ 0
  894. halt
  895. }
  896. }
  897. }
  898. }
  899. }
  900. }
  901. if ($gettok(% [ $+ [ $sockname ] ],2,32) == newname) {
  902. if ($exists($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)) == $true) {
  903. sockwrite -n $sockname err You already have a character by that name.
  904. halt
  905. }
  906. if ($exists($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ $gettok(% [ $+ [ $sockname ] ],3,32)) == $false) {
  907. sockwrite -n $sockname data nameokay
  908. halt
  909. }
  910. }
  911. if ($gettok(% [ $+ [ $sockname ] ],2,32) == testslots) {
  912. %fuck = $mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat
  913. if ($read(%fuck,3) == $null) {
  914. sockwrite $sockname data slots 4
  915. halt
  916. }
  917. sockwrite $sockname data slots $calc(4 - $read(%fuck,3))
  918. halt
  919. }
  920. }
  921. }
  922. on 1:socklisten:game: {
  923. sockaccept user- [ $+ [ $sock(game).ip ] ]
  924. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!