Toggle shoutbox Chat
|
Скрипт на Алхимию
#1
Posted 03 January 2010 - 19:25
OLDP XL PVP Channel: PVPESHECHKA
#2
Posted 03 January 2010 - 19:30
Кто может подогнать рабочий скрипт на алхимию для прокачки скилла , без коробок , домов и прочего ? ( На Easy Uo )
set %SafeBox KKJLKMD
set %ItemsDrop JUF_WZF_SZF_RZF_JZF_KUF_KZF_MZF_PZF_LZF_NZF_UZF_GUF_IUF_DAG_DUF_WUF_HEG_PGJ_MHJ_
EHJ_FHJ_ZGJ_BHJ_XUF_YUF_SGJ_LHJ_QGJ_VGJ_CHJ
set %Reagent1 KZF
set %Reagent1Amount 50
set %Reagent1Take #true
set %Reagent2
set %Reagent2Amount 500
set %Reagent2Take #true
set %Flask HEG
set %FlaskAmount 50
set %FlaskTake #true
set %AlchemyTools RQF
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
Start:
finditem %AlchemyTools C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 5
click 490 454
wait 5
event macro 13 12
wait 20
set %Overtime #SCNT + 25
gosub Scan
return
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub Scan
Scan:
scanjournal %Cnt
if you_put in #sysmsg
goto Start
if You_need in #sysmsg
gosub Drop
if You_fail in #sysmsg
goto Start
if World_save_has in #sysmsg
goto Start
if #SCNT >= %Overtime
return
goto Scan
return
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub Drop
ignoreitem reset 1
finditem %SafeBox G_3
repeat
{
finditem %ItemsDrop C_ , #backpackid
if #findcnt <> 0
{
exevent Drag #findid #findstack
wait 20
exevent Dropc %SafeBox
wait 20
}
}
until #findcnt = 0
ignoreitem reset 1
gosub TakeItems
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub TakeItems
finditem %SafeBox
set #lobjectid #findid
event Macro 17
wait 20
if %Reagent1Take
{
repeat
finditem %Reagent1 C_ , %SafeBox
{
exevent Drag #findid %Reagent1Amount
wait 15
exevent Dropc #backpackid
wait 15
}
}
until #findcnt = 1
if %Reagent2Take
{
repeat
finditem %Reagent2 C_ , %SafeBox
{
exevent Drag #findid %Reagent2Amount
wait 15
exevent Dropc #backpackid
wait 15
}
}
until #findcnt = 1
if %FlaskTake
{
repeat
finditem %Flask C_ , %SafeBox
if #findcol = 0
{
exevent Drag #findid %FlaskAmount
wait 15
exevent Dropc #backpackid
wait 15
}
}
ignoreitem #findid 1
until #findcnt = 1
goto Start
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
And sound like a Russian
But i am a proud
LATVIAN
#3
Posted 03 January 2010 - 19:33
set %SafeBox KKJLKMD
set %ItemsDrop JUF_WZF_SZF_RZF_JZF_KUF_KZF_MZF_PZF_LZF_NZF_UZF_GUF_IUF_DAG_DUF_WUF_HEG_PGJ_MHJ_
EHJ_FHJ_ZGJ_BHJ_XUF_YUF_SGJ_LHJ_QGJ_VGJ_CHJ
set %Reagent1 KZF
set %Reagent1Amount 50
set %Reagent1Take #true
set %Reagent2
set %Reagent2Amount 500
set %Reagent2Take #true
set %Flask HEG
set %FlaskAmount 50
set %FlaskTake #true
set %AlchemyTools RQF
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
Start:
finditem %AlchemyTools C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 5
click 490 454
wait 5
event macro 13 12
wait 20
set %Overtime #SCNT + 25
gosub Scan
return
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub Scan
Scan:
scanjournal %Cnt
if you_put in #sysmsg
goto Start
if You_need in #sysmsg
gosub Drop
if You_fail in #sysmsg
goto Start
if World_save_has in #sysmsg
goto Start
if #SCNT >= %Overtime
return
goto Scan
return
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub Drop
ignoreitem reset 1
finditem %SafeBox G_3
repeat
{
finditem %ItemsDrop C_ , #backpackid
if #findcnt <> 0
{
exevent Drag #findid #findstack
wait 20
exevent Dropc %SafeBox
wait 20
}
}
until #findcnt = 0
ignoreitem reset 1
gosub TakeItems
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
sub TakeItems
finditem %SafeBox
set #lobjectid #findid
event Macro 17
wait 20
if %Reagent1Take
{
repeat
finditem %Reagent1 C_ , %SafeBox
{
exevent Drag #findid %Reagent1Amount
wait 15
exevent Dropc #backpackid
wait 15
}
}
until #findcnt = 1
if %Reagent2Take
{
repeat
finditem %Reagent2 C_ , %SafeBox
{
exevent Drag #findid %Reagent2Amount
wait 15
exevent Dropc #backpackid
wait 15
}
}
until #findcnt = 1
if %FlaskTake
{
repeat
finditem %Flask C_ , %SafeBox
if #findcol = 0
{
exevent Drag #findid %FlaskAmount
wait 15
exevent Dropc #backpackid
wait 15
}
}
ignoreitem #findid 1
until #findcnt = 1
goto Start
;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;; ;;;
спасибо
OLDP XL PVP Channel: PVPESHECHKA
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users