API tools faq
paste
Advertisement
Guest User

Untitled

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