63
« on: May 06, 2009, 11:51:54 PM »
Directions are Included In the Script. Use potions, not kegs. Will Craft Tools For you.
;=======================================================
; Script Name: MWinc. Enchanted Apple
; Author: MWinc.
; Version: 1.2
; Client Tested with: Baja
; EUO version tested with: 148
; Shard OSI / FS: OSI
; Revision Date:
; Public Release:
; Purpose: Crafts Enchanted Apples
;=======================================================
; Directions
; 1. Have a Secure with Plenty Of Apples, and Greater Heal "POTIONS"
; 2. Have Either Enough Cooking Tools On You To make A Bunch
; 3. Or Plenty of COoking tools in your Secure
; 4. Or Tinkering Tools In your Backpack,
; 5. Or Tinkering TOols In your Secure.......
; 6. If You are Using Tinkering Tools to make Skillets... have
; Iron Ingots in your Secure, And ONLY iron ingots in your secure.
; That seemed like way too many Directions.....
; Set Intro To anything But True To skip that Funny Intro
;======================================================
set %intro True
if %intro = True
gosub Intro
gosub setup
;================================================================
; My setup Stuff
set %Craftmenu 530_497
set %fletchingtool UFG
set %tailoringtool HAG
set %alchemytool RQF
set %tinkeringtool JTL
set %blacksmithingtool OBG_FBG_TLH
set %cookingtool OGG_DND_BCG
set %carpentrytool BIG_AIG_EGG_AGG_ZHG_CGG_CIG_IGG_WFG_KGG
; gosub craft "Tool Type" , " setting " , "categorie" , " Page " , " number Down " ,
; gosub makelast "Tool Type"
; gosub resource "item" , Min , Max
;=====================================================================
Finditem %CookingTool C_ , #Backpackid
if #findcnt > 0
gosub craft Cooking N/A 5 1 2
Main:
Gosub Check_Tools
gosub resource UUF 1 10
gosub resource QQD 1 10
gosub makelast Cooking
finditem CBS C_ , #backpackid
if #findstack > 20
gosub drag #findid #findstack %Secure
goto main
sub Check_Tools
Finditem %CookingTool C_ , #backpackid
if #findcnt > 0
return
Check_Tools:
Finditem %CookingTool C_ , #backpackid
if #findcnt > 0
{
gosub craft cooking N/A 5 1 2
return
}
finditem %tinkeringtool C_ , #backpackid
chooseskill Tink
if #findcnt < 2 && #findcnt > 0 && #skill >= 300
{
gosub resource ENK 10 20
gosub craft Tinkering iron 2 1 4
goto Check_Tools
}
if #findcnt > 1 && #Skill >= 300
{
Gosub resource Enk 10 20
gosub Craft Tinkering Iron 2 2 9
goto check_Tools
}
if #Findcnt = 0 || #Skill < 300
{
Finditem %cookingtool C_ , %Secure
if #findcnt < 1
gosub end outoftools
Gosub Drag #findid #findstack %secure
return
}
if #Findcnt = 0 && #Skill >= 300
{
Finditem %TinkeringTool C_ , %Secure
if #findcnt < 1
gosub end outoftools
gosub Drag #findid #findstack #backpackid
goto Check_Tools
}
Return
sub drag
set %DropWeight #weight
exevent drag %1 %2
exevent dropc %3
set %Time_Limit #Scnt + 3
while #weight = %dropweight && %Timer_Limit > #Scnt
wait 1
if %Timer_Limit < #Scnt
{
Wait 20
Gosub backpack
goto resource
}
Wait 20
return
sub craft
gosub ToolEval %1
Finditem %tool C_ , #backpackid
if #findcnt < 1
gosub End OutOfTools
if #lobjectid <> #findid || #contsize <> %CraftMenu
{
set #lobjectid #findid
event macro 17 0
}
gosub contsizewait %Craftmenu
gosub setting %2
gosub category %3
gosub page %4
gosub rownum %5
return
sub makelast
gosub tooleval %1
finditem %tool C_ , #backpackid
if #findcnt < 1
gosub end outoftools
if #lobjectid <> #findid || #contsize <> %CraftMenu
{
set #lobjectid #findid
event macro 17 0
gosub contsizewait %craftmenu
}
set %xclick #contposx + 280
set %yclick #contposy + 450
click %xclick %yclick
wait 20
return
sub resource
Resource:
finditem %1 C_ , #backpackid
set %bagamount #findstack
if #findstack > %2
return
finditem %1 C_ , %secure
if #findcnt < 1
gosub end Resources
set %dragamount %3 - %bagamount
gosub Drag #findid %dragamount #backpackid
return
sub rownum
set %xclick #contposx + 235
set %starty #contposy + 50
set %yclick ( %starty + ( %1 * 20 ) )
click %xclick %yclick
wait 20
return
sub category
set %starty #contposy + 70
set %xclick #contposx + 30
set %yclick ( %starty + ( %1 * 20 ) )
click %xclick %yclick
gosub contsizewait %craftmenu
return
sub page
if %1 = 1
return
set %clicknum %1 - 1
set %xclick #contposx + 385
set %yclick #contposy + 270
click %xclick %yclick x %clicknum
return
sub Tooleval
if %1 = alchemy
set %Tool %Alchemytool
if %1 = fletching
set %tool %Fletchingtool
if %1 = blacksmithing
set %tool %blacksmithingtool
if %1 = tailoring
set %tool %Tailoringtool
if %1 = tinkering
set %tool %Tinkeringtool
if %1 = carpentry
set %tool %Carpentrytool
if %1 = cooking
set %tool %Cookingtool
set %tool2 %1
return
sub Contsizewait
Contsizewait:
wait 15
set %Time_Limit #scnt + 4
finditem #lobjectid
if #findcnt < 1
return
while #contsize <> %1 && %Time_Limit > #Scnt
wait 1
if %Time_Limit <= #scnt
{
event macro 17 0
goto Contsizewait
}
return
sub setting
set %setting % . setting . %tool2
if %setting = %2
return
gosub contsizewait %craftmenu
set %clickx #contposx + 31
set %clicky #contposy + 372
click %clickx %clicky
wait 10
set %clickx #contposx + 230
if %2 = iron
set %clicky #contposy + 70
if %2 = Dullcopper
set %clicky #contposy + 90
if %2 = shadowiron
set %clicky #contposy + 110
if %2 = copper
set %clicky #contposy + 130
if %2 = bronze
set %clicky #contposy + 150
if %2 = gold
set %clicky #contposy + 170
if %2 = Agapite
set %clicky #contposy + 190
if %2 = Verite
set %clicky #contposy + 210
if %2 = Valorite
set %clicky #contposy + 230
if %2 = wood
set %clicky #contposy + 70
if %2 = oak
set %clicky #contposy + 90
if %2 = ash
set %clicky #contposy + 110
if %2 = yew
set %clicky #contposy + 130
if %2 = heartwood
set %clicky #contposy + 150
if %2 = bloodwood
set %clicky #contposy + 170
if %2 = Frostwood
set %clicky #contposy + 190
click %clickx %clicky
gosub Contsizewait %Craftmenu
set % , setting , %tool2 %2
wait 10
return
Sub End
if %1 = OutOfTools
Display You are Out of Tools
if %1 = Resources
Display Need more resources
halt
sub setup
menu window Title setup
menu window size 200 100
menu show 0 0
menu window color silver
menu font bgcolor silver
menu font size 14
menu text setup 20 25 Target Your Secure
set #targcurs 1
set %time #systime
while #targcurs = 1
{
if #random < 25
{
menu clear
menu font Bgcolor silver
menu font color black
menu font size 40
menu text setup 40 10 KILL!
wait 1
menu clear
menu font bgcolor silver
menu font size 14
menu text setup 20 25 Target Your Secure
}
wait 1
}
set %secure #ltargetid
set #lobjectid %secure
event macro 17 0
while #contid <> %Secure
wait 1
Contpos 0 0
wait 20
menu Hide
return
sub INTRO
menu window Title Apples
menu window size 300 100
menu show 0 0
menu window color silver
menu font bgcolor silver
menu font size 16
menu font color black
menu text apples 75 75 Loading....
menu image create apples 0 0 200 200
set #lpc 400
menu clear
menu font bgcolor silver
menu font size 16
menu text apples 75 75 Loading....
menu image create stick1 0 0 300 300
menu image rectangle stick1 69 46 85 60 black #true 2
menu image ellipse stick1 70 1 85 16 black 1
menu image line stick1 77 16 77 36 black 2
menu image line stick1 77 20 100 20 black 2 ;arm 1
gosub BOW
menu image line stick1 77 36 83 46 black 2
menu image line stick1 77 36 71 46 black 2
menu image create head 0 0 300 300
menu image ellipse head 170 15 185 30 black 1 ;end stick1
menu image ellipse head 174 10 180 15 red 1
menu image line head 177 7 177 10 black 1
menu image line head 170 20 185 20 white 2
menu image line head 185 20 190 25 white 2
menu image create apples 0 0 300 300
menu image line apples 177 30 177 50 black 2
menu image line apples 177 34 172 43 black 2
menu image line apples 177 50 183 60 black 2
menu image line apples 177 50 171 60 black 2
menu image Rectangle apples 220 0 250 60 2511000 #true 2
menu image create Arrow 0 0 300 300
menu image line arrow 80 20 120 20 black 2
menu image line Arrow 120 17 120 23 black 2
menu image line arrow 120 17 125 20 black 2
menu image line arrow 120 23 125 20 black 2
menu image line arrow 85 20 80 17 black 2
menu image line arrow 85 20 80 23 black 2
for %number 1 6
{
set %x_Menu_Pos ( %number * 10 + 0 )
menu image pos arrow %x_Menu_Pos 0 300 300
wait 1
}
set %X_Menu_Pos2 0
for %number 1 4
{
set %X_Menu_pos %X_menu_Pos + 10
Set %x_Menu_Pos2 %X_Menu_Pos2 + 10
menu image pos arrow %x_Menu_Pos 0 300 300
menu image pos Head %X_Menu_Pos2 0 300 300
wait 1
}
for %number 1 10
{
set %y2 %number + 30
menu image line apples 220 30 220 %y2 Red 3
wait 5
}
menu font bgcolor silver
menu font color black
menu font size 16
menu text apples 100 0 BOOM!
wait 15
menu text apples 100 20 HEAD
menu text apples 100 40 SHOT!
wait 15
menu clear
menu Font Color Black
menu font bgcolor Silver
menu font size 25
menu text apples 13 20 ~ Man Whores Inc ~
menu font size 12
wait 3
menu text apples 90 60 "Obey Us"
wait 3
menu text apples 70 80 " We have candy "
wait 10
menu clear
return
sub bow
menu image line stick1 100 11 100 29 black 2
menu image line stick1 100 11 90 1 black 2
menu image line stick1 100 29 90 39 black 2
menu image line stick1 90 1 90 39 black 1
return
sub Backpack
Backpack:
event macro 9 7
wait 20
event macro 8 7
set %Timer_Limit #scnt + 2
while #contid <> #backpackid && %Timer_Limit > #Scnt
wait 1
if %Timer_Limit <= #scnt
goto Backpack
contpos 700 525
return