Jump to content

Warrior124

Members
 View Profile  See their activity

  • Posts

    993

  • Joined

  • Last visited

 Content Type 

Posts posted by Warrior124

  2. Question About Remote Wrtining

    in General Chat Talk

    Posted

    If I'm not mistaken you want a code that will write whatever you type to a remote computer using your script. In essence you want to distribute a script containing a code that when activated will write whatever you type, and save it accordingly. Thus if you type a code to be written you can take control of the remote computer, and basically make it do whatever you want while the other person who has your script has no idea of what is taking place. With this code you can take control of the room, and effectively do other things as well. I apologize, but we can't help you with this.

  5. Mirc Browser

    in General IRCX

    Posted · Edited by Warrior124

    Ahh, then you'll need to change the coding a little then.

     

    instead of using...

    dll $nofile($mircexe) $+ Dlls\nhtmln_2.95.dll

     

    try using this...

    dll $nofile($mircexe) $+ Emgine\Dlls\nhtmln_2.95.dll

  6. Mirc Browser

    in General IRCX

    Posted · Edited by Warrior124

    Try this...

     

    alias webpage {
  window @WebPage
  dll $nofile($mircexe) $+ Dll\nhtmln_2.95.dll attach $window(@webpage).hwnd
  dll $nofile($mircexe) $+ Dll\nhtmln_2.95.dll margins -2
  dll $nofile($mircexe) $+ Dll\nhtmln_2.95.dll navigate http://www.google.com
}

    The , isn't needed in the code.

     

    Also, is your folder the nhtmln_2.95.dll in called Dll, or Dlls, or something else? :)

  7. Mirc Browser

    in General IRCX

    Posted · Edited by Warrior124

    If you install mirc on Windows Vista - Windows 7 for some reason it installs in a default directory, and the directory you choose with the mirc.ini file being created in the default directory. For mine it is installed into C:\Users\Administrator\AppData\Roaming\mIRC\, and C:\Program Files\mIRC2010 with my mirc.ini file being created in the C:\Users\Administrator\AppData\Roaming\mIRC\ directory. I forget what the default directory is for Vista. In other words it installs into 2 different directories. The one you choose, and a default directory as well with the mirc.ini only being created in the default directory. So using $mircdir will only give the directory containing the mirc.ini file while $nofile($mircexe) refers to the directory where you ran the mirc.exe program.

  8. Mirc Browser

    in General IRCX

    Posted

    Yes, it does work for Windows 7. It works for me. I'm using Windows 7 Ultimate. You just need to make sure you have mirc.ini in the right directory, or change your coding to have $nofile($mircexe) in it to point each coding for using the dll to your directory.

     

    dll $nofile($mircexe) $+ Dll\nhtmln_2.95.dll select $window($active).hwnd
and so forth...

  9. Votekick Code Not Working

    in General IRCd

    Posted

    Naw warrior, the way he had it setup is if it says !votekick the first event will get it. And as you know the second matching text event in the file will not execute at that moment. Only the first.

     

    But if it is !vote or !votewhatever, well naturally it wont match the !votekick event but it does match in the next text event !vote.

     

    Exactly, lol. That was what I was trying to convey, and is why I merged the !votekick code with the other on text event. I didn't get to look over all the code, but from what I've seen it looks like some things are indeed missing like what Travis said.

     

  10. Votekick Code Not Working

    in General IRCd

    Posted

    I haven't tested it out, but I did notice you had two on text events pertaining to looking for the text !vote. This could be messing up your code. Try this...

     

    on *:nick: {
  if $nick == %victim && %vote != 0 {
    msg %vote There's no way to hide, $newnick $+ !
    set %victim $newnick
  }
}

on *:text:!vote*:*: {
  if $read(votekick.txt,s,$address) {
    msg $chan You have voted already, $nick $+ !
  }
  else {
    if $2 == $null {
      if %vote == 0 {
        msg $chan No voting running at the moment
      }
      else {
        msg $chan Syntax: !vote yes/no
      }
    }  
    elseif $2 == yes {
      if %vote == 0 {
        msg $chan No voting running at the moment
      }
      else {
        inc %yes
        write votekick.txt $address $address
      }
    }
    elseif $2 == no {
      if %vote == 0 {
        msg $chan No voting running at the moment
      }
      else {
        inc %no
        write votekick.txt $address $address
      }
    }
    else {
      if %vote == 0 {
        msg $chan No voting running at the moment
      }
      else {
        msg $chan Syntax: !vote yes/no
      }
    }
  }
  if *kick iswm $1 {
    if $nick isop $chan {
      if %vote != 0 {
        msg $chan There is a voting running already
        halt
      }
      if $2 == $me {
        msg $chan I won't start a votekick on myself, $nick $+ ...
      }
      else {
        if $2 ison $chan {
          set %vote $chan
          msg $chan  $+ $nick has started a votekick against $2
          msg $chan Type !vote yes/no to vote for/against the kick
          msg $chan You can only vote one time and you have [60] seconds to do so
          timer 1 55 _warning $chan
          timer 1 60 _vote $chan
          set %victim $2
        }
        else {
          msg $chan I don't see $2 in $chan $+ ?!
        }
      }
    }
    else {
      msg $chan You do not have permission to do start a votekick!
    }
  }
}

on *:text:!victim*:*: {
  if %vote == 0 {
    msg $chan No voting running at the moment
  }
  else {
    msg $chan The current votekick victim is %victim
  }
}

alias _warning {
  if %vote != 0 {
    msg $1 5 seconds remaining
  }
}

alias _vote {
  if %vote != 0 {
    var %total = $calc(%yes + %no)
    var %yes-p = $round($calc(%yes / %total * 100),2)
    var %no-p = $round($calc(%no / %total * 100),2)

    msg $1 The vote is over! The victim was %victim
    msg $1 Total votes: %total - Yes: %yes ( $+ %yes-p $+ $chr(37) $+ ) - No: %no ( $+ %no-p $+ $chr(37) $+ )

    if %yes > %no {
      kick $1 %victim votekicked
    }
    else {
      msg $1 You are lucky this time, %victim;)
    }

    set %vote 0
    set %yes 0
    set %no 0
    unset %all
    remove votekick.txt
  }
}


on *:text:!stopvoting:*: {
  if %vote == 0 {
    msg $chan No voting running at the moment
  }
  else {
    if $nick isop $chan {
      set %vote 0
      set %yes 0
      set %no 0
      unset %all
      remove votekick.txt
      msg $chan The voting has been stopped by $nick
    }
    else {
      msg $chan You do not have permission to stop the voting!
    }
  }
}

  14. Windows 7

    in General Chat Talk

    Posted

    how do you get a free verison windows 7 then?

     

    is't there something about vista laptop get windows 7 free?

    Yes, when you buy a new pc, or laptop with Vista installed you get a free version of Windows 7. It seems they really have done alot better with this new OS than previous editions.

  15. Nicklister Help

    in General IRCd

    Posted

    Try this one. I removed some brackets, and missing code that was in there.

     

    ;-------------------------------------------------------------------------------------------------
;-- Center Dialog
;-------------------------------------------------------------------------------------------------

alias loop {
  var %x 1
  :lp
  did -a $dname 13 $nick($active,%x)
  inc %x
  if ($nick($active,%x) == $null) { goto nd }
  else { goto lp }
  :nd
}


alias cd { dialog -m centerd centerd }
alias ccd { dll $rebar UnDock center | dialog -x centerd centerd }
alias rebar { return dlls/rebar.dll }
dialog centerd {
  title "Center Dialog"
  size -1 -1 589 437
  option dbu
  list 1, 12 30 314 62, sort size extsel hsbar vsbar
  button "On", 2, 12 92 17 10, flat
  button "Off", 3, 31 92 17 10, flat
  edit $group(#tagged.events), 4, 49 91 15 10
  button "Delete All", 6, 67 92 28 10, flat
  button "Clipboard", 7, 175 92 31 10, flat
  box "Kicked Users List", 8, 9 213 454 80
  button "Ok/Cancel", 9, 8 415 586 12, ok cancel
  icon 10, -35 -30 647 503,  pictures\004.jpg, 0, noborder
  button "Delete", 11, 99 92 31 10, flat
  button "View Notepad", 12, 134 92 37 10, flat
  list 13, 509 31 69 217
  button "Owner", 14, 469 32 37 10
  button "DeOwner", 15, 469 43 37 10
  button "Host", 16, 469 54 37 10
  button "DeHost", 17, 469 65 37 10
  button "Voice", 18, 469 76 37 10
  button "DeVoice", 19, 469 87 37 10
  button "Tag", 20, 469 98 37 10
  button "UnTag", 21, 469 109 37 10
  text "Current Channel :", 22, 184 17 48 8, center
  edit , 23, 234 16 207 10, read autohs center
  button "Ban List Nick", 24, 469 120 37 10
  button "Kick Nick", 25, 469 131 37 10
  box "Nick List Options", 26, 465 23 116 244
  edit "", 27, 509 249 70 10, read
  text "Decoded Nick : ", 28, 467 251 41 8, center
  box "Clone Lister", 29, 9 118 236 87
  button "On", 30, 178 131 19 10
  button "Off", 31, 198 131 19 10
  edit $group(#CloneDet), 32, 219 131 22 10
  button "View Notepad", 33, 189 148 37 10
  button "Clipboard", 34, 189 167 37 10
  button "Delete List", 35, 189 188 37 10
  list 5, 12 126 163 75, sort size extsel hsbar vsbar
  list 37, 12 219 448 62, sort size extsel hsbar vsbar
  box "Tagged Users List", 38, 9 23 320 83
  button "Delete All", 39, 67 281 28 10, flat
  button "On", 40, 12 281 17 10, flat
  button "Off", 41, 30 281 17 10, flat
  edit $group(#kickevents), 42, 49 281 15 10
  button "Delete", 43, 99 281 31 10, flat
  button "View Notepad", 44, 134 281 37 10, flat
  button "Clipboard", 45, 175 281 31 10, flat
}






on *:dialog:centerd:init:*: {
  dll $rebar Dock $dialog($dname).hwnd > center
  /loop
  /loadbuf -ro centerd 5 settings/clonelist.txt
  /loadbuf -ro centerd 37 settings/snoopkick.txt
  /set %u 0
  :loop
  /inc %u 1
  if ($read -l [ $+ [ %u ] ] settings/snooptext.txt == $null) { goto end1 }
  else { /did -a centerd 1 $read -l $+ %u settings/snooptext.txt | goto loop }
  :end1
}


on *:Dialog:centerd:sclick:1: { /set %sel.line $did(1).seltext }
on *:Dialog:centerd:sclick:5: { /set %sel.line $did(5).seltext }
on *:Dialog:centerd:sclick:13: { /set %sel.text $did(13).seltext }
on *:Dialog:centerd:sclick:7: { clipboard %sel.line }
on *:Dialog:centerd:sclick:34: { clipboard %sel.line }
on *:dialog:centerd:sclick:12:{ run notepad.exe settings/snooptext.txt }
on *:dialog:centerd:sclick:33:{ run notepad.exe settings/clonelist.txt }
on *:Dialog:centerd:sclick:11: { /write -ds $+ %sel.line settings/snooptext.txt | /loadbuf -ro centerd 1 settings/snooptext.txt }
on *:Dialog:centerd:sclick:35: { /remove settings/clonelist.txt | write settings/clonelist.txt | /loadbuf -ro centerd 5 settings/clonelist.txt }

  18. Avi File Reducer

    in General Chat Talk

    Posted · Edited by Warrior124

    Have you used Windows Movie Maker? If you have any Windows versions from XP, or above you should have Windows Movie Maker included. When you open WMM drag your AVI file into the timeline, and go to "File > Publish Movie". A box will open up asking you how to publish the file. Select "Email", and follow the instructions. :)

     

    Edit: Correction. Not all Windows version has WMM included. If you have Vista you will need to download WMM from here

  20. Erm

    in General Chat Talk

    Posted

    |15:00| * prØmetheus has joined %#IRCommunity

    |15:00| * prØmetheus sets mode: +q prØmetheus

    |15:00| ( Warrior™ ) Join Flood ... Taking Safety Steps.

    |15:00| * Warrior™ sets mode: +i-u

    |15:00| * err0r has left %#IRCommunity

    |15:00| * err0r has joined %#IRCommunity

    |15:00| * err0r sets mode: +q err0r

    |15:00| * err0r was kicked by Warrior™ (:: Bye Now, Have A Nice Day. :) [My Kicks Today =49])

    |15:00| * err0r has joined %#IRCommunity

    |15:00| * err0r sets mode: +q err0r

    |15:00| * Warrior™ was kicked by prØmetheus (:no kicking err0r please)

     

     

    I removed the +i.

     

    Warrior, can you please either turn off the protection in that room or add err0r to your allowed list? Thank you.

     

    At first I thought you were talking to me. I didn't know I had a chatroom, lol. :lolwave:

     

  21. How Do You ?

    in General Chat Talk

    Posted · Edited by Warrior124

    Many websites have different ways to handle information. You'd just have to play around to find out how to read the information to use for mIRC.

     

    You will need to open a socket to the website...

     

    alias webread {
  sockclose webread
  sockopen webread www.mainwebaddresshere.com 80
}

     

    You will need a sockopen event

     

    on *:sockopen:webread: {
  var %s = $sockname , %ip = $sock($sockname).ip , %port = $sock($sockname).port
  if ($sockerr > 0) { sockclose %s | sockopen %s %ip %port }
  sockwrite %s GET /partofadressaftermainhere HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ User-Agent: whatever $+ $crlf $+ Host: www.mainwebaddresshere.com $+ $crlf $+ Connection: Close $+ $crlf $+ $crlf
  :error
}

     

    Next you will need to retrieve information to be read...

     

    on *:sockread:webread: {
  var %s = $sockname , %ip = $sock($sockname).ip , %port = $sock($sockname).port , %r
  if ($sockerr > 0) { sockclose %s | sockopen %s %ip %port }
  sockread -n %r
  Your own coding goes here
}

     

    Where your own coding goes you will need your own coding to be able to read the information you want. What I usually do is have it write the information it retrieves to a text file where I then look over to see where it should read from. I then make coding to read just the information I need (use $gettoks, etc)

     

    on *:sockread:webread: {
  var %s = $sockname , %ip = $sock($sockname).ip , %port = $sock($sockname).port , %r
  if ($sockerr > 0) { sockclose %s | sockopen %s %ip %port }
  sockread -n %r
  write $nofile($mircexe) $+ Test.txt %r
}

     

    After you have your coding exactly as you want it you can replace the write bit with the coding you want. :)

  23. Windows 7

    in General Chat Talk

    Posted · Edited by Warrior124

    I'll be getting my Windows 7 Premium free of charge, plus I received an email asking me to sign up to host a party for the release of Windows 7. If selected they will be sending me out a party pack, plus a free version of Windows 7 Ultimate. :)

×
×
  • Create New...