工具: injection
工具版本: 0.3.30.4
脚本名称: mining()
脚本功能: 挂机挖矿
使用说明: 挂机挖矿,内有说明
附件:
[upload=rar]UploadFile/2006-3/200635154058423.sc[/upload]
代码:
##################################################
# Author: Inter ( [email protected])
# WebSite: http://iv.dynip.com
# Description:
# A mining script that will mine till dead
# if dead it will ask for res once res it will
# try to mine if it still has pick axe. It being
# attacked it will cry for help.
#
# Info:
# Make These Hotkeys on your Client
# NumPad 9 Move UP
# NumPad 7 Move LEFT
# NumPad 1 Move DOWN
# NumPad 3 Move RIGHT
# F12 Last Object + WaitForTarg + TargetSelf
#
##################################################
#Start Script
sub mining()
#Just Saying Hi! Inspired By Carn!
UO.Print("Mining Script Loaded")
UO.Print("Made By: Inter ( [email protected])")
UO.Print("WebSite: iv.dynip.com")
# Declair Carns Variabls
var updown
var leftright
var minenum
var timebetmining
#Times to move up or Down
updown = 1
#Times To move Left or Right
leftright = 8
#Times to Mine one Spot
minenum = 5
#Delay Time
timebetmining = 7000
var i
var j
var k
var l
restart:
#Comedy
if UO.Life<UO.STR-1 then
UO.Say("Don't Touch me There That Tickles")
UO.Say("Guards!")
end if
#Ok Down To Business
for j=1 to leftright
UO.Press(123,minenum,timebetmining)
UO.Press(39)
next
UO.Press(40)
for k=1 to updown
# UO.Press(123,minenum,timebetmining)
UO.Press(40)
next
UO.Press(37)
for l=1 to leftright
UO.Press(123,minenum,timebetmining)
UO.Press(37)
next
UO.Press(38)
for i=1 to updown
# UO.Press(123,minenum,timebetmining)
UO.Press(38)
next
UO.Press(39)
goto restart
end sub
#End Script
[align=right][color=#000066][此贴子已经被作者于2006-3-5 15:41:23编辑过][/color][/align]
|