31
Jokes! / help him out?
« on: August 28, 2011, 11:45:17 AM »
PATIENT: Doctor, Doctor you have to help me out!
DOCTOR: Certainly, which way did you come in?
DOCTOR: Certainly, which way did you come in?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
;==============================================
; Script Name: CAMOTbIK's Ultimate fisher.
; Author: CAMOTbIK
; Version: 0.1 Alfa
; Client Tested with: 7.0.14.0
; EUO version tested with: 1.92
; Shard OSI / FS: FS - Osistyle
; Revision Date: 2011/08/13
; Public Release: 2011/08/13
; Global Variables Used: None
; Purpose: Farm crabs/lobsters/fish for quests
;==============================================
menu List Create EUOListBox1 0 0 249 520
finditem * C_ , #backpackid
for #FINDINDEX 1 #FINDCNT
{
event property #findid
str pos #property $ 1
set %lenght #strres - 1
str left #property %lenght
set %name #strres
if #findstack = 1
{
if % , #findtype , #findcol , ammount = N/A || % , #findtype , #findcol , ammount = 0
{
set % , #findtype , #findcol , ammount #findstack
menu List Add EUOListBox1 % , #findtype , #findcol , ammount %name
}
else
set % , #findtype , #findcol , ammount % , #findtype , #findcol , ammount + #findstack
}
else
menu List Add EUOListBox1 %name
}
menu Window Size 246 561
menu Show
halt
set %Crab_ammount 0
set %Apple_Crab_ammount 0
set %Blue_Crab_ammount 0
set %Dungeoness_Crab_ammount 0
set %King_Crab_ammount 0
set %Rock_Crab_ammount 0
set %Snow_Crab_ammount 0
set %Tunnel_Crab_ammount 0
set %Void_Crab_ammount 0
set %Lobster_ammount 0
set %Blood_Lobster_ammount 0
set %Crusty_Lobster_ammount 0
set %Dread_Lobster_ammount 0
set %Fred_Lobster_ammount 0
set %Hummer_Lobster_ammount 0
set %Rock_Lobster_ammount 0
set %Shovel_Lobster_ammount 0
set %Spiney_Lobster_ammount 0
set %Void_Lobster_ammount 0
menu HideEUO
gosub setup_menu
gosub setup_loop
gosub stats_menu
halt
sub setup_menu
menu Clear
menu Window Title Camotbik's crab fisher
menu Window Color BtnFace
menu Window Size 290 165
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel4 4 104 Use bank
menu Text EUOLabel6 4 120 Move to trash
menu Text EUOLabel1 4 136 Use safe spot
menu Font Size 8
menu Text EUOLabel2 108 12 Travel method
menu Text EUOLabel3 108 36 Rune to storage
menu Text EUOLabel5 108 60 Rune to safespot
menu Font Size 8
menu Button EUOButton1 136 92 145 61 START
menu Button EUOButton2 4 4 93 25 Setup runebook
menu Button EUOButton3 4 28 93 25 Setup boat key
menu Button EUOButton4 4 52 93 25 Setup storage
menu Button EUOButton5 4 76 93 25 Setup trashcan
menu Check EUOCheckBox1 76 104 17 13 #false #false
menu Check EUOCheckBox2 76 120 17 13 #false #false
menu Check EUOCheckBox3 76 136 17 13 #false #false
menu Font BGColor Window
menu Combo Create EUOComboBox1 200 8 81
menu Combo Add EUOComboBox1 Recall
menu Combo Add EUOComboBox1 Sacred Journey
menu Combo Create EUOComboBox2 200 32 81
menu Combo Add EUOComboBox2 1
menu Combo Add EUOComboBox2 2
menu Combo Add EUOComboBox2 3
menu Combo Add EUOComboBox2 4
menu Combo Add EUOComboBox2 5
menu Combo Add EUOComboBox2 6
menu Combo Add EUOComboBox2 7
menu Combo Add EUOComboBox2 8
menu Combo Add EUOComboBox2 9
menu Combo Add EUOComboBox2 10
menu Combo Add EUOComboBox2 11
menu Combo Add EUOComboBox2 12
menu Combo Add EUOComboBox2 13
menu Combo Add EUOComboBox2 14
menu Combo Add EUOComboBox2 15
menu Combo Add EUOComboBox2 16
menu Combo Create EUOComboBox3 200 56 81
menu Combo Add EUOComboBox3 1
menu Combo Add EUOComboBox3 2
menu Combo Add EUOComboBox3 3
menu Combo Add EUOComboBox3 4
menu Combo Add EUOComboBox3 5
menu Combo Add EUOComboBox3 6
menu Combo Add EUOComboBox3 7
menu Combo Add EUOComboBox3 8
menu Combo Add EUOComboBox3 9
menu Combo Add EUOComboBox3 10
menu Combo Add EUOComboBox3 11
menu Combo Add EUOComboBox3 12
menu Combo Add EUOComboBox3 13
menu Combo Add EUOComboBox3 14
menu Combo Add EUOComboBox3 15
menu Combo Add EUOComboBox3 16
menu Show 900 270
set #MENUBUTTON N/A
return
sub stats_menu
menu Clear
menu Window Title Camotbik's crab fisher
menu Window Color BtnFace
menu Window Size 190 265
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color Black
menu Font BGColor 3DLight
menu List Create EUOListBox1 -4 0 280 265
menu List Add EUOListBox1 Stats
;menu List Add EUOListBox1 Crab %Crab_ammount
menu List Add EUOListBox1 Apple Crab %Apple_Crab_ammount
menu List Add EUOListBox1 Blue Crab %Blue_Crab_ammount
menu List Add EUOListBox1 Dungeoness Crab %Dungeoness_Crab_ammount
menu List Add EUOListBox1 King Crab %King_Crab_ammount
menu List Add EUOListBox1 Rock Crab %Rock_Crab_ammount
menu List Add EUOListBox1 Snow Crab %Snow_Crab_ammount
menu List Add EUOListBox1 Tunnel Crab %Tunnel_Crab_ammount
menu List Add EUOListBox1 Void Crab %Void_Crab_ammount
;menu List Add EUOListBox1 Lobster %Lobster_ammount
menu List Add EUOListBox1 Blood Lobster %Blood_Lobster_ammount
menu List Add EUOListBox1 Crusty Lobster %Crusty_Lobster_ammount
menu List Add EUOListBox1 Dread Lobster %Dread_Lobster_ammount
menu List Add EUOListBox1 Fred Lobster %Fred_Lobster_ammount
menu List Add EUOListBox1 Hummer Lobster %Hummer_Lobster_ammount
menu List Add EUOListBox1 Rock Lobster %Rock_Lobster_ammount
menu List Add EUOListBox1 Shovel-Nose Lobster %Shovel_Lobster_ammount
menu List Add EUOListBox1 Spiney Lobster %Spiney_Lobster_ammount
menu List Add EUOListBox1 Void Lobster %Void_Lobster_ammount
menu Show ;421 270
return
sub setup_loop
while #MENUBUTTON <> EUOBUTTON1
{
menuloop:
if #MENUBUTTON = EUOButton5
{
set #MENUBUTTON N/A
event SysMessage Target trash can
set #targcurs 1
while #targcurs <> 0
wait 1
set %trash #ltargetid
}
if #MENUBUTTON = EUOButton4
{
set #MENUBUTTON N/A
event SysMessage Target storage
set #targcurs 1
while #targcurs <> 0
wait 1
set %storage #ltargetid
}
if #MENUBUTTON = EUOButton3
{
set #MENUBUTTON N/A
event SysMessage Target boat key
set #targcurs 1
while #targcurs <> 0
wait 1
set %boat_key #ltargetid
}
if #MENUBUTTON = EUOButton2
{
set #MENUBUTTON N/A
event SysMessage Target runebook
set #targcurs 1
while #targcurs <> 0
wait 1
set %runebook #ltargetid
}
if #MENUBUTTON = EUOButton1
{
set #MENUBUTTON N/A
menu Get EUOComboBox1
if #menures = 0
{
display please setup your Travel method
goto menuloop
}
if #menures = 1
set %travel_method r
if #menures = 2
set %travel_method c
menu Get EUOComboBox2
if #menures = 0
{
display please setup your rune to storage
goto menuloop
}
else
set %homerune_number #MENURES
menu get EUOCheckBox3
if #MENURES = #TRUE
{
set %use_safe_spot #MENURES
menu Get EUOComboBox3
if #menures = 0
{
display please setup your rune to a safespot
goto menuloop
}
else
{
set %safe_spot_number #MENURES
}
}
if %trash = N/A || if %storage = N/A || if %boat_key = N/A || if %runebook = N/A
{
display please setup your id's
goto menuloop
}
menu get EUOCheckBox2
set %movetotrash #MENURES
menu get EUOCheckBox1
set %usebank #MENURES
return
}
}
return
; injection code
sub checklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(500)
until uo.injournal('backpack')
end sub
;euo code
sub check_lag
set %jrnl #jindex
event macro 1 1 .
while #true
{
if #jindex > %jrnl
{
set %jrnl %jrnl + 1
scanjournal %jrnl
if . in #journal
{
event SysMessage check lag finished.
break
}
}
}
}
return
; Purpose: to open up a container
; usage: gosub open_container ID
; gosub open_container %storage
sub open_container
set #lobjectid %1
while #contID <> %1
{
event macro 17
wait 20
}
return
; Purpose: unload stuff from specific container to specific container
; usage: gosub unload Type ID ID
; gosub unload %loot #backpackid %storage
; gosub unload %loot %lootbag %storage
sub unload
finditem %1 C_ , %2
while #findcnt > 0
{
Exevent Drag #findid #findstack
Exevent Dropc %3
wait 20
finditem %1 C_ , %2
}
return
; Purpose: grab stuff from specific container
; usage: gosub get type ID ammount
; gosub get %pickaxe %storage 10
; gosub get %bandages %storage 100
sub get
for %i 1 %3
{
finditem %1 C_ , %2
if #findcnt > 0
{
if #findstack > 1
{
Exevent Drag #findid %3
Exevent Dropc #backpackid
wait 20
return
}
else
{
Exevent Drag #findid #findstack
Exevent Dropc #backpackid
wait 20
}
}
}
return
;=====================================================================
; Script Name: Item Buyer & Donator
; Author: CAMOTbIK
; Version: 0.3 Alfa
; Client Tested with: 7.0.14.0
; EUO version tested with: 1.92
; Shard OSI / FS: FS WWW.RWUO.COM
; Revision Date: 2011/09/19
; Public Release: 2011/09/16
; Global Variables Used: None
; Purpose: Buying stuff from vendors and donating it.
;=====================================================================
set %vendorbooks 3 Set how many runebooks are you using
set %vendorbook1 0x000 Set the Id's of the runebook's
set %vendorbook2 0x000
set %vendorbook3 0x000
set %startrune 1 Set starting rune
set %endrune 14 Set ending rune
set %donaterune 15 Set donation rune number in first runebook with vendors
set %bankrune 16 Set bank rune in first runebook with vendors
set %donation_vendor 0x000 Set donation npc id
set %maxpoints 800000 Set desired points
set %current_points 0 Set current points
set %move_to_vendor #false Set #true if you need to walk to vendor after recall (sub move_to_vendor)
;=================================================================
; Script Name: Ninja trainer
; Shard; Osi Style
; Author: CAMOTbIK
; Version: 0.1 Beta
; Client Tested with: 7.0.13.1
; EUO version tested with: 1.89
; Revision Date: 2011.04.3
; Public Release:
; Purpose: To train a black belt ninja
; Until 30 - Casting and killing mirror image.
; until 67,4 Casting and killing mirror image with Surprise Attack
; Until 87,4 Hiding, going in to Stealth mode and then Shadow jumping / transoforming in to a wolf.
; Until 120, transoforming in to a wolf.
;=================================================================
; Script Name: Bone and gold farmer
; Shard; Osi Style
; Author: CAMOTbIK
; Version: 2.3 Beta
; Client Tested with: 7.0.12.1
; EUO version tested with: 1.87
; Revision Date: 2011.03.20
; Public Release:
; Purpose: Gold & Bone farming
; Things needed- Bag of sending, Cu sidhe, Magery for (invisibility),
; Necromancy for (vampiric embrace), Spirit speak for (healing)
sub check_serpent
set %timer #sCnt
finditem %serpent G_
if #findcnt > 0
{
set %atacked_serpent #findid
set #ltargetid #findid
event macro 27
wait 1
while #findcnt > 0
{
finditem %atacked_serpent G_
wait 1s
}
finditem %serpent_body G_8
if #findcnt > 0
{
set %timer ( #sCnt + 10 )
set %findx #findx - 1
set %findy #findy - 1
move %findx %findy 1 50
wait 2s
}
finditem %serpent_body G_2
if #findcnt > 0
{
set %current_serp #findid
finditem %dagger C_ , #BACKPACKID
if #FINDCNT > 0
{
set #lobjectid #findid
set #ltargetid %current_serp
set #ltargetkind 1
event macro 17
target 10s
event macro 22
wait 20
set #lobjectid %current_serp
event macro 17
repeat
{
wait 2s
}
until #CONTNAME = container_gump && #CONTTYPE = YFM || #sCnt > %timer
finditem %fished_stuff C_ , %current_serp
while #findcnt > 0
{
Exevent Drag #findid #findstack
wait 10
Exevent Dropc #BACKPACKID
wait 10
finditem %fished_stuff C_ , %current_serp
}
}
}
ignoreitem %current_serp
}
return
set %material ZLK
set %ready_material TLK
set %material_quanty 30
set %storage GBXVDND
repeat
finditem %material C_ , #BACKPACKID
if #FINDCNT <= 10
{
finditem %ready_material C_ , #BACKPACKID
if #FINDCNT > 0
{
gosub move_all %ready_material all #BACKPACKID %storage
}
gosub move %material %material_quanty %storage #BACKPACKID
}
while #charghost = yes
wait 0
until #charghost = yes
sub move_all
finditem %1 C_ , %3
while #findcnt > 0
{
if %2 = all
exevent drag #FINDID #FINDSTACK
else
exevent drag #FINDID %2
wait 10
Exevent Dropc %4
wait 1s
finditem %1 C_ , %3
}
return
sub move
finditem %1 C_ , %3
if %2 = all
exevent drag #FINDID #FINDSTACK
else
exevent drag #FINDID %2
wait 10
Exevent Dropc %4
wait 1s
return