UO-Dev Arama

 



İçerde : 1 misafir, 0 üye : --- Sayfalar: 1
Yazar

ClarkRockefeller


UO-Dev Üyesi
Skill Title: Novice
Online durumu
Toplam Mesaj: 21
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 24
Mesaj #81011   23-11-2014 16:31 GMT    
        
Selam Arkadaslar
Bana Bi Script Lazım Yazan Çıkarsa Burdan Çıkar

Bana Cesed Kesecek İçindeki deriyi kesip lootlayacak bi macro arıyorum

Kod:
;==================================
; Script Name: Skin, Cut, & Loot
; Author: Twice_
; Version: 1.10
; Client Tested with: 5.0.7.1
; EUO version tested with: 1.5-101
; Shard OSI / FS: Freeshard Only
; Revision Date: 12/24/2006
; Public Release: 12/31/2006
; Global Variables Used: N/A
; Purpose: Meant to cut down on the
; hassle of skinning a corpse, then
; cutting the leather, then looting
; it.
;==================================
; SET YOUR HOTKEY TO PAUSE SCRIPT
;==================================
set %hotkey SCROLLLOCK
;==================================
; DO NOT MODIFY ANYTHING BELOW THIS
;==================================
set %daggar 0
set %scissors 0
set %blades WSF
set %sciss JAG_KAG
set %hides EEG_GED_DEG_
set %leather JJG
set %meat VRD
set %corpse 0
set %paused false

goto Main

Main:
{
     finditem %leather C_ , #backpackid
     if #findkind <> -1
     {
         ignoreitem #findid
     }

     finditem %meat C_ , #backpackid
     if #findkind <> -1
     {
         ignoreitem #findid
     }
     
     finditem %blades C_ , #backpackid
     if #findkind <> -1
     {
         set %daggar #findid
     }
     else
     {
         display ok No daggar found, halting.
         halt
     }
     
     finditem %sciss C_ , #backpackid
     if #findkind <> -1
     {
         set %scissors #findid
     }
     else
     {
         display ok No scissors found, halting.
         halt
     }
     
     goto Loop
}

Loop:
{
     onhotkey %hotkey
     {
         event sysmessage Paused.
         wait 10
         goto Pause
     }

     finditem YFM G_1
     if #findkind <> -1
     {
         set %corpse #findid
         ignoreitem #findid
         goto OpenCorpse
     }
     else
         goto Loop
         
     goto Loop
}

OpenCorpse:
{
     set #lobjectid %corpse
     event macro 17
     scanjournal 1
     wait 13
     goto CutCorpse
}

CutCorpse:
{
     set #lobjectid %daggar
     set #ltargetid %corpse
     event macro 17
     target
     event macro 22
     wait 13
     goto CutHides
}

CutHides:
{
     finditem %hides C_
     
     if #findkind <> -1
     {
          set #lobjectid %scissors
          set #ltargetid #findid
          event macro 17
          target
          event macro 22
          wait 13
          goto Loot
     }
     else
          goto Loop
}

Loot:
{
     finditem %leather C_

     if #findkind <> -1
     {
          exevent drag #findid #findstack
          wait 5
          exevent dropc #backpackid

          ignoreitem #findid
          wait 3
         
          goto Loot
      }
      else
      {
          finditem %meat C_
         
          if #findkind <> -1
          {
             exevent drag #findid #findstack
             wait 5
             exevent dropc #backpackid
             
             ignoreitem #findid
             wait 3
             
             goto Loop
          }
      }

}

Pause:
{
     set %paused #true
     
     while %paused = #true
     {
        onhotkey %hotkey
        {
            event sysmessage Resumed.
            set %paused #false
            wait 10
            goto Loop
        }
     }
}


böyle birşey var elimde ama sürekli scrolllock tusuna basmam gerekiyor

bunu editleyip sadece cesedi gördügünde yukarıdaki işlemleri yapsın istiyorum

Şimdiden Teşekkürler.

Not: Oynadıgım sunucuda EasyUo Legal bi programdır.


Son güncelleme: TheRaskol tarafından 23-11-2014 21:32 GMT, önce düzenlendi.



Yazar

Rheumon


UO-Dev Üyesi
Skill Title: Journeyman
Online durumu
Toplam Mesaj: 159
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 29
Mesaj #81012   23-11-2014 16:34 GMT    
        
Elimde söyle bir şey var yanlış hatırlamıyorsam eğer ki cesetteki her şeyi lootluyor umarım işini görür. Bu arada kesme işlemi dediğin gözümden kaçmış bu scptin başına kesme işlemini koyarsan tam olacaktır.
Kod:
set %wait 3

set %leavebehind XXX
set %cantget You_can_not_pick_that_up
set #sysmsgcol 1100
Event Sysmessage Lootu Basacagin Cantayi Sec
set #targcurs 1
lbl:
if #targcurs = 1
   goto lbl
wait 0
set %lootbag #ltargetid
set #sysmsgcol 1100
event sysmessage Hade basla
loop:
finditem YFM G_3
if #findkind <> -1
             {
            set %scnt #scnt + 10
            gosub loot
            ignoreitem reset loot
            }
goto loop

sub loot
set %corpse #findid
set #lobjectid %corpse
event macro 17 0
wl1:
if #contid <> %corpse
   {
     if #scnt > %scnt
        {
              return
         }
      goto wl1
      }
wait 0
loot:
finditem * C_ , %corpse
if #findkind = -1
{
ignoreitem %corpse corpselist
set %clickx #contposx + 60
set %clicky #contposy + 20
click %clickx %clicky r
return
}
if #findtype = %leavebehind
{
ignoreitem #findid loot
goto loot
}
exevent drag #findid #findstack
wait 0
if %cantget in #sysmsg
{
ignoreitem #findid loot
}
exevent dropc %lootbag
wait %wait
goto loot



Yazar

ClarkRockefeller


UO-Dev Üyesi
Skill Title: Novice
Online durumu
Toplam Mesaj: 21
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 24
Mesaj #81013   23-11-2014 16:45 GMT    
        
cesetteki herşeyi bende lootlatabiliyorum ama söyle bir sıkıntı var

bana lazım olan hem cesedi kesip içindeki deriyi kesip cut leather dönüştürüp oyle lootlayan

tam istedigim gibi yukarıdaki macro fakat
benden cesedi gordugumde belirledigim bir tusa basak yaptırıyor
benim istedigimse cesedi kendi oto gorup kessin lootlasın

gece yatarken macroya birakıcam cunku



Yazar

Freemium


UO-Dev Üyesi
Skill Title: Apprentice
Online durumu
Toplam Mesaj: 58
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 31
Mesaj #81018   23-11-2014 20:13 GMT    
        
p.m. attım.


Jessica Pentagram
Pentagram Family Member
nam-ı diğer Carlos11

Yazar

MirroR


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 598
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 27
Mesaj #81074   28-11-2014 02:37 GMT    
        
Eğer hala bulamadıysan easy uo sitesine bir bak http://www.easyuo.com/


Hayat dediğin bir çift bacak gidebildiğin yol kadardır.

Yazar

Deceit


UO-Dev Üyesi
Skill Title: Novice
Online durumu
Toplam Mesaj: 14
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 40
Mesaj #81091   29-11-2014 16:37 GMT    
        
pleyerlar icin kullanılacak oto loot programı varmı



Sayfalar: 1



Benzer Konular

KonularMesajlarSon gönderenTarih
Speed - In-Bin - Oto Loot - Oto Ceset kesme - M...25MirroR24-12-2017
Kal in ex ve ceset7Rowall16-07-2017
Ceset Problemi1Alp27-09-2013
Lbr Ceset Gözükmüyor..1saggusan22-05-2013
Ceset yok olmuyor2Mac-Fusion04-05-2013


Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,