Page 1 of 1

Написал скрипт, пользуйтесь на здоровье (бесплатно естессно)

Posted: 2005-07-07 11:04:11
by 666Man666
Решил помочь всем трешерам, кто ходит на варки.... вот скрипт для вас :)) пользуйтесь на здоровье.... ыыы

Code: Select all

sub OtezNaPodlute()
UO.Msg("Не бейте меня я голый!!!")
Wait(3500)
UO.Msg("Дайте на рекол ПЛЗ!")
end sub


з.ы Если будут предложения по улучению скрипта, они убдут вносится.... ) высказывайтесь....

Posted: 2005-07-07 12:39:17
by Tergos
Предложение по улучшению:

Code: Select all

sub OtezNaPodlute() 
While not UO.Dead()
  UO.Msg("Не бейте меня я голый!!!")
  Wait(3500)
  UO.Msg("Дайте на рекол ПЛЗ!")
  Wait(3500)
wend
If UO.Dead() then
  UO.Warmode(0)
  wait(500)
  UO.Msg("Ну я же просил не бить :(")
  While UO.Dead()
    UO.Warmode(0)
    wait(500)
    UO.Msg("Ресните плз...")
    wait(500)
    UO.Warmode(1)
    wait(6000)
  wend
endif
end sub

Posted: 2005-07-12 01:34:48
by I'm
Респект 8)

Posted: 2005-07-15 10:48:21
by 666Man666
Tergos wrote:Предложение по улучшению:

Code: Select all

sub OtezNaPodlute() 
While not UO.Dead()
  UO.Msg("Не бейте меня я голый!!!")
  Wait(3500)
  UO.Msg("Дайте на рекол ПЛЗ!")
  Wait(3500)
wend
If UO.Dead() then
  UO.Warmode(0)
  wait(500)
  UO.Msg("Ну я же просил не бить :(")
  While UO.Dead()
    UO.Warmode(0)
    wait(500)
    UO.Msg("Ресните плз...")
    wait(500)
    UO.Warmode(1)
    wait(6000)
  wend
endif
end sub

Это уже версия 0.2 :))) для более продвинутых )

Posted: 2005-07-18 22:40:05
by KrafteR
666Man666 wrote:
Tergos wrote:Предложение по улучшению:

Code: Select all

sub OtezNaPodlute() 
While not UO.Dead()
  UO.Msg("Не бейте меня я голый!!!")
  Wait(3500)
  UO.Msg("Дайте на рекол ПЛЗ!")
  Wait(3500)
wend
If UO.Dead() then
  UO.Warmode(0)
  wait(500)
  UO.Msg("Ну я же просил не бить :(")
  While UO.Dead()
    UO.Warmode(0)
    wait(500)
    UO.Msg("Ресните плз...")
    wait(500)
    UO.Warmode(1)
    wait(6000)
  wend
endif
end sub

Это уже версия 0.2 :))) для более продвинутых )

Выложи своего вендора, вот это будет дело, а то выложил муть какую-то :lol:.
Ну и нафлужу, как выд думаете красиво?

Posted: 2005-07-18 23:10:46
by 666Man666
Луче ты совего :))) " Vendor (Anarchy) 0.04" не помню версии :)

а картинка ужас, не проффесиональная.... так се каляка-маляка :))

Posted: 2005-07-18 23:16:56
by KrafteR
666Man666 wrote:Луче ты совего :))) " Vendor (Anarchy) 0.04" не помню версии :)

а картинка ужас, не проффесиональная.... так се каляка-маляка :))
Ой ой заскромничал... Непрофессиональная, каляка маляка.
твой вендор поновее будет у тебя версия аж 1.** так-что выкладывай не жмотись!

Posted: 2005-08-04 10:54:13
by I'm
Из жизненного опыта предлагаю надставку для настоящих Ацов 8)

Code: Select all

Рашн инстракшн: Для корректной работы скрипта необходима проползти в гущу битвы и запустить бойца. Он выведет вас из хайда и введет в более невидимый режим (рано или поздно).
Гарантия качества :!:

sub Boetz()
UO.Warmode(1)

if UO.Life=UO.STR then
UO.Say("Ссдавайтесь сцуки атец прышёл") #|OR|# UO.say("Оружие на пол, доспы на стол!") #|OR|# UO.Undress() / UO.say("давайте быть ближе к природе")

While UO.Life=UO.STR
Wait(1000)
Wend
endif

UO.Exec("exec OtezNaPodlute")
UO.Exec("terminate Boetz")
endsub