API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 13th, 2017
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 58.63 KB | None | 0 0
raw download clone embed print report
  1. SERVER SCRIPT
  2. ****************
  3.  
  4.  
  5. on 1:socklisten:newuser: {
  6. sockaccept new
  7. }
  8. on 1:sockread:new: {
  9. if ($sockerr > 0) { return }
  10. sockread -f %newuser.data
  11. echo -a %newuser.data
  12. if ($gettok(%newuser.data,1,32) == new) {
  13. if ($exists($mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32)) $+ $chr(46) $+ dat == $true) {
  14. %err.one Username exists.
  15. sockwrite -n new err Username Exists.
  16. sockclose new
  17. halt
  18. }
  19. mkdir $mircdirusers\ $+ $gettok(%newuser.data,2,32)
  20. write $mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32) $+ $chr(46) $+ dat $gettok(%newuser.data,3,32)
  21. write $mircdirUsers\ $+ $gettok(%newuser.data,2,32) $+ \ $+ $gettok(%newuser.data,2,32) $+ $chr(46) $+ dat $gettok(%newuser.data,4,32)
  22. sockwrite -n new User created.
  23. sockclose new
  24. halt
  25. }
  26. }
  27. on 1:socklisten:logins: {
  28. sockaccept login
  29. }
  30. on 1:sockread:login: {
  31. if ($sockerr > 0) { return }
  32. sockread -f %login.info
  33. echo -a %login.info
  34. if ($exists($mircdirUsers\ $+ $gettok(%login.info,1,32)) == $false) { sockwrite login err User not found. | 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)) { sockwrite login err Invalid password. | sockclose login | halt }
  36. if ($gettok(%login.info,2,32) == $read($mircdirusers\ $+ $gettok(%login.info,1,32) $+ \ $+ $gettok(%login.info,1,32) $+ $chr(46) $+ dat,1)) {
  37. sockwrite login win User logged in.
  38. %player-user- [ $+ [ $sock(login).ip ] ] = $gettok(%login.info,1,32)
  39. sockrename login user- [ $+ [ $sock(login).ip ] ]
  40. %sock- [ $+ [ $gettok(%login.info,1,32) ] ] = user- [ $+ [ $sock(login).ip ] ]
  41. halt
  42. }
  43. }
  44. on 1:sockread:user-*: {
  45. if ($sockerr > 0) { return }
  46. sockread -f % [ $+ [ $sockname ] ]
  47. echo -a $sockname says: % [ $+ [ $sockname ] ]
  48. if (% [ $+ [ $sockname ] ] == getchars) {
  49. if ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) {
  50. sockwrite $sockname data nochars
  51. halt
  52. }
  53. sockwrite -n $sockname data tchar $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  54. %c- [ $+ [ $sockname ] ] = $read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3)
  55. while (%c- [ $+ [ $sockname ] ] > 0) {
  56. 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)
  57. dec %c- [ $+ [ $sockname ] ]
  58. }
  59. }
  60. if ($gettok(% [ $+ [ $sockname ] ],1,32) == data) {
  61. if ($gettok(% [ $+ [ $sockname ] ],2,32) == make) {
  62. echo -a GOT TO MAKE
  63. if (($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) == $null) || ($read($mircdirusers\ $+ %player- [ $+ [ $sockname ] ] $+ \ $+ %player- [ $+ [ $sockname ] ] $+ $chr(46) $+ dat,3) < 4)) {
  64. echo -a GOT PASSED LESS THAN FOUR
  65. if ($gettok(% [ $+ [ $sockname ] ],3,32) isalpha) && ($len($gettok(% [ $+ [ $sockname ] ],3,32)) < 15) {
  66. if ($gettok(% [ $+ [ $sockname ] ],4,32) == 1) {
  67. if ($gettok(% [ $+ [ $sockname ] ],5,32) == 1) {
  68. ; human
  69. if ($gettok(% [ $+ [ $sockname ] ],6,32) == 1) {
  70. sockwrite -n $sockname Okay! Creating Good Human Tank.
  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 Okay! Creating Good Human Melee.
  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 Okay! Creating Good Human Ranged.
  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 Okay! Creating Good Dwarf Tank.
  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 Okay! Creating Good dwarf Melee.
  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 Okay! Creating Good dwarf caster.
  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 Okay! Creating Good elf ranged.
  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 Okay! Creating Good elf caster.
  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 Okay! Creating Bad ogre Tank.
  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 Okay! Creating Bad ogre Melee.
  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 Okay! Creating Bad orc Tank.
  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 Okay! Creating Bad orc melee.
  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 Okay! Creating Bad orc ranged.
  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 Okay! Creating Bad demon melee.
  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 Okay! Creating Bad demon caster.
  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.  
  443.  
  444. **********************
  445. CLIENT SCRIPT
  446. **********************
  447.  
  448. dialog game {
  449. title "Ruin Legacy 1.0a"
  450. size -1 -1 640 480
  451. option pixels
  452. icon 01, 19 10 599 218, $mircdirimages\title.jpg
  453. text "Username:", 10, 20 270 80 20
  454. edit "", 11, 80 270 90 20
  455. text "Password:", 12, 180 270 80 20
  456. edit "", 13, 240 270 90 20, pass
  457. check "Remember Username", 20, 20 300 140 20
  458. button "Log In", 30, 20 330 60 20
  459. button "New User", 31, 90 330 60 20
  460. }
  461. alias music {
  462. if (%music == 1) { return $true | halt }
  463. return $null
  464. }
  465. on 1:dialog:game:sclick:31: {
  466. dialog -md newuser newuser
  467. }
  468. on 1:dialog:game:sclick:30: {
  469. if ($did(game,11) == $null) { %err.value = You did not specify a username. | dialog -md errors errors | halt }
  470. if ($did(game,13) == $null) { %err.value = You did not specify a password. | dialog -md errors errors | halt }
  471. %login.name = $did(game,11)
  472. %login.pass = $did(game,13)
  473. sockopen login 127.0.0.1 27501
  474. }
  475. on 1:sockopen:login: {
  476. sockwrite -n login %login.name %login.pass
  477. }
  478. dialog chars {
  479. title "Character Selection"
  480. size -1 -1 520 680
  481. option pixels
  482. icon 20, 20 20 120 120, $mircdirimages\charselect\none.jpg
  483. icon 21, 150 20 349 120, $mircdirimages\charselect\blank.jpg
  484. text "", 22, 160 30 100 15
  485. text "", 23, 160 55 100 15
  486. text "", 24, 160 80 100 15
  487. text "", 25, 160 105 100 15
  488. icon 30, 20 160 120 120, $mircdirimages\charselect\none.jpg
  489. icon 31, 150 160 349 120, $mircdirimages\charselect\blank.jpg
  490. text "", 32, 160 170 100 15
  491. text "", 33, 160 195 100 15
  492. text "", 34, 160 220 100 15
  493. text "", 35, 160 245 100 15
  494. icon 40, 20 300 120 120, $mircdirimages\charselect\none.jpg
  495. icon 41, 150 300 349 120, $mircdirimages\charselect\blank.jpg
  496. text "", 42, 160 310 100 15
  497. text "", 43, 160 335 100 15
  498. text "", 44, 160 360 100 15
  499. text "", 45, 160 385 100 15
  500. icon 50, 20 440 120 120, $mircdirimages\charselect\none.jpg
  501. icon 51, 150 440 349 120, $mircdirimages\charselect\blank.jpg
  502. text "", 52, 160 450 100 15
  503. text "", 53, 160 475 100 15
  504. text "", 54, 160 500 100 15
  505. text "", 55, 160 525 100 15
  506. button "New Character", 60, 20 580 120 60
  507. button "Delete Character", 61, 380 580 120 60
  508. }
  509. alias fillchars {
  510. if ($1 == $null) { halt }
  511. if ($2 == $null) { halt }
  512. if (!$dialog(chars)) { halt }
  513. %num = $numtok($2-,32)
  514. %dats = $2-
  515. while (%num > 0) {
  516. did -a chars $calc(%num + 1) $+ 2 $gettok($gettok(%dats,%num,32),1,46)
  517. did -a chars $calc(%num + 1) $+ 3 Level $remove($gettok($gettok(%dats,%num,32),5,46),dc)
  518. did -a chars $calc(%num + 1) $+ 4 $factioncheck($gettok($gettok(%dats,%num,32),2,46)) $racecheck($gettok($gettok(%dats,%num,32),3,46))
  519. did -a chars $calc(%num + 1) $+ 5 $classcheck($gettok($gettok(%dats,%num,32),4,46))
  520. dec %num
  521. }
  522. }
  523. alias classcheck {
  524. if ($1 == 1) { return Tank }
  525. if ($1 == 2) { return Melee }
  526. if ($1 == 3) { return Ranged }
  527. if ($1 == 4) { return Caster }
  528. }
  529. alias racecheck {
  530. if ($1 == 1) { return Human }
  531. if ($1 == 2) { return Dwarf }
  532. if ($1 == 3) { return Elf }
  533. if ($1 == 4) { return Ogre }
  534. if ($1 == 5) { return Orc }
  535. if ($1 == 6) { return Demon }
  536. }
  537. alias factioncheck {
  538. if ($1 == 1) { return Good }
  539. if ($1 == 2) { return Bad }
  540. }
  541. on 1:sockread:login: {
  542. sockread -f %ld
  543. echo -a $sockname says: %ld
  544. if ($gettok(%ld,1,32) == err) {
  545. %err.value = $right(%ld,$calc($len(%ld) - 3))
  546. dialog -md errors errors
  547. halt
  548. }
  549. if ($gettok(%ld,1,32) == win) {
  550. dialog -md chars chars
  551. getchars
  552. halt
  553. dialog -x game
  554. }
  555. if ($gettok(%ld,1,32) == dc) {
  556. %cli = $numtok($deltok(%ld,1,32),32)
  557. %vdat = $deltok(%ld,1,32)
  558. fillchars %cli %vdat
  559. }
  560. if ($gettok(%ld,1,32) == data) {
  561. if ($gettok(%ld,2,32) == tchar) { %tchar = $gettok(%ld,3,32) }
  562. if ($gettok(%ld,2,32) == nameokay) {
  563. dialog -x class
  564. sockwrite -n login data make %new.name %new.faction %new.race %new.class
  565. halt
  566. }
  567. if ($gettok(%ld,2,32) == chars) {
  568. if (!$dialog(chars)) { dialog -md chars chars }
  569.  
  570. }
  571. if ($gettok(%ld,2,32) == nochars) {
  572. if (!$dialog(chars)) { dialog -md chars chars }
  573. %chars.total = 0
  574. }
  575. if ($gettok(%ld,2,32) == slots) {
  576. %freeslots = $gettok(%ld,3,32)
  577. if (%freeslots == 0) { %err.value = You already have 4 characters! | dialog -md errors errors | halt }
  578. dialog -md cnew cnew
  579. ;dialog -x chars
  580. halt
  581. }
  582. }
  583. }
  584. dialog cnew {
  585. title "New Character Creation"
  586. size -1 -1 640 530
  587. option pixels
  588. text "Select your faction:", 10, 20 20 120 20
  589. icon 20, 60 50 197 255, $mircdirimages/make/factiongood.jpg
  590. icon 30, 380 50 197 255, $mircdirimages/make/factionbad.jpg
  591. text "Good", 21, 50 320 227 20
  592. text "", 22, 50 350 250 250
  593. text "Bad", 31, 370 320 250 20
  594. text "", 32, 370 350 250 250
  595. button "Back", 50, 220 490 180 30
  596. }
  597. on 1:dialog:cnew:sclick:50: {
  598. dialog -x cnew
  599. dialog -md chars chars
  600. }
  601. on 1:dialog:cnew:init:0: {
  602. did -a cnew 22 $read($mircdirtext/ui/charc/abg.txt)
  603. did -a cnew 32 $read($mircdirtext/ui/charc/abb.txt)
  604. if (!$dialog(chars)) { halt }
  605. dialog -x chars
  606. }
  607. alias getchars {
  608. if (!$sock(login)) {
  609. %err.value = Connection disconnected.
  610. dialog -md errors errors
  611. halt
  612. }
  613. sockwrite -n login getchars
  614. }
  615. dialog race {
  616. title "Select your race"
  617. size -1 -1 580 500
  618. option pixels
  619. icon 20, 20 20 120 120, $mircdirimages/chars/human.jpg
  620. icon 30, 20 170 120 120, $mircdirimages/chars/dwarf.jpg
  621. icon 40, 20 320 120 120, $mircdirimages/chars/elf.jpg
  622. text "Human", 21, 160 20 80 20
  623. text "Dwarf", 31, 160 170 80 20
  624. text "Elf", 41, 160 320 80 20
  625. text "", 22, 160 40 350 100
  626. text "", 32, 160 190 350 100
  627. text "", 42, 160 340 350 100
  628. button "Back", 50, 200 460 180 30
  629. }
  630. on 1:dialog:race:sclick:50: {
  631. dialog -x race
  632. dialog -md cnew cnew
  633. }
  634. on 1:dialog:race:init:0: {
  635. if (%new.faction == 1) {
  636. did -g race 20 $mircdirimages/chars/human.jpg
  637. did -g race 30 $mircdirimages/chars/dwarf.jpg
  638. did -g race 40 $mircdirimages/chars/elf.jpg
  639. did -a race 22 $read($mircdirtext/ui/charc/human.txt)
  640. did -a race 32 $read($mircdirtext/ui/charc/dwarf.txt)
  641. did -a race 42 $read($mircdirtext/ui/charc/elf.txt)
  642. halt
  643. }
  644. if (%new.faction == 2) {
  645. did -g race 20 $mircdirimages/chars/ogre.jpg
  646. did -g race 30 $mircdirimages/chars/orc.jpg
  647. did -g race 40 $mircdirimages/chars/demon.jpg
  648. did -a race 21 Ogre
  649. did -a race 31 Orc
  650. did -a race 41 Demon
  651. did -a race 22 $read($mircdirtext/ui/charc/ogre.txt)
  652. did -a race 32 $read($mircdirtext/ui/charc/orc.txt)
  653. did -a race 42 $read($mircdirtext/ui/charc/demon.txt)
  654. }
  655. }
  656. dialog class {
  657. title "Select your class"
  658. size -1 -1 640 630
  659. option pixels
  660. icon 10, 20 20 120 120, $mircdirimages/weap/xtank.jpg
  661. text "Tank", 11, 150 20 80 20
  662. text "EEE", 12, 150 40 350 100
  663. icon 20, 20 160 120 120, $mircdirimages/weap/xsword.jpg
  664. text "Melee", 21, 150 160 120 120
  665. text "FFF", 22, 150 180 350 100
  666. icon 30, 20 300 120 120, $mircdirimages/weap/xgun.jpg
  667. text "Ranged", 31, 150 300 120 120
  668. text "HHH", 32, 150 320 350 100
  669. icon 40, 20 440 120 120, $mircdirimages/weap/xstaff.jpg
  670. text "Caster", 41, 150 440 120 120
  671. text "NNN", 42, 150 460 350 120
  672. }
  673. alias namecheck {
  674. if ((%new.name isalpha) && ($len(%new.name) < 15)) {
  675. sockwrite -n login data newname %new.name
  676. halt
  677. }
  678. %err.value = Invalid Name.
  679. dialog -md errors errors
  680. unset %new.name
  681. halt
  682. }
  683. on 1:dialog:class:sclick:10: {
  684. %new.class = 1
  685. if ($classcheck == $true) {
  686. %new.name = $?="Name your character."
  687. if ($namecheck == $true) { }
  688. halt
  689. }
  690. }
  691. on 1:dialog:class:sclick:20: {
  692. %new.class = 2
  693. if ($classcheck == $true) { echo -a YES | halt }
  694. echo -a NO
  695. }
  696. on 1:dialog:class:sclick:30: {
  697. %new.class = 3
  698. if ($classcheck == $true) { echo -a YES | halt }
  699. echo -a NO
  700. }
  701. on 1:dialog:class:sclick:40: {
  702. %new.class = 4
  703. if ($classcheck == $true) { echo -a YES | halt }
  704. echo -a NO
  705. }
  706. alias classcheck {
  707. if (%new.race == 1) {
  708. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 3)) { return $true | halt }
  709. return $false
  710. }
  711. if (%new.race == 2) {
  712. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 4)) { return $true | halt }
  713. return $false
  714. }
  715. if (%new.race == 3) {
  716. if ((%new.class == 3) || (%new.class == 4)) { return $true | halt }
  717. return $false
  718. }
  719. if (%new.race == 4) {
  720. if ((%new.class == 1) || (%new.class == 2)) { return $true | halt }
  721. return $false
  722. }
  723. if (%new.race == 5) {
  724. if ((%new.class == 1) || (%new.class == 2) || (%new.class == 3)) { return $true | halt }
  725. return $false
  726. }
  727. if (%new.race == 6) {
  728. if ((%new.class == 2) || (%new.class == 4)) { return $true | halt }
  729. return $false
  730. }
  731. return $false
  732. }
  733. on 1:dialog:class:init:0: {
  734. ;dialog -x race
  735. if (%new.race == 1) {
  736. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  737. did -g class 10 $mircdirimages/weap/tank.jpg
  738. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  739. did -g class 20 $mircdirimages/weap/sword.jpg
  740. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  741. did -g class 30 $mircdirimages/weap/gun.jpg
  742. did -a class 42 Humans have not mastered the arts of magic.
  743. }
  744. if (%new.race == 2) {
  745. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  746. did -g class 10 $mircdirimages/weap/tank.jpg
  747. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  748. did -g class 20 $mircdirimages/weap/sword.jpg
  749. did -a class 32 Dwarves lack the dexterity required for long ranged attacking with bows or guns.
  750. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  751. did -g class 40 $mircdirimages/weap/staff.jpg
  752. }
  753. if (%new.race == 3) {
  754. did -a class 12 Elves are a non violent race, and have not mastered physical combat.
  755. did -a class 22 Elves prefer not to weild blade.
  756. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  757. did -g class 30 $mircdirimages/weap/gun.jpg
  758. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  759. did -g class 40 $mircdirimages/weap/staff.jpg
  760. }
  761. if (%new.race == 4) {
  762. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  763. did -g class 10 $mircdirimages/weap/tank.jpg
  764. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  765. did -g class 20 $mircdirimages/weap/sword.jpg
  766. did -a class 32 Ogres are too stupid to use guns.
  767. did -a class 42 Ogres are also too stupid to cast magic.
  768. }
  769. if (%new.race == 5) {
  770. did -a class 12 $read($mircdirtext/ui/class/tank.txt)
  771. did -g class 10 $mircdirimages/weap/tank.jpg
  772. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  773. did -g class 20 $mircdirimages/weap/sword.jpg
  774. did -a class 32 $read($mircdirtext/ui/class/ranged.txt)
  775. did -g class 30 $mircdirimages/weap/gun.jpg
  776. did -a class 42 Orcs have not learned the ways of magic.
  777. }
  778. if (%new.race == 6) {
  779. did -a class 12 Demons are too fragile to tank.
  780. did -a class 22 $read($mircdirtext/ui/class/melee.txt)
  781. did -g class 20 $mircdirimages/weap/sword.jpg
  782. did -a class 32 Demons dont know how to use guns.
  783. did -a class 42 $read($mircdirtext/ui/class/caster.txt)
  784. did -g class 40 $mircdirimages/weap/staff.jpg
  785. }
  786. }
  787. on 1:dialog:race:sclick:40: {
  788. if (%new.faction == 1) { %new.race = 3 }
  789. if (%new.faction == 2) { %new.race = 6 }
  790. dialog -md class class
  791. }
  792. on 1:dialog:race:sclick:30: {
  793. if (%new.faction == 1) { %new.race = 2 }
  794. if (%new.faction == 2) { %new.race = 5 }
  795. dialog -md class class
  796. }
  797. on 1:dialog:race:sclick:20: {
  798. if (%new.faction == 1) { %new.race = 1 }
  799. if (%new.faction == 2) { %new.race = 4 }
  800. dialog -md class class
  801. }
  802. on 1:dialog:race:sclick:
  803. on 1:dialog:cnew:sclick:20: {
  804. %new.faction = 1
  805. dialog -x cnew
  806. dialog -md race race
  807. halt
  808. }
  809. on 1:dialog:cnew:sclick:30: {
  810. %new.faction = 2
  811. dialog -x cnew
  812. dialog -md race race
  813. halt
  814. }
  815. on 1:dialog:chars:init:0: {
  816. if (%chars.total == 0) {
  817. did -b chars 61
  818. did -f chars 60
  819. }
  820. }
  821. on 1:dialog:chars:sclick:60: {
  822. testslots
  823. halt
  824. }
  825. alias testslots {
  826. if (!$sock(login)) {
  827. dialog -x chars
  828. dialog -md game game
  829. %err.value = Connection timed out.
  830. dialog -md errors errors
  831. }
  832. sockwrite -n login data testslots
  833. }
  834. dialog newuser {
  835. title "New User"
  836. size -1 -1 360 280
  837. option pixels
  838. text "Desired Username:", 10, 20 20 120 20
  839. edit "", 11, 120 20 120 20
  840. text "Password:", 12, 20 60 120 20
  841. edit "", 13, 120 60 120 20, pass
  842. text "Password again:", 14, 20 100 120 20
  843. edit "", 15, 120 100 120 20, pass
  844. text "Email address:", 16, 20 140 120 20
  845. edit "", 17, 120 140 220 20
  846. button "Submit", 18, 20 170 80 20
  847. text "", 20, 20 210 340 200
  848. }
  849. on 1:dialog:newuser:sclick:18: {
  850. if ($did(newuser,13) != $did(newuser,15)) { %err.value = Passwords dont match. | dialog -md errors errors | halt }
  851. if ($len($did(newuser,13)) < 6) { %err.value = Password too short. (6 chars or more) | dialog -md errors errors | halt }
  852. if (!$did(newuser,11)) { %err.value = You must specify a username. | dialog -md errors errors | halt }
  853. if ($len($did(newuser,11)) < 3) { %err.value = User name too short. (3 chars or more) | dialog -md errors errors | halt }
  854. if ($did(newuser,11) !isalpha) { %err.value = Username must contain only letters. | dialog -md errors errors | halt }
  855. if (!$did(newuser,17)) { %err.value = You did not specify an email address. | dialog -md errors errors | halt }
  856. %new.user = $did(newuser,11)
  857. %new.pass = $did(newuser,13)
  858. %new.email = $did(newuser,17)
  859. sockopen newuser 127.0.0.1 27500
  860. did -a newuser 20 Connecting...
  861. }
  862. alias sockcheck {
  863. if (!$sock(newuser)) { did -a newuser 20 Cannot establish connection. | halt }
  864. }
  865. on 1:sockclose:newuser: {
  866. if ($sockerr != $null) { echo -a Error: $sockerr }
  867. }
  868. on 1:sockopen:newuser: {
  869. did -a newuser 20 Connection established...
  870. sockwrite -n newuser new %new.user %new.pass %new.email
  871. }
  872. on 1:sockread:newuser: {
  873. sockread -f %new
  874. if ($gettok(%new,1,32) == err) {
  875. did -a newuser 20 $right(%new,$calc($len(%new) - 3))
  876. sockclose newuser
  877. halt
  878. }
  879. did -a newuser 20 %new
  880. sockclose newuser
  881. dialog -x newuser
  882. dialog -md created created
  883. }
  884. dialog errors {
  885. title "Error!"
  886. size -1 -1 300 200
  887. option pixels
  888. text "Error detected:",01, 10 10 80 20
  889. text "", 02, 10 30 280 120
  890. button "Okay", 03, 10 90 80 20
  891. }
  892. dialog created {
  893. title "User Created!"
  894. size -1 -1 300 200
  895. option pixels
  896. text "User has been created",01, 10 10 180 20
  897. text "You may now log in.", 02, 10 30 280 120
  898. button "Okay", 03, 10 90 80 20
  899. }
  900. on 1:dialog:created:sclick:03: {
  901. dialog -x created
  902. dialog -v game
  903. }
  904. on 1:dialog:errors:init:0: {
  905. did -a errors 02 %err.value
  906. }
  907. on 1:dialog:errors:sclick:03: {
  908. dialog -x errors
  909. unset %err.value
  910. }
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!