API tools faq
paste
View difference between Paste ID: TgEqt9ja and ZnFvUu3j
SHOW: | | - or go back to the newest paste.
1
-- Variables
2
3
CMO = 0 -- Counter Metal Input

4
CES = 0 -- Counter Empty Smeltery

5
6
-- Button Variable for showing button list!

7
CML = 0 -- Counter Metal List

8
CAL = 0 -- Counter Alloy List

9
CLL = 0 -- Counter Liquid List

10
CBL = 0 -- Counter Block List

11
CMML = 0 -- Counter Menu List

12
-- \Button Variable for showing button list!

13
14
-- Filling Variables

15
CFM = 0 -- Counter Filling Metal

16
CFA = 0 -- Counter Filling Alloy

17
CFL = 0 -- Counter Filling Liquid

18
CFB = 0 -- Counter Filling Block

19
20
-- MouseWidth/Height Variables

21
mouseWidth = 0  -- mouseWidth Variable

22
mouseHeight = 0 -- mouseHeight Variable

23
-- \MouseWidth/Height Variables

24
25
-- \Variables

26
----------------------------------------------------------------------------------------------

27
-- Computercraft Monitor wrapping

28
29
monitor = peripheral.wrap("right") -- insert Monitor position here

30
31
-- \Computercraft Monitor wrapping

32
----------------------------------------------------------------------------------------------

33
-- Monitor Clearing + Background color change and cursor Positioning

34
35
monitor.setBackgroundColour((colors.black)) -- Return to standart color BEFORE clearing the screen

36
monitor.clear() -- Clear Monitor

37
monitor.setCursorPos(1,1) -- Set Cursor to Position 1,1

38
39
-- \Monitor Clearing + Background color change and cursor Positioning

40
----------------------------------------------------------------------------------------------

41
-- Debug text for Display Size

42
43
w,h=monitor.getSize() -- set w to Width of the monitor and h to Height in Pixels

44
45
print(w) -- Print width of monitor

46
print(h) -- print Height of monitor

47
48
-- \Debug text for Display Size

49
----------------------------------------------------------------------------------------------

50
-- Create Buttons for Metals, Alloys etc.

51
52
function listMenu() -- Create function

53
54
	monitor.clear()

55
	monitor.setBackgroundColour((colours.lime)) -- Set monitor Background Color for Button Creation

56
	

57
	monitor.setCursorPos(2,2) -- Set Cursor Position to 2,2

58
	monitor.write("Metals") -- Write "Metals" at Current Cursor Position

59
	

60
	monitor.setCursorPos(2,4)

61
	monitor.write("Alloys")

62
	

63
	monitor.setCursorPos(2,6)

64
	monitor.write("Liquids")

65
	

66
	monitor.setCursorPos(2,8)

67
	monitor.write("Blocks")

68
	

69
	monitor.setBackgroundColour((colors.black)) -- Reset Monitor Background Color back to black

70
71
end -- End Function

72
73
74
-- \Create Buttons for Metals, Alloys etc.

75
-----------------------------------------------------------------------------------------------

76
-- Functions for right clicking on monitor and what it is supposed to do.

77
78
function listMetals() -- Metal listing function.

79
80
		monitor.clear() -- Clear Monitor

81
		print("CLEARED")

82
		

83
		monitor.setBackgroundColour((colours.lime)) -- Set Monitor Background color to Lime for button creation

84
		

85
		monitor.setCursorPos(2,2)------------------- row 1

86
		monitor.write("Back")

87
		

88
		monitor.setCursorPos(2,4)

89
		monitor.write("Cobalt")

90
		

91
		monitor.setCursorPos(2,6)

92
		monitor.write("Glold")

93
94
		monitor.setCursorPos(2,8)

95
		monitor.write("Coal")

96
		

97
		monitor.setCursorPos(2,10)

98
		monitor.write("Unstable")

99
100
		monitor.setCursorPos(2,12)

101
		monitor.write("Silver")

102
103
		monitor.setCursorPos(2,14)

104
		monitor.write("Yellorium")

105
106
		monitor.setCursorPos(15,2)------------------- row 2

107
		monitor.write("Aluminium")

108
		

109
		monitor.setCursorPos(15,4)

110
		monitor.write("Copper")

111
		

112
		monitor.setCursorPos(15,6)

113
		monitor.write("Iron")

114
115
		monitor.setCursorPos(15,8)

116
		monitor.write("Emerald")

117
		

118
		monitor.setCursorPos(15,10)

119
		monitor.write("Nickel")

120
121
		monitor.setCursorPos(15,12)

122
		monitor.write("Steel")

123
124
		--monitor.setCursorPos(15,14)

125
		--monitor.write("")

126
		

127
		monitor.setCursorPos(28,2)------------------ row 3

128
		monitor.write("Ardite")

129
		

130
		monitor.setCursorPos(28,4)

131
		monitor.write("Dark Iron")

132
		

133
		monitor.setCursorPos(28,6)

134
		monitor.write("Lead")

135
136
		monitor.setCursorPos(28,8)

137
		monitor.write("Mana Metal")

138
		

139
		monitor.setCursorPos(28,10)

140
		monitor.write("Res Ender")

141
142
		monitor.setCursorPos(28,12)

143
		monitor.write("Tin")

144
145
		--monitor.setCursorPos(28,14)

146
		--monitor.write("")	

147
		

148
		monitor.setCursorPos(41,2)------------------ row 4

149
		monitor.write("Bedrockium")

150
		

151
		monitor.setCursorPos(41,4)

152
		monitor.write("Des Redstone")

153
		

154
		monitor.setCursorPos(41,6)

155
		monitor.write("Redstone")

156
157
		monitor.setCursorPos(41,8)

158
		monitor.write("Mithril")

159
		

160
		monitor.setCursorPos(41,10)

161
		monitor.write("Shiny")

162
163
		monitor.setCursorPos(41,12)

164
		monitor.write("Uranium")

165
166
		--monitor.setCursorPos(41,14)

167
		--monitor.write("")

168
		

169
		monitor.setBackgroundColour((colours.black)) -- Set Background color back to black

170
		

171
		CML = 1 -- Counter Metal List is now 1

172
		CFM = 1 -- Counter Filling Metal is now 1

173
		

174
end -- Ends the function

175
176
function listAlloys() -- Alloy listing function.

177
178
		monitor.clear() -- Clear Monitor

179
		

180
		monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to lime for button creation

181
		

182
		monitor.setCursorPos(2,4)------------------- row 1

183
		monitor.write("Back")

184
		

185
		monitor.setCursorPos(2,6)

186
		monitor.write("Red Alloy")

187
		

188
		monitor.setCursorPos(2,8)

189
		monitor.write("Lumium")

190
191
		--monitor.setCursorPos(2,10)

192
		--monitor.write("")

193
		

194
		--monitor.setCursorPos(2,12)

195
		--monitor.write("")

196
197
		--monitor.setCursorPos(2,14)

198
		--monitor.write("")

199
200
		--monitor.setCursorPos(2,16)

201
		--monitor.write("")

202
203
		monitor.setCursorPos(15,4)------------------- row 2

204
		monitor.write("Alum Brass")

205
		

206
		monitor.setCursorPos(15,6)

207
		monitor.write("Electrum")

208
		

209
		monitor.setCursorPos(15,8)

210
		monitor.write("Manyullyn")

211
212
		--monitor.setCursorPos(15,10)

213
		--monitor.write("")

214
		

215
		--monitor.setCursorPos(15,12)

216
		--monitor.write("")

217
218
		--monitor.setCursorPos(15,14)

219
		--monitor.write("")

220
221
		--monitor.setCursorPos(15,16)

222
		--monitor.write("")

223
		

224
		monitor.setCursorPos(28,4)------------------ row 3

225
		monitor.write("Alumite")

226
		

227
		monitor.setCursorPos(28,6)

228
		monitor.write("Enderium")

229
		

230
		monitor.setCursorPos(28,8)

231
		monitor.write("Pig Iron")

232
233
		--monitor.setCursorPos(28,10)

234
		--monitor.write("")

235
		

236
		--monitor.setCursorPos(28,12)

237
		--monitor.write("")

238
239
		--monitor.setCursorPos(28,14)

240
		--monitor.write("")

241
242
		--monitor.setCursorPos(28,16)

243
		--monitor.write("")	

244
		

245
		monitor.setCursorPos(41,4)------------------ row 4

246
		monitor.write("Bronze")

247
		

248
		monitor.setCursorPos(41,6)

249
		monitor.write("Invar")

250
		

251
		monitor.setCursorPos(41,8)

252
		monitor.write("Signalium")

253
254
		--monitor.setCursorPos(41,10)

255
		--monitor.write("")

256
		

257
		--monitor.setCursorPos(41,12)

258
		--monitor.write("")

259
260
		--monitor.setCursorPos(41,14)

261
		--monitor.write("")

262
263
		--monitor.setCursorPos(41,16)

264
		--monitor.write("")

265
		

266
		monitor.setBackgroundColour((colours.black)) -- Set Background color back to black

267
		

268
		CAL = 1 -- Counter list Alloy is now 1

269
		CFA = 1 -- Counter Filling Alloy is now 1

270
		

271
end -- Ends the function

272
273
function listLiquids() -- Liquid listing function.

274
275
		monitor.clear() -- Clear Monitor

276
		

277
		monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to Lime for button creation

278
		

279
		monitor.setCursorPos(2,6)------------------- row 1

280
		monitor.write("Back")

281
		

282
		monitor.setCursorPos(2,8)

283
		monitor.write("Glue")

284
		

285
		--monitor.setCursorPos(2,10)

286
		--monitor.write("")

287
288
		--monitor.setCursorPos(2,12)

289
		--monitor.write("")

290
		

291
		--monitor.setCursorPos(2,14)

292
		--monitor.write("")

293
294
		--monitor.setCursorPos(2,16)

295
		--monitor.write("")

296
297
		--monitor.setCursorPos(2,18)

298
		--monitor.write("")

299
300
		monitor.setCursorPos(15,6)------------------- row 2

301
		monitor.write("Pyrotheum")

302
		

303
		monitor.setCursorPos(15,8)

304
		monitor.write("Lava")

305
		

306
		--monitor.setCursorPos(15,10)

307
		--monitor.write("")

308
309
		--monitor.setCursorPos(15,12)

310
		--monitor.write("")

311
		

312
		--monitor.setCursorPos(15,14)

313
		--monitor.write("")

314
315
		--monitor.setCursorPos(15,16)

316
		--monitor.write("")

317
318
		--monitor.setCursorPos(15,18)

319
		--monitor.write("")

320
		

321
		monitor.setCursorPos(28,6)------------------ row 3

322
		monitor.write("Blood")

323
		

324
		monitor.setCursorPos(28,8)

325
		monitor.write("Water")

326
		

327
		--monitor.setCursorPos(28,10)

328
		--monitor.write("")

329
330
		--monitor.setCursorPos(28,12)

331
		--monitor.write("")

332
		

333
		--monitor.setCursorPos(28,14)

334
		--monitor.write("")

335
336
		--monitor.setCursorPos(28,16)

337
		--monitor.write("")

338
339
		--monitor.setCursorPos(28,18)

340
		--monitor.write("")	

341
		

342
		monitor.setCursorPos(41,6)------------------ row 4

343
		monitor.write("Cryotheum")

344
		

345
		--monitor.setCursorPos(41,8)

346
		--monitor.write("")

347
		

348
		--monitor.setCursorPos(41,10)

349
		--monitor.write("")

350
351
		--monitor.setCursorPos(41,12)

352
		--monitor.write("")

353
		

354
		--monitor.setCursorPos(41,14)

355
		--monitor.write("")

356
357
		--monitor.setCursorPos(41,16)

358
		--monitor.write("")

359
360
		--monitor.setCursorPos(41,18)

361
		--monitor.write("")

362
		

363
		monitor.setBackgroundColour((colours.black)) -- Set Background color back to black

364
		

365
		CLL = 1 -- Counter list Liquids is now 1

366
		CFL = 1 -- Counter Filling Liquids is now 1

367
		

368
end -- Ends the function

369
370
function listBlocks() -- Block listing function.

371
		

372
		monitor.clear() -- Clear Monitor

373
		

374
		monitor.setBackgroundColour((colours.lime)) -- Set monitor background color to lime for button creation

375
		

376
		monitor.setCursorPos(2,8)------------------- row 1

377
		monitor.write("Back")

378
		

379
		--monitor.setCursorPos(2,10)

380
		--monitor.write("")

381
		

382
		--monitor.setCursorPos(2,12)

383
		--monitor.write("")

384
385
		--monitor.setCursorPos(2,14)

386
		--monitor.write("")

387
		

388
		--monitor.setCursorPos(2,16)

389
		--monitor.write("")

390
391
		--monitor.setCursorPos(2,18)

392
		--monitor.write("")

393
394
		--monitor.setCursorPos(2,20)

395
		--monitor.write("")

396
397
		monitor.setCursorPos(15,8)------------------- row 2

398
		monitor.write("Obsidian")

399
		

400
		--monitor.setCursorPos(15,10)

401
		--monitor.write("")

402
		

403
		--monitor.setCursorPos(15,12)

404
		--monitor.write("")

405
406
		--monitor.setCursorPos(15,14)

407
		--monitor.write("")

408
		

409
		--monitor.setCursorPos(15,16)

410
		--monitor.write("")

411
412
		--monitor.setCursorPos(15,18)

413
		--monitor.write("")

414
415
		--monitor.setCursorPos(15,20)

416
		--monitor.write("")

417
		

418
		monitor.setCursorPos(28,8)------------------ row 3

419
		monitor.write("Seared Stone")

420
		

421
		--monitor.setCursorPos(28,10)

422
		--monitor.write("")

423
		

424
		--monitor.setCursorPos(28,12)

425
		--monitor.write("")

426
427
		--monitor.setCursorPos(28,14)

428
		--monitor.write("")

429
		

430
		--monitor.setCursorPos(28,16)

431
		--monitor.write("")

432
433
		--monitor.setCursorPos(28,18)

434
		--monitor.write("")

435
436
		--monitor.setCursorPos(28,20)

437
		--monitor.write("")	

438
		

439
		monitor.setCursorPos(41,8)------------------ row 4

440
		monitor.write("Glass")

441
		

442
		--monitor.setCursorPos(41,10)

443
		--monitor.write("")

444
		

445
		--monitor.setCursorPos(41,12)

446
		--monitor.write("")

447
448
		--monitor.setCursorPos(41,14)

449
		--monitor.write("")

450
		

451
		--monitor.setCursorPos(41,16)

452
		--monitor.write("")

453
454
		--monitor.setCursorPos(41,18)

455
		--monitor.write("")

456
457
		--monitor.setCursorPos(41,20)

458
		--monitor.write("")

459
		

460
		monitor.setBackgroundColour((colours.black)) -- Set Background color back to black

461
		

462
		CBL = 1 -- Counter list blocks is now 1

463
		CFB = 1 -- Counter Filling blocks is now 1

464
end -- Ends the function

465
466
-- If clicked here then Function

467
468
function checkClickPosition() -- Everything below is a Function.

469
470-
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 CMML == 0 then

470+
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 and CMML == 0 then

471
		

472
		listMenu()

473
		

474
	end -- End IF sentence

475
	

476
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 then

477
		

478
		listMetals()

479
		

480
	end -- End IF sentence

481
	

482
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 2 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 1 then

483
		

484
		listMenu()

485
		

486
	end -- End IF sentence

487
	

488
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 4 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 then

489
		

490
		listAlloys()

491
		

492
	end -- End IF sentence

493
	

494
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 4 and CLL == 0 and CBL == 0 and CAL == 1 and CML == 0 then

495
	

496
		listMenu()

497
	

498
	end

499
	

500
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 6 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 then

501
		

502
		listLiquids()

503
		

504
	end -- End IF sentence

505
	

506
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 6 and CLL == 1 and CBL == 0 and CAL == 0 and CML == 0 then

507
	

508
		listMenu()

509
	

510
	end

511
	

512
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 8 and CLL == 0 and CBL == 0 and CAL == 0 and CML == 0 then

513
		

514
		listBlocks()

515
		

516
	end -- End IF sentence

517
	

518
	if mouseWidth > 1 and mouseWidth < 7 and mouseHeight == 8 and CLL == 0 and CBL == 1 and CAL == 0 and CML == 0 then

519
	

520
		listMenu()

521
	

522
	end

523
	

524
end -- Ends the function

525
526
-- \If clicked here then Function

527
528
-- \Functions for right clicking on monitor and what it is supposed to do.

529
-----------------------------------------------------------------------------------------------

530
-- Repeat event for checking if someone Right clicked the Monitor

531
532
repeat -- Repeat this:

533
534
	event,p1,p2,p3 = os.pullEvent() -- Get Event data: event,p1,p2,p3 from os.pullEvent()

535
	

536
		if event == "monitor_touch" then -- When the event monitor_touch is triggered then

537
		

538
		mouseWidth = p2 -- sets the number of p2 into the variable mouseWidth.

539
		mouseHeight = p3 -- same with mouse Height

540
		checkClickPosition() -- This will run the Function previously created!

541
		

542
		-- Debug stuff!

543
		

544
		print(mouseWidth)

545
		print(mouseHeight)

546
		print("CLL: ", CLL)

547
		print("CAL: ", CAL)

548
		print("CML: ", CML)

549
		print("CBL: ", CBL)

550
		

551
		--\ Debug stuff!

552
		

553
		end -- end the IF statement.

554
555
until event=="char" and p1==("x") -- Repeat until event "char" is activated and "x" is pressed.

556
557
-- \Repeat event for checking if someone Right clicked the Monitor
        

    


            


                                


        

            



                
    

        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!