API tools faq
paste
Advertisement
Daedroth

Untitled

Daedroth
Dec 18th, 2013
63
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.83 KB | None | 0 0
raw download clone embed print report diff
  1. BEGIN Crafting_sct ; локальный скрипт
  2.  
  3. short Button
  4. short Controlvar ; 0 - ничего не происходило , 1 - выбрана ковка любого вида оружия, 2,3,4 - начата ковка эбонита, стали, железа, 19 - мало материалов для ковки, 20 - ковка завершена
  5. short Once
  6. float timer
  7.  
  8. set Button to GetButtonPressed
  9.  
  10. if ( ControlVar >= 19 )
  11. set Button to 0
  12. set Controlvar to 0
  13. set Timer to 0 ; на всякий пожарный
  14. endif
  15. if ( OnActivate )
  16. if ( Player->GetArmorer >= 70 )
  17. messagebox "" "Сделать оружие из железа" "Сделать оружие из стали" "Сделать оружие из эбонита" "Выйти"
  18. set Controlvar to 1
  19. elseif ( Player->GetArmorer >= 40 )
  20. messagebox "" "Сделать оружие из железа" "Сделать оружие из стали" "Выйти"
  21. set Controlvar to 1
  22. elseif ( Player->GetArmorer >= 20 )
  23. messagebox "" "Сделать оружие из железа" "Выйти"
  24. set Controlvar to 1
  25. else
  26. messagebox "Вы ничего не можете сковать" "Выйти"
  27. set Controlvar to 1
  28. endif
  29. if ( Controlvar == 1 )
  30. if ( Button == 0 )
  31. set ControlVar to 2 ; эбонит
  32. messagebox "Что вы хотите сковать?" "Эбонитовый длинный меч" "Эбонитовый топор" "Эбонитовое копье" "Выйти"
  33. if ( Button == 0 ) ; меч
  34. if ( ControlVar == 2 )
  35. if ( Player->GetItemCount Ebony_Longsword_Resept == 0 )
  36. messagebox "У вас нет рецепта для ковки" "Ок"
  37. elseif ( Player->GetItemCount Ebony_longsword_Resept )
  38. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  39. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  40. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  41.  
  42. set Timer to Timer + GetSecondsPassed
  43. fadein 2
  44. if ( Timer >= 2 )
  45. set GameHour to GameHour + 2 ; проходит 2 часа...
  46. fadeout 2
  47. set timer to 0
  48. set Controlvar to 20 ; оружие доделано
  49. player->Additem "Ebony Longsword" 1
  50. endif
  51. endif
  52. endif
  53. endif
  54. if ( ControlVar == 2 )
  55. messagebox "У вас недостаточно материалов для ковки" "Ок"
  56. set Controlvar to 19
  57. endif
  58. endif
  59. endif
  60. elseif ( Button == 1 ) ; топор
  61. if ( ControlVar == 2 )
  62. if ( Player->GetItemCount Ebony_war_axe_Resept == 0 )
  63. messagebox "У вас нет рецепта для ковки" "Ок"
  64. elseif ( Player->GetItemCount Ebony_war_axe_Resept )
  65. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  66. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  67. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  68. set Timer to Timer + GetSecondsPassed
  69. fadein 2
  70. if ( Timer >= 2 )
  71. set GameHour to GameHour + 2 ; проходит 2 часа...
  72. fadeout 2
  73. set timer to 0
  74. set Controlvar to 20 ; оружие доделано
  75. player->Additem "Ebony war axe" 1
  76. endif
  77. endif
  78. endif
  79. endif
  80. if ( ControlVar == 2 )
  81. messagebox "У вас недостаточно материалов для ковки" "Ок"
  82. set Controlvar to 19
  83. endif
  84. endif
  85. endif
  86. elseif ( Button == 2 ) ; копье
  87. if ( ControlVar == 2 )
  88. if ( Player->GetItemCount Ebony_spear_Resept == 0 )
  89. messagebox "У вас нет рецепта для ковки" "Ок"
  90. elseif ( Player->GetItemCount Ebony_spear_Resept )
  91. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  92. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  93. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  94. set Timer to Timer + GetSecondsPassed
  95. fadein 2
  96. if ( Timer >= 2 )
  97. set GameHour to GameHour + 2 ; проходит 2 часа...
  98. fadeout 2
  99. set timer to 0
  100. set Controlvar to 20 ; оружие доделано
  101. player->Additem "Ebony spear" 1
  102. endif
  103. endif
  104. endif
  105. endif
  106. if ( ControlVar == 2 )
  107. messagebox "У вас недостаточно материалов для ковки" "Ок"
  108. set Controlvar to 19
  109. endif
  110. endif
  111. endif
  112. endif
  113. elseif ( Button == 1 )
  114. set ControlVar to 3 ; сталь
  115. messagebox "Что вы хотите сковать?" "Стальной длинный меч" "Стальной топор" "Стальное копье" "Выйти"
  116. if ( Button == 0 ) ; меч
  117. if ( ControlVar == 3 )
  118. if ( Player->GetItemCount _Steel_Longsword_Resept == 0 )
  119. messagebox "У вас нет рецепта для ковки" "Ок"
  120. elseif ( Player->GetItemCount _Steel_longsword_Resept )
  121. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  122. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  123. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  124.  
  125. set Timer to Timer + GetSecondsPassed
  126. fadein 2
  127. if ( Timer >= 2 )
  128. set GameHour to GameHour + 2 ; проходит 2 часа...
  129. fadeout 2
  130. set timer to 0
  131. set Controlvar to 20 ; оружие доделано
  132. player->Additem "Steel Longsword" 1
  133. endif
  134. endif
  135. endif
  136. endif
  137. if ( ControlVar == 3 )
  138. messagebox "У вас недостаточно материалов для ковки" "Ок"
  139. set Controlvar to 19
  140. endif
  141. endif
  142. endif
  143. elseif ( Button == 1 ) ; топор
  144. if ( ControlVar == 3 )
  145. if ( Player->GetItemCount Steel_war_axe_Resept == 0 )
  146. messagebox "У вас нет рецепта для ковки" "Ок"
  147. elseif ( Player->GetItemCount Steel_war_axe_Resept )
  148. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  149. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  150. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  151. set Timer to Timer + GetSecondsPassed
  152. fadein 2
  153. if ( Timer >= 2 )
  154. set GameHour to GameHour + 2 ; проходит 2 часа...
  155. fadeout 2
  156. set timer to 0
  157. set Controlvar to 20 ; оружие доделано
  158. player->Additem "Steel war axe" 1
  159. endif
  160. endif
  161. endif
  162. endif
  163. if ( ControlVar == 3 )
  164. messagebox "У вас недостаточно материалов для ковки" "Ок"
  165. set Controlvar to 19
  166. endif
  167. endif
  168. endif
  169. elseif ( Button == 2 ) ; копье
  170. if ( ControlVar == 3 )
  171. if ( Player->GetItemCount Steel_spear_Resept == 0 )
  172. messagebox "У вас нет рецепта для ковки" "Ок"
  173. elseif ( Player->GetItemCount Steel_spear_Resept )
  174. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  175. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  176. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  177. set Timer to Timer + GetSecondsPassed
  178. fadein 2
  179. if ( Timer >= 2 )
  180. set GameHour to GameHour + 2 ; проходит 2 часа...
  181. fadeout 2
  182. set timer to 0
  183. set Controlvar to 20 ; оружие доделано
  184. player->Additem "Steel spear" 1
  185. endif
  186. endif
  187. endif
  188. endif
  189. if ( ControlVar == 3 )
  190. messagebox "У вас недостаточно материалов для ковки" "Ок"
  191. set Controlvar to 19
  192. endif
  193. endif
  194. endif
  195. endif
  196. if ( Button == 2 )
  197. set ControlVar to 4 ; железо
  198. messagebox "Что вы хотите сковать?" "Железный длинный меч" "Железный топор" "Железное копье" "Выйти"
  199. if ( Button == 0 ) ; меч
  200. if ( ControlVar == 4 )
  201. if ( Player->GetItemCount Iron_Longsword_Resept == 0 )
  202. messagebox "У вас нет рецепта для ковки" "Ок"
  203. elseif ( Player->GetItemCount Iron_longsword_Resept )
  204. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  205. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  206. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  207.  
  208. set Timer to Timer + GetSecondsPassed
  209. fadein 2
  210. if ( Timer >= 2 )
  211. set GameHour to GameHour + 2 ; проходит 2 часа...
  212. fadeout 2
  213. set timer to 0
  214. set Controlvar to 20 ; оружие доделано
  215. player->Additem "Iron Longsword" 1
  216. endif
  217. endif
  218. endif
  219. endif
  220. if ( ControlVar == 4 )
  221. messagebox "У вас недостаточно материалов для ковки" "Ок"
  222. set Controlvar to 19
  223. endif
  224. endif
  225. endif
  226. elseif ( Button == 1 ) ; топор
  227. if ( ControlVar == 4 )
  228. if ( Player->GetItemCount Iron_war_axe_Resept == 0 )
  229. messagebox "У вас нет рецепта для ковки" "Ок"
  230. elseif ( Player->GetItemCount Iron_war_axe_Resept )
  231. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  232. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  233. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  234. set Timer to Timer + GetSecondsPassed
  235. fadein 2
  236. if ( Timer >= 2 )
  237. set GameHour to GameHour + 2 ; проходит 2 часа...
  238. fadeout 2
  239. set timer to 0
  240. set Controlvar to 20 ; оружие доделано
  241. player->Additem "Iron war axe" 1
  242. endif
  243. endif
  244. endif
  245. endif
  246. if ( ControlVar == 4 )
  247. messagebox "У вас недостаточно материалов для ковки" "Ок"
  248. set Controlvar to 19
  249. endif
  250. endif
  251. endif
  252. elseif ( Button == 2 ) ; копье
  253. if ( ControlVar == 4 )
  254. if ( Player->GetItemCount Iron_spear_Resept == 0 )
  255. messagebox "У вас нет рецепта для ковки" "Ок"
  256. elseif ( Player->GetItemCount Iron_spear_Resept )
  257. if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
  258. if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
  259. if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
  260. set Timer to Timer + GetSecondsPassed
  261. fadein 2
  262. if ( Timer >= 2 )
  263. set GameHour to GameHour + 2 ; проходит 2 часа...
  264. fadeout 2
  265. set timer to 0
  266. set Controlvar to 20 ; оружие доделано
  267. player->Additem "Iron long spear" 1
  268. endif
  269. endif
  270. endif
  271. endif
  272. if ( ControlVar == 4 )
  273. messagebox "У вас недостаточно материалов для ковки" "Ок"
  274. set Controlvar to 19
  275. endif
  276. endif
  277. endif
  278. endif
  279. endif
  280. endif
  281. endif
  282.  
  283. END
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!