API tools faq
paste
Advertisement
Guest User

Untitled

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