API tools faq
paste
View difference between Paste ID: TXXTx91A and 8TSGw75Q
SHOW: | | - or go back to the newest paste.
1-
BEGIN Crafting_sct
1+
BEGIN Crafting_sct ; локальный скрипт
2
3
short Button

4-
short Controlvar

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 == 20 )

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 )

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-
					

53+
54
						if ( ControlVar == 2 )

55
							messagebox "У вас недостаточно материалов для ковки" "Ок"

56
							set Controlvar to 19

57-
					if ( Player->GetItemCount _Ebony_war_axe_Resept )

57+
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-
					if ( Player->GetItemCount _Ebony_war_axe_Resept )

77+
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-
			endif
95+
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
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            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!